URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [newunit_1.f90] - Blame information for rev 315

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


! { dg-do run }
! PR40008 F2008: Add NEWUNIT= for OPEN statement
! Contributed by Jerry DeLisle 
program newunit_1
  character(len=25) :: str
  integer(1) :: myunit, myunit2
  myunit = 25
  str = "bad"
  open(newunit=myunit, status="scratch")
  open(newunit = myunit2, file="newunit_1file")
  write(myunit,'(e24.15e2)') 1.0d0
  write(myunit2,*) "abcdefghijklmnop"
  flush(myunit)
  rewind(myunit)
  rewind(myunit2)
  read(myunit2,'(a)') str
  if (str.ne." abcdefghijklmnop") call abort
  close(myunit)
  close(myunit2, status="delete")
end program newunit_1

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR40008 F2008: Add NEWUNIT= for OPEN statement`
3			`! Contributed by Jerry DeLisle`
4			`program newunit_1`
5			`character(len=25) :: str`
6			`integer(1) :: myunit, myunit2`
7			`myunit = 25`
8			`str = "bad"`
9			`open(newunit=myunit, status="scratch")`
10			`open(newunit = myunit2, file="newunit_1file")`
11			`write(myunit,'(e24.15e2)') 1.0d0`
12			`write(myunit2,*) "abcdefghijklmnop"`
13			`flush(myunit)`
14			`rewind(myunit)`
15			`rewind(myunit2)`
16			`read(myunit2,'(a)') str`
17			`if (str.ne." abcdefghijklmnop") call abort`
18			`close(myunit)`
19			`close(myunit2, status="delete")`
20			`end program newunit_1`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [newunit_1.f90] - Blame information for rev 315