summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/assumed_len.f90
blob: 5895e21457b586b3e798730bab8f3a77378bdac8 (plain)
1
2
3
4
5
6
7
8
9
10
11
! { dg-do compile }
! Test of the patch for PR29941, in which LEN threw an error with
! an assumed size argument.
! 
! Contributed by William Mitchell <william.mitchell@nist.gov>
!
subroutine whatever(str)
character(len=*), dimension(*) :: str
integer :: i
i = len(str)
end subroutine whatever