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

Subversion Repositories openrisc

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

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


! { dg-do run }
! PR 19568:  Don't read across end of line when the format is longer
!            than the line length and pad='yes' (default)
program main
  character(len=1) c1(10),c2(10)
  open(77,status='scratch')
  write(77,'(A)'), 'Line 1','Line 2','Line 3' ! { dg-warning "Comma before i/o item list" }
  rewind(77)
  read(77,'(10A1)'), c1 ! { dg-warning "Comma before i/o item list" }
  read(77,'(10A1)'), c2 ! { dg-warning "Comma before i/o item list" }
  if (c1(1) /= 'L' .or. c2(1) /= 'L') call abort
  close(77)
end program main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 19568: Don't read across end of line when the format is longer`
3			`! than the line length and pad='yes' (default)`
4			`program main`
5			`character(len=1) c1(10),c2(10)`
6			`open(77,status='scratch')`
7			`write(77,'(A)'), 'Line 1','Line 2','Line 3' ! { dg-warning "Comma before i/o item list" }`
8			`rewind(77)`
9			`read(77,'(10A1)'), c1 ! { dg-warning "Comma before i/o item list" }`
10			`read(77,'(10A1)'), c2 ! { dg-warning "Comma before i/o item list" }`
11			`if (c1(1) /= 'L' .or. c2(1) /= 'L') call abort`
12			`close(77)`
13			`end program main`

Browse

Tools

Subversion Repositories openrisc

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