OpenCores
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

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

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

powered by: WebSVN 2.1.0

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