petit: make argument of Write const
[omega.git] / petit / demo / example1a.t
blob8752a15ffdec9bac22bbd125e284b39b4414c51f
1 real a(100),b(100),c(100)
2 integer n, m
4 ! Since m might be in the range n+11 <= m <= n+20,
5 ! we can't kill the flow dependence in this example
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