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

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

Unified Diff: gcc/gcc/testsuite/gfortran.dg/fseek.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, 5 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:

Index: gcc/gcc/testsuite/gfortran.dg/fseek.f90

diff --git a/gcc/gcc/testsuite/gfortran.dg/fseek.f90 b/gcc/gcc/testsuite/gfortran.dg/fseek.f90

index 2649063ac590c7385d7cee67eaa093afe46f2527..9e3c7195a3a327fb6a4e0f7efd7a1890eea1e5b9 100644

--- a/gcc/gcc/testsuite/gfortran.dg/fseek.f90

+++ b/gcc/gcc/testsuite/gfortran.dg/fseek.f90

@@ -1,4 +1,4 @@

-! { dg-do run { target fd_truncate } }

+! { dg-do run }

PROGRAM test_fseek

INTEGER, PARAMETER :: SEEK_SET = 0, SEEK_CUR = 1, SEEK_END = 2, fd=10

@@ -12,6 +12,7 @@ PROGRAM test_fseek

close (911)

if (newline_length < 1 .or. newline_length > 2) call abort()

+ open(fd, status="scratch")

! expected position: one leading blank + 10 + newline

WRITE(fd, *) "1234567890"

IF (FTELL(fd) /= 11 + newline_length) CALL abort()

« no previous file with comments | « gcc/gcc/testsuite/gfortran.dg/fmt_white.f ('k') | gcc/gcc/testsuite/gfortran.dg/ftell_2.f90 » ('j') | no next file with comments »