From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Sat, 10 Jul 2004 09:53:53 +0000 (+0200)
Subject: * gfortran.fortran-torture/execute/module_init_1.f90: Fix test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=44bce8bfac2304add83f6c860f534c9287640090;p=gcc.git

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

From-SVN: r84451
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 84c1a9e90c1..ff7642609ae 100644
--- 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 4394353d311..9996935f69e 100644
--- 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()