diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/20030115-1.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/20030115-1.f | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/20030115-1.f b/gcc/testsuite/gfortran.dg/g77/20030115-1.f deleted file mode 100644 index faa08e5205e..00000000000 --- a/gcc/testsuite/gfortran.dg/g77/20030115-1.f +++ /dev/null @@ -1,17 +0,0 @@ -C { dg-do compile } - SUBROUTINE FOO (B) - - 10 CALL BAR(A) - ASSIGN 20 TO M ! { dg-warning "Obsolete: ASSIGN" "ASSIGN" } - - IF(100.LT.A) GOTO 10 - GOTO 40 -C - 20 IF(B.LT.ABS(A)) GOTO 10 - ASSIGN 30 TO M ! { dg-warning "Obsolete: ASSIGN" "ASSIGN" } - GOTO 40 -C - 30 ASSIGN 10 TO M ! { dg-warning "Obsolete: ASSIGN" "ASSIGN" } - 40 GOTO M,(10,20,30) ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } - - END |