1! PR fortran/49540 2! { dg-do compile } 3block data 4 common /a/ b(100000,100) 5 data b /10000000 * 0.0/ 6end block data 7