"Fossies" - the Fresh Open Source Software Archive

Member "gpc-20060325/p/test/adam3e.pas" (23 Sep 2002, 201 Bytes) of package /linux/misc/old/gpc-20060325.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) delphi source code syntax highlighting (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 program adam3e;
    2 
    3 function at(const index:integer):integer;
    4 begin
    5   case index of
    6     3..3: at := 42;
    7     else at := 0
    8   end
    9 end;
   10 
   11 begin
   12   if at(3) = 42 then WriteLn ('OK') else WriteLn ('failed')
   13 end.