git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

resolve.c (resolve_transfer): Mention defined I/O in the diagnostic for alloc_comp/pointer_comp. 

2011-07-18  Tobias Burnus  <burnus@net-b.de>

        * resolve.c (resolve_transfer): Mention defined I/O
        in the diagnostic for alloc_comp/pointer_comp.

From-SVN: r176386
This commit is contained in:
Tobias Burnus 2011-07-18 08:48:19 +02:00 committed by Tobias Burnus
parent 25fe407a21
commit d8155bf5e5
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2011-07-18 Tobias Burnus <burnus@net-b.de>
* resolve.c (resolve_transfer): Mention defined I/O
in the diagnostic for alloc_comp/pointer_comp.
2011-07-17 Tobias Burnus <burnus@net-b.de> 2011-07-17 Tobias Burnus <burnus@net-b.de>
PR fortran/34657 PR fortran/34657

12
gcc/fortran/resolve.c
View File

@ -5219,7 +5219,7 @@ check_host_association (gfc_expr *e)
{ {
/* Original was variable so convert array references into /* Original was variable so convert array references into
an actual arglist. This does not need any checking now an actual arglist. This does not need any checking now
since gfc_resolve_function will take care of it. */ since resolve_function will take care of it. */
e->value.function.actual = NULL; e->value.function.actual = NULL;
e->expr_type = EXPR_FUNCTION; e->expr_type = EXPR_FUNCTION;
e->symtree = st; e->symtree = st;
@ -8139,8 +8139,9 @@ resolve_transfer (gfc_code *code)
components. */ components. */
if (ts->u.derived->attr.pointer_comp) if (ts->u.derived->attr.pointer_comp)
{ {
gfc_error ("Data transfer element at %L cannot have " gfc_error ("Data transfer element at %L cannot have POINTER "
"POINTER components", &code->loc); "components unless it is processed by a defined "
"input/output procedure", &code->loc);
return; return;
} }
@ -8154,8 +8155,9 @@ resolve_transfer (gfc_code *code)
if (ts->u.derived->attr.alloc_comp) if (ts->u.derived->attr.alloc_comp)
{ {
gfc_error ("Data transfer element at %L cannot have " gfc_error ("Data transfer element at %L cannot have ALLOCATABLE "
"ALLOCATABLE components", &code->loc); "components unless it is processed by a defined "
"input/output procedure", &code->loc);
return; return;
} }