fpc/tw25029.pp at main - fpc - brudnopis.ovh - Gitea

paweld/fpc

mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 05:08:06 +02:00

paul 93f1ba4493 compiler: don't allow to access an enum members through the enum member. It should be only possible throught the enum type name. Fixes issue #0025029

git-svn-id: trunk@25493 -

2013-09-16 02:48:52 +00:00

9 lines

103 B

ObjectPascal

Raw Permalink Blame History

 {%FAIL}
 program tw25029;
 type
   TMyEnum = (me1, me2, me3);
 var
   e: TMyEnum;
 begin
   e := me1.me2;
 end.