2 files changed, 8 insertions, 0 deletions
diff --git a/ortho/gcc/ortho_gcc.ads b/ortho/gcc/ortho_gcc.ads
index 6e46b6ddf..0afdc0887 100644
--- a/ortho/gcc/ortho_gcc.ads
+++ b/ortho/gcc/ortho_gcc.ads
@@ -44,6 +44,8 @@ package Ortho_Gcc is
    O_Snode_Null : constant O_Snode;
    O_Tnode_Null : constant O_Tnode;
 
+   --  True if the code generated supports nested subprograms.
+   Has_Nested_Subprograms : constant Boolean;
 
    ------------------------
    --  Type definitions  --
@@ -454,6 +456,9 @@ package Ortho_Gcc is
 
 --  End of common part
 private
+   --  GCC supports nested subprograms.
+   Has_Nested_Subprograms : constant Boolean := True;
+
    pragma Convention (C, O_Storage);
    --   pragma Convention (C, ON_Op_Kind);
 
diff --git a/ortho/gcc/ortho_gcc.private.ads b/ortho/gcc/ortho_gcc.private.ads
index 27526517a..cc2f556f0 100644
--- a/ortho/gcc/ortho_gcc.private.ads
+++ b/ortho/gcc/ortho_gcc.private.ads
@@ -24,6 +24,9 @@ use Ortho_Ident;
 package Ortho_Gcc is
 
 private
+   --  GCC supports nested subprograms.
+   Has_Nested_Subprograms : constant Boolean := True;
+
    pragma Convention (C, O_Storage);
    --   pragma Convention (C, ON_Op_Kind);