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/] [namelist_16.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`!{ dg-do run }`	`!{ dg-do run }`
`! Tests namelist on complex variables`	`! Tests namelist on complex variables`
`! provided by Paul Thomas - pault@gcc.gnu.org`	`! provided by Paul Thomas - pault@gcc.gnu.org`
`program namelist_16`	`program namelist_16`
`complex(kind=8), dimension(2) :: z`	`complex(kind=8), dimension(2) :: z`
`namelist /mynml/ z`	`namelist /mynml/ z`
`z = (/(1.0,2.0), (3.0,4.0)/)`	`z = (/(1.0,2.0), (3.0,4.0)/)`

`open (10, status = "scratch")`	`open (10, status = "scratch")`
`write (10, '(A)') "&mynml z(1)=(5.,6.) z(2)=(7.,8.) /"`	`write (10, '(A)') "&mynml z(1)=(5.,6.) z(2)=(7.,8.) /"`
`rewind (10)`	`rewind (10)`

`read (10, mynml, iostat = ier)`	`read (10, mynml, iostat = ier)`
`if (ier .ne. 0) call abort ()`	`if (ier .ne. 0) call abort ()`
`close (10)`	`close (10)`

`open (10, status = "scratch")`	`open (10, status = "scratch")`
`write (10, mynml, iostat = ier)`	`write (10, mynml, iostat = ier)`
`if (ier .ne. 0) call abort ()`	`if (ier .ne. 0) call abort ()`
`rewind (10)`	`rewind (10)`

`z = (/(1.0,2.0), (3.0,4.0)/)`	`z = (/(1.0,2.0), (3.0,4.0)/)`
`read (10, mynml, iostat = ier)`	`read (10, mynml, iostat = ier)`
`if (ier .ne. 0) call abort ()`	`if (ier .ne. 0) call abort ()`
`close (10)`	`close (10)`

`if ((z(1) .ne. (5.0,6.0)) .or. (z(2) .ne. (7.0,8.0))) call abort ()`	`if ((z(1) .ne. (5.0,6.0)) .or. (z(2) .ne. (7.0,8.0))) call abort ()`

`end program namelist_16`	`end program namelist_16`