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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [pr18210.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! Names in upper case and object names starting column 2`	`! Names in upper case and object names starting column 2`
`! Based on example provided by thomas.koenig@online.de`	`! Based on example provided by thomas.koenig@online.de`

`program pr18210`	`program pr18210`

`real :: a`	`real :: a`
`character*80 :: buffer`	`character*80 :: buffer`
`namelist /foo/ a`	`namelist /foo/ a`

`a = 1.4`	`a = 1.4`
`open (10, status = "scratch")`	`open (10, status = "scratch")`
`write (10,foo)`	`write (10,foo)`
`rewind (10)`	`rewind (10)`
`read (10, '(a)') buffer`	`read (10, '(a)') buffer`
`if (buffer(2:4) /= "FOO") call abort ()`	`if (buffer(2:4) /= "FOO") call abort ()`
`read (10, '(a)') buffer`	`read (10, '(a)') buffer`
`if (buffer(1:2) /= " A") call abort ()`	`if (buffer(1:2) /= " A") call abort ()`
`close (10)`	`close (10)`

`end program pr18210`	`end program pr18210`