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