From 714495cdcf2425b6aa9f3eac6bd010f3030ddd41 Mon Sep 17 00:00:00 2001
From: Jakub Jelinek <jakub@redhat.com>
Date: Fri, 29 Aug 2008 20:47:19 +0200
Subject: re PR fortran/24790 (arguments are displayed as reference or pointer
 to normal type in GDB)

	PR fortran/24790
	* trans-decl.c (create_function_arglist): Set DECL_BY_REFERENCE on
	PARM_DECLs with pointer or reference type.

From-SVN: r139777
---
 gcc/fortran/trans-decl.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'gcc/fortran/trans-decl.c')

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 54a1aa0..bf038f7 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -1644,6 +1644,10 @@ create_function_arglist (gfc_symbol * sym)
       DECL_ARG_TYPE (parm) = TREE_VALUE (typelist);
       /* All implementation args are read-only.  */
       TREE_READONLY (parm) = 1;
+      if (POINTER_TYPE_P (type)
+	  && (!f->sym->attr.proc_pointer
+	      && f->sym->attr.flavor != FL_PROCEDURE))
+	DECL_BY_REFERENCE (parm) = 1;
 
       gfc_finish_decl (parm);
 
-- 
cgit v1.1