gcc/testsuite/gfortran.dg/pr67987.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

! { dg-do compile }
! PR fortran/67987
! PR fortran/67988
! Original code contributed by Gerhard Steinmetz
! gerhard dot steinmetz dot fortran at t-online dot de
subroutine p
   character(-8) :: c = ' '
end subroutine p

subroutine pp
   character(3), parameter :: c = 'abc'
   character(3) :: x(1)
   x = c(:-2)
   print *, len(trim(x(1)))
   x = [ c(:-2) ]
   print *, len(trim(x(1)))
end subroutine pp