mystery_proc.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 24 行

! Program to test dummy procedures
subroutine bar()
end subroutine

subroutine foo2(p)
  external p

  call p()
end subroutine

subroutine foo(p)
  external p
  ! We never actually discover if this is a function or a subroutine
  call foo2(p)
end subroutine

program intrinsic_minmax
   implicit none
   external bar

   call foo(bar)
end program