Modify Free Pascal test