gcc-4.9/gcc/testsuite/gnat.dg/weak2.ads


1
2
3
4
5
6
7
8
9

package Weak2 is

   Var : Integer;
   pragma Import (Ada, Var, "var_name");
   pragma Weak_External (Var);

   function F return Integer;

end Weak2;