gcc/fortran/ChangeLog

   1 2012-01-29  Janne Blomqvist  <jb@gcc.gnu.org>
   2
   3         PR fortran/51808
   4         * decl.c (set_binding_label): Move prototype from match.h to here.
   5         (curr_binding_label): Make a pointer rather than static array.
   6         (build_sym): Check sym->binding_label pointer rather than array,
   7         update set_binding_label call, handle curr_binding_label changes.
   8         (set_binding_label): Handle new curr_binding_label, dest_label
   9         double ptr, and sym->binding_label.
  10         (verify_bind_c_sym): Handle sym->binding_label being a pointer.
  11         (set_verify_bind_c_sym): Check sym->binding_label pointer rather
  12         than array, update set_binding_label call.
  13         (gfc_match_bind_c_stmt): Handle curr_binding_label change.
  14         (match_procedure_decl): Update set_binding_label call.
  15         (gfc_match_bind_c): Change binding_label to pointer, update
  16         gfc_match_name_C call.
  17         * gfortran.h (GFC_MAX_BINDING_LABEL_LEN): Remove macro.
  18         (gfc_symbol): Make binding_label a pointer.
  19         (gfc_common_head): Likewise.
  20         * match.c (gfc_match_name_C): Heap allocate bind(C) name.
  21         * match.h (gfc_match_name_C): Change prototype argument.
  22         (set_binding_label): Move prototype to decl.c.
  23         * module.c (struct pointer_info): Make binding_label a pointer.
  24         (free_pi_tree): Free unused binding_label.
  25         (mio_read_string): New function.
  26         (mio_write_string): New function.
  27         (load_commons): Redo reading of binding_label.
  28         (read_module): Likewise.
  29         (write_common_0): Change to write empty string instead of name if
  30         no binding_label.
  31         (write_blank_common): Write empty string for binding label.
  32         (write_symbol): Change to write empty string instead of name if no
  33         binding_label.
  34         * resolve.c (gfc_iso_c_func_interface): Don't set binding_label.
  35         (set_name_and_label): Make binding_label double pointer, use
  36         asprintf.
  37         (gfc_iso_c_sub_interface): Make binding_label a pointer.
  38         (resolve_bind_c_comms): Handle cases if
  39         gfc_common_head->binding_label is NULL.
  40         (gfc_verify_binding_labels): sym->binding_label is a pointer.
  41         * symbol.c (gfc_new_symbol): Rely on XCNEW zero init for
  42         binding_label.
  43         (gen_special_c_interop_ptr): Don't set binding label.
  44         (generate_isocbinding_symbol): Insert binding_label into symbol
  45         table.
  46         (get_iso_c_sym): Use pointer assignment instead of strcpy.
  47         * trans-common.c (gfc_sym_mangled_common_id): Handle
  48         com->binding_label being a pointer.
  49         * trans-decl.c (gfc_sym_mangled_identifier): Handle
  50         sym->binding_label being a pointer.
  51         (gfc_sym_mangled_function_id): Likewise.
  52
  53 2012-01-29  Tobias Burnus  <burnus@net-b.de>
  54
  55         PR fortran/52038
  56         * resolve.c (symbol_as): Remove unused, accidentally
  57         added function.
  58
  59 2012-01-28  Tobias Burnus  <burnus@net-b.de>
  60
  61         PR fortran/51972
  62         * trans-stmt.c (gfc_trans_allocate): Properly check whether
  63         we have a BT_CLASS which needs to be memset.
  64
  65 2012-01-27  Tobias Burnus  <burnus@net-b.de>
  66
  67         PR fortran/52022
  68         * trans-expr.c (gfc_conv_procedure_call): Fix passing
  69         of functions, which return allocatables.
  70
  71 2012-01-27  Tobias Burnus  <burnus@net-b.de>
  72
  73         PR fortran/52016
  74         * resolve.c (resolve_formal_arglist): Fix elemental
  75         constraint checks for polymorphic dummies also for
  76         pointers.
  77
  78 2012-01-27  Tobias Burnus  <burnus@net-b.de>
  79
  80         PR fortran/51970
  81         PR fortran/51977
  82         * primary.c (gfc_match_varspec. gfc_match_rvalue): Set
  83         handle array spec for BT_CLASS.
  84         * expr.c (gfc_get_variable_expr, gfc_lval_expr_from_sym)
  85         * frontend-passes.c (create_var): Ditto.
  86         * resolve.c (resolve_actual_arglist, resolve_assoc_var): Ditto.
  87         * trans-decl.c (gfc_trans_deferred_vars): Use class_pointer
  88         instead of attr.pointer.
  89         (gfc_generate_function_code): Use CLASS_DATA (sym) for BT_CLASS.
  90         * trans-intrinsic.c (conv_intrinsic_move_alloc): Move assert.
  91         * trans-stmt.c (trans_associate_var): Ask for the descriptor.
  92
  93 2012-01-27  Tobias Burnus  <burnus@net-b.de>
  94
  95         PR fortran/51953
  96         * match.c (gfc_match_allocate): Allow more than allocate
  97         object with SOURCE=.
  98
  99 2012-01-27  Tobias Burnus  <burnus@net-b.de>
 100
 101         PR fortran/52016
 102         * resolve.c (resolve_formal_arglist): Fix elemental
 103         constraint checks for polymorphic dummies.
 104
 105 2012-01-27  Paul Thomas  <pault@gcc.gnu.org>
 106             Tobias Burnus <burnus@gcc.gnu.org>
 107
 108         PR fortran/48705
 109         PR fortran/51870
 110         PR fortran/51943
 111         PR fortran/51946
 112         * trans-array.c (gfc_array_init_size): Add two extra arguments
 113         to convey the dynamic element size of a calls object and to
 114         return the number of elements that have been allocated.
 115         (gfc_array_allocate): Add the same arguments and use them to
 116         call gfc_array_init_size.  Before the allocation dereference
 117         the data pointer, if necessary. Set the allocated array to zero
 118         if the class element size or expr3 are non-null.
 119         * trans-expr.c (gfc_conv_class_to_class): Give this function
 120         global scope.
 121         (get_class_array_ref): New function.
 122         (gfc_copy_class_to_class): New function.
 123         * trans-array.h : Update prototype for gfc_array_allocate.
 124         * trans-stmt.c (gfc_trans_allocate): For non-variable class
 125         STATUS expressions extract the class object and the dynamic
 126         element size. Use the latter to call gfc_array_allocate and
 127         the former for setting the vptr and, via
 128         gfc_copy_class_to_clasfc_cs, to copy to the allocated data.
 129         * trans.h : Prototypes for gfc_get_class_array_ref,
 130         gfc_copy_class_to_class and gfc_conv_class_to_class.
 131
 132 2012-01-25  Tobias Burnus  <burnus@net-b.de>
 133
 134         * resolve.c (symbol_as): Check also for attr.class_ok.
 135
 136 2012-01-25  Tobias Burnus  <burnus@net-b.de>
 137
 138         PR fortran/51995
 139         * class.c (gfc_build_class_symbol): Fix invalid freeing
 140         issue with fclass->f2k_derived.
 141
 142 2012-01-25  Tobias Burnus  <burnus@net-b.de>
 143
 144         PR fortran/51995
 145         * class.c (gfc_build_class_symbol): Ensure that
 146         fclass->f2k_derived is set.
 147
 148 2012-01-25  Tobias Burnus  <burnus@net-b.de>
 149
 150         PR fortran/51966
 151         * resolve.c (resolve_structure_cons): Only create an
 152         array constructors for nonscalars.
 153
 154 2012-01-23  Tobias Burnus  <burnus@net-b.de>
 155
 156         PR fortran/51948
 157         * check.c (variable_check): Fix checking for
 158          variables and deeply nested BLOCKs.
 159
 160 2012-01-21  Tobias Burnus  <burnus@net-b.de>
 161             Steven G. Kargl  <kargl@gcc.gnu.org>
 162
 163         PR fortran/50556
 164         * symbol.c (check_conflict): namelist-group-name cannot have the SAVE
 165         attribure.
 166
 167 2012-01-21  Tobias Burnus  <burnus@net-b.de>
 168
 169         PR fortran/51913
 170         * interface.c (compare_parameter): Fix CLASS comparison.
 171
 172 2012-01-20  Tobias Burnus  <burnus@net-b.de>
 173             Janus Weil  <janus@gcc.gnu.org>
 174
 175         PR fortran/51056
 176         * module.c (load_needed, read_module): Don't mark __vtab etc.
 177         as use_only.
 178
 179 2012-01-19  Tobias Burnus  <burnus@net-b.de>
 180
 181         PR fortran/51904
 182         * expr.c (gfc_build_intrinsic_call): Also set the symtree.
 183
 184 2012-01-18  Paul Thomas  <pault@gcc.gnu.org>
 185
 186         PR fortran/51634
 187         * trans-expr.c (gfc_conv_procedure_call): Deallocate allocatable
 188         components of temporary class arguments.
 189
 190 2012-01-17  Tobias Burnus  <burnus@net-b.de>
 191             Janne Blomqvist  <jb@gcc.gnu.org>
 192
 193         PR fortran/51869
 194         * trans-expr.c (alloc_scalar_allocatable_for_assignment): Nullify
 195         LHS after allocation, if it has allocatable components.
 196         * f95-lang.c (gfc_init_builtin_functions): Add BUILT_IN_CALLOC.
 197
 198 2012-01-16  Mikael Morin  <mikael@gcc.gnu.org>
 199             Tobias Burnus  <burnus@net-b.de>
 200
 201         PR fortran/50981
 202         * trans-array.c (gfc_walk_elemental_function_args): Fix
 203         passing of deallocated allocatables/pointers as absent argument.
 204
 205 2012-01-16  Tobias Burnus  <burnus@net-b.de>
 206
 207         PR fortran/51809
 208         * class.c (gfc_find_derived_vtab): Mark __vtab and
 209         __def_init as FL_VARIABLE not as FL_PARAMETER.
 210         * expr.c (gfc_simplify_expr): Remove special
 211         handling of __vtab.
 212         * resolve.c (resolve_values): Ditto.
 213         * trans-decl.c (gfc_get_symbol_decl): Mark __vtab
 214         and __def_init as TREE_READONLY.
 215
 216 2012-01-16  Zydrunas Gimbutas  <gimbutas@cims.nyu.edu>
 217         Andreas Kloeckner  <kloeckner@cims.nyu.edu>
 218         Steven G. Kargl  <kargl@gcc.gnu.org>
 219
 220         PR fortran/48426
 221         * gfortran.h (gfc_option_t): Add members flag_*_kind to store kind.
 222         * lang.opt: Add options -freal-4-real-8, -freal-4-real-10,
 223         -freal-4-real-16, -freal-8-real-4, -freal-8-real-10, -freal-8-real-16
 224         and -finteger-4-integer-8. User-desired type conversion information.
 225         * decl.c (gfc_match_old_kind_spec,kind_expr): Type conversions
 226         in declaration parsing.
 227         * trans-types.c (gfc_init_kinds): User-specified type conversion
 228         checked for current backend.
 229         * primary.c (match_integer_constant,match_real_constant): Implement
 230         type conversion in constant parsing.
 231         * options.c (gfc_init_options,gfc_handle_option): Translate input
 232         options to flags in internal options data structure.
 233         * invoke.texi: Document new options.  Re-order options in Options
 234         summary section.
 235
 236 2012-01-16  Paul Thomas  <pault@gcc.gnu.org>
 237
 238         * trans-array.c (gfc_trans_create_temp_array): In the case of a
 239         class array temporary, detect a null 'eltype' on entry and use
 240         'initial' to provde the class reference and so, through the
 241         vtable, the element size for the dynamic type.
 242         * trans-stmt.c (gfc_conv_elemental_dependencies): For class
 243         expressions, set 'eltype' to null and pass the values via the
 244         'initial' expression.
 245
 246 2012-01-14  Tobias Burnus  <burnus@net-b.de>
 247
 248         PR fortran/51800
 249         * resolve.c (build_default_init_expr): Also initialize
 250         nonconstant-length strings with -finit-character=<n>.
 251
 252 2011-01-14  Tobias Burnus  <burnus@net-b.de>
 253
 254         PR fortran/51816
 255         * module.c (read_module): Don't make nonexisting
 256         intrinsic operators as found.
 257         (rename_list_remove_duplicate): New function.
 258         (gfc_use_modules): Use it.
 259
 260 2012-01-13  Paul Thomas  <pault@gcc.gnu.org>
 261
 262         PR fortran/48351
 263         * trans-array.c (structure_alloc_comps): Suppress interative
 264         call to self, when current component is deallocated using
 265         gfc_trans_dealloc_allocated.
 266         * class.c (gfc_build_class_symbol): Copy the 'alloc_comp'
 267         attribute from the declared type to the class structure.
 268
 269 2012-01-13  Tobias Burnus  <burnus@net-b.de>
 270
 271         PR fortran/51842
 272         * fortran/trans-types.c (gfc_init_kinds): Use PTRDIFF_TYPE
 273         instead of a signed int of size POINTER_SIZE for
 274         gfc_index_integer_kind.
 275
 276 2012-01-12  Tobias Burnus  <burnus@net-b.de>
 277
 278         PR fortran/36755
 279         * intrinsic.texi (CHMOD): Extend a bit and remove statement
 280         that /bin/chmod is called.
 281
 282 2012-01-10  Gerald Pfeifer  <gerald@pfeifer.com>
 283
 284         * gfortran.texi (Fortran 2003 Status): Fix grammar.
 285
 286 2012-01-10  Tobias Burnus  <burnus@net-b.de>
 287
 288         PR fortran/51652
 289         * resolve.c (resolve_allocate_expr): For non-deferred char lengths,
 290         check whether type-spec matches declaration.
 291
 292 2012-01-10  Tobias Burnus  <burnus@net-b.de>
 293
 294         * resolve.c (resolve_ordinary_assign): Improve error wording.
 295
 296 2012-01-09  Paul Thomas  <pault@gcc.gnu.org>
 297
 298         PR fortran/51791
 299         * interface.c (matching_typebound_op): Drill down through
 300         possible parentheses to obtain base expression. Do not test for
 301         'class_ok' but, instead for the class structure components.
 302         * resolve.c (resolve_ordinary_assign): Extend error message for
 303         polymorphic assignment to advise checking for specific
 304         subroutine.
 305
 306         PR fortran/51792
 307         * resolve.c (resolve_typebound_function): Restore 'static' to
 308         declaration.
 309
 310 2012-01-09  Mikael Morin  <mikael@gcc.gnu.org>
 311
 312         PR fortran/51758
 313         * trans-array.c (gfc_walk_elemental_function_args):
 314         Skip over NULL() actual arguments.
 315
 316 2012-01-09  Tobias Burnus  <burnus@net-b.de>
 317
 318         * gfortran.texi: Bump copyright year.
 319         (Fortran 2003 Status): Update polymorphism item, add
 320         item for generic interface with DT name.
 321
 322 2012-01-09  Tobias Burnus  <burnus@net-b.de>
 323
 324         PR fortran/51578
 325         * gfortran.h (gfc_use_list):
 326         * match.h (gfc_use_module): Rename to ...
 327         (gfc_use_modules): ... this.
 328         * module.c (use_locus, specified_nonint, specified_int): Remove
 329         global variable.
 330         (module_name): Change type to const char*, used with gfc_get_string.
 331         (module_list): New global variable.
 332         (free_rename): Free argument not global var.
 333         (gfc_match_use): Save match to module_list.
 334         (load_generic_interfaces, read_module): Don't free symtree.
 335         (write_dt_extensions, gfc_dump_module): Fix module-name I/O due to the
 336         type change of module_name.
 337         (write_symbol0, write_generic): Optimize due to the type change.
 338         (import_iso_c_binding_module, use_iso_fortran_env_module): Use
 339         locus of rename->where.
 340         (gfc_use_module): Take module_list as argument.
 341         (gfc_use_modules): New function.
 342         (gfc_module_init_2, gfc_module_done_2): Init module_list, rename_list.
 343         * parse.c (last_was_use_stmt): New global variable.
 344         (use_modules): New function.
 345         (decode_specification_statement, decode_statement): Move USE match up
 346         and call use_modules.
 347         (next_free, next_fixed): Call use_modules.
 348         (accept_statement): Don't call gfc_module_use.
 349
 350 2012-01-06  Tobias Burnus <burnus@net-b.de>
 351
 352         * trans-openmp.c (gfc_omp_clause_dtor, gfc_trans_omp_array_reduction):
 353         Update call to gfc_trans_dealloc_allocated.
 354         * trans.c (gfc_allocate_using_malloc): Fix spacing.
 355         (gfc_allocate_allocatable): For gfc_allocate_using_lib, jump to
 356         label_finish when an error occurs.
 357         (gfc_deallocate_with_status): Call caf_deregister for -fcoarray=lib.
 358         * trans.h (gfc_allocate_allocatable, gfc_deallocate_with_status):
 359         Update prototype.
 360         (gfor_fndecl_caf_deregister): New tree symbol.
 361         * trans-expr.c (gfc_conv_procedure_call): Update
 362         gfc_deallocate_with_status and gfc_trans_dealloc_allocated calls.
 363         * trans-array.c (gfc_array_allocate, gfc_trans_dealloc_allocated,
 364         structure_alloc_comps, gfc_trans_deferred_array): Ditto.
 365         (gfc_array_deallocate): Handle coarrays with -fcoarray=lib.
 366         * trans-array.h (gfc_array_deallocate, gfc_array_allocate,
 367         gfc_trans_dealloc_allocated): Update prototypes.
 368         * trans-stmt.c (gfc_trans_sync): Fix indentation.
 369         (gfc_trans_allocate): Fix errmsg padding and label handling.
 370         (gfc_trans_deallocate): Ditto and handle -fcoarray=lib.
 371         * expr.c (gfc_is_coarray): Fix algorithm for BT_CLASS.
 372         * libgfortran.h (GFC_STAT_STOPPED_IMAGE): Use large value
 373         to avoid other stats accidentally matching this one.
 374         * trans-decl.c (gfor_fndecl_caf_deregister): New global var.
 375         (gfc_build_builtin_function_decls): Fix prototype decl of caf_register
 376         and add decl for caf_deregister.
 377         (gfc_trans_deferred_vars): Handle CAF vars with -fcoarrays=lib.
 378         * trans-intrinsic.c (conv_intrinsic_move_alloc): Update call to
 379         gfc_deallocate_with_status.
 380
 381 2012-01-05  Paul Thomas  <pault@gcc.gnu.org>
 382
 383         PR fortran/PR48946
 384         * resolve.c (resolve_typebound_static): If the typebound
 385         procedure is 'deferred' try to find the correct specific
 386         procedure in the derived type operator space itself.
 387
 388 2012-01-04  Mikael Morin  <mikael@gcc.gnu.org>
 389
 390         PR fortran/50981
 391         * trans-array.h (gfc_walk_elemental_function_args): New argument.
 392         * trans-intrinsic.c (gfc_walk_intrinsic_function): Update call.
 393         * trans-stmt.c (gfc_trans_call): Ditto.
 394         * trans-array.c (gfc_walk_function_expr): Ditto.
 395         (gfc_walk_elemental_function_args): Get the dummy argument list
 396         if possible.  Check that the dummy and the actual argument are both
 397         optional, and set can_be_null_ref accordingly.
 398
 399 2012-01-04  Mikael Morin  <mikael@gcc.gnu.org>
 400
 401         PR fortran/50981
 402         * trans.h (struct gfc_ss_info): New field data::scalar::can_be_null_ref
 403         * trans-array.c: If the reference can be NULL, save the reference
 404         instead of the value.
 405         * trans-expr.c (gfc_conv_expr): If we have saved a reference,
 406         dereference it.
 407
 408 2012-01-04  Mikael Morin  <mikael@gcc.gnu.org>
 409
 410         * trans-expr.c (gfc_conv_expr): Move address taking...
 411         (gfc_conv_expr_reference): ... here.
 412
 413 2012-01-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 414
 415         PR fortran/49693
 416         * trans-common.c (create_common): Update copyright years.  Mark
 417         variables as used to avoid warnings about unused variables in
 418         common blocks.
 419
 420 2012-01-03  Hans-Peter Nilsson  <hp@axis.com>
 421
 422         * gfortran.h (struct gfc_expr): Add missing "struct"
 423         qualifier for member base_expr.
 424
 425 2012-01-02  Paul Thomas  <pault@gcc.gnu.org>
 426
 427         PR fortran/51529
 428         * trans-array.c (gfc_array_allocate): Null allocated memory of
 429         newly allocted class arrays.
 430
 431         PR fortran/46262
 432         PR fortran/46328
 433         PR fortran/51052
 434         * interface.c(build_compcall_for_operator): Add a type to the
 435         expression.
 436         * trans-expr.c (conv_base_obj_fcn_val): New function.
 437         (gfc_conv_procedure_call): Use base_expr to detect non-variable
 438         base objects and, ensuring that there is a temporary variable,
 439         build up the typebound call using conv_base_obj_fcn_val.
 440         (gfc_trans_class_assign): Pick out class procedure pointer
 441         assignments and do the assignment with no further prcessing.
 442         (gfc_trans_class_array_init_assign, gfc_trans_class_init_assign
 443         gfc_trans_class_assign): Move to top of file.
 444         * gfortran.h : Add 'base_expr' field to gfc_expr.
 445         * resolve.c (get_declared_from_expr): Add 'types' argument to
 446         switch checking of derived types on or off.
 447         (resolve_typebound_generic_call): Set the new argument.
 448         (resolve_typebound_function, resolve_typebound_subroutine):
 449         Set 'types' argument for get_declared_from_expr appropriately.
 450         Identify base expression, if not a variable, in the argument
 451         list of class valued calls. Assign it to the 'base_expr' field
 452         of the final expression. Strip away all references after the
 453         last class reference.
 454
 455 2012-01-02  Tobias Burnus  <burnus@net-b.de>
 456
 457         PR fortran/51682
 458         * trans-intrinsic.c (trans_this_image, trans_image_index,
 459         trans_num_images, conv_intrinsic_cobound): Fold_convert the
 460         caf_num_images/caf_this_images variables to the correct int kind.
 461
 462 2012-01-01  Jakub Jelinek  <jakub@redhat.com>
 463
 464         * gfortranspec.c (lang_specific_driver): Update copyright notice
 465         dates.
 466 \f
 467 Copyright (C) 2012 Free Software Foundation, Inc.
 468
 469 Copying and distribution of this file, with or without modification,
 470 are permitted in any medium without royalty provided the copyright
 471 notice and this notice are preserved.