Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
contained_5.f90
blob: 94946f76b0d45ad5bb93993bae5adebc1c3e9fd7 [
file
] [
log
] [
blame
]
!
Function
returning an array continaed
in
a
module
.
Caused
problems
'cos
! we tried to add the dummy return vars to the parent scope.
Module contained_5
contains
FUNCTION test ()
REAL, DIMENSION (1) :: test
test(1)=0.0
END FUNCTION
end module