OSDN Git Service

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