Fix internal error on function call returning extension of limited interface

[official-gcc.git] / gcc / testsuite / gnat.dg / strub_attr.ads

package Strub_Attr is
   procedure P (X : Integer);
   pragma Machine_Attribute (P, "strub", "internal");

   function F (X : Integer) return Integer;
   pragma Machine_Attribute (F, "strub");

   X : Integer := 0;
   pragma Machine_Attribute (X, "strub");

   function G return Integer;
end Strub_Attr;