program ex0839
  implicit none
  integer :: a

  read(*,*) a
  call sub( a, *100, *200 ) 
  ! 特別另外指定兩個(gè)返回點(diǎn), 分別是行代碼100及200這兩個(gè)地方
  write(*,*) "Default"
  stop
  100 write(*,*) "Return 1"
  stop
  200 write(*,*) "Return 2"
  stop 

end 

subroutine sub( a, *, * )
  implicit none
  integer :: a
  if ( a<=0 ) then
    return    ! 返回內(nèi)定的返回點(diǎn)
  else if ( a==1 ) then
    return 1  ! 返回特別指定的第1個(gè)返回點(diǎn)
  else
    return 2  ! 返回特別指定的第2個(gè)返回點(diǎn)
  end if
end subroutine