blob: 394bdf7ac16453d7856bd52717e428528e114e1c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-options "-O2 -fgraphite-identity" }
subroutine gentrs (ptrst, ncls, xmin, dcls, xdont, ndon)
do icls1 = 1, ncls
prec: do
select case (isns)
case (-1)
do icls = icls1, 1, -1
enddo
case (+1)
do icls = icls1, ncls
if (xale > rtrst (icls1, icls)) then
endif
enddo
end select
enddo prec
enddo
contains
real function genuni (jsee)
end function genuni
end subroutine gentrs
|
