Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
dummyfn.f90
blob: d54f64899f3898c8dce0e3fecc8bb55fcda5d48e [
file
] [
log
] [
blame
]
!
Program
to test array valued dummy functions
SUBROUTINE dummyfn
(
deriv
)
implicit
none
INTERFACE
FUNCTION deriv
()
REAL
::
deriv
(
4
)
END
FUNCTION deriv
END
INTERFACE
REAL
::
dx
(
4
)
dx
=
deriv
()
END
SUBROUTINE