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