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