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