Path: utzoo!attcan!sobeco!onfcanim!zap!matrox!IRO.UMontreal.CA!bonnie.concordia.ca!thunder.mcrcim.mcgill.edu!snorkelwacker.mit.edu!hsdndev!wuarchive!zaphod.mps.ohio-state.edu!tut.cis.ohio-state.edu!ucbvax!BRL.MIL!glennrp
From: glennrp@BRL.MIL (Glenn Randers-Pehrson, TBD|WMB)
Newsgroups: comp.sys.sgi
Subject: IRIX 3.3.1 f77 bug
Message-ID: <9101080833.aa14069@TBD2.BRL.MIL>
Date: 8 Jan 91 13:33:15 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: U.S. Army Ballistic Research Laboratory, APG, MD
Lines: 25


      SUBROUTINE FTNBUG
c
c     This crashes the IRIX 3.3 FTN compiler when run with
c     f77 -c -O ftnbug.f on IRIS 4D 220GTX's, IRIX 3.3.1.
c
c     I realize ic1, ic3, and npc1 are unused, but this is extracted
c     from a much larger subroutine in which they aren't unused.
c
c     glennrp@brl.mil
c
      common /A/ LINNB(603),NPLIN(603)
      COMMON /B/ ILOCA,I1,I2,I3,I4
      IC1=LINNB(I1)
      NPC1=NPLIN(I1)
      I3 = 597
      I4 = 597
      LINNB(I4) = L1
      NPLIN(I3) = 2
      NPLIN(I4) = 2
      IC3=LINNB(I3)
      RETURN
      END

...Glenn Randers-Pehrson <glennrp@brl.mil>