gcc/testsuite/gfortran.fortran-torture/compile/dummyfn.f90

   1 ! Program to test array valued dummy functions
   2 SUBROUTINE 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()
  13 END SUBROUTINE