1--  { dg-do compile }
2
3with Discr54_Pkg;
4pragma Unreferenced (Discr54_Pkg);
5
6procedure Discr54 is
7begin
8   null;
9end Discr54;
10