summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/debug/pr46756.f
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