From: Thomas Koenig Date: Sun, 24 Sep 2017 14:26:55 +0000 (+0000) Subject: re PR fortran/66328 (Wrong initialization of derived-type DATA) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=c6c74708b0cc313c90ab5bffc0c2eaa6062827cb;p=gcc.git re PR fortran/66328 (Wrong initialization of derived-type DATA) 2017-09-24 Thomas Koenig 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 3502b3ac805..21e6e2df028 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2017-09-24 Thomas Koenig + PR fortran/66328 + + * gfortran.dg/data_derived_1.f90: New test. + 2017-09-24 Thomas Koenig 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 00000000000..3ec08e2f336 --- /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