From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Fri, 23 Feb 2018 19:42:43 +0000 (+0000)
Subject: re PR fortran/84511 (Internal compiler error from directly printing return of C_LOC)
X-Git-Tag: releases/gcc-6.5.0~507
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3414ac756adff4fd0a59b4e6c3312510c6aaab37;p=thirdparty%2Fgcc.git

re PR fortran/84511 (Internal compiler error from directly printing return of C_LOC)

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.

From-SVN: r257950
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0d948e400090..8689c7d23a8c 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index 125f45ceb2ac..ed3a9b19517c 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -2104,6 +2104,16 @@ transfer_expr (gfc_se * se, gfc_typespec * ts, tree addr_expr, gfc_code * code)
       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;