gcc/testsuite/gfortran.dg/initialization_9.f90

   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 character length variable" }
   9      n1 = 1
  10      return
  11    end function xstrcmp