1! { dg-do compile } 2! 3! PR fortran/31639 4! Contributed by Martin Michlmayr <tbm AT cyrius DOT com> 5 6 integer function xstrcmp(s1) 7 character*(*), intent(in) :: s1 8 integer :: n1 = len(s1) ! { dg-error "Assumed or deferred character length variable" } 9 n1 = 1 10 return 11 end function xstrcmp 12