blob: ab494a082f9a05b3720eaaf1f047efc843e0ec95 [file] [log] [blame]
-- { dg-do compile }
package body Weak3 is
type T is new Integer;
pragma Weak_External (T); -- { dg-error "pragma applies to objects and subprograms" }
X : T;
procedure Foo is null;
end Weak3;