tclassattribute2.pp 324 B

12345678910111213141516
  1. { %fail }
  2. program tclassattribute2;
  3. {$mode objfpc}{$H+}
  4. {$modeswitch prefixedattributes}
  5. type
  6. // Delphi XE does compile attributes that are not defined, but ignores them.
  7. // That's clearly a Delphi-bug, so fpc should fail on the following:
  8. [TMyAttributeDoesNotExist]
  9. TMyObject = class(TObject)
  10. end;
  11. begin
  12. end.