gcc-4.9/gcc/testsuite/gnat.dg/specs/weak1.ads


1
2
3
4
5
6
7

package Weak1 is

   Myconst : constant Integer := 1234;
   pragma Export (C, Myconst, "myconst");
   pragma Weak_External (Myconst);

end Weak1;