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-error "Positive width required" }
8      read (*,'(f0.2)') a ! { dg-error "Positive width required" }
9      print *, r,a
10      END
11