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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR39528 repeated entries not read when using list-directed input.
! Test case derived from reporters example.
program rread
  implicit none
  integer :: iarr(1:7), ia, ib, i
 
  iarr = 0
 
  open(10, status="scratch")
  write(10,*) " 2*1  3*2 /"
  write(10,*) " 12"
  write(10,*) " 13"
  rewind(10)
 
  read(10,*) (iarr(i), i=1,7)
  read(10,*) ia, ib
 
  if (any(iarr(1:2).ne.1)) call abort
  if (any(iarr(3:5).ne.2)) call abort
  if (any(iarr(6:7).ne.0)) call abort
  if (ia .ne. 12 .or. ib .ne. 13) call abort
 
  close(10)
end program rread

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR39528 repeated entries not read when using list-directed input.`
3			`! Test case derived from reporters example.`
4			`program rread`
5			`implicit none`
6			`integer :: iarr(1:7), ia, ib, i`
7
8			`iarr = 0`
9
10			`open(10, status="scratch")`
11			`write(10,) " 21 3*2 /"`
12			`write(10,*) " 12"`
13			`write(10,*) " 13"`
14			`rewind(10)`
15
16			`read(10,*) (iarr(i), i=1,7)`
17			`read(10,*) ia, ib`
18
19			`if (any(iarr(1:2).ne.1)) call abort`
20			`if (any(iarr(3:5).ne.2)) call abort`
21			`if (any(iarr(6:7).ne.0)) call abort`
22			`if (ia .ne. 12 .or. ib .ne. 13) call abort`
23
24			`close(10)`
25			`end program rread`

Browse

Tools

Subversion Repositories openrisc

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