diff options
author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 19:37:57 +0000 |
---|---|---|
committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 19:37:57 +0000 |
commit | 938c66a4fa512abc8cbe904459032ecbd2312a0c (patch) | |
tree | acfd4b4044309ea085581d2b862837ffcee8e781 | |
parent | 7a8974f1d376f7d356aa59e75c9ca19f65828965 (diff) | |
download | gcc-938c66a4fa512abc8cbe904459032ecbd2312a0c.tar.gz |
2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/84511
* trans-io.c (transfer_expr): Deal with C_LOC in transfer statement.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-7-branch@257948 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/fortran/trans-io.c | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 44bf8e2a4d5..095d9c38a71 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/84511 + * trans-io.c (transfer_expr): Deal with C_LOC in transfer statement. + +2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/84346 * interface.c (compare_actual_formal): Issue error if keyword is used in a statement function. diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 7bd16d78b3a..ecdecd50f36 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -2277,6 +2277,16 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, ts->kind = gfc_index_integer_kind; } + /* gfortran reaches here for "print *, c_loc(xxx)". */ + if (ts->type == BT_VOID + && code->expr1 && code->expr1->ts.type == BT_VOID + && code->expr1->symtree + && strcmp (code->expr1->symtree->name, "c_loc") == 0) + { + ts->type = BT_INTEGER; + ts->kind = gfc_index_integer_kind; + } + kind = ts->kind; function = NULL; arg2 = NULL; |