This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [patch, fortran] PR46301 [4.6 Regression] Missing diagnosis for "len=:"


On Sat, Nov 27, 2010 at 11:29 PM, Jerry DeLisle <jvdelisle@frontier.com> wrote:
> Committed as obvious as well as discussed with Tobias on IRC. ?Regression
> tested on x86-64-Gnu-Linux,
>
> Committed revision 167212.

For not implemented functionality GCC generally uses sorry ()
(I see one use in fortran/ but no gfc_sorry).

Richard.

> Regards,
>
> Jerry
>
> 2010-11-27 ?Jerry DeLisle ?<jvdelisle@gcc.gnu.org>
>
> ? ? ? ?PR fortran/46301
> ? ? ? ?trans-expr.c (gfc_trans_assignment): Add error message for not
> ? ? ? ?implemented assignment to deferred-length character variable.
>
>
> --- trunk/gcc/fortran/trans-expr.c ? ? ?2010/11/27 21:27:49 ? ? 167211
> +++ trunk/gcc/fortran/trans-expr.c ? ? ?2010/11/27 22:12:46 ? ? 167212
> @@ -5806,6 +5806,13 @@
> ? ? ? ? ? ? ? ? ? ? ?bool dealloc)
> ?{
> ? tree tmp;
> +
> + ?if (expr1->ts.type == BT_CHARACTER && expr1->ts.deferred)
> + ? ?{
> + ? ? ?gfc_error ("Assignment to deferred-length character variable at %L "
> + ? ? ? ? ? ? ? ?"not implemented", &expr1->where);
> + ? ? ?return NULL_TREE;
> + ? ?}
>
> ? /* Special case a single function returning an array. ?*/
> ? if (expr2->expr_type == EXPR_FUNCTION && expr2->rank > 0)
>


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]