From d9af52b46d3535f455ed3b67cb6f0e9fdaa5051a Mon Sep 17 00:00:00 2001 From: Jeff Law Date: Tue, 4 Nov 1997 16:20:23 -0700 Subject: [PATCH] Move test from execute to compile. From-SVN: r16320 --- gcc/testsuite/g77.f-torture/compile/alpha1.f | 10 ++++++++++ gcc/testsuite/g77.f-torture/execute/alpha1.f | 1 - 2 files changed, 10 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/g77.f-torture/compile/alpha1.f delete mode 100644 gcc/testsuite/g77.f-torture/execute/alpha1.f diff --git a/gcc/testsuite/g77.f-torture/compile/alpha1.f b/gcc/testsuite/g77.f-torture/compile/alpha1.f new file mode 100644 index 000000000000..7cda74ebd45f --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/alpha1.f @@ -0,0 +1,10 @@ + 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 diff --git a/gcc/testsuite/g77.f-torture/execute/alpha1.f b/gcc/testsuite/g77.f-torture/execute/alpha1.f deleted file mode 100644 index 550c328e7cd5..000000000000 --- a/gcc/testsuite/g77.f-torture/execute/alpha1.f +++ /dev/null @@ -1 +0,0 @@ - I = 0 -- 2.47.2