[Patch, Fortran, F03] PR 84409: check DTIO arguments for character len

[Steve Kargl]

On Thu, Feb 15, 2018 at 09:03:55PM +0100, Janus Weil wrote:
> 
> Regtests cleanly on x86_64-linux-gnu. Ok for trunk?
> 

Looks good to me with a question below.

> Index: gcc/fortran/interface.c
> ===================================================================
> --- gcc/fortran/interface.c	(revision 257672)
> +++ gcc/fortran/interface.c	(working copy)
> @@ -4702,6 +4702,10 @@ check_dtio_arg_TKR_intent (gfc_symbol *fsym, bool
>      gfc_error ("DTIO dummy argument at %L must be an "
>  	       "ASSUMED SHAPE ARRAY", &fsym->declared_at);
>  
> +  if (type == BT_CHARACTER && fsym->ts.u.cl->length != NULL)
> +    gfc_error ("DTIO character argument at %L must have assumed length",
> +               &fsym->declared_at);
> +

If the above is a numbered constraint in the Standard,
can you add a comment of the form /* F03:C1111.  */
above the if-statement.

-- 
Steve