[fpc-pascal] Generics Bug

[African Wild Dog]

Hello,


Please confirm this bug.

The unit code bellow won't compile (fpc 3.0.2 - debian jessie amd64):

"generics_bug.pas(17,48) Fatal: Syntax error, "," expected but "<" found"

=== CODE  ===

*unit* generics_bug;

{$mode delphi}

*interface*

*type*

  TPair<TKey, TValue> = *record*
    Key: TKey;
    Value: TValue;
  *end*;

  TEnumerator<T> = *class*
  *end*;

  TGenericClass<T, K> = *class*(TEnumerator<TPair<T, K>>)
  *end*;

*implementation*

*end*.

===


This code compiles in Delphi XE 2.

Regards
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20170318/c2c7a2f9/attachment.html>