vec: add exact argument for various grow functions.

[thirdparty/gcc.git] / gcc / fortran / trans-openmp.c

diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c
index 063d4c145e20f0ad022eb17f5ce771d4c3cf20f9..7d3365fe7e0045aa1ce68d66a002f34b848e7758 100644 (file)
--- a/gcc/fortran/trans-openmp.c
+++ b/gcc/fortran/trans-openmp.c
@@ -4480,7 +4480,7 @@ gfc_trans_omp_do (gfc_code *code, gfc_exec_op op, stmtblock_t *pblock,
          if (clauses->orderedc)
            {
              if (doacross_steps == NULL)
-               vec_safe_grow_cleared (doacross_steps, clauses->orderedc);
+               vec_safe_grow_cleared (doacross_steps, clauses->orderedc, true);
              (*doacross_steps)[i] = step;
            }
        }