Test codes for freepascal