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