gcc/testsuite/gfortran.dg/fmt_read_2.f90

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