fpc/tests/test/tcase49.pp

{ this benchmark can be used also as a test case }
{$I ../bench/bcase.pp}