gcc/testsuite/gfortran.dg/assumed_len.f90

   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 !
   7 subroutine whatever(str)
   8 character(len=*), dimension(*) :: str
   9 integer :: i
  10 i = len(str)
  11 end subroutine whatever