diff options
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 028ca93cad0..a5ad6749cb1 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -1090,7 +1090,7 @@ gfc_trans_omp_udr_expr (gfc_omp_namelist *n, bool is_initializer, /* Enable loop reversal. */ for (i = 0; i < GFC_MAX_DIMENSIONS; i++) loop.reverse[i] = GFC_ENABLE_REVERSE; - gfc_conv_loop_setup (&loop, &ns->code->loc); + gfc_conv_loop_setup (&loop, &ns->code->loc, &syme->ts); gfc_copy_loopinfo_to_se (&symse, &loop); gfc_copy_loopinfo_to_se (&outerse, &loop); symse.ss = symss; |