ex0818.f90

来自「正在从事科学计算的朋友学习fortran必备的书籍」· F90 代码 · 共 15 行

program ex0818
implicit none
  character(len=20) :: str="Hello, Fortran 95."
  call ShowString( str )
  call ShowString( str(8:) )
  stop
end

subroutine ShowString( str )
  implicit none
  character(len=*) :: str
  write(*,*) len_trim(str)
  write(*,*) str
  return
end subroutine