{ cv_gtc_gsv_bug_simple.pas -- the cv_gtc_gsv[] inversion (sanint.c),
  shown by reading the table directly through its own named
  constants -- no game is played at all. Pascal translation of
  cv_gtc_gsv_bug_simple.c. }

program cv_gtc_gsv_bug_simple;

uses
  SanKit;

begin
  SANInit;   { fills in cv_gtc_gsv[]/gtcstrv[]; nothing else here
               needs it }

  WriteLn('cv_gtc_gsv[gs_wcmt] ("White is checkmated", Black should ',
          'win) -> "', gtcstrv[cv_gtc_gsv[gs_wcmt]], '"');

  WriteLn('cv_gtc_gsv[gs_bcmt] ("Black is checkmated", White should ',
          'win) -> "', gtcstrv[cv_gtc_gsv[gs_bcmt]], '"');
end.
