gcc/testsuite/gfortran.fortran-torture/execute/procarg.f90


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