fpc/tests/webtbs/tw24801.pp
florian 0eee70ac81 * fix FindUnitSymtable for exception symtables, resolves #24801 and #39974
* more consistent naming of exceptsymtable enumeration symbol
2022-10-31 20:19:10 +01:00

13 lines
170 B
ObjectPascal

program ErrorSample;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}
cThreads,
{$ENDIF}
Classes,
uw24801;
begin
if f<>'asdfasdf' then
halt(1);
end.