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
17