procarg.f90

来自「用于进行gcc测试」· F90 代码 · 共 30 行

! 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