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