1! PR 13077: we used to fail when reading the module 2module m1 3real, dimension(4) :: a 4data a(1:3:2) /2*1.0/ 5end module m1 6use m1 7if (a(1).NE.1.) call abort() 8if (a(1).NE.a(3)) call abort() 9end 10