Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
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