2 ! { dg-options "-O2 -fdump-tree-lim1" }
3 ! gfortran -c -m32 -O2 -S junk.f
7 IMPLICIT REAL*8 (A-H,O-Z)
9 PARAMETER ( NSPECI = 1, ND = 7 + NSPECI )
13 DOUBLE PRECISION,ALLOCATABLE,DIMENSION(:,:,:) ::
18 !---------------------------------------------------------------------
19 !------------------------------------------------------------------------
23 IMPLICIT REAL*8(A-H,O-Z)
32 !------------------------------------------------------------------------
33 !------------------------------------------------------------------------
37 IMPLICIT REAL*8(A-H,O-Z)
43 UAV(I,1,2) = QAV(I,1,2)
48 ! { dg-final { scan-tree-dump-times "stride" 4 "lim1" } }
49 ! { dg-final { cleanup-tree-dump "lim1" } }
50 ! { dg-final { cleanup-modules "les3d_data" } }