gcc/testsuite/gfortran.dg/pr67987.f90

   1 ! { dg-do compile }
   2 ! PR fortran/67987
   3 ! PR fortran/67988
   4 ! Original code contributed by Gerhard Steinmetz
   5 ! gerhard dot steinmetz dot fortran at t-online dot de
   6 subroutine p
   7    character(-8) :: c = ' '
   8 end subroutine p
   9
  10 subroutine pp
  11    character(3), parameter :: c = 'abc'
  12    character(3) :: x(1)
  13    x = c(:-2)
  14    print *, len(trim(x(1)))
  15    x = [ c(:-2) ]
  16    print *, len(trim(x(1)))
  17 end subroutine pp
  18