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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr32921.f] - Blame information for rev 708

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O2 -fdump-tree-lim1" }`
3			`! gfortran -c -m32 -O2 -S junk.f`
4			`!`
5			`MODULE LES3D_DATA`
6
7			`IMPLICIT REAL*8 (A-H,O-Z)`
8
9			`PARAMETER ( NSPECI = 1, ND = 7 + NSPECI )`
10
11			`INTEGER IMAX`
12
13			`DOUBLE PRECISION,ALLOCATABLE,DIMENSION(:,:,:) ::`
14			`> UAV,QAV`
15
16
17			`END MODULE LES3D_DATA`
18			`!---------------------------------------------------------------------`
19			`!------------------------------------------------------------------------`
20			`SUBROUTINE FLUXI()`
21
22			`USE LES3D_DATA`
23			`IMPLICIT REAL*8(A-H,O-Z)`
24
25			`ALLOCATABLE QS(:)`
26
27			`ALLOCATE( QS(0:IMAX))`
28			`QS=0D0`
29
30			`RETURN`
31			`END`
32			`!------------------------------------------------------------------------`
33			`!------------------------------------------------------------------------`
34			`SUBROUTINE EXTRAPI()`
35
36			`USE LES3D_DATA`
37			`IMPLICIT REAL*8(A-H,O-Z)`
38
39			`I1 = 0`
40			`I2 = IMAX - 1`
41
42			`DO I = I1, I2`
43			`UAV(I,1,2) = QAV(I,1,2)`
44			`END DO`
45
46			`RETURN`
47			`END`
48			`! { dg-final { scan-tree-dump-times "stride" 4 "lim1" } }`
49			`! { dg-final { cleanup-tree-dump "lim1" } }`
50			`! { dg-final { cleanup-modules "les3d_data" } }`