From f42aadd8561dc4c3da4843536a5f9a0af142c26d Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Tue, 28 Jan 2003 18:20:41 +0100 Subject: [PATCH] re PR rtl-optimization/9258 (ICE in compensate_edge, at reg-stack.c:2589) 2003-01-28 Toon Moene PR fortran/9258 * g77.dg/pr9258: New test. From-SVN: r61984 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/g77.dg/pr9258.f | 18 ++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100644 gcc/testsuite/g77.dg/pr9258.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dc3f6177dce..dcf48426c22 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2003-01-28 Toon Moene + + PR fortran/9258 + * g77.dg/pr9258: New test. + 2003-01-28 Gerald Pfeifer * README: Move relevant parts from README.g++. diff --git a/gcc/testsuite/g77.dg/pr9258.f b/gcc/testsuite/g77.dg/pr9258.f new file mode 100644 index 00000000000..9961b72b7f6 --- /dev/null +++ b/gcc/testsuite/g77.dg/pr9258.f @@ -0,0 +1,18 @@ +C Test case for PR/9258 +C Origin: kmccarty@princeton.edu +C +C { dg-do compile } + SUBROUTINE FOO (B) + + 10 CALL BAR (A) + ASSIGN 20 TO M + IF (100.LT.A) GOTO 10 + GOTO 40 +C + 20 IF (B.LT.ABS(A)) GOTO 10 + ASSIGN 30 TO M + GOTO 40 +C + 30 ASSIGN 10 TO M + 40 GOTO M,(10,20,30) + END -- 2.30.2