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

Subversion Repositories openrisc

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

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


  character(len=800) :: cwd
  integer :: unit
 
  call getcwd(cwd)
 
  open(file='cseq', unit=23)
  inquire(file='cseq',number=unit)
  if (unit /= 23) call abort
  inquire(file=trim(cwd) // '/cseq',number=unit)
  if (unit /= 23) call abort
 
  inquire(file='foo/../cseq2',number=unit)
  if (unit >= 0) call abort
  inquire(file='cseq2',number=unit)
  if (unit >= 0) call abort
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`character(len=800) :: cwd`
2			`integer :: unit`
3
4			`call getcwd(cwd)`
5
6			`open(file='cseq', unit=23)`
7			`inquire(file='cseq',number=unit)`
8			`if (unit /= 23) call abort`
9			`inquire(file=trim(cwd) // '/cseq',number=unit)`
10			`if (unit /= 23) call abort`
11
12			`inquire(file='foo/../cseq2',number=unit)`
13			`if (unit >= 0) call abort`
14			`inquire(file='cseq2',number=unit)`
15			`if (unit >= 0) call abort`
16			`end`

Browse

Tools

Subversion Repositories openrisc

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