Conference turris::fortran

1208.0. "f77 bug OSF_QAR 51789; blocking isv optimizationoptimization. Please help." by HYDRA::SHEN () Sat Mar 01 1997 09:26

    C -------------------- abc.f ---------------------------
    C f77 V4.0 "-O5" bug on Digital Unix V4.0b
    C
    C To reproduce the problem:
    C % f77 -O5 -v -c abc.f
    C /usr/lib/cmplrs/fort/decfort -O5 -switch fe_platinum -o abc.o abc.f
    C fort: Fatal: A memory access violation (bus error or segmentation
    fault)
    C has occurred.  Please submit a problem report.
    C
    
          logical function abc()
          logical s1,f2,flag
          integer i
          abc=.TRUE.
          flag=.TRUE.
      100 if(flag)goto 101
          if(flag)goto 102
          abc=.FALSE.
          goto 101
      102 s1=.TRUE.
          if(flag)goto 104
          do 106 i=1,4
      106 continue
          goto 105
      104 continue
          do 108 i=1,4
      108 continue
      105 continue
          if(flag)goto 110
          goto 111
      110 continue
          if(flag)goto 112
          goto 115
      112 continue
          if(flag)goto 114
          goto 115
      114 continue
          if(flag)goto 116
      116 continue
      115 continue
      111 continue
          if(flag)goto 118
          call def()
          goto 119
      118 continue
          call def()
      119 continue
          goto 100
      101 continue
          return
          end
    C
          subroutine def()
          integer i
          do 120 i=1,4
      120 continue
          return
          end
    

    Duplicate of 1206.
    
    			Steve