mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-16 11:10:09 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Tobias Schlüter 2004-11-05 15:10:35 +01:00 committed by Tobias Schlüter
parent c7a35fe9f3
commit adf3ed3f38
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

4
gcc/fortran/trans-decl.c
View File

@ -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;