Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr68146.f @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
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