mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-16 01:10:40 +01:00
18 lines
370 B
ObjectPascal
18 lines
370 B
ObjectPascal
{ %FAIL }
|
|
{ Old file: tbf0219.pp }
|
|
{ wrong error message OK 0.99.11 (PFV) }
|
|
|
|
{ Should give '(' expected in line 6 }
|
|
|
|
const
|
|
replaces=4;
|
|
replacetab : array[1..replaces,1..2] of string[32]=(
|
|
':',' or colon',
|
|
'mem8','mem or bits8',
|
|
'mem16','mem or bits16',
|
|
'mem32','mem or bits32'
|
|
)
|
|
begin
|
|
end.
|
|
|