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
|
