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

From-SVN: r84451

* gfortran.fortran-torture/execute/module_init_1.f90: Fix test.
From-SVN: r84451
44bce8bf · Tobias Schlüter · Tobias Schlüter · 8f0ce8da · 44bce8bf · 44bce8bf
Commit 44bce8bf authored Jul 10, 2004 by Tobias Schlüter Committed by Tobias Schlüter Jul 10, 2004
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90
+2 -2

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+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>


--- a/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90
 ! 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()