gcc/testsuite/gfortran.dg/g77/19990826-1.f

   1 c { dg-do compile }
   2 * Date: Tue, 24 Aug 1999 12:25:41 +1200 (NZST)
   3 * From: Jonathan Ravens <ravens@whio.gns.cri.nz>
   4 * To: gcc-bugs@gcc.gnu.org
   5 * Subject: g77 bug report
   6 * X-UIDL: a0bf5ecc21487cde48d9104983ab04d6
   7
   8 ! This fortran source will not compile - if the penultimate elseif block is 0
   9 ! included then the message appears :
  10 !
  11 !   /usr/src/egcs//gcc-2.95.1/gcc/f/stw.c:308: failed assertion `b->uses_ > 0'
  12 !   g77: Internal compiler error: program f771 got fatal signal 6
  13 !
  14 ! The command was : g77 -c <prog.f>
  15 !
  16 ! The OS is Red Hat 6, and the output from uname -a is
  17 !   Linux grfw1452.gns.cri.nz 2.2.5-15 #1 Mon Apr 19 23:00:46 EDT 1999 i686 unknown
  18 !
  19 ! The configure script I used was
  20 !   /usr/src/egcs/gcc/gcc-2.95.1/configure --enable-languages=f77 i585-unknown-linux
  21 !
  22 ! I was installing 2.95 because under EGCS 2.1.1 none of my code was working
  23 ! with optimisation turned on, and there were still bugs with no optimisation
  24 ! (all of which code works fine under g77 0.5.21 and Sun/IBM/Dec/HP fortrans).
  25 !
  26 ! The version of g77 is :
  27 !
  28 !g77 version 2.95.1 19990816 (release) (from FSF-g77 version 0.5.25 19990816 (release))
  29
  30         program main
  31         if (i.eq.1) then
  32             call abc(1)
  33         else if (i.eq. 1) then
  34             call abc( 1)
  35         else if (i.eq. 2) then
  36             call abc( 2)
  37         else if (i.eq. 3) then
  38             call abc( 3)
  39         else if (i.eq. 4) then
  40             call abc( 4)
  41         else if (i.eq. 5) then
  42             call abc( 5)
  43         else if (i.eq. 6) then
  44             call abc( 6)
  45         else if (i.eq. 7) then
  46             call abc( 7)
  47         else if (i.eq. 8) then
  48             call abc( 8)
  49         else if (i.eq. 9) then
  50             call abc( 9)
  51         else if (i.eq. 10) then
  52             call abc( 10)
  53         else if (i.eq. 11) then
  54             call abc( 11)
  55         else if (i.eq. 12) then
  56             call abc( 12)
  57         else if (i.eq. 13) then
  58             call abc( 13)
  59         else if (i.eq. 14) then
  60             call abc( 14)
  61         else if (i.eq. 15) then
  62             call abc( 15)
  63         else if (i.eq. 16) then
  64             call abc( 16)
  65         else if (i.eq. 17) then
  66             call abc( 17)
  67         else if (i.eq. 18) then
  68             call abc( 18)
  69         else if (i.eq. 19) then
  70             call abc( 19)
  71         else if (i.eq. 20) then
  72             call abc( 20)
  73         else if (i.eq. 21) then
  74             call abc( 21)
  75         else if (i.eq. 22) then
  76             call abc( 22)
  77         else if (i.eq. 23) then
  78             call abc( 23)
  79         else if (i.eq. 24) then
  80             call abc( 24)
  81         else if (i.eq. 25) then
  82             call abc( 25)
  83         else if (i.eq. 26) then
  84             call abc( 26)
  85         else if (i.eq. 27) then
  86             call abc( 27)
  87         else if (i.eq. 28) then
  88             call abc( 28)
  89         else if (i.eq. 29) then
  90             call abc( 29)
  91         else if (i.eq. 30) then
  92             call abc( 30)
  93         else if (i.eq. 31) then
  94             call abc( 31)
  95         else if (i.eq. 32) then
  96             call abc( 32)
  97         else if (i.eq. 33) then
  98             call abc( 33)
  99         else if (i.eq. 34) then
 100             call abc( 34)
 101         else if (i.eq. 35) then
 102             call abc( 35)
 103         else if (i.eq. 36) then
 104             call abc( 36)
 105         else if (i.eq. 37) then
 106             call abc( 37)
 107         else if (i.eq. 38) then
 108             call abc( 38)
 109         else if (i.eq. 39) then
 110             call abc( 39)
 111         else if (i.eq. 40) then
 112             call abc( 40)
 113         else if (i.eq. 41) then
 114             call abc( 41)
 115         else if (i.eq. 42) then
 116             call abc( 42)
 117         else if (i.eq. 43) then
 118             call abc( 43)
 119         else if (i.eq. 44) then
 120             call abc( 44)
 121         else if (i.eq. 45) then
 122             call abc( 45)
 123         else if (i.eq. 46) then
 124             call abc( 46)
 125         else if (i.eq. 47) then
 126             call abc( 47)
 127         else if (i.eq. 48) then
 128             call abc( 48)
 129         else if (i.eq. 49) then
 130             call abc( 49)
 131         else if (i.eq. 50) then
 132             call abc( 50)
 133         else if (i.eq. 51) then
 134             call abc( 51)
 135         else if (i.eq. 52) then
 136             call abc( 52)
 137         else if (i.eq. 53) then
 138             call abc( 53)
 139         else if (i.eq. 54) then
 140             call abc( 54)
 141         else if (i.eq. 55) then
 142             call abc( 55)
 143         else if (i.eq. 56) then
 144             call abc( 56)
 145         else if (i.eq. 57) then
 146             call abc( 57)
 147         else if (i.eq. 58) then
 148             call abc( 58)
 149         else if (i.eq. 59) then
 150             call abc( 59)
 151         else if (i.eq. 60) then
 152             call abc( 60)
 153         else if (i.eq. 61) then
 154             call abc( 61)
 155         else if (i.eq. 62) then
 156             call abc( 62)
 157         else if (i.eq. 63) then
 158             call abc( 63)
 159         else if (i.eq. 64) then
 160             call abc( 64)
 161         else if (i.eq. 65) then
 162             call abc( 65)
 163         else if (i.eq. 66) then
 164             call abc( 66)
 165         else if (i.eq. 67) then
 166             call abc( 67)
 167         else if (i.eq. 68) then
 168             call abc( 68)
 169         else if (i.eq. 69) then
 170             call abc( 69)
 171         else if (i.eq. 70) then
 172             call abc( 70)
 173         else if (i.eq. 71) then
 174             call abc( 71)
 175         else if (i.eq. 72) then
 176             call abc( 72)
 177         else if (i.eq. 73) then
 178             call abc( 73)
 179         else if (i.eq. 74) then
 180             call abc( 74)
 181         else if (i.eq. 75) then
 182             call abc( 75)
 183         else if (i.eq. 76) then
 184             call abc( 76)
 185         else if (i.eq. 77) then
 186             call abc( 77)
 187         else if (i.eq. 78) then
 188             call abc( 78)
 189         else if (i.eq. 79) then
 190             call abc( 79)
 191         else if (i.eq. 80) then
 192             call abc( 80)
 193         else if (i.eq. 81) then
 194             call abc( 81)
 195         else if (i.eq. 82) then
 196             call abc( 82)
 197         else if (i.eq. 83) then
 198             call abc( 83)
 199         else if (i.eq. 84) then
 200             call abc( 84)
 201         else if (i.eq. 85) then
 202             call abc( 85)
 203         else if (i.eq. 86) then
 204             call abc( 86)
 205         else if (i.eq. 87) then
 206             call abc( 87)
 207         else if (i.eq. 88) then
 208             call abc( 88)
 209         else if (i.eq. 89) then
 210             call abc( 89)
 211         else if (i.eq. 90) then
 212             call abc( 90)
 213         else if (i.eq. 91) then
 214             call abc( 91)
 215         else if (i.eq. 92) then
 216             call abc( 92)
 217         else if (i.eq. 93) then
 218             call abc( 93)
 219         else if (i.eq. 94) then
 220             call abc( 94)
 221         else if (i.eq. 95) then
 222             call abc( 95)
 223         else if (i.eq. 96) then
 224             call abc( 96)
 225         else if (i.eq. 97) then
 226             call abc( 97)
 227         else if (i.eq. 98) then
 228             call abc( 98)
 229         else if (i.eq. 99) then
 230             call abc( 99)
 231         else if (i.eq. 100) then
 232             call abc( 100)
 233         else if (i.eq. 101) then
 234             call abc( 101)
 235         else if (i.eq. 102) then
 236             call abc( 102)
 237         else if (i.eq. 103) then
 238             call abc( 103)
 239         else if (i.eq. 104) then
 240             call abc( 104)
 241         else if (i.eq. 105) then
 242             call abc( 105)
 243         else if (i.eq. 106) then
 244             call abc( 106)
 245         else if (i.eq. 107) then
 246             call abc( 107)
 247         else if (i.eq. 108) then
 248             call abc( 108)
 249         else if (i.eq. 109) then
 250             call abc( 109)
 251         else if (i.eq. 110) then
 252             call abc( 110)
 253         else if (i.eq. 111) then
 254             call abc( 111)
 255         else if (i.eq. 112) then
 256             call abc( 112)
 257         else if (i.eq. 113) then
 258             call abc( 113)
 259         else if (i.eq. 114) then
 260             call abc( 114)
 261         else if (i.eq. 115) then
 262             call abc( 115)
 263         else if (i.eq. 116) then
 264             call abc( 116)
 265         else if (i.eq. 117) then
 266             call abc( 117)
 267         else if (i.eq. 118) then
 268             call abc( 118)
 269         else if (i.eq. 119) then
 270             call abc( 119)
 271         else if (i.eq. 120) then
 272             call abc( 120)
 273         else if (i.eq. 121) then
 274             call abc( 121)
 275         else if (i.eq. 122) then
 276             call abc( 122)
 277         else if (i.eq. 123) then
 278             call abc( 123)
 279         else if (i.eq. 124) then
 280             call abc( 124)
 281         else if (i.eq. 125) then           !< Miscompiles if present
 282             call abc( 125)                 !<
 283
 284 c        else if (i.eq. 126) then
 285 c            call abc( 126)
 286         endif
 287         end