* gfortran.fortran-torture/execute/module_init_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84412
138bc75d-0d04-0410-961f-
82ee72b054a4
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
* gfortran.dg/shape_1.f90: New test.
--- /dev/null
+! 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