Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr68146.f @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
line wrap: on
line source
C PR middle-end/68146 C { dg-do compile } C { dg-options "-O2 -w" } SUBROUTINE CJYVB(V,Z,V0,CBJ,CDJ,CBY,CYY) IMPLICIT DOUBLE PRECISION (A,B,G,O-Y) IMPLICIT COMPLEX*16 (C,Z) DIMENSION CBJ(0:*),CDJ(0:*),CBY(0:*) N=INT(V) CALL GAMMA2(VG,GA) DO 65 K=1,N CBY(K)=CYY 65 CONTINUE CDJ(0)=V0/Z*CBJ(0)-CBJ(1) DO 70 K=1,N 70 CDJ(K)=-(K+V0)/Z*CBJ(K)+CBJ(K-1) END