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