[PATCH,FORTRAN 27/29] Use stringpool for OMP clause reduction code

[Bernhard Reutner-Fischer]

From: Bernhard Reutner-Fischer <aldot@gcc.gnu.org>

gcc/fortran/ChangeLog:

2017-12-12  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>

	* trans-openmp.c (gfc_trans_omp_array_reduction_or_udr): Use
	stringpool for clause reduction code.
---
 gcc/fortran/trans-openmp.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c
index f038f4c5bf8..c8d7e0a409d 100644
--- a/gcc/fortran/trans-openmp.c
+++ b/gcc/fortran/trans-openmp.c
@@ -1616,6 +1616,7 @@ gfc_trans_omp_array_reduction_or_udr (tree c, gfc_omp_namelist *n, locus where)
     }
   if (iname != NULL)
     {
+      iname = gfc_get_string ("%s", iname);
       memset (&intrinsic_sym, 0, sizeof (intrinsic_sym));
       intrinsic_sym.ns = sym->ns;
       intrinsic_sym.name = iname;
-- 
2.19.0.rc1