1! { dg-do run } 2! { dg-options "-fbounds-check" } 3program main 4 implicit none 5 integer, dimension(2,2) :: a4 6 integer(kind=1), dimension(2,2) :: a1 7 character(len=100) line 8 data a4 /1, 2, 3, 4/ 9 a1 = a4 10 write (unit=line,fmt='(4I3)') reshape(a4,(/4/)) 11 write (unit=line,fmt='(4I3)') reshape(a1,(/4/)) 12end program main 13