gcc/fortran/ChangeLog

   1 2009-05-13  Tobias Burnus  <burnus@net-b.de>
   2
   3         PR fortran/34153
   4         * gfortran.h (gfc_exec_op): Add EXEC_END_PROCEDURE.
   5         * dump-parse-tree.c (show_code_node): Use EXEC_END_PROCEDURE.
   6         * trans.c (gfc_trans_code): Ditto.
   7         * resolve.c (resolve_code): Ditto.
   8         * st.c (gfc_free_statement): Ditto.
   9         * parse.c (accept_statement): Ditto.
  10
  11 2009-05-12  Tobias Burnus  <burnus@net-b.de>
  12
  13         PR fortran/40110
  14         * decl.c (gfc_match_kind_spec): Turn C kind error into a warning.
  15
  16 2009-05-11  Steve Ellcey  <sje@cup.hp.com>
  17
  18         * resolve.c (check_host_association): Initialize tail.
  19
  20 2009-05-11  Janus Weil  <janus@gcc.gnu.org>
  21
  22         PR fortran/40089
  23         * resolve.c (resolve_fl_derived): Only return FAILURE if
  24         gfc_notify_std fails.
  25
  26 2009-05-10  Ian Lance Taylor  <iant@google.com>
  27
  28         * gfortran.h (enum gfc_omp_sched_kind): New enum, broken out of
  29         gfc_omp_clauses.
  30         (enum gfc_omp_default_sharing): Likewise.
  31         * module.c (enum gfc_rsym_state): New enum, broken out of
  32         pointer_info.
  33         (enum gfc_wsym_state): Likewise.
  34         * parse.c (enum state_order): New enum, broken out of st_state.
  35
  36 2009-05-10  Paul Thomas  <pault@gcc.gnu.org>
  37
  38         PR fortran/40018
  39         * trans-array.c (gfc_trans_array_constructor_value): Fold
  40         convert numeric constants.
  41         (gfc_build_constant_array_constructor): The same.
  42
  43 2009-05-10  Paul Thomas  <pault@gcc.gnu.org>
  44
  45         PR fortran/38863
  46         * trans-expr.c (gfc_conv_operator_assign): Remove function.
  47         * trans.h : Remove prototype for gfc_conv_operator_assign.
  48         * trans-stmt.c (gfc_conv_elemental_dependencies): Initialize
  49         derivde types with intent(out).
  50         (gfc_trans_call): Add mask, count1 and invert arguments. Add
  51         code to use mask for WHERE assignments.
  52         (gfc_trans_forall_1): Use new arguments for gfc_trans_call.
  53         (gfc_trans_where_assign): The gfc_symbol argument is replaced
  54         by the corresponding code. If this has a resolved_sym, then
  55         gfc_trans_call is called. The call to gfc_conv_operator_assign
  56         is removed.
  57         (gfc_trans_where_2): Change the last argument in the call to
  58         gfc_trans_where_assign.
  59         * trans-stmt.h : Modify prototype for gfc_trans_call.
  60         * trans.c (gfc_trans_code): Use new args for gfc_trans_call.
  61
  62 2009-05-08  Janus Weil  <janus@gcc.gnu.org>
  63
  64         PR fortran/39876
  65         * intrinsic.c (gfc_is_intrinsic): Do not add the EXTERNAL attribute if
  66         the symbol is a module procedure.
  67
  68 2009-05-08  Tobias Burnus  <burnus@net-b.de>
  69
  70         * invoke.texi: Add do/recursion to the -fcheck= summary.
  71
  72 2009-05-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
  73
  74         PR fortran/38830
  75         * gfortran.texi: Document that we don't support variable FORMAT
  76         expressions.
  77
  78 2009-05-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
  79
  80         PR fortran/39576
  81         * error.c (error_print): Add missing break statement.
  82
  83 2009-05-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
  84
  85         PR fortran/36382
  86         * invoke.texi: Document that -fdollar-ok does not allow $ to be
  87         used in IMPLICIT statement.
  88
  89 2009-05-06  Janus Weil  <janus@gcc.gnu.org>
  90             Paul Thomas  <pault@gcc.gnu.org>
  91
  92         PR fortran/39630
  93         * decl.c (match_procedure_interface): New function to match the
  94         interface for a PROCEDURE statement.
  95         (match_procedure_decl): Call match_procedure_interface.
  96         (match_ppc_decl): New function to match the declaration of a
  97         procedure pointer component.
  98         (gfc_match_procedure):  Call match_ppc_decl.
  99         (match_binding_attributes): Add new argument 'ppc' and handle the
 100         POINTER attribute for procedure pointer components.
 101         (match_procedure_in_type,gfc_match_generic): Added new argument to
 102         match_binding_attributes.
 103         * dump-parse-tree.c (show_expr,show_components,show_code_node): Handle
 104         procedure pointer components.
 105         * expr.c (free_expr0,gfc_copy_expr,gfc_simplify_expr): Handle EXPR_PPC.
 106         (gfc_check_pointer_assign): Handle procedure pointer components, but no
 107         full checking yet.
 108         (is_proc_ptr_comp): New function to determine if an expression is a
 109         procedure pointer component.
 110         * gfortran.h (expr_t): Add EXPR_PPC.
 111         (symbol_attribute): Add new member 'proc_pointer_comp'.
 112         (gfc_component): Add new member 'formal'.
 113         (gfc_exec_op): Add EXEC_CALL_PPC.
 114         (gfc_get_default_type): Changed first argument.
 115         (is_proc_ptr_comp): Add prototype.
 116         (gfc_match_varspec): Add new argument.
 117         * interface.c (compare_actual_formal): Handle procedure pointer
 118         components.
 119         * match.c (gfc_match_pointer_assignment,match_typebound_call): Handle
 120         procedure pointer components.
 121         * module.c (mio_expr): Handle EXPR_PPC.
 122         * parse.c (parse_derived): Handle procedure pointer components.
 123         * primary.c (gfc_match_varspec): Add new argument 'ppc_arg' and handle
 124         procedure pointer components.
 125         (gfc_variable_attr): Handle procedure pointer components.
 126         (gfc_match_rvalue): Added new argument to gfc_match_varspec and changed
 127         first argument of gfc_get_default_type.
 128         (match_variable): Added new argument to gfc_match_varspec.
 129         * resolve.c (resolve_entries,set_type,resolve_fl_parameter): Changed
 130         first argument of gfc_get_default_type.
 131         (resolve_structure_cons,resolve_actual_arglist): Handle procedure
 132         pointer components.
 133         (resolve_ppc_call): New function to resolve a call to a procedure
 134         pointer component (subroutine).
 135         (resolve_expr_ppc): New function to resolve a call to a procedure
 136         pointer component (function).
 137         (gfc_resolve_expr): Handle EXPR_PPC.
 138         (resolve_code): Handle EXEC_CALL_PPC.
 139         (resolve_fl_derived): Copy the interface for a procedure pointer
 140         component.
 141         (resolve_symbol): Fix overlong line.
 142         * st.c (gfc_free_statement): Handle EXEC_CALL_PPC.
 143         * symbol.c (gfc_get_default_type): Changed first argument.
 144         (gfc_set_default_type): Changed first argument of gfc_get_default_type.
 145         (gfc_add_component): Initialize ts.type to BT_UNKNOWN.
 146         * trans.h (gfc_conv_function_call): Renamed.
 147         * trans.c (gfc_trans_code): Handle EXEC_CALL_PPC.
 148         * trans-expr.c (gfc_conv_component_ref): Ditto.
 149         (gfc_conv_function_val): Rename to 'conv_function_val', add new
 150         argument 'expr' and handle procedure pointer components.
 151         (gfc_conv_operator_assign): Renamed gfc_conv_function_val.
 152         (gfc_apply_interface_mapping_to_expr): Handle EXPR_PPC.
 153         (gfc_conv_function_call): Rename to 'gfc_conv_procedure_call', add new
 154         argument 'expr' and handle procedure pointer components.
 155         (gfc_get_proc_ptr_comp): New function to get the backend decl for a
 156         procedure pointer component.
 157         (gfc_conv_function_expr): Renamed gfc_conv_function_call.
 158         (gfc_conv_structure): Handle procedure pointer components.
 159         * trans-intrinsic.c (gfc_conv_intrinsic_funcall,
 160         conv_generic_with_optional_char_arg): Renamed gfc_conv_function_call.
 161         * trans-stmt.h (gfc_get_proc_ptr_comp): Add prototype.
 162         * trans-stmt.c (gfc_trans_call): Renamed gfc_conv_function_call.
 163         * trans-types.h (gfc_get_ppc_type): Add prototype.
 164         * trans-types.c (gfc_get_ppc_type): New function to build a tree node
 165         for a procedure pointer component.
 166         (gfc_get_derived_type): Handle procedure pointer components.
 167
 168 2009-05-06  Tobias Burnus  <burnus@net-b.de>
 169
 170         PR fortran/40041
 171         * resolve.c (resolve_symbol): Print no warning for implicitly
 172         typed intrinsic functions.
 173
 174 2009-05-05  Janus Weil  <janus@gcc.gnu.org>
 175
 176         PR fortran/39998
 177         * expr.c (gfc_check_pointer_assign): Check for statement functions and
 178         internal procedures in procedure pointer assignments.
 179
 180 2009-04-28  Janus Weil  <janus@gcc.gnu.org>
 181
 182         PR fortran/39946
 183         * resolve.c (resolve_symbol): Correctly copy the interface of a
 184         PROCEDURE statement if the interface involves a RESULT variable.
 185
 186 2009-04-28  Janus Weil  <janus@gcc.gnu.org>
 187
 188         PR fortran/39930
 189         PR fortran/39931
 190         * expr.c (gfc_check_pointer_assign): Correctly detect if the left hand
 191         side is a pointer.
 192         * parse.c (gfc_fixup_sibling_symbols): Don't check for ambiguity.
 193
 194 2009-04-28  Paul Thomas  <pault@gcc.gnu.org>
 195
 196         PR fortran/39879
 197         * trans_expr.c (gfc_conv_procedure_call): Deep copy a derived
 198         type parentheses argument if it is a variable with allocatable
 199         components.
 200
 201 2009-04-27  Ian Lance Taylor  <iant@google.com>
 202
 203         * trans-intrinsic.c (DEFINE_MATH_BUILTIN): Add casts to enum
 204         type.
 205         * trans-io.c (st_parameter_field): Add casts to enum type.
 206
 207 2009-04-26  Steven G. Kargl  <kargl@gcc.gnu.org>
 208
 209         PR fortran/39893
 210         fortran/data.c (gfc_assign_data_value): If the lvalue is an
 211         assumed character length entity in a data statement, then
 212         return FAILURE to prevent segmentation fault.
 213
 214 2009-04-26  Jakub Jelinek  <jakub@redhat.com>
 215
 216         * trans-decl.c: Include pointer-set.h.
 217         (nonlocal_dummy_decl_pset, tree nonlocal_dummy_decls): New variables.
 218         (gfc_nonlocal_dummy_array_decl): New function.
 219         (gfc_get_symbol_decl): Call it for non-local dummy args with saved
 220         descriptor.
 221         (gfc_get_symbol_decl): Set DECL_BY_REFERENCE when needed.
 222         (gfc_generate_function_code): Initialize nonlocal_dummy_decl{s,_pset},
 223         chain it to outermost block's vars, destroy it afterwards.
 224         * Make-lang.in (trans-decl.o): Depend on pointer-set.h.
 225
 226 2009-04-25  Janus Weil  <janus@gcc.gnu.org>
 227
 228         PR fortran/39688
 229         * decl.c (gfc_match_import): Use 'sym->name' instead of 'name'.
 230         They differ if the symbol has been use-renamed.
 231
 232 2009-04-24  Ian Lance Taylor  <iant@google.com>
 233
 234         * gfortran.h (enum gfc_symbol_type): New named enum type, broken
 235         out of struct gfc_symbol.
 236         (struct gfc_symbol): Use enum gfc_symbol_type.
 237         (enum gfc_array_ref_dimen_type): New named enum type, broken out
 238         of struct gfc_array_ref).
 239         (struct gfc_array_ref): Use enum gfc_array_ref_dimen_type.
 240         (mod_pointee_as): Update declaration.
 241         * decl.c (add_global_entry): Change type to enum gfc_symbol_type.
 242         (gfc_mod_pointee_as): Change return type to "match".
 243         * module.c (mio_array_ref): Add cast to enum type.
 244         (mio_symbol): Likewise.
 245         * resolve.c (resolve_global_procedure): Change type to enum
 246         gfc_symbol_type.
 247         * trans-io.c (gfc_build_st_parameter): Change type to unsigned
 248         int.
 249
 250 2009-04-24  Daniel Kraft  <d@domob.eu>
 251
 252         * gfortran.h (gfc_get_typebound_proc): Removed as macro, now a function.
 253         (struct gfc_symtree): Moved `typebound' member inside union.
 254         (struct gfc_namespace): Add `tb_sym_root' as new symtree to sort out
 255         type-bound procedures there.
 256         (gfc_get_tbp_symtree): New procedure.
 257         * symbol.c (tentative_tbp_list): New global.
 258         (gfc_get_namespace): NULL new `tb_sym_root' member.
 259         (gfc_new_symtree): Removed initialization of `typebound' member.
 260         (gfc_undo_symbols): Process list of tentative tbp's.
 261         (gfc_commit_symbols): Ditto.
 262         (free_tb_tree): New method.
 263         (gfc_free_namespace): Call it.
 264         (gfc_get_typebound_proc): New method.
 265         (gfc_get_tbp_symtree): New method.
 266         (gfc_find_typebound_proc): Adapt to structural changes of gfc_symtree
 267         and gfc_namespace with regards to tbp's.
 268         * dump-parse-tree.c (show_typebound): Ditto.
 269         * primary.c (gfc_match_varspec): Ditto.  Don't reference tbp-symbol
 270         as it isn't a symbol any longer.
 271         * module.c (mio_typebound_symtree): Adapt to changes.
 272         (mio_typebound_proc): Ditto, create symtrees using `gfc_get_tbp_symtree'
 273         rather than `gfc_get_sym_tree'.
 274         (mio_f2k_derived): Ditto.
 275         * decl.c (match_procedure_in_type): Ditto.
 276         (gfc_match_generic): Ditto.  Don't reference tbp-symbol.
 277         * resolve.c (check_typebound_override): Adapt to changes.
 278         (resolve_typebound_generic): Ditto.
 279         (resolve_typebound_procedures): Ditto.
 280         (ensure_not_abstract_walker): Ditto.
 281         (ensure_not_abstract): Ditto.
 282         (resolve_typebound_procedure): Ditto, ignore erraneous symbols (for
 283         instance, through removed tentative ones).
 284         * gfc-internals.texi (Type-bound procedures): Document changes.
 285
 286 2009-04-24  Janus Weil  <janus@gcc.gnu.org>
 287
 288         PR fortran/39861
 289         PR fortran/39864
 290         * symbol.c (gfc_copy_formal_args_intr): Set attr.flavor and attr.dummy
 291         for the formal arguments.
 292
 293 2009-04-21  Taras Glek <tglek@mozilla.com>
 294
 295         * f95-lang.c: Update GTY annotations to new syntax.
 296         * trans-intrinsic.c: Likewise.
 297         * trans-io.c: Likewise.
 298         * trans.h: Likewise.
 299
 300 2009-04-22  Janus Weil  <janus@gcc.gnu.org>
 301
 302         PR fortran/39735
 303         * decl.c (add_hidden_procptr_result): Bugfix for procptr results.
 304         (match_procedure_decl): Set if_source.
 305         * expr.c (gfc_check_pointer_assign): Bugfix: Return after error.
 306         And: Check interface also for IFSRC_UNKNOWN (return type may be known).
 307         * gfortran.h (typedef enum ifsrc): Remove IFSRC_USAGE,
 308         add documentation. Rename copy_formal_args and copy_formal_args_intr.
 309         * interface.c (gfc_compare_interfaces): Check for return types,
 310         handle IFSRC_UNKNOWN.
 311         (compare_intr_interfaces,compare_actual_formal_intr): Obsolete, removed.
 312         (gfc_procedure_use): Modified handling of intrinsics.
 313         * intrinsic.c (add_functions): Bugfix for "dim".
 314         * resolve.c (resolve_intrinsic): New function to resolve intrinsics,
 315         which copies the interface from isym to sym.
 316         (resolve_procedure_expression,resolve_function): Use new function
 317         'resolve_intrinsic'.
 318         (resolve_symbol): Add function attribute for externals with return type
 319         and use new function 'resolve_intrinsic'.
 320         * symbol.c (ifsrc_types): Remove string for IFSRC_USAGE.
 321         (copy_formal_args): Renamed to gfc_copy_formal_args.
 322         (copy_formal_args_intr): Renamed to gfc_copy_formal_args_intr.
 323         * trans-const.c (gfc_conv_const_charlen): Handle cl==NULL.
 324
 325 2009-04-21  Joseph Myers  <joseph@codesourcery.com>
 326
 327         * ChangeLog, ChangeLog-2002, ChangeLog-2003, ChangeLog-2004,
 328         ChangeLog-2005, ChangeLog-2006, ChangeLog-2007, ChangeLog-2008,
 329         ChangeLog.ptr, config-lang.in, ioparm.def, mathbuiltins.def: Add
 330         copyright and license notices.
 331         * ChangeLog, ChangeLog-2005, ChangeLog-2006, ChangeLog-2007,
 332         ChangeLog-2008: Correct dates.
 333
 334 2009-04-20  Tobias Burnus  <burnus@net-b.de>
 335
 336         PR fortran/39811
 337         * scanner.c (load_line): Fix bogus "&" compile-time diagnostic.
 338
 339 2009-04-20  Paul Thomas  <pault@gcc.gnu.org>
 340
 341         PR fortran/39800
 342         * resolve.c (is_sym_host_assoc): New function.
 343         (resolve_fl_derived): Call it when checking PRIVATE components
 344         of PUBLIC derived types.  Change gfc_error to a gfc_notify_std
 345         with std=f2003.
 346         (resolve_fl_namelist): Call it twice to check for host
 347         association.
 348
 349 2009-04-20  Ian Lance Taylor  <iant@google.com>
 350
 351         * module.c (import_iso_c_binding_module): Add casts to enum type.
 352         * trans-intrinsic.c (gfc_conv_intrinsic_minmax): Change op to enum
 353         tree_code.
 354         (gfc_conv_intrinsic_anyall): Likewise.
 355         (gfc_conv_intrinsic_arith): Likewise.
 356         (gfc_conv_intrinsic_minmaxloc): Likewise.
 357         (gfc_conv_intrinsic_minmaxval): Likewise.
 358         (gfc_conv_intrinsic_bitop): Likewise.
 359         (gfc_conv_intrinsic_singlebitop): Likewise.
 360         (gfc_conv_intrinsic_strcmp): Likewise.
 361
 362 2009-04-20  Vasilis Liaskovitis  <vliaskov@gmail.com>
 363             Jakub Jelinek  <jakub@redhat.com>
 364
 365         PR fortran/35423
 366         * trans.h (OMPWS_WORKSHARE_FLAG, OMPWS_CURR_SINGLEUNIT,
 367         OMPWS_SCALARIZER_WS, OMPWS_NOWAIT): Define.
 368         (ompws_flags): New extern decl.
 369         * trans-array.c (gfc_trans_scalarized_loop_end): Build OMP_FOR
 370         for the outer dimension if ompws_flags allow it.
 371         * trans.c (gfc_generate_code): Clear ompws_flags.
 372         * trans-expr.c (gfc_trans_assignment_1): Allow worksharing
 373         array assignments inside of !$omp workshare.
 374         * trans-stmt.c (gfc_trans_where_3): Similarly for where statements
 375         and constructs.
 376         * trans-openmp.c (ompws_flags): New variable.
 377         (gfc_trans_omp_workshare): Rewritten.
 378
 379 2009-04-11  Daniel Kraft  <d@domob.eu>
 380
 381         PR fortran/37746
 382         * gfortran.h (struct gfc_charlen): New field `passed_length' to store
 383         the actual passed string length for dummy arguments.
 384         * trans-decl.c (gfc_create_string_length): Formatting fixes and added
 385         assertion, moved a local variable into the innermost block it is needed.
 386         (create_function_arglist): Removed TODO about the check being
 387         implemented and initialize cl->passed_length here.
 388         (add_argument_checking): New method.
 389         (gfc_generate_function_code): Call the argument checking method.
 390
 391 2009-04-11  Janus Weil  <janus@gcc.gnu.org>
 392
 393         PR fortran/39692
 394         * symbol.c (check_conflict): Reject procedure pointers for -std=f95.
 395
 396 2009-04-11  Daniel Franke  <franke.daniel@gmail.com>
 397
 398         * resolve.c (resolve_global_procedure): Enable whole-file checking for
 399         procedures that are declared later in the file.
 400
 401 2009-04-10  Paolo Bonzini  <bonzini@gnu.org>
 402
 403         PR middle-end/39701
 404         * trans.c (gfc_allocate_with_status): Fix type mismatches
 405         on "pstat == 0".
 406
 407 2009-04-10  Daniel Franke  <franke.daniel@gmail.com>
 408
 409         PR fortran/38709
 410         * expr.c (find_array_section): Leave early on zero-sized arrays.
 411
 412 2009-04-09  Janus Weil  <janus@gcc.gnu.org>
 413
 414         PR fortran/36704
 415         * decl.c (add_hidden_procptr_result): New function for handling
 416         procedure pointer return values by adding a hidden result variable.
 417         (variable_decl,match_procedure_decl,gfc_match_function_decl,
 418         gfc_match_subroutine,gfc_match_end,attr_decl1): Handle procedure pointer
 419         return values.
 420         * parse.c (parse_interface): Add EXTERNAL attribute only after
 421         FUNCTION/SUBROUTINE declaration is complete.
 422         * primary.c (replace_hidden_procptr_result): New function for replacing
 423         function symbol by hidden result variable.
 424         (gfc_match_rvalue,match_variable): Replace symbol by hidden result
 425         variable.
 426         * resolve.c (resolve_contained_fntype,resolve_function,resolve_variable,
 427         resolve_symbol): Allow for procedure pointer function results.
 428         (resolve_fl_procedure): Conflict detection moved here from
 429         'check_conflict'.
 430         * symbol.c (gfc_check_function_type): Allow for procedure pointer
 431         function results.
 432         (check_conflict): Move some conflict detection to resolution stage.
 433         * trans-types.c (gfc_sym_type,gfc_get_function_type): Handle hidden
 434         result variables.
 435
 436 2009-04-08  Jakub Jelinek  <jakub@redhat.com>
 437
 438         * trans-types.c (gfc_init_types): Ensure gfc_integer_types doesn't
 439         contain TYPE_STRING_FLAG types.
 440
 441 2009-04-08  Janne Blomqvist  <jb@gcc.gnu.org>
 442
 443         PR fortran/39670
 444         * invoke.texi (fdollar-ok): Fix typo.
 445
 446 2009-04-08  Daniel Franke  <franke.daniel@gmail.com>
 447
 448         PR fortran/39670
 449         * invoke.texi (fdollar-ok): Clarify limitations.
 450
 451 2009-04-08  Paul Thomas  <pault@gcc.gnu.org>
 452
 453         PR fortran/38863
 454         * trans-array.c (gfc_trans_deferred_array): Return if this
 455         is a result variable.
 456
 457 2009-04-07  Janus Weil  <janus@gcc.gnu.org>
 458
 459         PR fortran/38152
 460         * trans-decl.c (gfc_get_symbol_decl): Correctly set decl location for
 461         procedure pointer decls.
 462
 463 2009-04-07  Janus Weil  <janus@gcc.gnu.org>
 464
 465         PR fortran/38290
 466         * expr.c (gfc_check_pointer_assign): Enable interface check for
 467         procedure pointers.
 468         * gfortran.h: Add copy_formal_args_intr.
 469         * interface.c (gfc_compare_interfaces): Call gfc_compare_intr_interfaces
 470         if second argument is an intrinsic.
 471         (compare_intr_interfaces): Correctly set attr.function, attr.subroutine
 472         and ts.
 473         (compare_parameter): Call gfc_compare_interfaces also for intrinsics.
 474         * resolve.c (resolve_specific_f0,resolve_specific_s0): Don't resolve
 475         intrinsic interfaces here. Must happen earlier.
 476         (resolve_symbol): Resolution of intrinsic interfaces moved here from
 477         resolve_specific_..., and formal args are now copied from intrinsic
 478         interfaces.
 479         * symbol.c (copy_formal_args_intr): New function to copy the formal
 480         arguments from an intinsic procedure.
 481
 482 2009-04-06  Paul Thomas  <pault@gcc.gnu.org>
 483
 484         PR fortran/38863
 485         * dependency.c (ref_same_as_full_array): New function.
 486         (gfc_dep_resolver): Call it.
 487
 488 2009-04-06  Janus Weil  <janus@gcc.gnu.org>
 489
 490        PR fortran/39414
 491        * decl.c (match_procedure_decl): Fix double declaration problems with
 492        PROCEDURE statements.
 493        * symbol.c (gfc_add_type): Ditto.
 494
 495 2009-04-06  Paul Thomas  <pault@gcc.gnu.org>
 496
 497         PR fortran/36091
 498         * trans-array.c (gfc_conv_array_ref): If the symbol has the
 499         temporary attribute use the array_spec for the bounds.
 500         * gfortran.h : Add the temporary field to the structure
 501         'symbol_attribute'.
 502         * trans-stmt.c (forall_make_variable_temp): Set the symbol's
 503         temporary attribute.
 504
 505 2009-04-05  Daniel Franke  <franke.daniel@gmail.com>
 506
 507         PR fortran/29458
 508         * trans-array.c (gfc_trans_array_constructor_value): Shadow
 509         implied do-loop variable to avoid spurious middle-end warnings.
 510
 511 2009-04-04  Tobias Burnus  <burnus@net-b.de>
 512
 513         PR fortran/39577
 514         * trans-decl.c (gfc_generate_function_code): Move recursive
 515         check to the right position.
 516
 517 2009-04-04  Paul Thomas  <pault@gcc.gnu.org>
 518
 519         PR fortran/37614
 520         * trans-common.c (translate_common): Do not offset the whole
 521         coomon block.
 522
 523 2009-04-03  Tobias Burnus  <burnus@net-b.de>
 524
 525         PR fortran/39594
 526         * resolve.c (resolve_common_vars): Add FL_VARIABLE to symbol
 527         if it is not a procedure pointer.
 528         * primary.c (match_actual_arg): Ditto.
 529
 530 2009-03-31  Joseph Myers  <joseph@codesourcery.com>
 531
 532         PR preprocessor/15638
 533         * cpp.c (cb_cpp_error): Handle CPP_DL_FATAL.
 534
 535 2009-03-30  Steven G. Kargl  <kargls@comcast.net>
 536
 537         PR fortran/38389
 538         * trans-stmt.c(gfc_trans_allocate): Add translation of ERRMSG.
 539         (gfc_trans_deallocate): Add translation of ERRMSG.  Remove stale
 540         comments.  Minor whitespace cleanup.
 541         * resolve.c(is_scalar_expr_ptr): Whitespace cleanup.
 542         (resolve_deallocate_expr (gfc_expr *e): Update error message.
 543         (resolve_allocate_expr):  Remove dead code.  Update error message.
 544         Move error checking to ...
 545         (resolve_allocate_deallocate): ... here.  Add additional error
 546         checking for STAT, ERRMSG, and allocate-objects.
 547         * match.c(gfc_match_allocate,gfc_match_deallocate):  Parse ERRMSG.
 548         Check for redundant uses of STAT and ERRMSG.  Reword error message
 549         and add checking for pointer, allocatable, and proc_pointer attributes.
 550
 551 2009-03-30  Paul Thomas  <pault@gcc.gnu.org>
 552
 553         PR fortran/22571
 554         PR fortran/26227
 555         PR fortran/24886
 556         * symbol.c : Add gfc_global_ns_list.
 557         * decl.c (add_global_entry): Set the namespace ('ns') field.
 558         * gfortran.h : Add the resolved field to gfc_namespace. Add the
 559         namespace ('ns') field to gfc_gsymbol.  Add flag_whole_file to
 560         gfc_option_t.  Add the prototype for gfc_free_dt_list.
 561         * lang.opt : Add the whole-file option.
 562         * invoke.texi : Document the whole-file option.
 563         * resolve.c (resolve_global_procedure): If the fwhole-file
 564         option is set, reorder gsymbols to ensure that translation is
 565         in the right order.  Resolve the gsymbol's namespace if that
 566         has not occurred and then check interfaces.
 567         (resolve_function): Move call to resolve_global_procedure.
 568         (resolve_call): The same.
 569         (resolve_codes): Store the current labels_obstack.
 570         (gfc_resolve) : Return if the namespace is already resolved.
 571         trans-decl.c (gfc_get_extern_function_decl): If the whole_file
 572         option is selected, use the backend_decl of a gsymbol, if it is
 573         available.
 574         parse.c (add_global_procedure, add_global_program): If the flag
 575         whole-file is set, add the namespace to the gsymbol.
 576         (gfc_parse_file): On -fwhole-file, put procedure namespaces on
 577         the global namespace list.  Rearrange to do resolution of all
 578         the procedures in a file, followed by their translation.
 579         * options.c (gfc_init_options): Add -fwhole-file.
 580         (gfc_handle_option): The same.
 581
 582 2009-03-30  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
 583
 584         * f95-lang.c (gfc_init_builtin_functions): Define BUILT_IN_HUGE_VAL
 585         family of intrinsics instead of BUILT_IN_INF family.
 586         * trans-intrinsics.c (gfc_conv_intrinsic_nearest): Use
 587         BUILT_IN_HUGE_VAL instead of BUILT_IN_INF.
 588
 589 2009-03-30  Jakub Jelinek  <jakub@redhat.com>
 590
 591         * trans-types.c (gfc_sym_type, gfc_return_by_reference): For
 592         sym->attr.result check sym->ns->proc_name->attr.is_bind_c.
 593
 594 2009-03-30  Joseph Myers  <joseph@codesourcery.com>
 595
 596         PR rtl-optimization/323
 597         * options.c (gfc_post_options): Set
 598         flag_excess_precision_cmdline.  Give an error for
 599         -fexcess-precision=standard for processors where the option is
 600         significant.
 601
 602 2009-03-29  Joseph Myers  <joseph@codesourcery.com>
 603
 604         PR preprocessor/34695
 605         * cpp.c (cb_cpp_error): New.
 606         (gfc_cpp_post_options): Don't set cpp_option->inhibit_warnings.
 607         Don't check cpp_errors (cpp_in).
 608         (gfc_cpp_init_0): Set cb->error.
 609
 610 2009-03-29  Steven G. Kargl  <kargl@gcc.gnu.org>
 611
 612         PR fortran/38823
 613         * gfortran.h: Add ARITH_PROHIBIT to arith enum.
 614         expr.c (gfc_match_init_expr): Add global variable init_flag to
 615         flag matching an initialization expression.
 616         (check_intrinsic_op): Move no longer reachable error message to ...
 617         * arith.c (arith_power): ... here.  Remove gfc_ prefix in
 618         gfc_arith_power.  Use init_flag.  Allow constant folding of x**y
 619         when y is REAL or COMPLEX.
 620         (eval_intrinsic): Remove restriction that y in x**y must be INTEGER
 621         for constant folding.
 622         * gfc_power: Update gfc_arith_power to arith_power
 623
 624 2009-03-29  Daniel Kraft  <d@domob.eu>
 625
 626         PR fortran/37423
 627         * gfortran.h (struct gfc_typebound_proc): Added new flag `deferred' and
 628         added a comment explaining DEFERRED binding handling.
 629         * decl.c (match_binding_attributes): Really match DEFERRED attribute.
 630         (match_procedure_in_type): Really match PROCEDURE(interface) syntax
 631         and do some validity checks for DEFERRED and this construct.
 632         * module.c (binding_overriding): New string constant for DEFERRED.
 633         (mio_typebound_proc): Module-IO DEFERRED flag.
 634         * resolve.c (check_typebound_override): Ensure that a non-DEFERRED
 635         binding is not overridden by a DEFERRED one.
 636         (resolve_typebound_procedure): Allow abstract interfaces as targets
 637         for DEFERRED bindings.
 638         (ensure_not_abstract_walker), (ensure_not_abstract): New methods.
 639         (resolve_fl_derived): Use new `ensure_not_abstract' method for
 640         non-ABSTRACT types extending ABSTRACT ones to ensure each DEFERRED
 641         binding is overridden.
 642         (check_typebound_baseobject): New method.
 643         (resolve_compcall), (resolve_typebound_call): Check base-object of
 644         the type-bound procedure call.
 645         * gfc-internals.texi (Type-bound procedures): Document a little bit
 646         about internal handling of DEFERRED bindings.
 647
 648 2009-03-29  Tobias Schlüter  <tobi@gcc.gnu.org>
 649
 650         PR fortran/38507
 651         * gfortran.h (gfc_st_label): Fix comment.
 652         (gfc_exec_op): Add statement code EXEC_END_BLOCK for end of block.
 653         * parse.c (accept_statement): Use EXEC_END_BLOCK for END IF and
 654         END SELECT with labels.
 655         (check_do_closure): Fix formatting.
 656         (parse_do_block): Fix typo in error message.
 657         * resolve.c (code_stack): Remove tail member.  Update comment to
 658         new use of reachable_labels.
 659         (reachable_labels): Rename to ...
 660         (find_reachable_labels): ... this.  Overhaul.  Update preceding
 661         comment.
 662         (resolve_branch): Fix comment preceding function.  Rewrite.
 663         (resolve_code): Update call to find_reachable_labels.  Add code to
 664         deal with EXEC_END_BLOCK.
 665         * st.c (gfc_free_statement): Add code to deal with EXEC_END_BLOCK.
 666         Add 2009 to copyright years.
 667         * trans.c (gfc_trans_code): Likewise on both counts.
 668
 669 2009-03-31  Paul Thomas  <pault@gcc.gnu.org>
 670
 671         PR fortran/38917
 672         * expr.c (gfc_check_assign): Allow pointer components when
 673         checking for NULL.
 674
 675         PR fortran/38918
 676         * resolve.c (check_data_variable): Treat pointer arrays with
 677         scalars.
 678
 679 2009-03-31  Paul Thomas  <pault@gcc.gnu.org>
 680
 681         PR fortran/38915
 682         * trans-expr.c (gfc_trans_assignment_1): Ensure temporaries
 683         have a string_length.
 684
 685 2009-03-28  Tobias Burnus  <burnus@net-b.de>
 686
 687         PR fortran/34656
 688         * trans-stmt.c (gfc_trans_simple_do, gfc_trans_do):
 689         Add GFC_RTCHECK_DO support.
 690         * option.c (gfc_handle_runtime_check_option): Enable GFC_RTCHECK_DO.
 691         * invoke.texi (-fcheck): Document "do" option.
 692
 693 2009-03-28  Paul Thomas  <pault@gcc.gnu.org>
 694
 695         PR fortran/38538
 696         * trans-array.c (get_elemental_fcn_charlen): Remove.
 697         (get_array_charlen): New function to replace previous.
 698
 699 2009-03-28  Paul Thomas  <pault@gcc.gnu.org>
 700
 701         PR fortran/38765
 702         * parse.c (parse_derived): Do not break on finding pointer,
 703         allocatable or private components.
 704
 705 2009-03-28  Tobias Burnus  <burnus@net-b.de>
 706
 707         PR fortran/32626
 708         * option.c (gfc_handle_runtime_check_option): Enable recursion check.
 709         * trans-decl.c (gfc_generate_function_code): Add recursion check.
 710         * invoke.texi (-fcheck): Add recursive option.
 711
 712 2009-03-28  Tobias Burnus  <burnus@net-b.de>
 713
 714         PR fortran/38432
 715         * resolve.c (gfc_resolve_iterator): Add zero-loop warning.
 716
 717 2009-03-28  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 718             Paul Thomas  <pault@gcc.gnu.org>
 719             Tobias Burnus  <burnus@net-b.de>
 720
 721         * gfortran.h (gfc_option_t): Add rtcheck.
 722         * lang.opt: New option -fcheck.
 723         * libgfortran.h: Add GFC_RTCHECK_* constants.
 724         * invoke.texi: Document -fcheck.
 725         * options.c (gfc_handle_runtime_check_option): New function.
 726         (gfc_init_options,gfc_post_options,gfc_handle_option):
 727         Add -fcheck option.
 728
 729 2009-03-27  Richard Guenther  <rguenther@suse.de>
 730
 731         * trans-array.c (gfc_conv_descriptor_data_addr): Use
 732         gfc_build_addr_expr instead of build_fold_addr_expr.
 733         (gfc_trans_allocate_array_storage, gfc_trans_array_constructor_value,
 734         gfc_trans_constant_array_constructor, gfc_conv_array_data,
 735         gfc_conv_expr_descriptor, gfc_conv_array_parameter): Likewise.
 736         * trans-expr.c (gfc_conv_missing_dummy, gfc_conv_variable,
 737         gfc_conv_function_val, gfc_conv_operator_assign,
 738         gfc_conv_subref_array_arg, gfc_conv_function_call,
 739         gfc_conv_expr_reference, gfc_trans_scalar_assign): Likewise.
 740         * trans-intrinsic.c (gfc_conv_intrinsic_exponent,
 741         gfc_conv_intrinsic_ctime, gfc_conv_intrinsic_fdate,
 742         gfc_conv_intrinsic_ttynam, gfc_conv_intrinsic_minmax_char,
 743         gfc_conv_intrinsic_fraction, gfc_conv_intrinsic_spacing,
 744         gfc_conv_intrinsic_rrspacing, gfc_conv_intrinsic_set_exponent,
 745         gfc_conv_intrinsic_array_transfer, gfc_conv_intrinsic_transfer,
 746         gfc_conv_intrinsic_si_kind, gfc_conv_intrinsic_trim): Likewise.
 747         * trans-io.c (gfc_trans_io_runtime_check, set_parameter_ref,
 748         gfc_convert_array_to_string, gfc_trans_open, gfc_trans_close,
 749         build_filepos, gfc_trans_inquire, gfc_trans_wait,
 750         nml_get_addr_expr, transfer_namelist_element, build_dt,
 751         gfc_trans_dt_end, transfer_array_component, transfer_expr,
 752         transfer_array_desc, gfc_trans_transfer): Likewise.
 753         * trans-stmt.c (gfc_trans_allocate, gfc_trans_deallocate): Likewise.
 754         * trans.c (gfc_build_addr_expr): Mark the base of the address
 755         TREE_ADDRESSABLE.
 756
 757 2009-03-27  Tobias Burnus  <burnus@net-b.de>
 758
 759         * gfortran.h (enum init_local_real.): Add GFC_INIT_REAL_SNAN.
 760         (gfc_expr): Add is_snan.
 761         * trans-const.c (gfc_conv_mpfr_to_tree): Support SNaN.
 762         (gfc_conv_constant_to_tree): Update call to gfc_conv_mpfr_to_tree.
 763         * trans-const.h (gfc_conv_mpfr_to_tree): Update prototype.
 764         * resolve.c (build_default_init_expr): Update call.
 765         * target-memory.c (encode_float): Ditto.
 766         * trans-intrinsic.c (gfc_conv_intrinsic_aint,gfc_conv_intrinsic_mod,
 767
 768 2009-03-18  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 769
 770         * lang.opt: Unify help texts for -I, -Wconversion, -d, -fopenmp,
 771         and -fpreprocessed.
 772
 773 2009-03-06  Alexandre Oliva <aoliva@redhat.com>
 774
 775         * simplify.c (gfc_simplify_transfer): Zero-initialize the
 776         buffer.
 777
 778 2009-02-27  Tobias Burnus  <burnus@net-b.de>
 779
 780         PR fortran/39309
 781         * module.c (read_md5_from_module_file): Add missing quote.
 782
 783 2009-02-27  Tobias Burnus  <burnus@net-b.de>
 784
 785         PR fortran/39309
 786         * module.c (read_md5_from_module_file): Include mod version
 787         in had-changed test.
 788
 789 2009-02-26  Paul Thomas  <pault@gcc.gnu.org>
 790
 791         PR fortran/39295
 792         * interface.c (compare_type_rank_if): Return 1 if the symbols
 793         are the same and deal with external procedures where one is
 794         identified to be a function or subroutine by usage but the
 795         other is not.
 796
 797 2009-02-26  Paul Thomas  <pault@gcc.gnu.org>
 798
 799         PR fortran/39292
 800         * trans-array.c (gfc_conv_array_initializer): Convert all
 801         expressions rather than ICEing.
 802
 803 2009-02-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 804
 805         PR fortran/38914
 806         * array.c (ref_dimen_size):  Rename to gfc_ref_dimen_size,
 807         make global.  Change function name in error messages.
 808         (ref_size):  Change ref_dimen_size to gfc_ref_dimen_size.
 809         (gfc_array_ref_shape):  Likewise.
 810         * gfortran.h:  Add prototype for gfc_ref_dimen_size.
 811         * simplify.c (simplify_bound_dim):  Add ref argument.
 812         If the reference isn't a full array, return one for
 813         the lower bound and the extent for the upper bound.
 814         (simplify_bound):  For array sections, take as from the
 815         argument.  Add reference to all to simplify_bound_dim.
 816
 817 2009-02-19  Daniel Franke  <franke.daniel@gmail.com>
 818
 819         * scanner.c (load_line): At end of line, skip '\r' without setting
 820         the truncation flag.
 821
 822 2009-02-18  Daniel Kraft  <d@domob.eu>
 823
 824         * gfortran.texi: New chapter about compiler characteristics.
 825         (Compiler Characteristics): Document KIND type parameters here.
 826
 827 2009-02-18  Tobias Burnus  <burnus@net-b.de>
 828
 829         * intrinsic.texi (MALLOC): Make example more portable.
 830
 831 2009-02-13  Mikael Morin  <mikael.morin@tele2.fr>
 832
 833         PR fortran/38259
 834         * module.c (gfc_dump_module,gfc_use_module): Add module
 835         version number.
 836
 837 2009-02-13  Paul Thomas  <pault@gcc.gnu.org>
 838
 839         PR fortran/36703
 840         PR fortran/36528
 841         * trans-expr.c (gfc_conv_function_val): Stabilize Cray-pointer
 842         function references to ensure that a valid expression is used.
 843         (gfc_conv_function_call): Pass Cray pointers to procedures.
 844
 845 2009-02-03  Jakub Jelinek  <jakub@redhat.com>
 846
 847         * gfortranspec.c (lang_specific_driver): Update copyright notice
 848         dates.
 849
 850 2009-01-28  Paul Thomas  <pault@gcc.gnu.org>
 851
 852         PR fortran/38852
 853         PR fortran/39006
 854         * trans-intrinsic.c (gfc_conv_intrinsic_bound): Use the array
 855         descriptor ubound for UBOUND, when the array lbound == 1.
 856
 857 2009-01-27  Daniel Kraft  <d@domob.eu>
 858
 859         PR fortran/38883
 860         * trans-stmt.c (gfc_conv_elemental_dependencies):  Create temporary
 861         for the real type needed to make it work for subcomponent-references.
 862
 863 2009-01-21  Daniel Kraft  <d@domob.eu>
 864
 865         * trans-stmt.c (gfc_conv_elemental_dependencies):  Cleaned up comment.
 866
 867 2009-01-20  Paul Thomas  <pault@gcc.gnu.org>
 868
 869         PR fortran/38907
 870         * resolve.c (check_host_association): Remove the matching to
 871         correct an incorrect host association and use manipulation of
 872         the expression instead.
 873
 874 2009-01-20  Tobias Burnus  <burnus@net-b.de>
 875
 876         * invoke.texi (RANGE): RANGE also takes INTEGER arguments.
 877
 878 2009-01-19  Mikael Morin  <mikael.morin@tele2.fr>
 879
 880         PR fortran/38859
 881         * simplify.c (simplify_bound): Don't use array specification
 882         if variable or component has subsequent references.
 883
 884 2009-01-17  Paul Thomas  <pault@gcc.gnu.org>
 885
 886         PR fortran/38657
 887         * module.c (write_common_0): Add argument 'this_module' and
 888         check that non-use associated common blocks are written first.
 889         (write_common): Call write_common_0 twice, once with true and
 890         then with false.
 891
 892 2009-01-17  Paul Thomas  <pault@gcc.gnu.org>
 893
 894         PR fortran/34955
 895         * trans-intrinsic.c (gfc_conv_intrinsic_array_transfer): Has
 896         been absorbed into gfc_conv_intrinsic_transfer. All
 897         references to it in trans-intrinsic.c have been changed
 898         accordingly.  PR fixed by using a temporary for scalar
 899         character transfer, when the source is shorter than the
 900         destination.
 901
 902 2009-01-17  Paul Thomas  <pault@gcc.gnu.org>
 903
 904         PR fortran/38657
 905         * module.c (write_common_0): Revert patch of 2009-01-05.
 906
 907 2009-01-16  Janus Weil  <janus@gcc.gnu.org>
 908
 909         PR fortran/38152
 910         * expr.c (gfc_check_pointer_assign): Allow use-associated procedure
 911         pointers as lvalue.
 912         * trans-decl.c (get_proc_pointer_decl,gfc_create_module_variable):
 913         Enable procedure pointers as module variables.
 914
 915 2009-01-14  Steven G. Kargl  <kargl@gcc.gnu.org>
 916
 917         * ChangeLog-2007: Clean out svn merge droppings.
 918
 919 2009-01-10  Paul Thomas  <pault@gcc.gnu.org>
 920
 921         PR fortran/38763
 922         * target-memory.c (encode_derived): Encode NULL.
 923
 924 2009-01-10  Paul Thomas  <pault@gcc.gnu.org>
 925
 926         PR fortran/38765
 927         * resolve.c (check_host_association): Use the symtree name to
 928         search for a potential contained procedure, since this is the
 929         name by which it would be referenced.
 930
 931 2009-01-06  Thomas Koenig  <tkoenig@gcc.gnu.org>
 932
 933         PR fortran/38220
 934         * interface.c (gfc_procedure_use):  Don't warn about functions
 935         from ISO_C_BINDING.
 936         * symbol.c (generate_isocbinding_symbol):  Mark c_loc and
 937         c_funloc as pure.
 938
 939 2009-01-05  Paul Thomas  <pault@gcc.gnu.org>
 940
 941         PR fortran/38657
 942         * module.c (write_common_0): Use the name of the symtree rather
 943         than the common block, to determine if the common has been
 944         written.
 945
 946 2009-01-05  Daniel Franke  <franke.daniel@gmail.com>
 947
 948         PR fortran/37159
 949         * check.c (gfc_check_random_seed): Added size check for GET
 950         dummy argument, reworded error messages to follow common pattern.
 951
 952 2009-01-05  Thomas Koenig  <tkoenig@gcc.gnu.org>
 953
 954         PR fortran/38672
 955         * trans-types.c (gfc_get_derived_type):  Check for the
 956         presence of derived->ns->proc_name before
 957         accessing derived->ns->proc_name->attr.flavor .
 958         * resolve.c (resolve_symbol):  Likewise.
 959
 960 2009-01-05  Paul Thomas  <pault@gcc.gnu.org>
 961
 962         PR fortran/38665
 963         * gfortran.h : Add bit to gfc_expr 'user_operator'
 964         * interface.c (gfc_extend_expr): Set the above if the operator
 965         is substituted by a function.
 966         * resolve.c (check_host_association): Return if above is set.
 967
 968 2009-01-04  Mikael Morin  <mikael.morin@tele2.fr>
 969
 970         PR fortran/35681
 971         * ChangeLog-2008: Fix function name.
 972
 973         PR fortran/38487
 974         * dependency.c (gfc_check_argument_var_dependency):
 975         Move the check for pointerness inside the if block
 976         so that it doesn't affect the return value.
 977
 978         PR fortran/38669
 979         * trans-stmt.c (gfc_trans_call):
 980         Add the dependency code after the loop bounds calculation one.
 981
 982 2009-01-04  Daniel Franke  <franke.daniel@gmail.com>
 983
 984         * intrinsic.c (do_simplify): Removed already implemented TODO.
 985
 986 2009-01-04  Daniel Franke  <franke.daniel@gmail.com>
 987
 988         PR fortran/38718
 989         * simplify.c (gfc_simplify_merge): New.
 990         * intrinsic.h (gfc_simplify_merge): New prototype.
 991         * intrinsic.c (add_functions): Added simplification for MERGE.
 992
 993 2009-01-04  Mikael Morin  <mikael.morin@tele2.fr>
 994
 995         PR fortran/38536
 996         * gfortran.h (gfc_is_data_pointer): Added prototype
 997         * resolve.c (gfc_iso_c_func_interface):
 998         Use gfc_is_data_pointer to test for pointer attribute.
 999         * dependency.c (gfc_is_data_pointer):
1000         Support pointer-returning functions.
1001
1002 2009-01-03  Daniel Franke  <franke.daniel@gmail.com>
1003
1004         * symbol.c (save_symbol): Don't SAVE function results.
1005
1006 2009-01-03  Paul Thomas  <pault@gcc.gnu.org>
1007
1008         PR fortran/38594
1009         * resolve.c (resolve_call): When searching for proper host
1010         association, use symtree rather than symbol.  For everything
1011         except generic subroutines, substitute the symtree in the call
1012         rather than the symbol.
1013
1014 \f
1015 Copyright (C) 2009 Free Software Foundation, Inc.
1016
1017 Copying and distribution of this file, with or without modification,
1018 are permitted in any medium without royalty provided the copyright
1019 notice and this notice are preserved.