fpc/tests/webtbf/tw8031.pp

{ %fail }

program text;

type TSQLDBTypes = (mysql40,mysql41,mysql50,postgresql,interbase,odbc,oracle);
const MySQLdbTypes = [mysql40,mysql41,mysql50];

begin
  if (SQLDbType in TSQLDBTypes) then writeln('strange');
end.