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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR 17992:  Reading an empty file should yield zero with pad='YES'
! (which is the default).
! Test case supplied by milan@cmm.ki.si.
program main
  open(77,status='scratch')
  write(77,'(A)') '',''
  rewind(77)
  i = 42
  j = 42
  read(77,'(/2i2)') i,j
  if (i /= 0 .or. j /= 0) call abort
  close(77)
end program main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 17992: Reading an empty file should yield zero with pad='YES'`
3			`! (which is the default).`
4			`! Test case supplied by milan@cmm.ki.si.`
5			`program main`
6			`open(77,status='scratch')`
7			`write(77,'(A)') '',''`
8			`rewind(77)`
9			`i = 42`
10			`j = 42`
11			`read(77,'(/2i2)') i,j`
12			`if (i /= 0 .or. j /= 0) call abort`
13			`close(77)`
14			`end program main`

Browse

Tools

Subversion Repositories openrisc

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