gcc/fortran/ChangeLog

   1 2010-05-06  Manuel López-Ibáñez  <manu@gcc.gnu.org>
   2
   3         PR 40989
   4         * options.c (gfc_handle_option): Add argument kind.
   5         * gfortran.h (gfc_handle_option): Update declaration.
   6
   7 2010-05-06  Tobias Burnus  <burnus@net-b.de>
   8
   9         PR fortran/43985
  10         * trans-types.c (gfc_sym_type): Mark Cray pointees as
  11         GFC_POINTER_TYPE_P.
  12
  13 2010-05-05  Daniel Franke  <franke.daniel@gmail.com>
  14
  15         * resolve.c (traverse_data_list): Rephrase error message for
  16         non-constant bounds in data-implied-do.
  17
  18 2010-05-05  Daniel Franke  <franke.daniel@gmail.com>
  19
  20         PR fortran/24978
  21         * gfortran.h: Removed repeat count from constructor, removed
  22         all usages.
  23         * data.h (gfc_assign_data_value_range): Changed return value from
  24         void to gfc_try.
  25         * data.c (gfc_assign_data_value): Add location to constructor element.
  26         (gfc_assign_data_value_range): Call gfc_assign_data_value()
  27         for each element in range. Return early if an error was generated.
  28         * resolve.c (check_data_variable): Stop early if range assignment
  29         generated an error.
  30
  31 2010-05-05  Janus Weil  <janus@gcc.gnu.org>
  32
  33         PR fortran/43696
  34         * resolve.c (resolve_fl_derived): Some fixes for class variables.
  35         * symbol.c (gfc_build_class_symbol): Add separate class container for
  36         class pointers.
  37
  38 2010-05-03  Steven G. Kargl  <kargl@gcc.gnu.org>
  39
  40         PR fortran/43592
  41         * fortran/parse.c (parse_interface): Do not dereference a NULL pointer.
  42
  43 2010-05-02  Tobias Burnus  <burnus@net-b.de>
  44
  45         PR fortran/18918
  46         * intrinsic.c (add_functions): Fix GFC_STD and add gfc_resolve_ calls
  47         for lcobound, ucobound, image_index and this_image.
  48         * intrinsic.h (gfc_resolve_lcobound, gfc_resolve_this_image,
  49         gfc_resolve_image_index, gfc_resolve_ucobound): New prototypes.
  50         * iresolve.c (gfc_resolve_lcobound, gfc_resolve_this_image,
  51         gfc_resolve_image_index, gfc_resolve_ucobound, resolve_bound): New
  52         functions.
  53         (gfc_resolve_lbound, gfc_resolve_ubound): Use resolve_bound.
  54
  55 2010-04-30  Tobias Burnus  <burnus@net-b.de>
  56
  57         PR fortran/18918
  58         PR fortran/43931
  59         *  trans-types.c (gfc_get_array_descriptor_base): Fix index
  60         calculation for array descriptor types.
  61
  62 2010-04-29  Janus Weil  <janus@gcc.gnu.org>
  63
  64         PR fortran/43896
  65         * symbol.c (add_proc_component,copy_vtab_proc_comps): Remove
  66         initializers for PPC members of the vtabs.
  67
  68 2010-04-29  Janus Weil  <janus@gcc.gnu.org>
  69
  70         PR fortran/42274
  71         * symbol.c (add_proc_component,add_proc_comps): Correctly set the 'ppc'
  72         attribute for all PPC members of the vtypes.
  73         (copy_vtab_proc_comps): Copy the correct interface.
  74         * trans.h (gfc_trans_assign_vtab_procs): Modified prototype.
  75         * trans-expr.c (gfc_trans_assign_vtab_procs): Pass the derived type as
  76         a dummy argument and make sure all PPC members of the vtab are
  77         initialized correctly.
  78         (gfc_conv_derived_to_class,gfc_trans_class_assign): Additional argument
  79         in call to gfc_trans_assign_vtab_procs.
  80         * trans-stmt.c (gfc_trans_allocate): Ditto.
  81
  82 2010-04-29  Paul Thomas  <pault@gcc.gnu.org>
  83
  84         PR fortran/43326
  85         * resolve.c (resolve_typebound_function): Renamed
  86         resolve_class_compcall.Do all the detection of class references
  87         here.
  88         (resolve_typebound_subroutine): resolve_class_typebound_call
  89         renamed. Otherwise same as resolve_typebound_function.
  90         (gfc_resolve_expr): Call resolve_typebound_function.
  91         (resolve_code): Call resolve_typebound_subroutine.
  92
  93 2010-04-29  Janus Weil  <janus@gcc.gnu.org>
  94
  95         PR fortran/43492
  96         * resolve.c (resolve_typebound_generic_call): For CLASS methods
  97         pass back the specific symtree name, rather than the target
  98         name.
  99
 100 2010-04-29  Paul Thomas  <pault@gcc.gnu.org>
 101
 102         PR fortran/42353
 103         * resolve.c (resolve_structure_cons): Make the initializer of
 104         the vtab component 'extends' the same type as the component.
 105
 106 2010-04-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 107
 108         PR fortran/42680
 109         * interface.c (check_interface1): Pass symbol name rather than NULL to
 110         gfc_compare_interfaces.(gfc_compare_interfaces): Add assert to
 111         trap MULL. (gfc_compare_derived_types): Revert previous change
 112         incorporated incorrectly during merge from trunk, r155778.
 113         * resolve.c (check_generic_tbp_ambiguity): Pass symbol name rather
 114         than NULL to gfc_compare_interfaces.
 115         * symbol.c (add_generic_specifics): Likewise.
 116
 117 2010-02-29  Janus Weil  <janus@gcc.gnu.org>
 118
 119         PR fortran/42353
 120         * interface.c (gfc_compare_derived_types): Add condition for vtype.
 121         * symbol.c (gfc_find_derived_vtab): Sey access to private.
 122         (gfc_find_derived_vtab): Likewise.
 123         * module.c (ab_attribute): Add enumerator AB_VTAB.
 124         (mio_symbol_attribute): Use new attribute, AB_VTAB.
 125         (check_for_ambiguous): Likewise.
 126
 127 2010-04-29  Paul Thomas  <pault@gcc.gnu.org>
 128             Janus Weil  <janus@gcc.gnu.org>
 129
 130         PR fortran/41829
 131         * trans-expr.c (select_class_proc): Remove function.
 132         (conv_function_val): Delete reference to previous.
 133         (gfc_conv_derived_to_class): Add second argument to the call to
 134         gfc_find_derived_vtab.
 135         (gfc_conv_structure): Exclude proc_pointer components when
 136         accessing $data field of class objects.
 137         (gfc_trans_assign_vtab_procs): New function.
 138         (gfc_trans_class_assign): Add second argument to the call to
 139         gfc_find_derived_vtab.
 140         * symbol.c (gfc_build_class_symbol): Add delayed_vtab arg and
 141         implement holding off searching for the vptr derived type.
 142         (add_proc_component): New function.
 143         (add_proc_comps): New function.
 144         (add_procs_to_declared_vtab1): New function.
 145         (copy_vtab_proc_comps): New function.
 146         (add_procs_to_declared_vtab): New function.
 147         (void add_generic_specifics): New function.
 148         (add_generics_to_declared_vtab): New function.
 149         (gfc_find_derived_vtab): Add second argument to the call to
 150         gfc_find_derived_vtab. Add the calls to
 151         add_procs_to_declared_vtab and add_generics_to_declared_vtab.
 152         * decl.c (build_sym, build_struct): Use new arg in calls to
 153         gfc_build_class_symbol.
 154         * gfortran.h : Add vtype bitfield to symbol_attr. Remove the
 155         definition of struct gfc_class_esym_list. Modify prototypes
 156         of gfc_build_class_symbol and gfc_find_derived_vtab.
 157         * trans-stmt.c (gfc_trans_allocate): Add second argument to the
 158         call to gfc_find_derived_vtab.
 159         * module.c : Add the vtype attribute.
 160         * trans.h : Add prototype for gfc_trans_assign_vtab_procs.
 161         * resolve.c (resolve_typebound_generic_call): Add second arg
 162         to pass along the generic name for class methods.
 163         (resolve_typebound_call): The same.
 164         (resolve_compcall): Use the second arg to carry the generic
 165         name from the above. Remove the reference to class_esym.
 166         (check_members, check_class_members, resolve_class_esym,
 167         hash_value_expr): Remove functions.
 168         (resolve_class_compcall, resolve_class_typebound_call): Modify
 169         to use vtable rather than member by member calls.
 170         (gfc_resolve_expr): Modify second arg in call to
 171         resolve_compcall.
 172         (resolve_select_type): Add second arg in call to
 173         gfc_find_derived_vtab.
 174         (resolve_code): Add second arg in call resolve_typebound_call.
 175         (resolve_fl_derived): Exclude vtypes from check for late
 176         procedure definitions. Likewise for checking of explicit
 177         interface and checking of pass arg.
 178         * iresolve.c (gfc_resolve_extends_type_of): Add second arg in
 179         calls to gfc_find_derived_vtab.
 180         * match.c (select_type_set_tmp): Use new arg in call to
 181         gfc_build_class_symbol.
 182         * trans-decl.c (gfc_get_symbol_decl): Complete vtable if
 183         necessary.
 184         * parse.c (endType): Finish incomplete classes.
 185
 186 2010-04-28  Tobias Burnus  <burnus@net-b.de>
 187
 188         PR fortran/18918
 189         PR fortran/43919
 190         * simplify.c (simplify_cobound): Handle scalar coarrays.
 191
 192 2010-04-27  Tobias Burnus  <burnus@net-b.de>
 193
 194         * gfc-internals.texi: Update copyright year.
 195         * gfortran.texi: Ditto.
 196         * invoke.texi: Ditto.
 197
 198 2010-04-27  Tobias Burnus  <burnus@net-b.de>
 199
 200         PR fortran/18918
 201         * resolve.c (resolve_allocate_expr): Allow array coarrays.
 202         * trans-types.h (gfc_get_array_type_bounds): Update prototype.
 203         * trans-types.c (gfc_get_array_type_bounds,
 204         gfc_get_array_descriptor_base): Add corank argument.
 205         * trans-array.c (gfc_array_init_size): Handle corank.
 206         (gfc_trans_create_temp_array, gfc_array_allocate,
 207         gfc_conv_expr_descriptor): Add corank argument to call.
 208         * trans-stmt.c (gfc_trans_pointer_assign_need_temp): Ditto.
 209
 210 2010-04-24  Steven G. Kargl  <kargl@gcc.gnu.org>
 211
 212         PR fortran/30073
 213         PR fortran/43793
 214         * trans-array.c (gfc_trans_array_bound_check): Use TREE_CODE instead
 215         of mucking with a tree directly.
 216
 217 2010-04-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 218
 219         PR fortran/43832
 220         * io.c (gfc_match_open): Remove branch to syntax error. Add call to
 221         gfc_error with new error message.
 222
 223 2010-04-24  Paul Thomas  <pault@gcc.gnu.org>
 224
 225         PR fortran/43841
 226         PR fortran/43843
 227         * trans-expr.c (gfc_conv_expr): Supply an address expression for
 228         GFC_SS_REFERENCE.
 229         (gfc_conv_expr_reference): Call gfc_conv_expr and return for
 230         GFC_SS_REFERENCE.
 231         * trans-array.c (gfc_add_loop_ss_code): Store the value rather
 232         than the address of a GFC_SS_REFERENCE.
 233         * trans.h : Change comment on GFC_SS_REFERENCE.
 234
 235 2010-04-22  Richard Guenther  <rguenther@suse.de>
 236
 237         PR fortran/43829
 238         * resolve.c (gfc_resolve_index): Wrap around ...
 239         (gfc_resolve_index_1): ... this.  Add parameter to allow
 240         any integer kind index type.
 241         (resolve_array_ref): Allow any integer kind for the start
 242         index of an array ref.
 243
 244 2010-04-21  Jakub Jelinek  <jakub@redhat.com>
 245
 246         PR fortran/43836
 247         * f95-lang.c (gfc_define_builtin): Set TREE_NOTHROW on
 248         the decl.
 249
 250 2010-04-20  Harald Anlauf  <anlauf@gmx.de>
 251
 252         * intrinsic.c (sort_actual): Remove 'is' in error message.
 253
 254 2010-04-20  Paul Thomas  <pault@gcc.gnu.org>
 255
 256         PR fortran/43227
 257         * resolve.c (resolve_fl_derived): If a component character
 258         length has not been resolved, do so now.
 259         (resolve_symbol): The same as above for a symbol character
 260         length.
 261         * trans-decl.c (gfc_create_module_variable): A 'length' decl is
 262         not needed for a character valued, procedure pointer.
 263
 264         PR fortran/43266
 265         * resolve.c (ensure_not_abstract_walker): If 'overriding' is
 266         not found, return FAILURE rather than ICEing.
 267
 268 2010-04-19  Jakub Jelinek  <jakub@redhat.com>
 269
 270         PR fortran/43339
 271         * openmp.c (gfc_resolve_do_iterator): Only make iteration vars for
 272         sequential loops private in the innermost containing task region.
 273
 274 2010-04-18  Eric Botcazou  <ebotcazou@adacore.com>
 275
 276         * f95-lang.c (gfc_init_decl_processing): Remove second argument in call
 277         to build_common_tree_nodes.
 278
 279 2010-04-17  Steven G. Kargl  <kargl@gcc.gnu.org>
 280
 281         PR fortran/31538
 282         * fortran/trans-array.c (gfc_conv_ss_startstride): Remove the use of
 283         gfc_msg_bounds by using 'Array bound mismatch' directly.
 284         (gfc_trans_dummy_array_bias):  Remove the use of gfc_msg_bounds.  Reword
 285         error message to include the mismatch in the extent of array bound.
 286         * fortran/trans.c: Remove gfc_msg_bounds.  It is only used in one place.
 287         * fortran/trans.h: Remove extern definition of gfc_msg_bounds.
 288
 289 2010-04-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 290
 291         * gfortran.texi: Update information on temporary file locations.
 292
 293 2010-04-16  Jakub Jelinek  <jakub@redhat.com>
 294
 295         * trans-decl.c (gfc_build_qualified_array): Ensure
 296         ubound.N and lbound.N artificial variable names don't appear
 297         in debug info.
 298
 299 2010-04-15  Steven G. Kargl  <kargl@gcc.gnu.org>
 300
 301         PR fortran/30073
 302         * trans-array.c (gfc_trans_array_bound_check): Eliminate a redundant
 303         block of code.  Set name to the variable associated with the descriptor.
 304
 305 2010-04-15  Jakub Jelinek  <jakub@redhat.com>
 306
 307         * trans-decl.c (gfc_build_qualified_array): Clear DECL_IGNORED_P
 308         on VAR_DECL LBOUND and/or UBOUND, even for -O1.
 309
 310 2010-04-14  Steven G. Kargl  <kargl@gcc.gnu.org>
 311
 312         * intrinsic.texi: Add the missing specific name of intrinsic
 313         procedure where the specific name is identical to the generic name.
 314         Fix inconsistent or mismatch in the argument names in intrinsic
 315         procedure descriptions.  Add the SCALAR allocatable description to
 316         ALLOCATED.
 317
 318 2010-04-14  Tobias Burnus  <burnus@net-b.de>
 319
 320         PR fortran/18918
 321         * array.c (gfc_find_array_ref): Handle codimensions.
 322         (gfc_match_array_spec,gfc_match_array_ref): Use gfc_fatal_error.
 323         * check.c (is_coarray, dim_corank_check, gfc_check_lcobound,
 324         gfc_check_image_index, gfc_check_this_image, gfc_check_ucobound):
 325         New functions.
 326         * gfortran.h (gfc_isym_id): Add GFC_ISYM_IMAGE_INDEX,
 327         GFC_ISYM_LCOBOUND, GFC_ISYM_THIS_IMAGE,
 328         GFC_ISYM_UCOBOUND.
 329         * intrinsic.h (add_functions): Add this_image, image_index,
 330         lcobound and ucobound intrinsics.
 331         * intrinsic.c (gfc_check_lcobound,gfc_check_ucobound,
 332         gfc_check_image_index, gfc_check_this_image,
 333         gfc_simplify_image_index, gfc_simplify_lcobound,
 334         gfc_simplify_this_image, gfc_simplify_ucobound):
 335         New function prototypes.
 336         * intrinsic.texi (IMAGE_INDEX, LCOBOUND, THIS_IMAGE
 337         IMAGE_INDEX): Document new intrinsic functions.
 338         * match.c (gfc_match_critical, sync_statement): Make -fcoarray=none
 339         error fatal.
 340         * simplify.c (simplify_bound_dim): Handle coarrays.
 341         (simplify_bound): Update simplify_bound_dim call.
 342         (gfc_simplify_num_images): Add -fcoarray=none check.
 343         (simplify_cobound, gfc_simplify_lcobound, gfc_simplify_ucobound,
 344         gfc_simplify_ucobound, gfc_simplify_ucobound): New functions.
 345
 346 2010-04-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 347
 348         PR fortran/43747
 349         * constructor.c: Fix typo in comment.
 350         * expr.c (find_array_section): Add check for max array limit.
 351
 352 2010-04-13  Iain Sandoe  <iains@gcc.gnu.org>
 353
 354         PR bootstrap/31400
 355         * gfortranspec.c (lookup_option): Check for -static and return
 356         OPTION_static.
 357         (lang_specific_driver): Break when OPTION_static is discovered.
 358
 359 2010-04-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 360
 361         * array.c (extract_element): Restore function from trunk.
 362         (gfc_get_array_element): Restore function from trunk.
 363         (gfc_expand_constructor): Restore check against
 364         flag_max_array_constructor.
 365         * constructor.c (node_copy_and_append): Delete unused.
 366         * gfortran.h: Delete comment and extra include.
 367         * constructor.h: Bump copyright and clean up TODO comments.
 368         * resolve.c: Whitespace.
 369
 370 2010-04-12  Daniel Franke  <franke.daniel@gmail.com>
 371
 372         * simplify.c (compute_dot_product): Replaced usage of ADVANCE macro
 373         with direct access access to elements. Adjusted prototype, fixed all
 374         callers.
 375         (gfc_simplify_dot_product): Removed duplicate check for zero-sized
 376         array.
 377         (gfc_simplify_matmul): Removed usage of ADVANCE macro.
 378         (gfc_simplify_spread): Removed workaround, directly insert elements
 379         at a given array position.
 380         (gfc_simplify_transpose): Likewise.
 381         (gfc_simplify_pack): Replaced usage of ADVANCE macro with corresponding
 382         function calls.
 383         (gfc_simplify_unpack): Likewise.
 384
 385 2010-04-12  Daniel Franke  <franke.daniel@gmail.com>
 386
 387         * simplify.c (only_convert_cmplx_boz): Renamed to ...
 388         (convert_boz): ... this and moved to start of file.
 389         (gfc_simplify_abs): Whitespace fix.
 390         (gfc_simplify_acos): Whitespace fix.
 391         (gfc_simplify_acosh): Whitespace fix.
 392         (gfc_simplify_aint): Whitespace fix.
 393         (gfc_simplify_dint): Whitespace fix.
 394         (gfc_simplify_anint): Whitespace fix.
 395         (gfc_simplify_and): Replaced if-gate by more common switch-over-type.
 396         (gfc_simplify_dnint): Whitespace fix.
 397         (gfc_simplify_asin): Whitespace fix.
 398         (gfc_simplify_asinh): Moved creation of result-expr out of switch.
 399         (gfc_simplify_atan): Likewise.
 400         (gfc_simplify_atanh): Whitespace fix.
 401         (gfc_simplify_atan2): Whitespace fix.
 402         (gfc_simplify_bessel_j0): Removed ATTRIBUTE_UNUSED.
 403         (gfc_simplify_bessel_j1): Likewise.
 404         (gfc_simplify_bessel_jn): Likewise.
 405         (gfc_simplify_bessel_y0): Likewise.
 406         (gfc_simplify_bessel_y1): Likewise.
 407         (gfc_simplify_bessel_yn): Likewise.
 408         (gfc_simplify_ceiling): Reorderd statements.
 409         (simplify_cmplx): Use convert_boz(), check for constant arguments.
 410         Whitespace fix.
 411         (gfc_simplify_cmplx): Use correct default kind. Removed check for
 412         constant arguments.
 413         (gfc_simplify_complex): Replaced if-gate. Removed check for
 414         constant arguments.
 415         (gfc_simplify_conjg): Whitespace fix.
 416         (gfc_simplify_cos): Whitespace fix.
 417         (gfc_simplify_cosh): Replaced if-gate by more common switch-over-type.
 418         (gfc_simplify_dcmplx): Removed check for constant arguments.
 419         (gfc_simplify_dble): Use convert_boz() and gfc_convert_constant().
 420         (gfc_simplify_digits): Whitespace fix.
 421         (gfc_simplify_dim): Whitespace fix.
 422         (gfc_simplify_dprod): Reordered statements.
 423         (gfc_simplify_erf): Whitespace fix.
 424         (gfc_simplify_erfc): Whitespace fix.
 425         (gfc_simplify_epsilon): Whitespace fix.
 426         (gfc_simplify_exp): Whitespace fix.
 427         (gfc_simplify_exponent): Use convert_boz().
 428         (gfc_simplify_floor): Reorderd statements.
 429         (gfc_simplify_gamma): Whitespace fix.
 430         (gfc_simplify_huge): Whitespace fix.
 431         (gfc_simplify_iand): Whitespace fix.
 432         (gfc_simplify_ieor): Whitespace fix.
 433         (simplify_intconv): Use gfc_convert_constant().
 434         (gfc_simplify_int): Use simplify_intconv().
 435         (gfc_simplify_int2): Reorderd statements.
 436         (gfc_simplify_idint): Reorderd statements.
 437         (gfc_simplify_ior): Whitespace fix.
 438         (gfc_simplify_ishftc): Removed duplicate type check.
 439         (gfc_simplify_len): Use range_check() instead of manual range check.
 440         (gfc_simplify_lgamma): Removed ATTRIBUTE_UNUSED. Whitespace fix.
 441         (gfc_simplify_log): Whitespace fix.
 442         (gfc_simplify_log10): Whitespace fix.
 443         (gfc_simplify_minval): Whitespace fix.
 444         (gfc_simplify_maxval): Whitespace fix.
 445         (gfc_simplify_mod): Whitespace fix.
 446         (gfc_simplify_modulo): Whitespace fix.
 447         (simplify_nint): Reorderd statements.
 448         (gfc_simplify_not): Whitespace fix.
 449         (gfc_simplify_or): Replaced if-gate by more common switch-over-type.
 450         (gfc_simplify_radix): Removed unused result-variable. Whitespace fix.
 451         (gfc_simplify_range): Removed unused result-variable. Whitespace fix.
 452         (gfc_simplify_real): Use convert_boz() and gfc_convert_constant().
 453         (gfc_simplify_realpart): Whitespace fix.
 454         (gfc_simplify_selected_char_kind): Removed unused result-variable.
 455         (gfc_simplify_selected_int_kind): Removed unused result-variable.
 456         (gfc_simplify_selected_real_kind): Removed unused result-variable.
 457         (gfc_simplify_sign): Whitespace fix.
 458         (gfc_simplify_sin): Whitespace fix.
 459         (gfc_simplify_sinh): Replaced if-gate by more common switch-over-type.
 460         (gfc_simplify_sqrt): Avoided goto by inlining check. Whitespace fix.
 461         (gfc_simplify_tan): Replaced if-gate by more common switch-over-type.
 462         (gfc_simplify_tanh): Replaced if-gate by more common switch-over-type.
 463         (gfc_simplify_xor): Replaced if-gate by more common switch-over-type.
 464
 465 2010-04-12  Daniel Franke  <franke.daniel@gmail.com>
 466
 467         * gfortran.h (gfc_start_constructor): Removed.
 468         (gfc_get_array_element): Removed.
 469         * array.c (gfc_start_constructor): Removed, use gfc_get_array_expr
 470         instead. Fixed all callers.
 471         (extract_element): Removed.
 472         (gfc_expand_constructor): Temporarily removed check for
 473         max-array-constructor. Will be re-introduced later if still required.
 474         (gfc_get_array_element): Removed, use gfc_constructor_lookup_expr
 475         instead. Fixed all callers.
 476         * expr.c (find_array_section): Replaced manual lookup of elements
 477         by gfc_constructor_lookup.
 478
 479 2010-04-12  Daniel Franke  <franke.daniel@gmail.com>
 480
 481         * gfortran.h (gfc_get_null_expr): New prototype.
 482         (gfc_get_operator_expr): New prototype.
 483         (gfc_get_character_expr): New prototype.
 484         (gfc_get_iokind_expr): New prototype.
 485         * expr.c (gfc_get_null_expr): New.
 486         (gfc_get_character_expr): New.
 487         (gfc_get_iokind_expr): New.
 488         (gfc_get_operator_expr): Moved here from matchexp.c (build_node).
 489         * matchexp.c (build_node): Renamed and moved to
 490         expr.c (gfc_get_operator_expr). Reordered arguments to match
 491         other functions. Fixed all callers.
 492         (gfc_get_parentheses): Use specific function to build expr.
 493         * array.c (gfc_match_array_constructor): Likewise.
 494         * arith.c (eval_intrinsic): Likewise.
 495         (gfc_hollerith2int): Likewise.
 496         (gfc_hollerith2real): Likewise.
 497         (gfc_hollerith2complex): Likewise.
 498         (gfc_hollerith2logical): Likewise.
 499         * data.c (create_character_intializer): Likewise.
 500         * decl.c (gfc_match_null): Likewise.
 501         (enum_initializer): Likewise.
 502         * io.c (gfc_match_format): Likewise.
 503         (match_io): Likewise.
 504         * match.c (gfc_match_nullify): Likewise.
 505         * primary.c (match_string_constant): Likewise.
 506         (match_logical_constant): Likewise.
 507         (build_actual_constructor): Likewise.
 508         * resolve.c (build_default_init_expr): Likewise.
 509         * symbol.c (generate_isocbinding_symbol): Likewise.
 510         (gfc_build_class_symbol): Likewise.
 511         (gfc_find_derived_vtab): Likewise.
 512         * simplify.c (simplify_achar_char): Likewise.
 513         (gfc_simplify_adjustl): Likewise.
 514         (gfc_simplify_adjustr): Likewise.
 515         (gfc_simplify_and): Likewise.
 516         (gfc_simplify_bit_size): Likewise.
 517         (gfc_simplify_is_iostat_end): Likewise.
 518         (gfc_simplify_is_iostat_eor): Likewise.
 519         (gfc_simplify_isnan): Likewise.
 520         (simplify_bound): Likewise.
 521         (gfc_simplify_leadz): Likewise.
 522         (gfc_simplify_len_trim): Likewise.
 523         (gfc_simplify_logical): Likewise.
 524         (gfc_simplify_maxexponent): Likewise.
 525         (gfc_simplify_minexponent): Likewise.
 526         (gfc_simplify_new_line): Likewise.
 527         (gfc_simplify_null): Likewise.
 528         (gfc_simplify_or): Likewise.
 529         (gfc_simplify_precision): Likewise.
 530         (gfc_simplify_repeat): Likewise.
 531         (gfc_simplify_scan): Likewise.
 532         (gfc_simplify_size): Likewise.
 533         (gfc_simplify_trailz): Likewise.
 534         (gfc_simplify_trim): Likewise.
 535         (gfc_simplify_verify): Likewise.
 536         (gfc_simplify_xor): Likewise.
 537         * trans-io.c (build_dt): Likewise.
 538         (gfc_new_nml_name_expr): Removed.
 539
 540 2010-04-12  Daniel Franke  <franke.daniel@gmail.com>
 541
 542         * arith.h (gfc_constant_result): Removed prototype.
 543         * constructor.h (gfc_build_array_expr): Removed prototype.
 544         (gfc_build_structure_constructor_expr): Removed prototype.
 545         * gfortran.h (gfc_int_expr): Removed prototype.
 546         (gfc_logical_expr): Removed prototype.
 547         (gfc_get_array_expr): New prototype.
 548         (gfc_get_structure_constructor_expr): New prototype.
 549         (gfc_get_constant_expr): New prototype.
 550         (gfc_get_int_expr): New prototype.
 551         (gfc_get_logical_expr): New prototype.
 552         * arith.c (gfc_constant_result): Moved and renamed to
 553         expr.c (gfc_get_constant_expr). Fixed all callers.
 554         * constructor.c (gfc_build_array_expr): Moved and renamed to
 555         expr.c (gfc_get_array_expr). Split gfc_typespec argument to type
 556         and kind. Fixed all callers.
 557         (gfc_build_structure_constructor_expr): Moved and renamed to
 558         expr.c (gfc_get_structure_constructor_expr). Split gfc_typespec argument
 559         to type and kind. Fixed all callers.
 560         * expr.c (gfc_logical_expr): Renamed to ...
 561         (gfc_get_logical_expr): ... this. Added kind argument. Fixed all callers.
 562         (gfc_int_expr): Renamed to ...
 563         (gfc_get_int_expr): ... this. Added kind and where arguments. Fixed all
 564         callers.
 565         (gfc_get_constant_expr): New.
 566         (gfc_get_array_expr): New.
 567         (gfc_get_structure_constructor_expr): New.
 568         * simplify.c (int_expr_with_kind): Removed, callers use gfc_get_int_expr
 569         instead.
 570
 571 2010-04-12  Daniel Franke  <franke.daniel@gmail.com>
 572
 573         * constructor.h: New.
 574         * constructor.c: New.
 575         * Make-lang.in: Add new files to F95_PARSER_OBJS.
 576         * arith.c (reducy_unary): Use constructor API.
 577         (reduce_binary_ac): Likewise.
 578         (reduce_binary_ca): Likewise.
 579         (reduce_binary_aa): Likewise.
 580         * check.c (gfc_check_pack): Likewise.
 581         (gfc_check_reshape): Likewise.
 582         (gfc_check_unpack): Likewise.
 583         * decl.c (add_init_expr_to_sym): Likewise.
 584         (build_struct): Likewise.
 585         * dependency.c (gfc_check_dependency): Likewise.
 586         (contains_forall_index_p): Likewise.
 587         * dump-parse-tree.c (show_constructor): Likewise.
 588         * expr.c (free_expr0): Likewise.
 589         (gfc_copy_expr): Likewise.
 590         (gfc_is_constant_expr): Likewise.
 591         (simplify_constructor): Likewise.
 592         (find_array_element): Likewise.
 593         (find_component_ref): Likewise.
 594         (find_array_section): Likewise.
 595         (find_substring_ref): Likewise.
 596         (simplify_const_ref): Likewise.
 597         (scalarize_intrinsic_call): Likewise.
 598         (check_alloc_comp_init): Likewise.
 599         (gfc_default_initializer): Likewise.
 600         (gfc_traverse_expr): Likewise.
 601         * iresolve.c (check_charlen_present): Likewise.
 602         (gfc_resolve_reshape): Likewise.
 603         (gfc_resolve_transfer): Likewise.
 604         * module.c (mio_constructor): Likewise.
 605         * primary.c (build_actual_constructor): Likewise.
 606         (gfc_match_structure_constructor): Likewise.
 607         * resolve.c (resolve_structure_cons): Likewise.
 608         * simplify.c (is_constant_array_expr): Likewise.
 609         (init_result_expr): Likewise.
 610         (transformational_result): Likewise.
 611         (simplify_transformation_to_scalar): Likewise.
 612         (simplify_transformation_to_array): Likewise.
 613         (gfc_simplify_dot_product): Likewise.
 614         (simplify_bound): Likewise.
 615         (simplify_matmul): Likewise.
 616         (simplify_minval_maxval): Likewise.
 617         (gfc_simplify_pack): Likewise.
 618         (gfc_simplify_reshape): Likewise.
 619         (gfc_simplify_shape): Likewise.
 620         (gfc_simplify_spread): Likewise.
 621         (gfc_simplify_transpose): Likewise.
 622         (gfc_simplify_unpack): Likewise.q
 623         (gfc_convert_constant): Likewise.
 624         (gfc_convert_char_constant): Likewise.
 625         * target-memory.c (size_array): Likewise.
 626         (encode_array): Likewise.
 627         (encode_derived): Likewise.
 628         (interpret_array): Likewise.
 629         (gfc_interpret_derived): Likewise.
 630         (expr_to_char): Likewise.
 631         (gfc_merge_initializers): Likewise.
 632         * trans-array.c (gfc_get_array_constructor_size): Likewise.
 633         (gfc_trans_array_constructor_value): Likewise.
 634         (get_array_ctor_strlen): Likewise.
 635         (gfc_constant_array_constructor_p): Likewise.
 636         (gfc_build_constant_array_constructor): Likewise.
 637         (gfc_trans_array_constructor): Likewise.
 638         (gfc_conv_array_initializer): Likewise.
 639         * trans-decl.c (check_constant_initializer): Likewise.
 640         * trans-expr.c (flatten_array_ctors_without_strlen): Likewise.
 641         (gfc_apply_interface_mapping_to_cons): Likewise.
 642         (gfc_trans_structure_assign): Likewise.
 643         (gfc_conv_structure): Likewise.
 644         * array.c (check_duplicate_iterator): Likewise.
 645         (match_array_list): Likewise.
 646         (match_array_cons_element): Likewise.
 647         (gfc_match_array_constructor): Likewise.
 648         (check_constructor_type): Likewise.
 649         (check_constructor): Likewise.
 650         (expand): Likewise.
 651         (expand_constructor): Likewise.
 652         (extract_element): Likewise.
 653         (gfc_expanded_ac): Likewise.
 654         (resolve_array_list): Likewise.
 655         (gfc_resolve_character_array_constructor): Likewise.
 656         (copy_iterator): Renamed to ...
 657         (gfc_copy_iterator): ... this.
 658         (gfc_append_constructor): Removed.
 659         (gfc_insert_constructor): Removed unused function.
 660         (gfc_get_constructor): Removed.
 661         (gfc_free_constructor): Removed.
 662         (qgfc_copy_constructor): Removed.
 663         * gfortran.h (struct gfc_expr): Removed member 'con_by_offset'.
 664         Removed all references. Replaced constructor list by splay-tree.
 665         (struct gfc_constructor): Removed member 'next', moved 'offset' from
 666         the inner struct, added member 'base'.
 667         (gfc_append_constructor): Removed prototype.
 668         (gfc_insert_constructor): Removed prototype.
 669         (gfc_get_constructor): Removed prototype.
 670         (gfc_free_constructor): Removed prototype.
 671         (qgfc_copy_constructor): Removed prototype.
 672         (gfc_copy_iterator): New prototype.
 673         * trans-array.h (gfc_constant_array_constructor_p): Adjusted prototype.
 674
 675 2010-04-10  Tobias Burnus  <burnus@net-b.de>
 676
 677         PR fortran/43591
 678         * expr.c (gfc_is_constant_expr, gfc_traverse_expr): Handle
 679         proc-pointers and type-bound procedures.
 680         (gfc_specification_expr): Check proc-pointers for pureness.
 681
 682 2010-04-09  Iain Sandoe  <iains@gcc.gnu.org>
 683
 684         PR bootstrap/43684
 685         * gfortranspec.c (lang_specific_driver): Do not expose vars
 686         only used by HAVE_LD_STATIC_DYNAMIC targets unless compiling
 687         for such.
 688
 689 2010-04-09  Tobias Burnus  <burnus@net-b.de>
 690
 691         PR fortran/18918
 692         * decl.c (variable_decl, match_attr_spec): Fix setting the array
 693         spec.
 694         * array.c (match_subscript,gfc_match_array_ref): Add coarray support.
 695         * data.c (gfc_assign_data_value): Ditto.
 696         * expr.c (gfc_check_pointer_assign): Add check for coarray constraint.
 697         (gfc_traverse_expr): Traverse also through codimension expressions.
 698         (gfc_is_coindexed, gfc_has_ultimate_allocatable,
 699         gfc_has_ultimate_pointer): New functions.
 700         * gfortran.h (gfc_array_ref_dimen_type): Add DIMEN_STAR for coarrays.
 701         (gfc_array_ref): Add codimen.
 702         (gfc_array_ref): Add in_allocate.
 703         (gfc_is_coindexed, gfc_has_ultimate_allocatable,
 704         gfc_has_ultimate_pointer): Add prototypes.
 705         * interface.c (compare_parameter, compare_actual_formal,
 706         check_intents): Add coarray constraints.
 707         * match.c (gfc_match_iterator): Add coarray constraint.
 708         * match.h (gfc_match_array_ref): Update interface.
 709         * primary.c (gfc_match_varspec): Handle codimensions.
 710         * resolve.c (coarray_alloc, inquiry_argument): New static variables.
 711         (check_class_members): Return gfc_try instead for error recovery.
 712         (resolve_typebound_function,resolve_typebound_subroutine,
 713         check_members): Handle return value of check_class_members.
 714         (resolve_structure_cons, resolve_actual_arglist, resolve_function,
 715         check_dimension, compare_spec_to_ref, resolve_array_ref,
 716         resolve_ref, resolve_variable, gfc_resolve_expr, conformable_arrays,
 717         resolve_allocate_expr, resolve_ordinary_assign): Add coarray
 718         support.
 719         * trans-array.c (gfc_conv_array_ref, gfc_walk_variable_expr):
 720         Skip over coarray refs.
 721         (gfc_array_allocate) Add support for references containing coindexes.
 722         * trans-expr.c (gfc_add_interface_mapping): Copy coarray attribute.
 723         (gfc_map_intrinsic_function): Ignore codimensions.
 724
 725 2010-04-08  Bud Davis  <bdavis9659@sbcglobal.net>
 726
 727         PR fortran/28039
 728         * io.c (check_format_string):  Added check for additional non
 729         blank characters after the format string was successfully
 730         parsed.
 731         * io.c (check_format): Changed the error messages for positive
 732         int required and period required to drop through the error logic
 733         and report with gfc_error instead of gfc_error_now.  Corrected
 734         format postion for hollerith strings.
 735
 736 2010-04-08  Tobias Burnus  <burnus@net-b.de>
 737
 738         * module.c (use_iso_fortran_env_module): Fix standard check.
 739
 740 2010-04-07  Jakub Jelinek  <jakub@redhat.com>
 741
 742         * parse.c (parse_derived, parse_enum): Avoid set but not used
 743         warning.
 744
 745 2010-04-07  Janne Blomqvist  <jb@gcc.gnu.org>
 746
 747         PR fortran/40539
 748         * gfortran.texi: Add section about representation of
 749         LOGICAL variables.
 750
 751 2010-04-07  Simon Baldwin  <simonb@google.com>
 752
 753         * cpp.c (cb_cpp_error): Add warning reason argument, set a value
 754         for diagnostic_override_option_index if CPP_W_WARNING_DIRECTIVE.
 755
 756 2010-04-07  Richard Guenther  <rguenther@suse.de>
 757
 758         * options.c (gfc_init_options): Do not set.
 759
 760 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 761
 762         PR fortran/18918
 763         * array.c (gfc_match_array_spec): Add error for -fcoarray=none.
 764         * match.c (gfc_match_critical, sync_statement): Ditto.
 765         * gfortran.h (gfc_fcoarray): New enum.
 766         (gfc_option_t): Use it.
 767         * lang.opt (fcoarray): Add new flag.
 768         * invoke.texi (fcoarray): Document it.
 769         * options.c (gfc_init_options,gfc_handle_option): Handle -fcoarray=.
 770         (gfc_handle_coarray_option): New function.
 771
 772 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 773
 774         PR fortran/18918
 775         * gfortran.h (gfc_array_spec): Add cotype.
 776         * array.c (gfc_match_array_spec,gfc_set_array_spec): Use it
 777         and defer error diagnostic.
 778         * resolve.c (resolve_fl_derived): Add missing check.
 779         (resolve_symbol): Add cotype/type check.
 780         * parse.c (parse_derived): Fix setting of coarray_comp.
 781
 782 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 783
 784         PR fortran/18918
 785         * array.c (gfc_free_array_spec,gfc_resolve_array_spec,
 786         match_array_element_spec,gfc_copy_array_spec,
 787         gfc_compare_array_spec): Include corank.
 788         (match_array_element_spec,gfc_set_array_spec): Support codimension.
 789         * decl.c (build_sym,build_struct,variable_decl,
 790         match_attr_spec,attr_decl1,cray_pointer_decl,
 791         gfc_match_volatile): Add codimension.
 792         (gfc_match_codimension): New function.
 793         * dump-parse-tree.c (show_array_spec,show_attr): Support codimension.
 794         * gfortran.h (symbol_attribute,gfc_array_spec): Ditto.
 795         (gfc_add_codimension): New function prototype.
 796         * match.h (gfc_match_codimension): New function prototype.
 797         (gfc_match_array_spec): Update prototype
 798         * match.c (gfc_match_common): Update gfc_match_array_spec call.
 799         * module.c (MOD_VERSION): Bump.
 800         (mio_symbol_attribute): Support coarray attributes.
 801         (mio_array_spec): Add corank support.
 802         * parse.c (decode_specification_statement,decode_statement,
 803         parse_derived): Add coarray support.
 804         * resolve.c (resolve_formal_arglist, was_declared,
 805         is_non_constant_shape_array, resolve_fl_variable,
 806         resolve_fl_derived, resolve_symbol): Add coarray support.
 807         * symbol.c (check_conflict, gfc_add_volatile, gfc_copy_attr,
 808         gfc_build_class_symbol): Add coarray support.
 809         (gfc_add_codimension): New function.
 810
 811 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 812
 813         PR fortran/18918
 814         * iso-fortran-env.def: Add the integer parameters atomic_int_kind,
 815         atomic_logical_kind, iostat_inquire_internal_unit, stat_locked,
 816         stat_locked_other_image, stat_stopped_image and stat_unlocked of
 817         Fortran 2008.
 818         * intrinsic.texi (iso_fortran_env): Ditto.
 819         * libgfortran.h (libgfortran_stat_codes): New enum.
 820         * module.c (use_iso_fortran_env_module): Honour -std= when loading
 821         constants from the intrinsic module.
 822
 823 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 824
 825         PR fortran/39997
 826         * intrinsic.c (add_functions): Add num_images.
 827         * decl.c (gfc_match_end): Handle END CRITICAL.
 828         * intrinsic.h (gfc_simplify_num_images): Add prototype.
 829         * dump-parse-tree.c (show_code_node): Dump CRITICAL, ERROR STOP,
 830         and SYNC.
 831         * gfortran.h (gfc_statement): Add enum items for those.
 832         (gfc_exec_op) Ditto.
 833         (gfc_isym_id): Add num_images.
 834         * trans-stmt.c (gfc_trans_stop): Handle ERROR STOP.
 835         (gfc_trans_sync,gfc_trans_critical): New functions.
 836         * trans-stmt.h (gfc_trans_stop,gfc_trans_sync,
 837         gfc_trans_critical): Add/update prototypes.
 838         * trans.c (gfc_trans_code): Handle CRITICAL, ERROR STOP,
 839         and SYNC statements.
 840         * trans.h (gfor_fndecl_error_stop_string) Add variable.
 841         * resolve.c (resolve_sync): Add function.
 842         (gfc_resolve_blocks): Handle CRITICAL.
 843         (resolve_code): Handle CRITICAL, ERROR STOP,
 844         (resolve_branch): Add CRITICAL constraint check.
 845         and SYNC statements.
 846         * st.c (gfc_free_statement): Add new statements.
 847         * trans-decl.c (gfor_fndecl_error_stop_string): Global variable.
 848         (gfc_build_builtin_function_decls): Initialize it.
 849         * match.c (gfc_match_if): Handle ERROR STOP and SYNC.
 850         (gfc_match_critical, gfc_match_error_stop, sync_statement,
 851         gfc_match_sync_all, gfc_match_sync_images, gfc_match_sync_memory):
 852         New functions.
 853         (match_exit_cycle): Handle CRITICAL constraint.
 854         (gfc_match_stopcode): Handle ERROR STOP.
 855         * match.h (gfc_match_critical, gfc_match_error_stop,
 856         gfc_match_sync_all, gfc_match_sync_images,
 857         gfc_match_sync_memory): Add prototype.
 858         * parse.c (decode_statement, gfc_ascii_statement,
 859         parse_executable): Handle new statements.
 860         (parse_critical_block): New function.
 861         * parse.h (gfc_compile_state): Add COMP_CRITICAL.
 862         * intrinsic.texi (num_images): Document new function.
 863         * simplify.c (gfc_simplify_num_images): Add function.
 864
 865 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 866
 867         PR fortran/43178
 868         * trans-array.c (gfc_conv_expr_descriptor): Update
 869         gfc_trans_scalar_assign call.
 870         (has_default_initializer): New function.
 871         (gfc_trans_deferred_array): Nullify less often.
 872         * trans-expr.c (gfc_conv_subref_array_arg,
 873         gfc_trans_subcomponent_assign): Update call to
 874         gfc_trans_scalar_assign.
 875         (gfc_trans_scalar_assign): Add parameter and pass it on.
 876         (gfc_trans_assignment_1): Optionally, do not dealloc before
 877         assignment.
 878         * trans-openmp.c (gfc_trans_omp_array_reduction): Update
 879         call to gfc_trans_scalar_assign.
 880         * trans-decl.c (gfc_get_symbol_decl): Do not always apply
 881         initializer to static variables.
 882         (gfc_init_default_dt): Add dealloc parameter and pass it on.
 883         * trans-stmt.c (forall_make_variable_temp,
 884         generate_loop_for_temp_to_lhs, generate_loop_for_rhs_to_temp,
 885         gfc_trans_forall_1, gfc_trans_where_assign, gfc_trans_where_3
 886         gfc_trans_allocate): Update gfc_trans_assignment call.
 887         * trans.h (gfc_trans_scalar_assign, gfc_init_default_dt,
 888         gfc_init_default_dt, gfc_trans_assignment): Add bool dealloc
 889         parameter to prototype.
 890
 891 2010-03-31  Paul Thomas  <pault@gcc.gnu.org>
 892
 893         * ioparm.def : Update copyright.
 894         * lang.opt : ditto
 895         * trans-array.c : ditto
 896         * trans-array.h : ditto
 897         * expr.c: ditto
 898         * trans-types.c: ditto
 899         * dependency.c : ditto
 900         * gfortran.h : ditto
 901         * options.c : ditto
 902         * trans-io.c : ditto
 903         * trans-intrinsic.c : ditto
 904         * libgfortran.h : ditto
 905         * invoke.texi : ditto
 906         * intrinsic.texi : ditto
 907         * trans.c : ditto
 908         * trans.h : ditto
 909         * intrinsic.c : ditto
 910         * interface.c : ditto
 911         * iresolve.c : ditto
 912         * trans-stmt.c : ditto
 913         * trans-stmt.h : ditto
 914         * parse,c : ditto
 915         * match.h : ditto
 916         * error.c : ditto
 917
 918 2010-03-20  Paul Thomas  <pault@gcc.gnu.org>
 919
 920         PR fortran/43450
 921         * trans-decl.c (gfc_create_module_variable): With -fwhole-file
 922         do not assert the context of derived types.
 923
 924 2010-03-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 925
 926         PR fortran/43409
 927         * ioparm.def: Change inquire size variable to type pointer to
 928         GFC_IO_INT type.
 929
 930 2010-03-18  Paul Thomas  <pault@gcc.gnu.org>
 931
 932         PR fortran/43039
 933         * trans-expr.c (conv_parent_component_references): Ensure that
 934         'dt' has a backend_decl.
 935
 936         PR fortran/43043
 937         * trans-expr.c (gfc_conv_structure): Ensure that the derived
 938         type has a backend_decl.
 939
 940         PR fortran/43044
 941         * resolve.c (resolve_global_procedure): Check that the 'cl'
 942         structure is not NULL.
 943
 944 2010-03-18  Shujing Zhao  <pearly.zhao@oracle.com>
 945
 946         * lang.opt (-ffixed-line-length-, ffree-line-length-): Remove
 947         redundant tab.
 948
 949 2010-03-17  Tobias Burnus  <burnus@net-b.de>
 950
 951         PR fortran/43331
 952         * trans-array.c (gfc_conv_array_index_offset,gfc_conv_array_ref,
 953         gfc_conv_ss_startstride): Remove no-longer-needed cp_was_assumed
 954         check.
 955         * decl.c (gfc_match_derived_decl): Don't mark assumed-size Cray
 956         pointees as having explizit size.
 957         * expr.c (gfc_check_assign): Remove now unreachable Cray pointee
 958         check.
 959         * trans-types.c (gfc_is_nodesc_array): Add cp_was_assumed to assert.
 960         (gfc_sym_type): Don't mark Cray pointees as restricted pointers.
 961         * resolve.c (resolve_symbol): Handle cp_was_assumed.
 962         * trans-decl.c (gfc_trans_deferred_vars): Ditto.
 963         (gfc_finish_var_decl): Don't mark Cray pointees as restricted
 964         pointers.
 965
 966 2010-03-14  Tobias Burnus  <burnus@net-b.de>
 967
 968         PR fortran/43362
 969         * resolve.c (resolve_structure_cons): Add missing PURE constraint.
 970         (resolve_ordinary_assign): Add check to avoid segfault.
 971
 972 2010-03-12  Paul Thomas  <pault@gcc.gnu.org>
 973
 974         PR fortran/43291
 975         PR fortran/43326
 976         * resolve.c (resolve_compcall): Add new boolean dummy argument
 977         'class_members'. Only resolve expression at end if false.
 978         Remove redundant, static variable 'class_object'.
 979         (check_class_members): Add extra argument to call of
 980         resolve_compcall.
 981         (resolve_typebound_function): Renamed resolve_class_compcall.
 982         Do all the detection of class references here. Correct calls to
 983         resolve_compcall for extra argument.
 984         (resolve_typebound_subroutine): resolve_class_typebound_call
 985         renamed. Otherwise same as resolve_typebound_function.
 986         (gfc_resolve_expr): Call resolve_typebound_function.
 987         (resolve_code): Call resolve_typebound_subroutine.
 988
 989 2010-03-10  Tobias Burnus  <burnus@net-b.de
 990
 991         PR fortran/43303
 992         * symbol.c (get_iso_c_sym): Set sym->result.
 993
 994 2010-03-08  Janus Weil  <janus@gcc.gnu.org>
 995
 996         PR fortran/43256
 997         * resolve.c (resolve_compcall): Don't set 'value.function.name' here
 998         for TBPs, otherwise they will not be resolved properly.
 999         (resolve_function): Use 'value.function.esym' instead of
1000         'value.function.name' to check if we're dealing with a TBP.
1001         (check_class_members): Set correct type of passed object for all TBPs,
1002         not only generic ones, except if the type is abstract.
1003
1004 2010-03-04  Janus Weil  <janus@gcc.gnu.org>
1005
1006         PR fortran/43244
1007         * decl.c (gfc_match_final_decl): Make sure variable names starting with
1008         'final...' are not misinterpreted as FINAL statements.
1009
1010 2010-03-03  Paul Thomas  <pault@gcc.gnu.org>
1011
1012         PR fortran/43243
1013         * trans-array.c (gfc_conv_array_parameter): Contiguous refs to
1014         allocatable ultimate components do not need temporaries, whilst
1015         ultimate pointer components do.
1016
1017 2010-03-03  Janus Weil  <janus@gcc.gnu.org>
1018
1019         PR fortran/43169
1020         * resolve.c (resolve_code): Correctly set gfc_current_ns for
1021         EXEC_SELECT_TYPE.
1022         (gfc_impure_variable): Make it work with sub-namespaces (BLOCK etc).
1023         (gfc_pure): Ditto.
1024
1025 2010-03-02  Paul Thomas  <pault@gcc.gnu.org>
1026
1027         PR fortran/43180
1028         * trans-array.c (gfc_conv_array_parameter): A full array of
1029         derived type need not be restricted to a symbol without an
1030         array spec to use the call to gfc_conv_expr_descriptor.
1031
1032         PR fortran/43173
1033         * trans-array.c (gfc_conv_array_parameter): Contiguous refs to
1034         allocatable arrays do not need temporaries.
1035
1036 2010-03-01  Tobias Burnus  <burnus@net-b.de>
1037
1038         PR fortran/43199
1039         * resolve.c (find_array_spec): Handle REF_COMPONENT with
1040         CLASS components.
1041
1042 2010-02-28  Tobias Burnus  <burnus@net-b.de>
1043
1044         PR fortran/43205
1045         * trans-expr.c (is_zero_initializer_p): Move up in the file.
1046         (gfc_conv_initializer): Handle zero initializer as special case.
1047
1048 2010-02-27  Tobias Burnus  <burnus@net-b.de>
1049
1050         PR fortran/43185
1051         * resolve.c (resolve_fl_variable_derived): Imply SAVE
1052         for module variables for Fortran 2008.
1053
1054 2010-02-25  Jakub Jelinek  <jakub@redhat.com>
1055
1056         PR debug/43166
1057         * trans-common.c (build_common_decl): Also update DECL_MODE,
1058         and DECL_SIZE when encountering a larger common block and call
1059         layout_decl.
1060
1061 2010-02-24  Tobias Burnus  <burnus@net-b.de>
1062
1063         PR fortran/43042
1064         * trans-expr.c (gfc_conv_initializer): Call directly
1065         gfc_conv_constant for C_NULL_(FUN)PTR.
1066
1067 2010-02-22  Paul Thomas  <pault@gcc.gnu.org>
1068
1069         PR fortran/43072
1070         * dependency.c (gfc_full_array_ref_p): Check for contiguous by
1071         checking the rest of the dimensions for elements.
1072
1073 2010-02-21  Tobias Burnus  <burnus@net-b.de>
1074
1075         PR fortran/35259
1076         * gfortran.h (gfc_option_t): New flag -fprotect-parens.
1077         * lang.opt: Ditto.
1078         * option.c (gfc_init_options,gfc_handle_option): Ditto.
1079         * trans-expr.c (gfc_conv_expr_op): Use the flag.
1080         * invoke.texi: Document new -fno-protect-parens flag.
1081
1082 2010-02-20  Paul Thomas  <pault@gcc.gnu.org>
1083
1084         PR fortran/36932
1085         PR fortran/36933
1086         PR fortran/43072
1087         PR fortran/43111
1088         * dependency.c (gfc_check_argument_var_dependency): Use enum
1089         value instead of arithmetic vaue for 'elemental'.
1090         (check_data_pointer_types): New function.
1091         (gfc_check_dependency): Call check_data_pointer_types.
1092         * trans-array.h : Change fourth argument of
1093         gfc_conv_array_parameter to boolean.
1094         * trans-array.c (gfc_conv_array_parameter): A contiguous array
1095         can be a dummy but it must not be assumed shape or deferred.
1096         Change fourth argument to boolean. Array constructor exprs will
1097         always be contiguous and do not need packing and unpacking.
1098         * trans-expr.c (gfc_conv_procedure_call): Clean up some white
1099         space and change fourth argument of gfc_conv_array_parameter
1100         to boolean.
1101         (gfc_trans_arrayfunc_assign): Change fourth argument of
1102         gfc_conv_array_parameter to boolean.
1103         * trans-io.c (gfc_convert_array_to_string): The same.
1104         * trans-intrinsic.c (gfc_conv_intrinsic_loc): The same.
1105
1106 2010-02-20  Tobias Burnus  <burnus@net-b.de>
1107
1108         PR fortran/42958
1109         * libgfortran.h: Add GFC_RTCHECK_MEM.
1110         * invoke.texi (-fcheck=): Document -fcheck=mem.
1111         * tranc.c (gfc_call_malloc): Remove negative-size run-time error
1112         and enable malloc-success check only with -fcheck=mem.
1113         * option.c (gfc_handle_runtime_check_option): Add -fcheck=mem.
1114
1115 2010-02-16  Tobias Burnus  <burnus@net-b.de>
1116
1117         PR fortran/43040
1118         * gfortran.h (gfc_isym_id): Rename GFS_ISYM_GAMMA to GFS_ISYM_TGAMMA.
1119         * intrinsic.c (add_functions): Ditto.
1120         * iresolve.c (gfc_resolve_gamma): Call tgamma instead of gamma.
1121         * mathbuiltins.def: Use TGAMMA instead of GAMMA with "tgamma".
1122
1123 2010-02-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1124
1125         PR fortran/32382
1126         * trans-stmt.h: Add prototype for gfc_trans_code_cond. Add tree cond to
1127         gfc_trans_do prototype.
1128         * trans-stmt.c (gfc_trans_simple_do): Add optional argument to pass in
1129         a loop exit condition.  If exit condition is given, build the loop exit
1130         code, checking IO results of implied do loops in READ and WRITE.
1131         (gfc_trans_do): Likewise.
1132         * trans.c (trans_code): New static work function, previously
1133         gfc_trans_code. Passes exit condition to gfc_trans_do.
1134         (gfc_trans_code): Calls trans_code with NULL_TREE condition.
1135         (gfc_trans_code_cond): Calls trans_code with loop exit condition.
1136         * trans-io.c (build_dt): Build an exit condition to allow checking IO
1137         result status bits in the dtparm structure. Use this condition in call
1138         to gfc_trans_code_cond.
1139
1140 2010-02-13  Paul Thomas  <pault@gcc.gnu.org>
1141
1142         PR fortran/41113
1143         PR fortran/41117
1144         * trans-array.c (gfc_conv_array_parameter): Use
1145         gfc_full_array_ref_p to detect full and contiguous variable
1146         arrays. Full array components and contiguous arrays do not need
1147         internal_pack and internal_unpack.
1148
1149 2010-02-11  Jakub Jelinek  <jakub@redhat.com>
1150
1151         PR fortran/43030
1152         * resolve.c (gfc_resolve_dim_arg): Call gfc_clear_ts.
1153
1154         PR fortran/43029
1155         * decl.c (enumerator_decl): Don't call gfc_free_enum_history
1156         here.
1157         (gfc_match_enumerator_def): But here whenever enumerator_decl returns
1158         MATCH_ERROR.
1159
1160 2010-02-10  Joost VandeVondele <jv244@cam.ac.uk>
1161             Tobias Burnus <burnus@net-b.de>
1162
1163         PR fortran/40823
1164         * decl.c (gfc_match_subroutine): Explicitly set sym->declared_at.
1165
1166 2010-02-10  Tobias Burnus  <burnus@net-b.de>
1167
1168         PR fortran/43015
1169         * trans-decl.c (gfc_generate_function_code): Only check
1170         actual-vs.-dummy character bounds if not bind(C).
1171
1172 2010-02-10  Jakub Jelinek  <jakub@redhat.com>
1173
1174         PR fortran/42309
1175         * trans-expr.c (gfc_conv_subref_array_arg): Avoid accessing
1176         info->dimen after info has been freed.
1177
1178 2010-02-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1179
1180         PR fortran/42999
1181         * array.c (gfc_constant_ac): Do not prevent expansion of constructors
1182         with iterators.
1183
1184 2010-02-09  Jakub Jelinek  <jakub@redhat.com>
1185
1186         * module.c (fix_mio_expr): Declare sym.
1187
1188 2010-02-09  Paul Thomas  <pault@gcc.gnu.org>
1189
1190         PR fortran/41869
1191         * module.c (fix_mio_expr): Fix for private generic procedures.
1192
1193 2010-02-09  Daniel Kraft  <d@domob.eu>
1194
1195         PR fortran/39171
1196         * resolve.c (resolve_charlen): Change warning about negative CHARACTER
1197         length to be correct and issue only with -Wsurprising.
1198         * invoke.texi (Wsurprising): Mention this new warning that is
1199         turned on by -Wsurprising.
1200
1201 2010-02-09  Daniel Kraft  <d@domob.eu>
1202
1203         PR fortran/41507
1204         * intrinsic.texi (MAXVAL): Remove wrong claim that array argument
1205         can be CHARACTER type.
1206         (MINVAL), (MAXLOC), (MINLOC): Ditto.
1207
1208 2010-02-05  Paul Thomas  <pault@gcc.gnu.org>
1209
1210         PR fortran/42309
1211         * trans-expr.c (gfc_conv_subref_array_arg): Add new argument
1212         'formal_ptr'. If this is true, give returned descriptor unity
1213         lbounds, in all dimensions, and the appropriate offset.
1214         (gfc_conv_procedure_call); If formal is a pointer, set the last
1215         argument of gfc_conv_subref_array_arg to true.
1216         * trans.h : Add last argument for gfc_conv_subref_array_arg.
1217         * trans-io.c (set_internal_unit, gfc_trans_transfer): Set the
1218         new arg of gfc_conv_subref_array_arg to false.
1219         * trans-stmt.c (forall_make_variable_temp): The same.
1220
1221 2010-02-03  Tobias Burnus  <burnus@net-b.de>
1222
1223         PR fortran/42936
1224         * interface.c (compare_parameter): Disable rank-checking
1225         for NULL().
1226
1227 2010-02-02  Tobias Burnus  <burnus@net-b.de>
1228
1229         PR fortran/42650
1230         * parse.c (decode_specification_statement): Use sym->result not sym.
1231
1232 2010-02-01  Tobias Burnus  <burnus@net-b.de>
1233
1234         PR fortran/42922
1235         * decl.c (variable_decl): Allow default initializer in
1236         TYPE declarations in PURE functions.
1237
1238 2010-01-31  Janus Weil  <janus@gcc.gnu.org>
1239
1240         PR fortran/42888
1241         * resolve.c (resolve_allocate_expr): Move default initialization code
1242         here from gfc_trans_allocate.
1243         * trans.c (gfc_trans_code): Call gfc_trans_class_assign also for
1244         EXEC_INIT_ASSIGN.
1245         * trans-expr.c (gfc_trans_class_assign): Handle default initialization
1246         of CLASS variables via memcpy.
1247         * trans-stmt.c (gfc_trans_allocate): Move default initialization code
1248         to resolve_allocate_expr.
1249
1250 2010-01-31  Paul Thomas  <pault@gcc.gnu.org>
1251
1252         PR fortran/38324
1253         * expr.c (gfc_get_full_arrayspec_from_expr): New function.
1254         * gfortran.h : Add prototype for above.
1255         * trans-expr.c (gfc_trans_alloc_subarray_assign): New function.
1256         (gfc_trans_subcomponent_assign): Call new function to replace
1257         the code to deal with allocatable components.
1258         * trans-intrinsic.c (gfc_conv_intrinsic_bound): Call
1259         gfc_get_full_arrayspec_from_expr to replace existing code.
1260
1261 2010-01-25  Tobias Burnus  <burnus@net-b.de>
1262
1263         PR fortran/42858
1264         * array.c (gfc_array_dimen_size): Fix intrinsic procedure
1265         check.
1266
1267 2010-01-24  Paul Thomas  <pault@gcc.gnu.org>
1268
1269         PR fortran/41044
1270         PR fortran/41167
1271         * expr.c (remove_subobject_ref): If the constructor is NULL use
1272         the expression as the source.
1273         (simplify_const_ref): Change the type of expression if
1274         there are component references.  Allow for substring to be at
1275         the end of an arbitrarily long chain of references.  If an
1276         element is found that is not in an EXPR_ARRAY, assume that this
1277         is scalar initialization of array. Call remove_subobject_ref in
1278         this case with NULL second argument.
1279
1280 2010-01-24  Tobias Burnus  <burnus@net-b.de>
1281
1282         PR fortran/39304
1283         * array.c (gfc_array_dimen_size): Use correct specific
1284         function in the check.
1285
1286 2010-01-21  Paul Thomas  <pault@gcc.gnu.org>
1287
1288         PR fortran/42736
1289         * trans-stmt.c (gfc_conv_elemental_dependencies): If temporary
1290         is required, turn any trailing array elements after a range
1291         into ranges so that offsets can be calculated.
1292
1293 2010-01-20  Joern Rennecke  <amylaar@spamcop.net>
1294
1295         * module.c (mio_f2k_derived): Use enumerator as initializer of
1296         enum variable.
1297
1298         PR bootstrap/42812
1299         * gfortran.h  (struct gfc_namespace) <resolved>: Change to signed
1300         bitfield of width 2.
1301
1302 2010-01-19  Janus Weil  <janus@gcc.gnu.org>
1303
1304         PR fortran/42804
1305         * resolve.c (extract_compcall_passed_object): Set locus for
1306         passed-object argument.
1307         (extract_ppc_passed_object): Set locus and correctly remove PPC
1308         reference.
1309
1310 2010-01-19  Paul Thomas  <pault@gcc.gnu.org>
1311
1312         PR fortran/42783
1313         * trans-decl.c (add_argument_checking): Do not use the backend
1314         decl directly to test for the presence of an optional dummy
1315         argument.  Use gfc_conv_expr_present, remembering to set the
1316         symbol referenced.
1317
1318         PR fortran/42772
1319         * trans-decl.c (gfc_generate_function_code): Small white space
1320         changes. If 'recurcheckvar' is NULL do not try to reset it.
1321
1322 2010-01-19  Janus Weil  <janus@gcc.gnu.org>
1323
1324         PR fortran/42545
1325         * resolve.c (resolve_fl_derived): Set the accessibility of the parent
1326         component for extended types.
1327         * symbol.c (gfc_find_component): Remove a wrongly-worded error message
1328         and take care of parent component accessibility.
1329
1330 2010-01-17  Janus Weil  <janus@gcc.gnu.org>
1331
1332         PR fortran/42677
1333         * gfortran.h (symbol_attribute): Remove 'ambiguous_interfaces'.
1334         * interface.c (check_interface1): Move a warning message here from
1335         resolve_fl_procedure.
1336         (check_sym_interfaces): Removed 'attr.ambiguous_interfaces'.
1337         * module.c (read_module): Remove call to gfc_check_interfaces, since
1338         this comes too early here.
1339         * resolve.c (resolve_fl_procedure): Move warning message to
1340         check_interface1.
1341
1342 2010-01-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1343
1344         PR fortran/42684
1345         * interface.c (check_interface1): Pass symbol name rather than NULL to
1346         gfc_compare_interfaces. (gfc_compare_interfaces): Add assert to
1347         trap MULL.
1348         * resolve.c (check_generic_tbp_ambiguity): Pass symbol name rather
1349         than NULL to gfc_compare_interfaces.
1350
1351 2010-01-14  Paul Thomas  <pault@gcc.gnu.org>
1352
1353         PR fortran/41478
1354         * trans-array.c (duplicate_allocatable):  Static version of
1355         gfc_duplicate_allocatable with provision to handle scalar
1356         components. New boolean argument to switch off call to malloc
1357         if true.
1358         (gfc_duplicate_allocatable): New function to call above with
1359         new argument false.
1360         (gfc_copy_allocatable_data): New function to call above with
1361         new argument true.
1362         (structure_alloc_comps): Do not apply indirect reference to
1363         scalar pointers. Add new section to copy allocatable components
1364         of arrays. Extend copying of allocatable components to include
1365         scalars.
1366         (gfc_copy_only_alloc_comp): New function to copy allocatable
1367         component derived types, without allocating the base structure.
1368         * trans-array.h : Add primitive for gfc_copy_allocatable_data.
1369         Add primitive for gfc_copy_only_alloc_comp.
1370         * trans-expr.c (gfc_conv_procedure_call): After calls to
1371         transformational functions with results that are derived types
1372         with allocatable components, copy the components in the result.
1373         (gfc_trans_arrayfunc_assign): Deallocate allocatable components
1374         of lhs derived types before allocation.
1375
1376 2010-01-14  Paul Thomas  <pault@gcc.gnu.org>
1377
1378         PR fortran/42481
1379         * module.c (load_generic_interfaces): If a procedure that is
1380         use associated but not generic is given an interface that
1381         includes itself, then make it generic.
1382
1383 2010-01-11  Joseph Myers  <joseph@codesourcery.com>
1384             Shujing Zhao  <pearly.zhao@oracle.com>
1385
1386         PR translation/42469
1387         * lang.opt (fblas-matmul-limit=, finit-character=, finit-integer=,
1388         finit-logical=, finit-real=, fmax-array-constructor=): Use tab
1389         character between option name and help text.
1390
1391 2010-01-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1392
1393         PR fortran/20923
1394         PR fortran/32489
1395         * trans-array.c (gfc_conv_array_initializer): Change call to
1396         gfc_error_now to call to gfc_fatal_error.
1397         * array.c (count_elements): Whitespace. (extract_element): Whitespace.
1398         (is_constant_element): Changed name from constant_element.
1399         (gfc_constant_ac): Only use expand_construuctor for expression
1400         types of EXPR_ARRAY.  If expression type is EXPR_CONSTANT, no need to
1401         call gfc_is_constant_expr.
1402         * expr.c (gfc_reduce_init_expr): Adjust conditionals and delete error
1403         message.
1404         * resolve.c (gfc_is_expandable_expr): New function that determiners if
1405         array expressions should have their constructors expanded.
1406         (gfc_resolve_expr): Use new function to determine whether or not to call
1407         gfc_expand_constructor.
1408
1409 2010-01-09  Tobias Burnus  <burnus@net-b.de>
1410
1411         PR fortran/41298
1412         * trans-expr.c (gfc_trans_structure_assign): Handle
1413         c_null_(fun)ptr.
1414         * symbol.c (gen_special_c_interop_ptr): Add NULL_EXPR
1415         to the constructor for c_null_(fun)ptr.
1416         * resolve.c (resolve_structure_cons): Add special case
1417         for c_null_(fun)ptr.
1418
1419 2010-01-09  Jakub Jelinek  <jakub@redhat.com>
1420
1421         * gfortranspec.c (lang_specific_driver): Update copyright notice
1422         dates.
1423
1424 2010-01-08  Tobias Burnus  <burnus@net-b.de>
1425
1426         PR/fortran 25829
1427         * symbol.c (check_conflict, gfc_copy_attr): Add
1428         ASYNCHRONOUS support.
1429         (gfc_add_asynchronous): New function.
1430         * decl.c (match_attr_spec): Add ASYNCHRONOUS support.
1431         (gfc_match_asynchronous): New function.
1432         * dump-parse-tree.c (show_attr): Add ASYNCHRONOUS support.
1433         * gfortran.h (symbol_attribute): New ASYNCHRONOUS bit.
1434         (gfc_add_asynchronous): New Prototype.
1435         * module.c (ab_attribute, mio_symbol_attribute): Add
1436         ASYNCHRONOUS support.
1437         * resolve.c (was_declared): Ditto.
1438         * match.h (gfc_match_asynchronous): New prototype.
1439         * parse.c (decode_specification_statement,decode_statement):
1440         Add ASYNCHRONOUS support.
1441
1442 2010-01-07  Tobias Burnus  <burnus@net-b.de>
1443
1444         PR fortran/42597
1445         * trans-decl.c (get_proc_pointer_decl): Fix call to
1446         gfc_conv_initializer for array-valued proc-pointer funcs.
1447
1448 2010-01-07  Tobias Burnus  <burnus@net-b.de>
1449
1450         PR fortran/41872
1451         * trans-decl.c (gfc_trans_deferred_vars): Don't initialize
1452         allocatable scalars with SAVE attribute.
1453
1454 2010-01-05  Tobias Burnus  <burnus@net-b.de>
1455
1456         PR fortran/42517
1457         * options.c (gfc_post_options): Set -frecursion
1458         when -fopenmp is used.
1459
1460 2010-01-05  Tobias Burnus  <burnus@net-b.de>
1461
1462         PR fortran/41872
1463         * trans-expr.c (gfc_conv_procedure_call): Nullify
1464         return value for allocatable-scalar character functions.
1465
1466 2010-01-04  Tobias Burnus  <burnus@net-b.de>
1467
1468         PR fortran/36161
1469         * error.c (error_printf, gfc_warning, gfc_notify_std,
1470         gfc_warning_now, gfc_error, gfc_error_now,
1471         gfc_fatal_error): Change argument name from nocmsgid to
1472         gmsgid to enable (x)gettext's % checking.
1473
1474 2010-01-04  Tobias Burnus  <burnus@net-b.de>
1475
1476         * trans-decl.c (gfc_trans_deferred_vars): Fix spelling.
1477
1478 2010-01-04  Tobias Burnus  <burnus@net-b.de>
1479
1480         PR fortran/41872
1481         * trans-expr.c (gfc_conv_procedure_call): Add indirect ref
1482         for functions returning allocatable scalars.
1483         * trans-stmt.c (gfc_trans_allocate): Emmit error when
1484         reallocating an allocatable scalar.
1485         * trans.c (gfc_allocate_with_status): Fix pseudocode syntax
1486         in comment.
1487         * trans-decl.c (gfc_trans_deferred_vars): Nullify local
1488         allocatable scalars.
1489         (gfc_generate_function_code): Nullify result variable for
1490         allocatable scalars.
1491
1492         PR fortran/40849
1493         * module.c (gfc_use_module): Fix warning string to allow
1494         for translation.
1495
1496         PR fortran/42517
1497         * invoke.texi (-fcheck=recursion): Mention that the checking
1498         is also disabled for -frecursive.
1499         * trans-decl.c (gfc_generate_function_code): Disable
1500         -fcheck=recursion when -frecursive is used.
1501
1502         * intrinsic.texi (iso_c_binding): Improve wording.
1503
1504 \f
1505 Copyright (C) 2010 Free Software Foundation, Inc.
1506
1507 Copying and distribution of this file, with or without modification,
1508 are permitted in any medium without royalty provided the copyright
1509 notice and this notice are preserved.