source: to-imperative/trunk/samples/Access/l1.rf @ 689

Last change on this file since 689 was 689, checked in by orlov, 18 years ago
  • All Words are changed to Chars sequences, so tests work with the current runtime version.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 246 bytes
Line 
1$use Access StdIO;
2
3Main =
4  {
5    <PrintLN <L 0 'ab'>>, <PrintLN <L 1 'ab'>>, <PrintLN <L 2 'ab'>>;
6    <PrintLN 'Branch 1 failed.'>, <PrintLN <L 1 ''>>;
7    <PrintLN 'Branch 2 failed.'>, <PrintLN <L 0>>;
8    <PrintLN 'Branch 3 failed.'>;
9  };
10
Note: See TracBrowser for help on using the repository browser.