mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-06 20:35:30 +01:00
28 lines
283 B
ObjectPascal
28 lines
283 B
ObjectPascal
{ %NORUN }
|
|
{ %OPT=-Seh }
|
|
|
|
program aFP211r; { false hints on varrec }
|
|
|
|
type
|
|
t = record
|
|
d:integer
|
|
end;
|
|
|
|
var
|
|
f: file of t;
|
|
|
|
procedure P1;
|
|
var
|
|
varrec : t ;
|
|
begin
|
|
READ( f , varrec )
|
|
end{ P1 };
|
|
|
|
begin
|
|
assign( f , 'fname');
|
|
reset(f);
|
|
P1;
|
|
end.
|
|
|
|
|