1package Weak2 is
2
3   Var : Integer;
4   pragma Import (Ada, Var, "var_name");
5   pragma Weak_External (Var);
6
7   function F return Integer;
8
9end Weak2;
10