procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/66328 (Wrong initialization of derived-type DATA)

Browse source 
2017-09-24  Thomas Koenig  <tkoenig@gcc.gnu.org>
	PR fortran/66328

	* gfortran.dg/data_derived_1.f90: New test.

From-SVN: r253126
This commit is contained in:
Thomas Koenig 2017-09-24 14:26:55 +00:00
parent 24bafc562a
commit c6c74708b0
2 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2017-09-24 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/66328
* gfortran.dg/data_derived_1.f90: New test.
2017-09-24 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/54633

13
gcc/testsuite/gfortran.dg/data_derived_1.f90 Normal file
View file

@ -0,0 +1,13 @@
! { dg-do run }
! PR 66328 - this used to give a wrong value for integer values for DATA
program main
TYPE t
REAL r
END TYPE t
TYPE (t) e1, e2
DATA e1 / t(1) /
DATA e2 / t(1.0) /
if (abs(e1%r - 1.0) > 1e-6) call abort
if (abs(e2%r - 1.0) > 1e-6) call abort
END