20030115-1.f   [plain text]

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