1! Pogram to test
2subroutine myp (a)
3   implicit none
4   integer a
5
6   if (a .ne. 42) STOP 1
7end subroutine
8
9subroutine test2 (p)
10   implicit none
11   external p
12
13   call p(42)
14end subroutine
15
16subroutine test (p)
17   implicit none
18   external p, test2
19
20   call p(42)
21   call test2(p)
22end subroutine
23
24program arrayio
25   implicit none
26   external test, myp
27
28   call test (myp)
29end program
30