gcc/testsuite/gfortran.dg/pr92161.f

   1 ! { dg-do compile }
   2 ! { dg-options "-O1 -ftree-loop-vectorize -fno-signed-zeros -fno-trapping-math" }
   3 ! { dg-additional-options "-mvsx" { target { powerpc*-*-* } } }
   4       COMPLEX FUNCTION R1 (ZR, CC, EA, U6)
   5
   6       INTEGER ZR, U6, FZ, J2
   7       COMPLEX EA(*), CC
   8       DOUBLE PRECISION OS, GA, YU, XT
   9
  10       OS = DBLE(REAL(CC))
  11       GA = DBLE(AIMAG(CC))
  12       J2 = 1
  13
  14       DO 5 FZ = 1, ZR
  15         YU = DBLE(REAL(EA(J2)))
  16         XT = DBLE(AIMAG(EA(J2)))
  17         OS = OS + (YU * 2) - (XT * 2)
  18         GA = GA + (YU * 3) + (XT * 3)
  19         J2 = J2 + U6
  20     5 CONTINUE
  21       R1 = CMPLX(REAL(OS), REAL(GA))
  22       RETURN
  23       END