gcc/gcc/testsuite/gfortran.dg/backspace_10.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/backspace_10.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 ! PR33307 I/O read/positioning problem - in BACKSPACE	2 ! PR33307 I/O read/positioning problem - in BACKSPACE

3 ! Test case devloped from test in PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>	3 ! Test case devloped from test in PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>

4 program gfcbug69b	4 program gfcbug69b

5 ! Modified example program	5 ! Modified example program

6 implicit none	6 implicit none

7 integer, parameter :: iunit = 63	7 integer, parameter :: iunit = 63

8 integer :: istat, k, ios	8 integer :: istat, k, ios

9 character(len=20) :: line, message	9 character(len=20) :: line, message

10	10

11 open (iunit)	11 open (iunit)

(...skipping 16 matching lines...) Expand all Loading...
28 read (iunit,'(a)',iostat=ios) line	28 read (iunit,'(a)',iostat=ios) line

29 if (ios /= 0) call abort	29 if (ios /= 0) call abort

30 read (iunit,'(a)',iostat=ios) line	30 read (iunit,'(a)',iostat=ios) line

31 if (ios /= 0) call abort	31 if (ios /= 0) call abort

32 read (iunit,'(a)',iostat=ios) line	32 read (iunit,'(a)',iostat=ios) line

33 if (ios /= 0) call abort	33 if (ios /= 0) call abort

34 read (iunit,'(a)',iostat=ios) line	34 read (iunit,'(a)',iostat=ios) line

35 if (ios /= -1) call abort	35 if (ios /= -1) call abort

36 close (iunit, status="delete")	36 close (iunit, status="delete")

37 end program gfcbug69b	37 end program gfcbug69b

OLD	NEW