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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! PR fortran/24774
! { dg-do run }
  logical :: l
  l = .true.
  inquire (file='inquire_9 file that should not exist', exist=l)
  if (l) call abort
  l = .true.
  inquire (unit=-16, exist=l)
  if (l) call abort
  open (unit=16, file='inquire_9.tst')
  write (unit=16, fmt='(a)') 'Test'
  l = .false.
  inquire (unit=16, exist=l)
  if (.not.l) call abort
  l = .false.
  inquire (file='inquire_9.tst', exist=l)
  if (.not.l) call abort
  close (unit=16)
  l = .false.
  inquire (file='inquire_9.tst', exist=l)
  if (.not.l) call abort
  open (unit=16, file='inquire_9.tst')
  close (unit=16, status='delete')
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR fortran/24774`
2			`! { dg-do run }`
3			`logical :: l`
4			`l = .true.`
5			`inquire (file='inquire_9 file that should not exist', exist=l)`
6			`if (l) call abort`
7			`l = .true.`
8			`inquire (unit=-16, exist=l)`
9			`if (l) call abort`
10			`open (unit=16, file='inquire_9.tst')`
11			`write (unit=16, fmt='(a)') 'Test'`
12			`l = .false.`
13			`inquire (unit=16, exist=l)`
14			`if (.not.l) call abort`
15			`l = .false.`
16			`inquire (file='inquire_9.tst', exist=l)`
17			`if (.not.l) call abort`
18			`close (unit=16)`
19			`l = .false.`
20			`inquire (file='inquire_9.tst', exist=l)`
21			`if (.not.l) call abort`
22			`open (unit=16, file='inquire_9.tst')`
23			`close (unit=16, status='delete')`
24			`end`

Browse

Tools

Subversion Repositories openrisc

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