projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8f0ce8d)
* gfortran.fortran-torture/execute/module_init_1.f90: Fix test.
authorTobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Sat, 10 Jul 2004 09:53:53 +0000 (11:53 +0200)
committerTobias Schlüter <tobi@gcc.gnu.org>
Sat, 10 Jul 2004 09:53:53 +0000 (11:53 +0200)
From-SVN: r84451

gcc/testsuite/ChangeLog patch | blob | history
gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90 patch | blob | history

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 84c1a9e90c1f40c7cf2bb51b43ece2f4d90eaa11..ff7642609ae05ea41eb01277d70ef1ea2d236690 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 4394353d311ada9c8396618dbe403f2ffd9a0d77..9996935f69e2da016efcaaebf7cee9515256a4cb 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()