diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2003-01-28 18:20:41 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2003-01-28 17:20:41 +0000 |
| commit | f42aadd8561dc4c3da4843536a5f9a0af142c26d (patch) | |
| tree | 79800d7e623733d43a8bd2837fd6f592ef33fec5 /gcc | |
| parent | 58fb7809231012eb7d2f87ed7047239a051e93bf (diff) | |
| download | gcc-f42aadd8561dc4c3da4843536a5f9a0af142c26d.zip gcc-f42aadd8561dc4c3da4843536a5f9a0af142c26d.tar.gz gcc-f42aadd8561dc4c3da4843536a5f9a0af142c26d.tar.bz2 | |
re PR rtl-optimization/9258 (ICE in compensate_edge, at reg-stack.c:2589)
2003-01-28 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/9258
* g77.dg/pr9258: New test.
From-SVN: r61984
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/g77.dg/pr9258.f | 18 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dc3f617..dcf4842 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2003-01-28 Toon Moene <toon@moene.indiv.nluug.nl> + + PR fortran/9258 + * g77.dg/pr9258: New test. + 2003-01-28 Gerald Pfeifer <pfeifer@dbai.tuwien.ac.at> * 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 0000000..9961b72 --- /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 |