mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 10:00:35 +01:00
16 lines
235 B
ObjectPascal
16 lines
235 B
ObjectPascal
{ %FAIL }
|
|
{ Old file: tbf0298.pp }
|
|
{ l1+l2:=l1+l2 gives no error OK 0.99.13 (PFV) }
|
|
|
|
program test_loc_mem;
|
|
|
|
{$ifdef go32v2}
|
|
uses
|
|
dpmiexcp;
|
|
{$endif go32v2}
|
|
|
|
var l1,l2 : longint;
|
|
begin
|
|
l1+l2:=l1+l2;
|
|
end.
|