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