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_6.f03] - Blame information for rev 384

Details | Compare with Previous | View Log


! { dg-do run }
! Test case prepared by Jerry DeLisle  
! Test of decimal="comma" in namelist, checks separators
implicit none
integer :: i
real :: a(6) = 0.0
character(len=30) :: str = '&nm a = 1,3; 4, 5; 5; 7; /'
namelist /nm/ a
read(str,nml=nm,decimal='comma')
if (any(a.ne.[ 1.3, 4.0, 5.0, 5.0, 7.0, 0.0 ])) call abort
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`! Test case prepared by Jerry DeLisle`
3			`! Test of decimal="comma" in namelist, checks separators`
4			`implicit none`
5			`integer :: i`
6			`real :: a(6) = 0.0`
7			`character(len=30) :: str = '&nm a = 1,3; 4, 5; 5; 7; /'`
8			`namelist /nm/ a`
9			`read(str,nml=nm,decimal='comma')`
10			`if (any(a.ne.[ 1.3, 4.0, 5.0, 5.0, 7.0, 0.0 ])) call abort`
11			`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_6.f03] - Blame information for rev 384