source: to-imperative/trunk/samples/Access/r1.rf @ 574

Last change on this file since 574 was 574, checked in by luba, 18 years ago
  • tests for Access::R function
  • 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 <R 0 'ab'>>, <PrintLN <R 1 'ab'>>, <PrintLN <R 2 'ab'>>;
6    <PrintLN "Branch 1 failed.">, <PrintLN <R 1 ''>>;
7    <PrintLN "Branch 2 failed.">, <PrintLN <R 0>>;
8    <PrintLN "Branch 3 failed.">;
9  };
10
Note: See TracBrowser for help on using the repository browser.