gcc/testsuite/gfortran.dg/implicit_6.f90

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