diff options
| author | Tobias Burnus <burnus@net-b.de> | 2006-11-20 22:29:32 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2006-11-20 22:29:32 +0100 |
| commit | 2a6dcee5c345f234b398f55be3dd575f0687341d (patch) | |
| tree | f82930f7c37519031c5982002c76e6c35c67cd0a /gcc/fortran/primary.c | |
| parent | 02022f3a706d462cdb2da30e2d8cfd79901d78ab (diff) | |
| download | gcc-2a6dcee5c345f234b398f55be3dd575f0687341d.zip gcc-2a6dcee5c345f234b398f55be3dd575f0687341d.tar.gz gcc-2a6dcee5c345f234b398f55be3dd575f0687341d.tar.bz2 | |
re PR fortran/27546 (IMPORT is broken)
fortran/
2006-11-17 Tobias Burnus <burnus@net-b.de>
PR fortran/27546
* primary.c (gfc_match_rvalue): Added IMPORT support.
testsuite/
2006-11-17 Tobias Burnus <burnus@net-b.de>
PR fortran/27546
* gfortran.dg/import.f90: Extended test.
* gfortran.dg/import2.f90: Extended test.
From-SVN: r119028
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 1b918b3..2c34072 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1917,7 +1917,8 @@ gfc_match_rvalue (gfc_expr ** result) if (m != MATCH_YES) return m; - if (gfc_find_state (COMP_INTERFACE) == SUCCESS) + if (gfc_find_state (COMP_INTERFACE) == SUCCESS + && !gfc_current_ns->has_import_set) i = gfc_get_sym_tree (name, NULL, &symtree); else i = gfc_get_ha_sym_tree (name, &symtree); |