[Ada] Remove confusing warning on type export

gcc/ada/

	* sem_prag.adb (Set_Exported): Do not warn on exporting a type.

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 6e209d4a3d3144e7465140c532860dac6ebe472e..51928436824cace1b1385948b86af465faf4726c 100644 (file)
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -10934,10 +10934,6 @@ package body Sem_Prag is
             end if;
          end if;
 
-         if Warn_On_Export_Import and then Is_Type (E) then
-            Error_Msg_NE ("exporting a type has no effect?x?", Arg, E);
-         end if;
-
          if Warn_On_Export_Import and Inside_A_Generic then
             Error_Msg_NE
               ("all instances of& will have the same external name?x?",