| 1 |
integer function gvn_cross_block(a, b, flag) |
| 2 |
implicit none |
| 3 |
integer, value :: a, b, flag |
| 4 |
integer :: tmp |
| 5 |
|
| 6 |
tmp = a + b |
| 7 |
if (flag > 0) then |
| 8 |
gvn_cross_block = tmp + (a + b) |
| 9 |
else |
| 10 |
gvn_cross_block = tmp - (a + b) |
| 11 |
end if |
| 12 |
end function gvn_cross_block |
| 13 |
|