blob: fab06e3949d140b1b108be47d47ce9cf6406b80d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
C PR debug/46756, reduced from ../20010519-1.f
C { dg-do compile }
C { dg-options "-O -fcompare-debug" }
LOGICAL QDISK,QDW,QCMPCT
LOGICAL LNOMA,LRAISE,LSCI,LBIG
ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
GOTO 800
801 CONTINUE
ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
761 CONTINUE
IF(LSCI) THEN
DO I=1,LENCM
ENDDO
ENDIF
DO WHILE((CVGMX.GT.TOLDIM).AND.(ITER.LT.ITMX))
IF(.NOT.QDW) THEN
ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" }
GOTO 640
641 CONTINUE
ENDIF
ENDDO
GOTO 700
640 CONTINUE
GOTO I640 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
700 CONTINUE
GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
800 CONTINUE
GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" }
END
|
