1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index e1440f2ead6..c9de061ec58 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -5352,6 +5352,10 @@ package body Exp_Ch4 is
          loop
             if Nkind (Par) = N_Procedure_Call_Statement then
                return True;
+
+            elsif Nkind (Par) = N_Function_Call then
+               return False;
+
             else
                Par := Parent (Par);
             end if;