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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [function_optimize_4.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-do run }
! { dg-options "-O" }
! PR 48412 - function elimination got temporary varibles in the wrong order.
! Test case contributed by Joost VandeVondele.
 
INTEGER FUNCTION S1(m,ma,lx)
INTEGER :: m,ma,lx
 
IF (((m < 0).AND.(MODULO(ABS(ma-lx),2) == 1)).OR.&
    ((m > 0).AND.(MODULO(ABS(ma-lx),2) == 0))) THEN
   S1=1
ELSE
   S1=0
ENDIF
 
END FUNCTION
 
INTEGER :: s1
IF (S1(1,2,1).NE.0) CALL ABORT()
END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! { dg-options "-O" }`
3			`! PR 48412 - function elimination got temporary varibles in the wrong order.`
4			`! Test case contributed by Joost VandeVondele.`
5
6			`INTEGER FUNCTION S1(m,ma,lx)`
7			`INTEGER :: m,ma,lx`
8
9			`IF (((m < 0).AND.(MODULO(ABS(ma-lx),2) == 1)).OR.&`
10			`((m > 0).AND.(MODULO(ABS(ma-lx),2) == 0))) THEN`
11			`S1=1`
12			`ELSE`
13			`S1=0`
14			`ENDIF`
15
16			`END FUNCTION`
17
18			`INTEGER :: s1`
19			`IF (S1(1,2,1).NE.0) CALL ABORT()`
20			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [function_optimize_4.f90] - Blame information for rev 694