ada: Fix internal error on loop iterator filter with -gnatVa

[thirdparty/gcc.git] / gcc / ada / exp_ch5.adb

diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index a4c7db9f365e9af0cbd24a3fcac03b4d0608f9e4..258459b393dc1f6a15806689569cb2f12d9cf79f 100644 (file)
--- a/gcc/ada/exp_ch5.adb
+++ b/gcc/ada/exp_ch5.adb
@@ -5678,6 +5678,7 @@ package body Exp_Ch5 is
                   New_List (Make_If_Statement (Loc,
                     Condition => Iterator_Filter (LPS),
                     Then_Statements => Stats)));
+               Analyze_List (Statements (N));
             end if;
 
             --  Deal with loop over predicates