source: liacs/coco/tests/code-generation/test6.p0@ 359

Last change on this file since 359 was 2, checked in by Rick van der Zwet, 15 years ago

Initial import of data of old repository ('data') worth keeping (e.g. tracking
means of URL access statistics)

File size: 149 bytes
RevLine 
[2]1program testif;
2
3var
4 foo, bar: integer;
5
6begin
7 foo := 42;
8 if (foo <> 42) then
9 bar := 255
10 else
11 bar := 256;
12 writeinteger(bar)
13end.
Note: See TracBrowser for help on using the repository browser.