strparm_1.f90

来自「Mac OS X 10.4.9 for x86 Source Code gcc」· F90 代码 · 共 7 行

! Check known length string parameters
subroutine test (s)
   character(len=80) :: s

   s = "Hello World"
end subroutine