summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/compile/strparm_1.f90
blob: 9625b10fed26afc726093ddb482750ed706080cb (plain)
1
2
3
4
5
6
! Check known length string parameters
subroutine test (s)
   character(len=80) :: s

   s = "Hello World"
end subroutine