testsuite/gnat.dg/expr_func6.adb

--  { dg-do compile }

package body Expr_Func6 is

   procedure Dummy is null;

end Expr_Func6;