gcc/testsuite/gfortran.dg/g77/alpha1.f

   1 c { dg-do compile }
   2       REAL(kind=8) A,B,C
   3       REAL(kind=4) RARRAY(19)
   4       DATA RARRAY /19*-1/
   5       INTEGER BOTTOM,RIGHT
   6       INTEGER IARRAY(19)
   7       DATA IARRAY /0,0,0,0,0,0,0,0,0,0,0,0,13,14,0,0,0,0,0/
   8       EQUIVALENCE (RARRAY(13),BOTTOM),(RARRAY(14),RIGHT)
   9 C
  10       IF(I.NE.0) call exit(1)
  11 C gcc: Internal compiler error: program f771 got fatal signal 11
  12 C  at this point!
  13       END
  14
  15 ! previously g77.ftorture/compile/alpha1.f with following alpha1.x
  16 !
  17 !# This test fails compilation in cross-endian environments, for example as
  18 !# below, with a "sorry" message.
  19 !
  20 !if { [ishost "i\[34567\]86-*-*"] } {
  21 !    if { [istarget "mmix-knuth-mmixware"]
  22 ! || [istarget "powerpc-*-*"] } {
  23 !    set torture_compile_xfail [istarget]
  24 !    }
  25 !}
  26 !
  27 !return 0