1 2 3 4 5 6
! Check known length string parameters subroutine test (s) character(len=80) :: s s = "Hello World" end subroutine