diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-01-28 17:20:41 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-01-28 17:20:41 +0000 |
| commit | b1b7f33abc33ba9a424cb3438ef22aaacce0b4fc (patch) | |
| tree | 79800d7e623733d43a8bd2837fd6f592ef33fec5 | |
| parent | e26579fc90c714ccfbc29ce1b609f20eae6133dc (diff) | |
| download | ppe42-gcc-b1b7f33abc33ba9a424cb3438ef22aaacce0b4fc.tar.gz ppe42-gcc-b1b7f33abc33ba9a424cb3438ef22aaacce0b4fc.zip | |
2003-01-28 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/9258
* g77.dg/pr9258: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@61984 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 dc3f6177dce..dcf48426c22 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 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 |
