TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 14:59:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
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