OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [pr18210.f90] - Blame information for rev 414

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

Line No. Rev Author Line
1 302 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.