OSDN Git Service

gcc/fortran:
[pf3gnuchains/gcc-fork.git] / 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