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