summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/thin_pointer2_pkg.ads
blob: f6752b0d726df93a446019fd34f0eec3cd6c54ec (plain)
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;