ex0802.f90

Fortran 95程序设计&Code-彭国伦

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