gcc/testsuite/gfortran.fortran-torture/execute/mystery_proc.f90

   1 ! Program to test dummy procedures
   2 subroutine bar()
   3 end subroutine
   4
   5 subroutine foo2(p)
   6   external p
   7
   8   call p()
   9 end subroutine
  10
  11 subroutine foo(p)
  12   external p
  13   ! We never actually discover if this is a function or a subroutine
  14   call foo2(p)
  15 end subroutine
  16
  17 program intrinsic_minmax
  18    implicit none
  19    external bar
  20
  21    call foo(bar)
  22 end program
  23