gcc/testsuite/gfortran.dg/implicit_6.f90

   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