From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Fri, 5 Nov 2004 14:10:35 +0000 (+0100)
Subject: re PR fortran/15164 (trans-decl.c:411: gfc_finish_var_decl: Assertion failed)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=adf3ed3f3812861d98f00dee10b00287703d88c0;p=gcc.git

re PR fortran/15164 (trans-decl.c:411: gfc_finish_var_decl: Assertion failed)

PR fortran/15164
* trans-decl.c (gfc_finish_var_decl): Don't declare arguments to
module procedures as if they were module variables.

From-SVN: r90125
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index da75178cc29..88acec982df 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-11-05  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	PR fortran/15164
+	* trans-decl.c (gfc_finish_var_decl): Don't declare arguments to
+	module procedures as if they were module variables.
+
 2004-11-03  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	PR fortran/17535
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 2ac3dcc372c..c3e2bf0c503 100644
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -410,9 +410,9 @@ gfc_finish_var_decl (tree decl, gfc_symbol * sym)
       DECL_EXTERNAL (decl) = 1;
       TREE_PUBLIC (decl) = 1;
     }
-  else if (sym->module[0] && !sym->attr.result)
+  else if (sym->module[0] && !sym->attr.result && !sym->attr.dummy)
     {
-      /* TODO: Don't set sym->module for result variables.  */
+      /* TODO: Don't set sym->module for result or dummy variables.  */
       gcc_assert (current_function_decl == NULL_TREE);
       /* This is the declaration of a module variable.  */
       TREE_PUBLIC (decl) = 1;