1! { dg-do compile }
2! { dg-options "-std=legacy" }
3!
4! PR 24643
5! substring references on implicitly typed CHARACTER variables didn't work
6        PROGRAM P
7        IMPLICIT CHARACTER*8 (Y)
8        YLOCAL='A'
9        YBTABLE=YLOCAL(1:2)
10        END
11