assumed_len.f90

来自「用于进行gcc测试」· F90 代码 · 共 12 行

! { dg-do compile }
! Test of the patch for PR29941, in which LEN threw an error with
! an assumed size argument.
! 
! Contributed by William Mitchell <[e-mail]>
!
subroutine whatever(str)
character(len=*), dimension(*) :: str
integer :: i
i = len(str)
end subroutine whatever