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