1-- { dg-do compile } 2 3with Interfaces.C; 4 5procedure Warn15.Core.Main is 6 use type Interfaces.C.unsigned; -- { dg-error "\"C\" not declared in \"Interfaces\"" } 7begin 8 null; 9end Warn15.Core.Main; 10