g77.f-torture/execute/alpha1.f is strange

[H.J. Lu]

Here is g77.f-torture/execute/alpha1.f. It may call exit (1) if I
doesn't happen to be 0. I don't remember what Fortran should be in
this case. I think I is default to INTEGER. But I don't know if
it should be initialized to 0. From the x86 asm code, gcc doesn't
initialize it at all. In any case, I got the exit value 1 on
linux/x86/glibc 2 and linux/alpha/glibc 2.0.5c.


-- 
H.J. Lu (hjl@gnu.ai.mit.edu)
---g77.f-torture/execute/alpha1.f---
      REAL*8 A,B,C
      REAL*4 RARRAY(19)/19*(-1)/
      INTEGER BOTTOM,RIGHT
      INTEGER IARRAY(19)/0,0,0,0,0,0,0,0,0,0,0,0,13,14,0,0,0,0,0/
      EQUIVALENCE (RARRAY(13),BOTTOM),(RARRAY(14),RIGHT)
C
      IF(I.NE.0) call exit(1)
C gcc: Internal compiler error: program f771 got fatal signal 11
C  at this point!
      END