1! { dg-do run } 2! { dg-options "-std=legacy" } 3! 4! Check that NULs don't mess up constant substring simplification 5CHARACTER(5), parameter :: c0(1) = (/ "123" // ACHAR(0) // "5" /) 6CHARACTER*5 c(1) 7CHARACTER(1), parameter :: c1(5) = (/ "1", "2", "3", ACHAR(0), "5" /) 8 9c = c0(1)(-5:-8) 10if (c(1) /= " ") call abort() 11c = (/ c0(1)(1:5) /) 12do i=1,5 13 if (c(1)(i:i) /= c1(i)) call abort() 14end do 15print *, c(1) 16end 17