1! PR fortran/49540
2! { dg-do compile }
3! { dg-options "" }
4block data
5  common /a/ i(5,5)
6  data i /4, 23 * 5, 6/
7  data i(:,2) /1, 3 * 2, 3/
8  common /b/ j(5,5)
9  data j(2,:) /1, 3 * 2, 3/
10  data j /4, 23 * 5, 6/
11  common /c/ k(5,5)
12  data k(:,2) /1, 3 * 2, 3/
13  data k /4, 23 * 5, 6/
14  common /d/ l(5,5)
15  data l /4, 23 * 5, 6/
16  data l(2,:) /1, 3 * 2, 3/
17end block data
18