gcc/testsuite/gfortran.dg/reshape_3.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fbounds-check" }
   3 program 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/))
  12 end program main