From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sun, 24 Sep 2017 14:26:55 +0000 (+0000)
Subject: re PR fortran/66328 (Wrong initialization of derived-type DATA)
X-Git-Tag: basepoints/gcc-9~4580
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c6c74708b0cc313c90ab5bffc0c2eaa6062827cb;p=thirdparty%2Fgcc.git

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 3502b3ac8051..21e6e2df0282 100644
--- 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
index 000000000000..3ec08e2f336a
--- /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