gcc/gcc/testsuite/gfortran.dg/eor_handling_4.f90 - Issue 3050029: [gcc] GCC 4.5.0=>4.5.1

Side by Side Diff

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Keyboard Shortcuts

	File
u :	up to issue
j / k :	jump to file after / before current file
J / K :	jump to next file with a comment after / before current file
	Side-by-side diff
i :	toggle intra-line diffs
e :	expand all comments
c :	collapse all comments
s :	toggle showing all comments
n / p :	next / previous diff chunk or comment
N / P :	next / previous comment
<Up> / <Down> :	next / previous line

	Issue
u :	up to list of issues
j / k :	jump to patch after / before current patch
o / <Enter> :	open current patch in side-by-side view
i :	open current patch in unified diff view

	Issue List
j / k :	jump to issue after / before current issue
o / <Enter> :	open current issue

Side by Side Diff: gcc/gcc/testsuite/gfortran.dg/eor_handling_4.f90

Issue 3050029: [gcc] GCC 4.5.0=>4.5.1 (Closed) Base URL: ssh://git@gitrw.chromium.org:9222/nacl-toolchain.git

Patch Set: Created 10 years, 4 months ago

Use n/p to move between diff chunks; N/P to move between comments. Draft comments are only viewable by you.

Jump to:

OLD	NEW
1 ! { dg-do run { target fd_truncate } }	1 ! { dg-do run }

2 ! PR 20092, 20131: Handle end-of-record condition with pad=yes (default)	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,	3 ! for standard input. This test case only really tests anything if,

4 ! by changing unit 5, you get to manipulate the standard input.	4 ! by changing unit 5, you get to manipulate the standard input.

5 program main	5 program main

6 character(len=1) a(80)	6 character(len=1) a(80)

7 close(5)	7 close(5)

8 open(5,status="scratch")	8 open(5,status="scratch")

9 write(5,'(A)') 'one', 'two', 's'	9 write(5,'(A)') 'one', 'two', 's'

10 rewind(5)	10 rewind(5)

11 do i=1,4	11 do i=1,4

12 read(5,'(80a1)') a	12 read(5,'(80a1)') a

13 if (a(1) == 's') goto 100	13 if (a(1) == 's') goto 100

14 end do	14 end do

15 call abort	15 call abort

16 100 continue	16 100 continue

17 end program main	17 end program main

OLD	NEW