repo.or.cz
/
omega.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
petit: make argument of Write const
[omega.git]
/
petit
/
demo
/
example1a.t
blob
8752a15ffdec9bac22bbd125e284b39b4414c51f
1
real a(100),b(100),c(100)
2
integer n, m
3
!
4
! Since m might be in the range n+11 <= m <= n+20,
5
! we can't kill the flow dependence in this example
6
!
7
a(m) = b(n)
8
for L1 = n to n+10 do
9
a(L1) = b(L1)
10
endfor
11
for L1 = n to n+20 do
12
c(L1) = a(L1)
13
endfor