Merge from mainline (167278:168000).

[official-gcc/graphite-test-results.git] / gcc / testsuite / gfortran.dg / fmt_read_2.f90

! { dg-do compile }
! PR fortran/32483
      implicit none
      integer :: r
      real :: a
      write (*,'(i0)') r
      read (*,'(i0)') r ! { dg-warning "Positive width required" }
      read (*,'(f0.2)') a ! { dg-warning "Positive width required" }
      print *, r,a
      END