! { dg-do compile } | |
! | |
! PR 40822: [4.5 Regression] Internal compiler error when Fortran intrinsic LEN referenced before explicit declaration | |
! | |
! Contributed by Mat Cross <mathewc@nag.co.uk> | |
SUBROUTINE SEARCH(ITEMVAL) | |
CHARACTER (*) :: ITEMVAL | |
CHARACTER (LEN(ITEMVAL)) :: ITEM | |
INTRINSIC LEN | |
END | |