URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_read_2.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { 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

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { 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`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_read_2.f90] - Blame information for rev 302