1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
{ %fail } {$mode objfpc} type tcl=class procedure m1;popstack; end; procedure tcl.m1; begin end; begin end.