! { dg-do run }! { dg-options "-fbounds-check" }program mainimplicit noneinteger,dimension(2,2)::a4integer(kind=1),dimension(2,2)::a1character(len=100)linedata a4/1,2,3,4/a1=a4write(unit=line,fmt='(4I3)')reshape(a4,(/4/))write(unit=line,fmt='(4I3)')reshape(a1,(/4/))end program main