🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: net.lang.f77
Article #288

Re: Minor I/O bug

#288
From: Peter Montgomery
Date: Tue, 31 Dec 1985 19:33
23 lines
1510 bytes
In article <247@xanth.UUCP> tadguy@xanth.UUCP (Tad Guy) writes:
>>The f77 compiler complains of a syntax error at the first line of the
>>following program (4.2bsd on VAX, v2.0 on SUN):
>>
>>      write(6,10) (-1)
>>10    format(i2)
>>      end
>
>I haven't found a fortran compiler yet that will accept that line.

        Both the Control Data FTN 4 (1966 plus extensions, such as
expressions in iolists) and FTN 5 (1977) compilers accept the construct.

        The WRITE statement corresponds to FORTRAN 77.  The FORMAT should
be changed to (i3) or (1x,i2), since FORTRAN 77 does not permit a "-" as a
carriage control.
--
                        Peter Montgomery

        {aero,allegra,bmcg,burdvax,hplabs,
         ihnp4,psivax,randvax,sdcsvax,trwrb}!sdcrdcf!sdcsmb!pmontgom

Don't blame me for the crowded freeways - I don't drive.
Technical Details
Message-ID: <115@sdcsmb.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!watmath!clyde!cbosgd!ukma!psuvm.bitnet!psuvax1!burdvax!sdcrdcf!sdcsmb!pmontgom
References: <3117@sdcc3.UUCP> <247@xanth.UUCP>

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site sdcsmb.UUCP
Path: arc1-ca.pugleaf.net!utzoo!watmath!clyde!cbosgd!ukma!psuvm.bitnet!psuvax1!burdvax!sdcrdcf!sdcsmb!pmontgom
From: pmontgom@sdcsmb.UUCP (Peter Montgomery)
Newsgroups: net.lang.f77
Subject: Re: Minor I/O bug
Message-ID: <115@sdcsmb.UUCP>
Date: Tue, 31-Dec-85 14:33:22 EST
Article-I.D.: sdcsmb.115
Posted: Tue Dec 31 14:33:22 1985
Date-Received: Fri, 3-Jan-86 01:44:23 EST
References: <3117@sdcc3.UUCP> <247@xanth.UUCP>
Reply-To: pmontgom@sdcsmb.UUCP (Peter Montgomery)
Organization: System Development Corp. R+D, Santa Monica
Lines: 23