1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/alpha1.f b/gcc/testsuite/gfortran.dg/g77/alpha1.f
new file mode 100644
index 000000000..68947692d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/alpha1.f
@@ -0,0 +1,27 @@
+c { dg-do compile }
+      REAL(kind=8) A,B,C
+      REAL(kind=4) RARRAY(19)
+      DATA RARRAY /19*-1/
+      INTEGER BOTTOM,RIGHT
+      INTEGER IARRAY(19)
+      DATA IARRAY /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
+
+! previously g77.ftorture/compile/alpha1.f with following alpha1.x
+!
+!# This test fails compilation in cross-endian environments, for example as
+!# below, with a "sorry" message.
+!
+!if { [ishost "i\[34567\]86-*-*"] } {
+!    if { [istarget "mmix-knuth-mmixware"]
+! || [istarget "powerpc-*-*"] } {
+!    set torture_compile_xfail [istarget]
+!    }
+!}
+!
+!return 0