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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr19155.f] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-std=legacy" }`	`! { dg-options "-std=legacy" }`
`!`	`!`
`! PR libfortran/19155`	`! PR libfortran/19155`
`! We accept 'E+00' as a valid real number. The standard says it is not,`	`! We accept 'E+00' as a valid real number. The standard says it is not,`
`! but doesn't require us to issue an error. Since g77 accepts this as zero,`	`! but doesn't require us to issue an error. Since g77 accepts this as zero,`
`! we do the same.`	`! we do the same.`
`real a`	`real a`
`character*10 c`	`character*10 c`
`a = 42`	`a = 42`
`open (19,status='scratch')`	`open (19,status='scratch')`
`write (19,'(A15)') 'E+00'`	`write (19,'(A15)') 'E+00'`
`rewind (19)`	`rewind (19)`
`read (19,'(E15.8)') a`	`read (19,'(E15.8)') a`
`if (a .ne. 0) call abort`	`if (a .ne. 0) call abort`
`close (19)`	`close (19)`

`c = "+ "`	`c = "+ "`
`read (c,"(F10.4)") a`	`read (c,"(F10.4)") a`
`if (a /= 0) call abort`	`if (a /= 0) call abort`
`end`	`end`