gcc/testsuite/gfortran.dg/predcom-1.f

   1 ! PR 32160, complex temporary variables were not marked as gimple registers
   2 ! { dg-do compile }
   3 ! { dg-options "-O3" }
   4
   5       REAL             FUNCTION CLANHT( N, E )
   6       INTEGER            N
   7       COMPLEX            E( * )
   8       INTEGER            I
   9       REAL               ANORM
  10       INTRINSIC          ABS
  11             DO 20 I = 1, N
  12                ANORM = ANORM +ABS( E( I ) )+ ABS( E( I-1 ) )
  13    20       CONTINUE
  14       CLANHT = ANORM
  15       RETURN
  16       END