From 2a6dcee5c345f234b398f55be3dd575f0687341d Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 20 Nov 2006 22:29:32 +0100 Subject: re PR fortran/27546 (IMPORT is broken) fortran/ 2006-11-17 Tobias Burnus PR fortran/27546 * primary.c (gfc_match_rvalue): Added IMPORT support. testsuite/ 2006-11-17 Tobias Burnus PR fortran/27546 * gfortran.dg/import.f90: Extended test. * gfortran.dg/import2.f90: Extended test. From-SVN: r119028 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/primary.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a88071a..4a30d00 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2006-11-20 Tobias Burnus + PR fortran/27546 + * primary.c (gfc_match_rvalue): Added IMPORT support. + +2006-11-20 Tobias Burnus + * symbol.c (check_conflict): Add conflict between VOLATILE attribute and program name. 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); -- cgit v1.1