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

Subversion Repositories openrisc_me

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

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


! { dg-do run }
! PR43409 I/O: INQUIRE for SIZE does not work.
integer :: i
character(30) :: aname = "noname"
logical :: is_named
 
open(25, file="testfile", status="replace", access="stream", form="unformatted")
do i=1,100
  write(25) i, "abcdefghijklmnopqrstuvwxyz"
enddo
flush(25)
 
inquire(unit=25, named=is_named, name=aname, size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (i /= 3000) call abort
 
inquire(file="testfile", size=i)
if (.not.is_named) call abort
if (aname /= "testfile") call abort
if (i /= 3000) call abort
 
close(25, status="delete")
inquire(file="testfile", size=i)
if (i /= -1)  call abort
end
 
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! PR43409 I/O: INQUIRE for SIZE does not work.`
3			`integer :: i`
4			`character(30) :: aname = "noname"`
5			`logical :: is_named`
6
7			`open(25, file="testfile", status="replace", access="stream", form="unformatted")`
8			`do i=1,100`
9			`write(25) i, "abcdefghijklmnopqrstuvwxyz"`
10			`enddo`
11			`flush(25)`
12
13			`inquire(unit=25, named=is_named, name=aname, size=i)`
14			`if (.not.is_named) call abort`
15			`if (aname /= "testfile") call abort`
16			`if (i /= 3000) call abort`
17
18			`inquire(file="testfile", size=i)`
19			`if (.not.is_named) call abort`
20			`if (aname /= "testfile") call abort`
21			`if (i /= 3000) call abort`
22
23			`close(25, status="delete")`
24			`inquire(file="testfile", size=i)`
25			`if (i /= -1) call abort`
26			`end`
27
28

Browse

Tools

Subversion Repositories openrisc_me

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