mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 20:51:17 +02:00
489e038379
ptype.pas, parse_record_members: * write an error message if "protected" or "strict protected" is encountered msg/errore.msg: + add an error message for disallowed "things" in records + added test * adjusted test (note: according to the bug report this test did not originally have the "protected" section, but it was added by Paul before commiting) git-svn-id: trunk@23596 -
19 lines
185 B
ObjectPascal
19 lines
185 B
ObjectPascal
{ %FAIL }
|
|
|
|
program terecs19;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch advancedrecords}
|
|
|
|
type
|
|
TRecord = record
|
|
strict protected
|
|
f1: LongInt;
|
|
protected
|
|
f2: LongInt;
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|