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 694

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.