ex0802.f90

来自「fortran 95书的源程序全集」· F90 代码 · 共 20 行

program  ex0802
implicit none
  call sub1()
  call sub2()
  stop
end program ex0802 

subroutine sub1()
implicit none
  write(*,*) "This is sub1"
  call sub2()
  return
end subroutine sub1

subroutine sub2()
implicit none
  write(*,*) "This is sub2"
  return
end subroutine sub2