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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 3502b3ac80511130576686406dc4cde6f091b685..21e6e2df02823c21c9d27606318ec548ee7f9996 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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

diff --git a/gcc/testsuite/gfortran.dg/data_derived_1.f90 b/gcc/testsuite/gfortran.dg/data_derived_1.f90
new file mode 100644 (file)
index 0000000..3ec08e2
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/data_derived_1.f90
@@ -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