URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [predcom-1.f] - Blame information for rev 749

Go to most recent revision | Details | Compare with Previous | View Log


! PR 32160, complex temporary variables were not marked as gimple registers
! { dg-do compile }
! { dg-options "-O3" }
 
      REAL             FUNCTION CLANHT( N, E )
      INTEGER            N
      COMPLEX            E( * )
      INTEGER            I
      REAL               ANORM
      INTRINSIC          ABS
            DO 20 I = 1, N
               ANORM = ANORM +ABS( E( I ) )+ ABS( E( I-1 ) )
   20       CONTINUE
      CLANHT = ANORM
      RETURN
      END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [predcom-1.f] - Blame information for rev 749