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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [eor_handling_4.f90] - Blame information for rev 414

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

Line No. Rev Author Line
1 302 jeremybenn
! { dg-do run }
2
! PR 20092, 20131:  Handle end-of-record condition with pad=yes (default)
3
! for standard input.  This test case only really tests  anything if,
4
! by changing unit 5, you get to manipulate the standard input.
5
program main
6
  character(len=1) a(80)
7
  close(5)
8
  open(5,status="scratch")
9
  write(5,'(A)') 'one', 'two', 's'
10
  rewind(5)
11
  do i=1,4
12
     read(5,'(80a1)') a
13
     if (a(1) == 's') goto 100
14
  end do
15
  call abort
16
100 continue
17
end program main

powered by: WebSVN 2.1.0

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