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