IRIX 3.3.1 f77 bug

[Glenn Randers-Pehrson, TBD|WMB]

      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 at 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 at brl.mil>