* gfortran.fortran-torture/execute/module_init_1.f90: Fix test.

From-SVN: r84451

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 84c1a9e..ff76426 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-10  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+       
+       * gfortran.fortran-torture/execute/module_init_1.f90: Fix test.
+
 2004-07-10 Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
        Paul Brook  <paul@codesourcery.com>
 

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90
index 4394353..9996935 100644 (file)
--- a/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90
@@ -1,7 +1,7 @@
 ! PR 13077: we used to fail when reading the module
 module m1
-real, dimension(3) :: a
-data a(1:3) /2*1.0/
+real, dimension(4) :: a
+data a(1:3:2) /2*1.0/
 end module m1
 use m1
 if (a(1).NE.1.) call abort()