URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
| Rev 154 |
Rev 816 |
! { dg-do run }
|
! { dg-do run }
|
! { dg-options "-w" }
|
! { dg-options "-w" }
|
! Test program for PR 28439
|
! Test program for PR 28439
|
integer function myfunc(i)
|
integer function myfunc(i)
|
integer i
|
integer i
|
integer, save :: value = 2
|
integer, save :: value = 2
|
value = value - 1 + 0 * i
|
value = value - 1 + 0 * i
|
myfunc = value
|
myfunc = value
|
end function myfunc
|
end function myfunc
|
|
|
program pr28439
|
program pr28439
|
|
|
integer myfunc
|
integer myfunc
|
|
|
if (myfunc(0)) 10, 20, 30 ! Should go to 30
|
if (myfunc(0)) 10, 20, 30 ! Should go to 30
|
10 call abort
|
10 call abort
|
20 call abort
|
20 call abort
|
|
|
30 if (myfunc(0)) 40, 50, 60 ! Should go to 50
|
30 if (myfunc(0)) 40, 50, 60 ! Should go to 50
|
40 call abort
|
40 call abort
|
60 call abort
|
60 call abort
|
|
|
50 if (myfunc(0)) 70, 80, 90 ! Should go to 70
|
50 if (myfunc(0)) 70, 80, 90 ! Should go to 70
|
80 call abort
|
80 call abort
|
90 call abort
|
90 call abort
|
|
|
70 continue
|
70 continue
|
|
|
end program pr28439
|
end program pr28439
|
|
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.