mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-05 12:12:33 +02:00
18 lines
325 B
ObjectPascal
18 lines
325 B
ObjectPascal
{ %FAIL }
|
|
uses uimpluni1;
|
|
|
|
Type
|
|
BEC_Single_Error = record
|
|
E : integer;
|
|
M : string [80];
|
|
end;
|
|
|
|
Const
|
|
BEC_Err_Msgs: array [0..1] of BEC_Single_Error =
|
|
((E : uimpluni1.ICanUseThis; M : '[1] No Error'),
|
|
(E : uimpluni2.ICantUseThis; M : '[10000] A Bug?'));
|
|
|
|
begin
|
|
end.
|
|
|