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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr38083.f90] - Blame information for rev 739

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


! { dg-options "-O3 " }
 
SUBROUTINE IVSORT (IL,IH,NSEGS,IOUNIT)
  INTEGER IOUNIT
 
  INTEGER, PARAMETER :: MAXGS = 32
 
10 IF (IL .GE. IH) GO TO 80
20 NSEGS = (IH + IL) / 2
  IF (NSEGS .GT. MAXSGS) THEN
     WRITE (IOUNIT),MAXSGS
  ENDIF
80 NSEGS = NSEGS - 1
90 IF (IH - IL .GE. 11) GO TO 20
110 IF (IL .EQ. IH) GO TO 80
END SUBROUTINE IVSORT

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O3 " }`
2
3			`SUBROUTINE IVSORT (IL,IH,NSEGS,IOUNIT)`
4			`INTEGER IOUNIT`
5
6			`INTEGER, PARAMETER :: MAXGS = 32`
7
8			`10 IF (IL .GE. IH) GO TO 80`
9			`20 NSEGS = (IH + IL) / 2`
10			`IF (NSEGS .GT. MAXSGS) THEN`
11			`WRITE (IOUNIT),MAXSGS`
12			`ENDIF`
13			`80 NSEGS = NSEGS - 1`
14			`90 IF (IH - IL .GE. 11) GO TO 20`
15			`110 IF (IL .EQ. IH) GO TO 80`
16			`END SUBROUTINE IVSORT`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr38083.f90] - Blame information for rev 739