{ %OPT=-vw -Sew } unit tgenfunc16; interface generic procedure Test; generic procedure Foo; implementation generic procedure Test; begin end; generic procedure Foo; begin end; end.