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

Subversion Repositories openrisc_me

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

Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

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