Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
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