OSDN Git Service

PR fortran/47878
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / pr47878.f90
1 ! PR fortran/47878
2 ! { dg-do run }
3   integer :: a(5)
4   open (99, recl = 40)
5   write (99, '(5i3)') 1, 2, 3
6   rewind (99)
7   read (99, '(5i3)') a
8   if (any (a.ne.(/1, 2, 3, 0, 0/))) call abort 
9   close (99, status = 'delete')
10 end