gcc/testsuite/gnat.dg/expr_func3.adb

--  { dg-do compile }

package body Expr_Func3 is

   procedure Dummy is null;

end Expr_Func3;