Sign in
llvm
/
llvm-archive
/
cfaec05de39adb34392b8c7b1ad4b32abbf3663d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
contained_2.f90
blob: 76ef6c6287145d53abef263fd618cd98ea9a4fdc [
file
] [
log
] [
blame
]
!
Arrays
declared
in
parent but used
in
the child
.
program error
implicit
none
integer
,
dimension
(
10
)
::
a
contains
subroutine test
()
implicit
none
a
(
1
)
=
0
end
subroutine
end
program