gcc/testsuite/gfortran.dg/g77/pr9258.f

   1 C Test case for PR/9258
   2 C Origin: kmccarty@princeton.edu
   3 C
   4 C { dg-do compile }
   5       SUBROUTINE FOO (B)
   6
   7   10  CALL BAR (A)
   8       ASSIGN 20 TO M           !{ dg-warning "Deleted feature: ASSIGN" "" }
   9       IF (100.LT.A) GOTO 10
  10       GOTO 40
  11 C
  12   20  IF (B.LT.ABS(A)) GOTO 10
  13       ASSIGN 30 TO M           !{ dg-warning "Deleted feature: ASSIGN" "" }
  14       GOTO 40
  15 C
  16   30  ASSIGN 10 TO M           !{ dg-warning "Deleted feature: ASSIGN" "" }
  17   40  GOTO M,(10,20,30)        !{ dg-warning "Deleted feature: Assigned GOTO" "" }
  18       END