1! Program to test array valued dummy functions
2SUBROUTINE dummyfn(deriv)
3   implicit none
4   INTERFACE
5      FUNCTION deriv()
6         REAL :: deriv(4)
7      END FUNCTION deriv
8   END INTERFACE
9
10   REAL :: dx(4)
11
12   dx = deriv()
13END SUBROUTINE
14