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 708

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


! { dg-do run }
! Program to test terminators in list-directed input
program list_read_1
  character(len=5) :: s
 
  open (unit=11, status="SCRATCH")
  ! The / terminator was causing the next value to be skipped.
  write (11, '(a)') " 42 /"
  write (11, '(a)') " 43"
  write (11, '(a)') " 44"
 
  rewind(11)
 
  read (11, *) i
  if (i .ne. 42) call abort
  read (11, *) i
  if (i .ne. 43) call abort
  read (11, *) i
  if (i .ne. 44) call abort
  close (11)
end
 

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

Browse

Tools

Subversion Repositories openrisc

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