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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr41924.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-options "-O2 -fgraphite-identity " }
 
MODULE MAIN1
 REAL , ALLOCATABLE :: HRVALD(:)
END MODULE MAIN1
 
SUBROUTINE VOLCALC()
 USE MAIN1
 INTEGER :: ITYP
 LOGICAL :: WETSCIM
 
 DO ITYP = 1 , 100
    IF ( WETSCIM ) HRVALD(ITYP) = 0.0
 ENDDO
END SUBROUTINE VOLCALC

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-options "-O2 -fgraphite-identity " }`
2
3			`MODULE MAIN1`
4			`REAL , ALLOCATABLE :: HRVALD(:)`
5			`END MODULE MAIN1`
6
7			`SUBROUTINE VOLCALC()`
8			`USE MAIN1`
9			`INTEGER :: ITYP`
10			`LOGICAL :: WETSCIM`
11
12			`DO ITYP = 1 , 100`
13			`IF ( WETSCIM ) HRVALD(ITYP) = 0.0`
14			`ENDDO`
15			`END SUBROUTINE VOLCALC`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr41924.f90] - Blame information for rev 302