1 2 3 4 5 6 7
-- { dg-excess-errors "no code generated" } package Controlled1_Pkg is function Value return Natural; end Controlled1_Pkg;