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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [negative_unit.f] - Blame information for rev 237

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


! { dg-do run }
!
! PR libfortran/20660 and other bugs (not filed in bugzilla) relating
! to negative units
!
! Bugs submitted by Walt Brainerd
      integer i
      logical l
 
      i = 0
! gfortran created a 'fort.-1' file and wrote "Hello" in it
      write (unit=-1, fmt=*, iostat=i) "Hello"
      if (i <= 0) call abort
 
      i = 0
      open (unit=-11, file="xxx", iostat=i)
      if (i <= 0) call abort
 
      inquire (unit=-42, exist=l)
      if (l) call abort
 
      end

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR libfortran/20660 and other bugs (not filed in bugzilla) relating`
4			`! to negative units`
5			`!`
6			`! Bugs submitted by Walt Brainerd`
7			`integer i`
8			`logical l`
9
10			`i = 0`
11			`! gfortran created a 'fort.-1' file and wrote "Hello" in it`
12			`write (unit=-1, fmt=*, iostat=i) "Hello"`
13			`if (i <= 0) call abort`
14
15			`i = 0`
16			`open (unit=-11, file="xxx", iostat=i)`
17			`if (i <= 0) call abort`
18
19			`inquire (unit=-42, exist=l)`
20			`if (l) call abort`
21
22			`end`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [negative_unit.f] - Blame information for rev 237