Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
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