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