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