From mboxrd@z Thu Jan  1 00:00:00 1970
From: arends@nlr.nl
To: gcc-gnats@gcc.gnu.org
Cc: merazzi@smr.ch
Subject: fortran/4722: f77 0.5.26 handles EOF in scratch files incorrectly, f77 0.5.25 is OK
Date: Sun, 28 Oct 2001 12:56:00 -0000
Message-id: <20011028205109.12568.qmail@sourceware.cygnus.com>
X-SW-Source: 2001-10/msg00620.html
List-Id: <gcc-prs.sourceware.org>

>Number:         4722
>Category:       fortran
>Synopsis:       f77 0.5.26 handles EOF in scratch files incorrectly, f77 0.5.25 is OK
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Sun Oct 28 12:56:00 PST 2001
>Closed-Date:
>Last-Modified:
>Originator:     Paul Arendsen
>Release:        unknown-1.0
>Organization:
>Environment:
Linux IA32 (RedHat 7.1)
>Description:
f77 0.5.26 is used in Redhat 7.1 incorrectly handles scratch 
files, while it is being treated OK using f77 0.5.25 as in 
SuSe 7.2. The incorrect handling occurs when the end of file
(EOF) is reached.

Compile attached file " g77 tt.f -o tt.x"
run tt.x and and should get
1
2
3
end of file

The 0.5.26 version gives
1
2
3
error in file


Hence incorrect handling when the end of file
has been reached. For me developing Finite Element
software (mostly Fortran and some C) this is 
quite unpleasant.
>How-To-Repeat:
Compile and run attached file one should get
1
2
3
end of file
>Fix:

>Release-Note:
>Audit-Trail:
>Unformatted:
----gnatsweb-attachment----
Content-Type: application/octet-stream; name="tt.f"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="tt.f"

YzIzNDU2NwogICAgICBwcm9ncmFtIHR0CiAgICAgIGludGVnZXIgaQogCiAgICAgIG9wZW4gKDEs
YWNjZXNzPSdzZXF1ZW50aWFsJyxmb3JtPSd1bmZvcm1hdHRlZCcsCiAgICAgKiAgICAgICBzdGF0
dXM9J3NjcmF0Y2gnKQogCiAgICAgIGRvIGk9MSwzCiAgICAgIHdyaXRlKDEpIGkKICAgICAgZW5k
ZG8KICAgICAgcmV3aW5kICgxKQogCjEwICAgIHJlYWQoMSxlcnI9OTAwLGVuZD04MDApIGkKNTAg
ICAgZm9ybWF0KGkzKQogICAgICBwcmludCosaQogICAgICBnb3RvIDEwCiAKODAwICAgY29udGlu
dWUKICAgICAgcHJpbnQqLCJlbmQgb2YgZmlsZSIKICAgICAgZ290byAxMDAwCiAKOTAwICAgY29u
dGludWUKICAgICAgcHJpbnQqLCJlcnJvciBpbiBmaWxlIgogCjEwMDAgIGNvbnRpbnVlCiAgICAg
IGVuZAo=