OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [debug/] [pr46756.f] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.