From 993ef28f827140e0df07c81ff2b03e14059b052d Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sat, 9 Dec 2006 21:13:29 +0000 Subject: re PR other/29975 ([meta-bugs] ICEs with CP2K) 2006-12-09 Paul Thomas PR fortran/29975 PR fortran/30068 PR fortran/30096 * interface.c (compare_type_rank_if): Reject invalid generic interfaces. (check_interface1): Give a warning for nonreferred to ambiguous interfaces. (check_sym_interfaces): Check whether an ambiguous interface is referred to. Do not check host associated interfaces since these cannot be ambiguous with the local versions. (check_uop_interface, gfc_check_interfaces): Update call to check_interface1. * symbol.c (gfc_get_sym_tree, gfc_get_sym_tree): Allow adding unambiguous procedures to generic interfaces. * gfortran.h (symbol_attribute): Added use_only and ambiguous_interfaces. * module.c (load_need): Set the use_only flag, if needed. * resolve.c (resolve_fl_procedure): Warn for nonreferred interfaces. * expr.c (find_array_section): Fix initializer array contructor. 2006-12-09 Paul Thomas Tobias Burnus PR fortran/29975 PR fortran/30068 * gfortran.dg/interface_4.f90: Test adding procedure to generic interface. * gfortran.dg/interface_5.f90: Test warning for not-referenced-to ambiguous interfaces. * gfortran.dg/interface_6.f90: Test invalid, ambiguous interface. * gfortran.dg/interface_7.f90: Test invalid, ambiguous interface. * gfortran.dg/interface_8.f90: Test warning for not-referenced-to ambiguous interfaces. * gfortran.dg/interface_1.f90: Change dg-error into a dg-warning. * gfortran.dg/array_initializer_2.f90: Add initializer array constructor test. PR fortran/30096 * gfortran.dg/interface_9.f90: Test that host interfaces are not checked for ambiguity with the local version. Co-Authored-By: Tobias Burnus From-SVN: r119697 --- gcc/fortran/module.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/fortran/module.c') diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 7c9c2b1..ca4e091 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3228,6 +3228,8 @@ load_needed (pointer_info * p) mio_symbol (sym); sym->attr.use_assoc = 1; + if (only_flag) + sym->attr.use_only = 1; return 1; } -- cgit v1.1