@@ -24169,7 +24169,7 @@ package body Sem_Prag is
Error_Pragma_Arg
("argument of pragma% cannot be an incomplete type", Arg1);
else
- Set_Suppress_Initialization (Full_View (Base_Type (E)));
+ Set_Suppress_Initialization (Full_View (E));
end if;
-- For first subtype, set flag on base type
new file mode 100644
@@ -0,0 +1,5 @@
+package body Suppress_Initialization2 is
+
+ procedure Dummy is null;
+
+end Suppress_Initialization2;
new file mode 100644
@@ -0,0 +1,13 @@
+pragma Initialize_Scalars;
+
+with System;
+
+package Suppress_Initialization2 is
+
+ subtype Sub_Addr is System.Address with Suppress_Initialization;
+
+ O : Sub_Addr with Thread_Local_Storage; -- OK: no error should be reported
+
+ procedure Dummy;
+
+end Suppress_Initialization2;