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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! Program to test terminators in list-directed input
3
program list_read_1
4
  character(len=5) :: s
5
 
6
  open (unit=11, status="SCRATCH")
7
  ! The / terminator was causing the next value to be skipped.
8
  write (11, '(a)') " 42 /"
9
  write (11, '(a)') " 43"
10
  write (11, '(a)') " 44"
11
 
12
  rewind(11)
13
 
14
  read (11, *) i
15
  if (i .ne. 42) call abort
16
  read (11, *) i
17
  if (i .ne. 43) call abort
18
  read (11, *) i
19
  if (i .ne. 44) call abort
20
  close (11)
21
end
22
 

powered by: WebSVN 2.1.0

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