1C PR middle-end/68146
2C { dg-do compile }
3C { dg-options "-O2 -w" }
4      SUBROUTINE CJYVB(V,Z,V0,CBJ,CDJ,CBY,CYY)
5      IMPLICIT DOUBLE PRECISION (A,B,G,O-Y)
6      IMPLICIT COMPLEX*16 (C,Z)
7      DIMENSION CBJ(0:*),CDJ(0:*),CBY(0:*)
8      N=INT(V)
9      CALL GAMMA2(VG,GA)
10      DO 65 K=1,N
11        CBY(K)=CYY
1265    CONTINUE
13      CDJ(0)=V0/Z*CBJ(0)-CBJ(1)
14      DO 70 K=1,N
1570      CDJ(K)=-(K+V0)/Z*CBJ(K)+CBJ(K-1)
16      END
17