Fortran: Fix 'fn spec' for deferred character length

Shows now up with gfortran.dg/deferred_type_param_6.f90 due to more ME
optimizations, causing fails without this commit.

gcc/fortran/ChangeLog:

	* trans-types.c (create_fn_spec): For allocatable/pointer
	character(len=:), use 'w' not 'R' as fn spec for the length dummy
	argument.

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index 50fceeb..4277806 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -3014,7 +3014,11 @@ create_fn_spec (gfc_symbol *sym, tree fntype)
        }
       if (sym->ts.type == BT_CHARACTER)
        {
-         spec[spec_len++] = 'R';
+         if (!sym->ts.u.cl->length
+             && (sym->attr.allocatable || sym->attr.pointer))
+           spec[spec_len++] = 'w';
+         else
+           spec[spec_len++] = 'R';
          spec[spec_len++] = ' ';
        }
     }