17 lines
415 B
Fortran
17 lines
415 B
Fortran
! { dg-do run }
|
|
! { dg-options "-std=legacy" }
|
|
!
|
|
! Check that NULs don't mess up constant substring simplification
|
|
CHARACTER(5), parameter :: c0(1) = (/ "123" // ACHAR(0) // "5" /)
|
|
CHARACTER*5 c(1)
|
|
CHARACTER(1), parameter :: c1(5) = (/ "1", "2", "3", ACHAR(0), "5" /)
|
|
|
|
c = c0(1)(-5:-8)
|
|
if (c(1) /= " ") call abort()
|
|
c = (/ c0(1)(1:5) /)
|
|
do i=1,5
|
|
if (c(1)(i:i) /= c1(i)) call abort()
|
|
end do
|
|
print *, c(1)
|
|
end
|