blob: 9625b10fed26afc726093ddb482750ed706080cb [file] [log] [blame]
! Check known length string parameters
subroutine test (s)
character(len=80) :: s
s = "Hello World"
end subroutine