diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2006-12-08 10:45:44 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2006-12-08 10:45:44 +0100 |
| commit | c3240b8d526ba878266751ac05b41f52b2c13840 (patch) | |
| tree | 330a035e936df629acc237e160f4249d88aa366a /gcc/fortran | |
| parent | faf8957192ac3ddff0f34990c0b339ec1fb23560 (diff) | |
| download | gcc-c3240b8d526ba878266751ac05b41f52b2c13840.zip gcc-c3240b8d526ba878266751ac05b41f52b2c13840.tar.gz gcc-c3240b8d526ba878266751ac05b41f52b2c13840.tar.bz2 | |
re PR fortran/27546 (IMPORT is broken)
fortran/
2006-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/27546
* trans-decl.f90 (gfc_create_module_variable): Allow imported symbols
in interface bodys in modules.
testsuite/
2006-12-08 Tobias Burnus <burnus@net-b.de>
PR fortran/27546
* gfortran.dg/import4.f90: New test for IMPORT in modules.
From-SVN: r119651
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 7 |
2 files changed, 6 insertions, 7 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 95ce73f..be404ad 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-12-08 Tobias Burnus <burnus@net-b.de> + + PR fortran/27546 + * trans-decl.f90 (gfc_create_module_variable): Allow imported symbols + in interface bodys in modules. + 2006-12-06 Tobias Burnus <burnus@net-b.de> PR fortran/29711 diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 270083f..67e654c 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2760,13 +2760,6 @@ gfc_create_module_variable (gfc_symbol * sym) if (sym->attr.entry) return; - /* Only output symbols from this module. */ - if (sym->ns != module_namespace) - { - /* I don't think this should ever happen. */ - internal_error ("module symbol %s in wrong namespace", sym->name); - } - /* Only output variables and array valued parameters. */ if (sym->attr.flavor != FL_VARIABLE && (sym->attr.flavor != FL_PARAMETER || sym->attr.dimension == 0)) |