re PR fortran/46301 (Missing diagnosis for "len=:")
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. From-SVN: r167212
This commit is contained in:
parent
db0bba8ca8
commit
d1ae7fe355
@ -1,3 +1,9 @@
|
||||
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.
|
||||
|
||||
2010-11-26 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
PR bootstrap/45700
|
||||
|
@ -5806,6 +5806,13 @@ gfc_trans_assignment (gfc_expr * expr1, gfc_expr * expr2, bool init_flag,
|
||||
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)
|
||||
|
Loading…
Reference in New Issue
Block a user