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
14