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

Subversion Repositories openrisc

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

Go to most recent revision | 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
! { dg-final { cleanup-modules "main1" } }

Line No.	Rev	Author	Line
1	694	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`
16			`! { dg-final { cleanup-modules "main1" } }`

Browse

Tools

Subversion Repositories openrisc

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