tthlp20.pp 198 B

1234567891011121314
  1. { %NORUN }
  2. { test that "type helper" is parsed as "type alias" + "type name" if modeswitch typehelpers is not set }
  3. program tthlp20;
  4. type
  5. helper = LongInt;
  6. TTest = type helper;
  7. begin
  8. end.