1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c
index 83907b9..8d541e4 100644
--- a/gcc/ada/misc.c
+++ b/gcc/ada/misc.c
@@ -544,6 +544,13 @@ gnat_expand_expr (tree exp, rtx target, enum machine_mode tmode, int modifier)
   tree new;
   rtx result;
 
+  /* If this is a statement, call the expansion routine for statements.  */
+  if (IS_STMT (exp))
+    {
+      gnat_expand_stmt (exp);
+      return const0_rtx;
+    }
+
   /* Update EXP to be the new expression to expand.  */
   switch (TREE_CODE (exp))
     {