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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [open_status_3.f90] - Blame information for rev 853

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


! { dg-do run }
! PR27704 Incorrect runtime error on multiple OPEN.
! Test case contribyted by Jerry DeLisle 
       OPEN(8, FORM = 'unformatted', STATUS = 'scratch')
       OPEN(8, FORM = 'unformatted', status = 'scratch')
       close(8)
       open(8)
       open(8, status = 'old')
       close(8, status="delete")
       end
 

Line No.	Rev	Author	Line
1	149	jeremybenn	`! { dg-do run }`
2			`! PR27704 Incorrect runtime error on multiple OPEN.`
3			`! Test case contribyted by Jerry DeLisle`
4			`OPEN(8, FORM = 'unformatted', STATUS = 'scratch')`
5			`OPEN(8, FORM = 'unformatted', status = 'scratch')`
6			`close(8)`
7			`open(8)`
8			`open(8, status = 'old')`
9			`close(8, status="delete")`
10			`end`
11

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [open_status_3.f90] - Blame information for rev 853