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


1
2
3
4
5
6
7
8
9

package Thin_Pointer2_Pkg is

   type SA is access String;
   for SA'Size use Standard'Address_Size;
   S : SA;

   function F return Character;

end Thin_Pointer2_Pkg;