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