diff options
| author | no-author <no-author@gcc.gnu.org> | 2003-01-17 19:56:11 +0000 |
|---|---|---|
| committer | no-author <no-author@gcc.gnu.org> | 2003-01-17 19:56:11 +0000 |
| commit | 1e026a5d708e5486cd647bedb6ed203607907cf6 (patch) | |
| tree | d4514c0c0274febfe482a8a12d2a66c567ea31d7 /gcc/testsuite/g77.f-torture | |
| parent | a7e2da603e99c230e1b36396f540663787db8105 (diff) | |
This commit was manufactured by cvs2svn to create branch
'tree-ssa-20020619-branch'.
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/tree-ssa-20020619-branch@61453 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/compile/20030115-1.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/compile/20030115-1.c b/gcc/testsuite/g77.f-torture/compile/20030115-1.c new file mode 100644 index 00000000000..ec6f79c718e --- /dev/null +++ b/gcc/testsuite/g77.f-torture/compile/20030115-1.c @@ -0,0 +1,14 @@ + 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 |