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