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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_8.f90] - Blame information for rev 801

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


! { dg-do run }
! PR 34594 - this used to give runtime errors due to an
! end condition.
program main
  implicit none
  integer :: iou, i, ir, TEMP_CHANGES
  i=44
  ir = -42
 
  open(11,file="foo.dat")
  ! Try a direct access read on a formatted sequential rile
  READ (11, REC = I, ERR = 99) TEMP_CHANGES
  call abort
99 continue
  ! Variant 2: ir is ok, but does not jump to 99
  READ (11, REC = I, IOSTAT = IR, ERR = 98) TEMP_CHANGES
  call abort
 
98 continue
  if(ir == 0) then
     call abort
  end if
  close(11,status="delete")
end program main
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 34594 - this used to give runtime errors due to an`
3			`! end condition.`
4			`program main`
5			`implicit none`
6			`integer :: iou, i, ir, TEMP_CHANGES`
7			`i=44`
8			`ir = -42`
9
10			`open(11,file="foo.dat")`
11			`! Try a direct access read on a formatted sequential rile`
12			`READ (11, REC = I, ERR = 99) TEMP_CHANGES`
13			`call abort`
14			`99 continue`
15			`! Variant 2: ir is ok, but does not jump to 99`
16			`READ (11, REC = I, IOSTAT = IR, ERR = 98) TEMP_CHANGES`
17			`call abort`
18
19			`98 continue`
20			`if(ir == 0) then`
21			`call abort`
22			`end if`
23			`close(11,status="delete")`
24			`end program main`
25

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [direct_io_8.f90] - Blame information for rev 801