gcc/testsuite/gfortran.dg/pr68146.f

   1 C PR middle-end/68146
   2 C { dg-do compile }
   3 C { 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
  12 65    CONTINUE
  13       CDJ(0)=V0/Z*CBJ(0)-CBJ(1)
  14       DO 70 K=1,N
  15 70      CDJ(K)=-(K+V0)/Z*CBJ(K)+CBJ(K-1)
  16       END