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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_bz_bn_err.f] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-std=legacy" }
!
! PR38772 r143102 reveals missed error checking on floating point reads.
! Test case contributed by Jack Howarth.
      program badread
      implicit none
      double precision r
      character*20 temp
      logical ok
      temp='             end'
      r = 3.14159d0
      ok=.true.
      read(temp,'(f20.0)',err=8888) r
      call abort
8888  continue
      end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=legacy" }`
3			`!`
4			`! PR38772 r143102 reveals missed error checking on floating point reads.`
5			`! Test case contributed by Jack Howarth.`
6			`program badread`
7			`implicit none`
8			`double precision r`
9			`character*20 temp`
10			`logical ok`
11			`temp=' end'`
12			`r = 3.14159d0`
13			`ok=.true.`
14			`read(temp,'(f20.0)',err=8888) r`
15			`call abort`
16			`8888 continue`
17			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_bz_bn_err.f] - Blame information for rev 749