Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr32921.f @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-O2 -fdump-tree-lim2" } ! gfortran -c -m32 -O2 -S junk.f ! MODULE LES3D_DATA IMPLICIT REAL*8 (A-H,O-Z) PARAMETER ( NSPECI = 1, ND = 7 + NSPECI ) INTEGER IMAX DOUBLE PRECISION,ALLOCATABLE,DIMENSION(:,:,:) :: > UAV,QAV END MODULE LES3D_DATA !--------------------------------------------------------------------- !------------------------------------------------------------------------ SUBROUTINE FLUXI() USE LES3D_DATA IMPLICIT REAL*8(A-H,O-Z) ALLOCATABLE QS(:) ALLOCATE( QS(0:IMAX)) QS=0D0 RETURN END !------------------------------------------------------------------------ !------------------------------------------------------------------------ SUBROUTINE EXTRAPI() USE LES3D_DATA IMPLICIT REAL*8(A-H,O-Z) I1 = 0 I2 = IMAX - 1 DO I = I1, I2 UAV(I,1,2) = QAV(I,1,2) END DO RETURN END ! { dg-final { scan-tree-dump-times "stride" 4 "lim2" } }