mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 14:27:11 +01:00
a48a37d38b
to the parser, so that it only looks at what the programmer wrote rather
than at all statements that the compiler may generate internally
(mantis #11619)
+ several tests for {$x-} mode
* modified tenumerators1 so it compiles without extended syntax enabled
(to check for..in with {$x-})
git-svn-id: trunk@15075 -
21 lines
206 B
ObjectPascal
21 lines
206 B
ObjectPascal
{ %norun }
|
|
{$mode objfpc}
|
|
{x-}
|
|
|
|
type
|
|
tr = record end;
|
|
|
|
operator +(const r1,r2: tr) res: tr;
|
|
begin
|
|
end;
|
|
|
|
operator:=(const r: tr) res: longint;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
r1, r2: tr;
|
|
l:longint;
|
|
begin
|
|
l:=r1+r2;
|
|
end. |