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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [eor_handling_2.f90] - Blame information for rev 823

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'
  rewind(77)
  read(77,'(10A1)'), c1
  read(77,'(10A1)'), c2
  if (c1(1) /= 'L' .or. c2(1) /= 'L') call abort
  close(77)
end program main

Line No.	Rev	Author	Line
1	149	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'`
8			`rewind(77)`
9			`read(77,'(10A1)'), c1`
10			`read(77,'(10A1)'), c2`
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-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [eor_handling_2.f90] - Blame information for rev 823