decl.c (gnat_to_gnu_entity): Also set the public flag if the procedure is imported.

	* decl.c (gnat_to_gnu_entity) <E_Procedure>: Also set the public flag
	if the procedure is imported.

From-SVN: r133650

gcc/ada/ChangeLog

+2008-03-27  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* decl.c (gnat_to_gnu_entity) <E_Procedure>: Also set the public flag
+	if the procedure is imported.
+
 2008-03-26  Arnaud Charlet  <charlet@adacore.com>
 
 	* adaint.c: Fix warnings.
@@ -22,8 +27,7 @@
 
 2008-03-26  Thomas Quinot  <quinot@adacore.com>
 
-PR ada/33688
-
+	PR ada/33688
 	* g-socket.ads, g-socket.adb (Options, Set_Socket_Option,
 	Get_Socket_Option): Add support for Receive_Packet_Info.
 

gcc/ada/decl.c

@@ -3550,7 +3550,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
 	tree gnu_ext_name = create_concat_name (gnat_entity, NULL);
 	Entity_Id gnat_param;
 	bool inline_flag = Is_Inlined (gnat_entity);
-	bool public_flag = Is_Public (gnat_entity);
+	bool public_flag = Is_Public (gnat_entity) || imported_p;
 	bool extern_flag
 	  = (Is_Public (gnat_entity) && !definition) || imported_p;
 	bool pure_flag = Is_Pure (gnat_entity);