gcc/testsuite/gfortran.dg/blockdata_9.f

   1 ! { dg-do compile }
   2 ! { dg-options "-fno-automatic -finit-local-zero" }
   3 ! PR fortran/66347
   4
   5       block data
   6       implicit none
   7       integer i, n
   8       parameter (n=1)
   9       character*2 s1(n)
  10       character*8 s2(n)
  11       common /foo/ s1, s2
  12       data (s1(i),s2(i),i=1,n)/"ab","12345678"/
  13       end