1! { 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