fpc/tcase45_2.pp at fixes_3_2 - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 20:08:12 +02:00

florian cf215d5097 o patch by Michael V. Denisenko to handle case <string> of (see also #13700 )

+ compiler implementation
  + tests

git-svn-id: trunk@13642 -

2009-09-03 20:21:30 +00:00

19 lines

187 B

ObjectPascal

Raw Permalink Blame History

 program test_program;
 uses
   tcase45;
 var
   i: integer;
 begin
   test_proc(i);
   if (i <> 2) then
     begin
       writeln('FAIL');
       halt(1);
     end
   else
     writeln('OK');
 end.