* gcc-interface/trans.c (node_has_volatile_full_access) <N_Identifier>:

[official-gcc.git] / gcc / testsuite / gnat.dg / pack20_pkg.ads

package Pack20_Pkg is

   type String_Ptr is access all String;

   procedure Modify (Fixed : in out String_Ptr);

end Pack20_Pkg;