diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-06-11 06:02:06 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-06-11 06:02:06 +0000 |
| commit | c49dc07089aa5e8cc397b4090ad63f967ba5664d (patch) | |
| tree | 915e6061d00e1d9c99f4c0b38ba74acd7fe37a49 /gcc | |
| parent | 318087e2a82f232b479a1bc98d758d768b5c85d4 (diff) | |
| download | gcc-c49dc07089aa5e8cc397b4090ad63f967ba5664d.tar.gz | |
2014-06-11 Tobias Burnus <burnus@net-b.de>
* trans-openmp.c (gfc_trans_omp_udr_expr):
Fix merge fallout.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/fortran-dev@211435 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc')
| -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; |