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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! { dg-options "-std=legacy" }
3
!
4
! PR25828 Stream IO test 2
5
! Contributed by Jerry DeLisle .
6
PROGRAM readUstream
7
  IMPLICIT NONE
8
  CHARACTER*3 :: string
9
  INTEGER :: n
10
  string = "123"
11
  n = 13579
12
  OPEN(UNIT=11, FILE="streamio2", ACCESS="STREAM")
13
  WRITE(11) "first"
14
  WRITE(11) "second"
15
  WRITE(11) 7
16
  READ(11, POS=3) string
17
  READ(11, POS=12) n
18
  if (string.ne."rst") call abort()
19
  if (n.ne.7) call abort()
20
  close(unit=11, status="delete")
21
END PROGRAM readUstream
22
 

powered by: WebSVN 2.1.0

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