Sign in
llvm
/
llvm-archive
/
4c0eaea2f24bb29c9834811d33e29a33d888873d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
module_init_1.f90
blob: 9996935f69e2da016efcaaebf7cee9515256a4cb [
file
] [
log
] [
blame
]
!
PR
13077
:
we used to fail
when
reading the
module
module
m1
real
,
dimension
(
4
)
::
a
data a
(
1
:
3
:
2
)
/
2
*
1.0
/
end
module
m1
use
m1
if
(
a
(
1
).
NE
.
1.
)
call abort
()
if
(
a
(
1
).
NE
.
a
(
3
))
call abort
()
end