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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr18210.f90] - Blame information for rev 749

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


! { dg-do run }
! { dg-options "-std=legacy" }
!
! Names in upper case and object names starting column 2
! Based on example provided by thomas.koenig@online.de
 
program pr18210
 
  real :: a
  character*80 :: buffer
  namelist /foo/ a
 
  a = 1.4
  open (10, status = "scratch")
  write (10,foo)
  rewind (10)
  read (10, '(a)') buffer
  if (buffer(2:4) /= "FOO") call abort ()
  read (10, '(a)') buffer
  if (buffer(1:2) /= " A") call abort ()
  close (10)
 
end program pr18210

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-std=legacy" }`
3			`!`
4			`! Names in upper case and object names starting column 2`
5			`! Based on example provided by thomas.koenig@online.de`
6
7			`program pr18210`
8
9			`real :: a`
10			`character*80 :: buffer`
11			`namelist /foo/ a`
12
13			`a = 1.4`
14			`open (10, status = "scratch")`
15			`write (10,foo)`
16			`rewind (10)`
17			`read (10, '(a)') buffer`
18			`if (buffer(2:4) /= "FOO") call abort ()`
19			`read (10, '(a)') buffer`
20			`if (buffer(1:2) /= " A") call abort ()`
21			`close (10)`
22
23			`end program pr18210`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr18210.f90] - Blame information for rev 749