freepascal.compiler/tests/test/packages/fcl-base/tgettext1.pp

{ gettext was crashing under Windows CE. Not crashing should be considered a success }

uses gettext;

var
  LangDefault, LangFallback: ansistring;
begin
  GetLanguageIDs(LangDefault, LangFallback);
end.