gcc/testsuite/gnat.dg/expr_func2.adb

--  { dg-do compile }

package body Expr_Func2 is
   procedure Foo is null;
end Expr_Func2;