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