Path: utzoo!mnetor!uunet!lll-winken!lll-tis!mordor!sri-spam!ames!umd5!purdue!i.cc.purdue.edu!j.cc.purdue.edu!pur-ee!uiucdcs!bradley!tychan From: tychan@bradley.UUCP Newsgroups: comp.sources.wanted Subject: f77 fix wanted for 3b1 Message-ID: <10600007@bradley> Date: 5 May 88 21:16:00 GMT Lines: 42 Nf-ID: #N:bradley:10600007:000:848 Nf-From: bradley.UUCP!tychan May 5 16:16:00 1988 I got this f77 compiler of some distribution tape for a 3b1, when ever the common statement is used, there seem to be an error in the offset as shown by the following example. The output should be 1 2 3 4 for all writes as oppose to the second wrong output. Any suggestion for a fix. Thanks T. Y. Chan ----------------------------------------- labUNIXPC [!] $ cat wrong.f integer x(4),y common /ty/ y,x x(1) = 1 x(2) = 2 x(3) = 3 x(4) = 4 y =10 write (6,10) (x(j),j=1,4) call rou(x) write (6,10) (x(j),j=1,4) 10 format (10(I2)) stop end subroutine rou(jx) integer jx(4) write (6,10) (jx(j),j=1,4) 10 format (10(I2)) return end labUNIXPC [!] $ wrong 1 2 3 4 10 1 2 3 1 2 3 4 labUNIXPC [!] $