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

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [f2003_io_3.f03] - Blame information for rev 437

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


! { dg-do compile }
! { dg-options "-std=f2003" }
! Test case prepared by Jerry DeLisle  
 
integer :: istat
character(25) :: msg
real, dimension(10) :: a, b
namelist /mynml/ a, b
msg = "null"
a = 43.21
WRITE(99,'(10f8.3)',decimal="comma") a
rewind(99)
read(99,'(dc,10f8.3)',blank=msg) b
write(99,'(dp,10f8.3)',round="up")
rewind(99)
read(99,'(10f8.3)',pad="yes")
msg="suppress"
write(99,'(10f8.3)',sign=msg)
write(99,delim="apostrophe", fmt=*)
write(99,nml=mynml,delim="none")
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f2003" }`
3			`! Test case prepared by Jerry DeLisle`
4
5			`integer :: istat`
6			`character(25) :: msg`
7			`real, dimension(10) :: a, b`
8			`namelist /mynml/ a, b`
9			`msg = "null"`
10			`a = 43.21`
11			`WRITE(99,'(10f8.3)',decimal="comma") a`
12			`rewind(99)`
13			`read(99,'(dc,10f8.3)',blank=msg) b`
14			`write(99,'(dp,10f8.3)',round="up")`
15			`rewind(99)`
16			`read(99,'(10f8.3)',pad="yes")`
17			`msg="suppress"`
18			`write(99,'(10f8.3)',sign=msg)`
19			`write(99,delim="apostrophe", fmt=*)`
20			`write(99,nml=mynml,delim="none")`
21			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [f2003_io_3.f03] - Blame information for rev 437