gcc/testsuite/gfortran.dg/pr104528.f

   1 ! { dg-do compile }
   2 ! { dg-options "-O2 -fpeel-loops -ftree-loop-vectorize -fno-tree-scev-cprop --param iv-max-considered-uses=2" }
   3       REAL               FUNCTION FOO(M, N, A, W)
   4
   5       INTEGER            M, N
   6
   7       REAL               W(*)
   8       COMPLEX            A(*)
   9
  10       INTEGER            II, JI, JJ, KK, LL, MP
  11
  12       EXTERNAL           BAR
  13
  14       INTEGER            QUX
  15       EXTERNAL           QUX
  16
  17       CALL BAR(II)
  18
  19       IF (M .EQ. 0) THEN
  20          IF (N .EQ. 0) THEN
  21             DO 140 KK = II, II + MP
  22                W(KK) = 0
  23  140        CONTINUE
  24          ELSE
  25             KK = II + MP
  26          END IF
  27
  28          DO 130 JI = KK, KK + MP
  29             DO 120 LL = JJ, JJ + MP
  30                DO 110 KK = II, II + MP
  31                   W(KK) = (A(KK))
  32  110           CONTINUE
  33  120        CONTINUE
  34  130     CONTINUE
  35
  36          IF (W(KK) .EQ. 0) THEN
  37             FOO = W(QUX(MP, W, 1))
  38          END IF
  39
  40       END IF
  41
  42       RETURN
  43
  44       END