summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/fmt_read_2.f90
blob: 316f737b621eb5797aff6fa313dd3242719b469a (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-error "Positive width required" }
      read (*,'(f0.2)') a ! { dg-error "Positive width required" }
      print *, r,a
      END