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

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

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

From-SVN: r253126

gcc/testsuite/ChangeLog

 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
 	* gfortran.dg/intrinsic_bounds_1.f90: New test.

gcc/testsuite/gfortran.dg/data_derived_1.f90

+! { 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