* gfortran.fortran-torture/execute/module_init_1.f90: Fix test.
From-SVN: r84451
This commit is contained in:
parent
8f0ce8da14
commit
44bce8bfac
|
@ -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>
|
||||
|
||||
|
|
|
@ -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()
|
||||
|
|
Loading…
Reference in New Issue