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;