1! { dg-do compile } 2! { dg-options "-fcheck=bounds" } 3! 4! PR fortran/50815 5! 6! Don't check the bounds of deferred-length strings. 7! gfortran had an ICE before because it did. 8! 9SUBROUTINE TEST(VALUE) 10 IMPLICIT NONE 11 CHARACTER(LEN=:), ALLOCATABLE :: VALUE 12 CHARACTER(LEN=128) :: VAL 13 VALUE = VAL 14END SUBROUTINE TEST 15