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