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

re PR fortran/14077 (Data statement within a module that doesn't initialize a whole array creates an error) 

PR fortran/14077
* gfortran.fortran-torture/execute/module_init_1.f90: New test.

From-SVN: r84412
This commit is contained in:
Tobias Schlüter 2004-07-10 00:44:22 +02:00 committed by Tobias Schlüter
parent dae424695c
commit 5721c2bebf
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/14077
* gfortran.fortran-torture/execute/module_init_1.f90: New test.
2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/13201

9
gcc/testsuite/gfortran.fortran-torture/execute/module_init_1.f90 Normal file
View File

@ -0,0 +1,9 @@
! PR 13077: we used to fail when reading the module
module m1
real, dimension(3) :: a
data a(1:3) /2*1.0/
end module m1
use m1
if (a(1).NE.1.) call abort()
if (a(1).NE.a(3)) call abort()
end