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
/
example1b.t
blob
0c5d487ceeb75bfba25288756a7fbe793e80bb6b
1
real a(100),b(100),c(100)
2
!
3
! We have added the assertion m <= n+10
4
! to the previous example.
5
! This allows us to kill te flow dependence
6
!
7
integer n, m
8
assert(m<=n+10);
9
a(m) = b(n)
10
for L1 = n to n+10 do
11
a(L1) = b(L1)
12
endfor
13
for L1 = n to n+20 do
14
c(L1) = a(L1)
15
endfor