gcc/testsuite/gfortran.dg/data_char_2.f90

   1 ! { dg-do run }
   2 !  Test that getting a character from a
   3 ! string data works.
   4
   5 CHARACTER*10       INTSTR
   6 CHARACTER          C1
   7 DATA               INTSTR / '0123456789' /
   8
   9 C1 = INTSTR(1:1)
  10 if(C1 .ne. '0')  call abort()
  11
  12 end