PR ada/52494

[pf3gnuchains/gcc-fork.git] / gcc / ada / stand.ads

diff --git a/gcc/ada/stand.ads b/gcc/ada/stand.ads
index 40c51d0..d369b40 100644 (file)
--- a/gcc/ada/stand.ads
+++ b/gcc/ada/stand.ads
@@ -313,34 +313,6 @@ package Stand is
    Boolean_Literals : array (Boolean) of Entity_Id;
    --  Entities for the two boolean literals, used by the expander
 
-   --  Standard types which are in ALFA are associated to True
-   Standard_Type_Is_In_ALFA : array (S_Types) of Boolean :=
-     (S_Boolean             => True,
-
-      S_Short_Short_Integer => True,
-      S_Short_Integer       => True,
-      S_Integer             => True,
-      S_Long_Integer        => True,
-      S_Long_Long_Integer   => True,
-
-      S_Natural             => True,
-      S_Positive            => True,
-
-      S_Short_Float         => False,
-      S_Float               => False,
-      S_Long_Float          => False,
-      S_Long_Long_Float     => False,
-
-      S_Character           => False,
-      S_Wide_Character      => False,
-      S_Wide_Wide_Character => False,
-
-      S_String              => False,
-      S_Wide_String         => False,
-      S_Wide_Wide_String    => False,
-
-      S_Duration            => False);
-
    -------------------------------------
    -- Semantic Phase Special Entities --
    -------------------------------------