mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
17 lines
324 B
ObjectPascal
17 lines
324 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.
|