blob: 0f7f4d7ccff0a72ca354b8c5b7affb14f6a7bb0c (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { 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
|
