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 da75178cc296a4fb46a52310e63fcb7464f7da20..88acec982df3e17a2826d02ca00ade5505457512 100644 (file)
--- 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 2ac3dcc372c9f0d638f4af8d8fc05a011cb78b0e..c3e2bf0c5031f83a453d5633a965217dcbaab009 100644 (file)
--- 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;