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