gcc/testsuite/gfortran.dg/pr49540-2.f90

   1 ! PR fortran/49540
   2 ! { dg-do compile }
   3 ! { dg-options "" }
   4 block 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/
  17 end block data