1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index ad5e00494e4..7520856e392 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -9853,12 +9853,6 @@ package body Sem_Prag is
          when Pragma_Allow_Integer_Address =>
             GNAT_Pragma;
             Check_Arg_Count (0);
-
-            if not Is_Private_Type (RTE (RE_Address)) then
-               Error_Pragma
-                 ("pragma% allowed only if Address is a private type");
-            end if;
-
             Opt.Allow_Integer_Address := True;
 
          --------------