1 2 3 4 5 6 7
-- { dg-do compile } package body Expr_Func6 is procedure Dummy is null; end Expr_Func6;