OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r84451
This commit is contained in:
Tobias Schlüter 2004-07-10 11:53:53 +02:00 committed by Tobias Schlüter
parent 8f0ce8da14
commit 44bce8bfac
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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>

4
gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90
View File

@ -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()