! { 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 | |