reduced testcase for scipy emerge failure with gfortran-9.2.0 + isl-0.22

scipy-graphite-ice.f (text/x-fortran), 675 bytes, created by wolfwood on 2019-12-15 07:01:44 UTC

        SUBROUTINE CERZO(NT,ZO)
        IMPLICIT DOUBLE PRECISION (E,P,W)
        IMPLICIT COMPLEX *16 (C,Z)
        DIMENSION ZO(NT)
        DO 35 NR=1,NT
           PX=0.5*PU-0.5*DLOG(PV)/PU
           PY=0.5*PU+0.5*DLOG(PV)/PU
15         IT=IT+1
           CALL CERF(Z,ZF,ZD)
           DO 30 I=1,NR-1
              ZW=(1.0D0,0.0D0)
              DO 25 J=1,NR-1
                 IF (J.EQ.I) GO TO 25
                 ZW=ZW*(Z-ZO(J))
25            CONTINUE
30            ZQ=ZQ+ZW
           ZGD=(ZD-ZQ*ZFD)/ZP
           Z=Z-ZFD/ZGD
           IF (IT.LE.50.AND.DABS((W-W0)/W).GT.1.0D-11) GO TO 15
35         ZO(NR)=Z
        IF (B.NE.INT(B)) THEN
        ENDIF
        END