! 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 | |