libf2c/10885: On 64-bit targets one can write >2Gb records in sequential files, but not in direct access files

>Number:         10885
>Category:       libf2c
>Synopsis:       On 64-bit targets one can write >2Gb records in sequential files, but not in direct access files
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    unassigned
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Tue May 20 20:36:00 UTC 2003
>Closed-Date:
>Last-Modified:
>Originator:     Winfrid Tschiedel
>Release:        all
>Organization:
>Environment:
all 64-bit targets
>Description:
The following code aborts with:

do_ud: off end of record
apparent state: unit 10 named fort.10
lately writing direct unformatted external IO

Sequential I/O uses `long' as the type of the record length,
which will be 64 bits on most 64-bit targets.
Direct I/O should do the same.
The compiler accepts an INTEGER*8 as an argument to
RECL=... on the open statement - see if that really is
compiled correctly.
>How-To-Repeat:

>Fix:

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

ICAgICAgICByZWFsKjggYSgxMDI0LDEwMjQsMzg0KQogICAgICAgIHJlYWwqOCB0MSx0Mix0MCxl
bGVtZW50CiAgICAgICAgcmVhbCo4IHNlY29uZAogICAgICAgIGludGVnZXIqOCByZWNsCiAgICAg
ICAgaW50ZWdlciBpcmMKICAgICAgICByZWNsPTEwMjRkMCoxMDI0ZDAqMzg0LmQwKjguZDAKICAg
ICAgICBlbGVtZW50PTAuCiAgICAgICAgb3BlbiAodW5pdD0xMCxhY2Nlc3M9ImRpcmVjdCIscmVj
bD1yZWNsLGlvc3RhdD1pcmMsCiAgICAgKiAgICAgICAgZm9ybT0idW5mb3JtYXR0ZWQiKQogICAg
ICAgIHdyaXRlICh1bml0PSosZm10PSopICIgb3BlbiByZXR1cm5lZCAiLGlyYwogICAgICAgIGRv
IGw9MSwzODQKICAgICAgICAgIGRvIGo9MSwxMDI0CiAgICAgICAgICAgIGRvIGk9MSwxMDI0CiAg
ICAgICAgICAgICAgZWxlbWVudD1lbGVtZW50KzEuZDAKICAgICAgICAgICAgICBhKGksaixsKT1l
bGVtZW50CiAgICAgICAgICAgIGVuZGRvCiAgICAgICAgICBlbmRkbwogICAgICAgIGVuZGRvCiAg
ICAgICAgd3JpdGUgKHVuaXQ9KixmbXQ9KikgIiBhcnJheSBhIHNldCAiCiAgICAgICAgd3JpdGUg
KHVuaXQ9KixmbXQ9KikgYSgxLDEsMSksIiAuLi4gIixhKDEwMjQsMTAyNCwzODQpCiAgICAgICAg
d3JpdGUgKHVuaXQ9KixmbXQ9Iih6MTcuMTYsZzE2LjUpIikgdDEsdDEKICAgICAgICB0MT0gIHNl
Y29uZCgpCiAgICAgICAgd3JpdGUgKHVuaXQ9MTAscmVjPTEpIHQxLGEKICAgICAgICB3cml0ZSAo
dW5pdD0xMCxyZWM9MikgdDEsYQogICAgICAgIHQyPSAgc2Vjb25kKCkKICAgICAgICB3cml0ZSAo
dW5pdD0qLGZtdD0iKHoxNy4xNixnMTYuNSkiKSB0Mix0MgogICAgICAgIHdyaXRlICh1bml0PSos
Zm10PSopIDM4NCo4KjYsICIgbWJ5dGVzIHdyaXR0ZW4gaW4gIiwKICAgICAqICB0Mi10MSwgIiBz
ZWNvbmRzICIKICAgICAgICB3cml0ZSAodW5pdD0qLGZtdD0qKSBhKDEsMSwxKSwiIC4uLiAiLGEo
MTAyNCwxMDI0LDM4NCkKISAgICAgICByZXdpbmQgKHVuaXQ9MTApCiAgICAgICAgZG8gbD0xLDM4
NAogICAgICAgICAgZG8gaj0xLDEwMjQKICAgICAgICAgICAgZG8gaT0xLDEwMjQKICAgICAgICAg
ICAgICBhKGksaixsKT0gMC5kMAogICAgICAgICAgICBlbmRkbwogICAgICAgICAgZW5kZG8KICAg
ICAgICBlbmRkbwogICAgICAgIHQxPSAgc2Vjb25kKCkKICAgICAgICByZWFkICh1bml0PTEwLHJl
Yz0xKSB0MCxhCiAgICAgICAgd3JpdGUgKHVuaXQ9KixmbXQ9KikgYSgxLDEsMSksIiAuLi4gIixh
KDEwMjQsMTAyNCwzODQpCiAgICAgICAgcmVhZCAodW5pdD0xMCxyZWM9MikgdDAsYQogICAgICAg
IHQyPSAgc2Vjb25kKCkKICAgICAgICB3cml0ZSAodW5pdD0qLGZtdD0qKSAiIHBhcnRpYWwgcmVh
ZCBpbiAiLAogICAgICogIHQyLXQxLCAiIHNlY29uZHMgIgogICAgICAgIGVuZAo=