! { dg-do compile } ! ! PR fortran/31639 ! Contributed by Martin Michlmayr integer function xstrcmp(s1) character*(*), intent(in) :: s1 integer :: n1 = len(s1) ! { dg-error "Assumed or deferred character length variable" } n1 = 1 return end function xstrcmp