gcc/testsuite/gfortran.dg/pr91003.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Ofast" }
   3       SUBROUTINE FOO(N, A, B, C, D, E, F, G)
   4       COMPLEX A(*)
   5       LOGICAL H
   6       INTEGER G
   7       REAL I, C, J, F, F1, F2, K, E, L, M, B, D
   8       DO JC = 1, N
   9         K = F*REAL(A(JC))
  10         Z = F*AIMAG(A(JC))
  11         H = .FALSE.
  12         L = G
  13         IF(ABS(Z).LT.D .AND. I.GE. MAX(D, B*C, B*J)) THEN
  14           H = .TRUE.
  15           L = (D / F1) / MAX(D, F2*I)
  16         END IF
  17         IF(ABS(K).LT.D .AND. C.GE. MAX(D, B*I, B*J)) THEN
  18           L = MAX(L, (D / F1) / MAX(D, F2*C))
  19         END IF
  20         IF(ABS(E).LT.D .AND. J.GE. MAX(D, B*C, B*I)) THEN
  21           H = .TRUE.
  22           L = MAX(L, (D / BNRM1) / MAX(D, BNRM2*J))
  23         END IF
  24         IF(H) THEN
  25           M = (L*D)*MAX(ABS(K), ABS(Z), ABS(E))
  26         END IF
  27         IF(H) THEN
  28           K = (L*REAL(A(JC)))*F
  29           Z = (L*AIMAG(A(JC)))*F
  30         END IF
  31         A(JC) = CMPLX(K, Z)
  32       END DO
  33       END