OpenCores
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 774

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

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" } }

powered by: WebSVN 2.1.0

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