re PR fortran/40005 (segfault in gt_ggc_mx_lang_tree_node)
[gcc.git] / gcc / fortran / ChangeLog
1 2009-07-25 Richard Guenther <rguenther@suse.de>
2
3 PR fortran/40005
4 * trans-types.c (gfc_get_array_type_bounds): Use
5 build_distinct_type_copy with a proper TYPE_CANONICAL and
6 re-use the type-decl of the original type.
7 * trans-decl.c (build_entry_thunks): Signal cgraph we may not
8 garbage collect.
9 (create_main_function): Likewise.
10 (gfc_generate_function_code): Likewise.
11 * trans-expr.c (gfc_trans_subcomponent_assign): Do not use
12 fold_convert on record types.
13
14 2009-07-25 Janus Weil <janus@gcc.gnu.org>
15
16 PR fortran/39630
17 * decl.c (match_ppc_decl): Implement the PASS attribute for procedure
18 pointer components.
19 (match_binding_attributes): Ditto.
20 * gfortran.h (gfc_component): Add member 'tb'.
21 (gfc_typebound_proc): Add member 'ppc' and make 'pass_arg' const.
22 * module.c (MOD_VERSION): Bump module version.
23 (binding_ppc): New string constants.
24 (mio_component): Only use formal args if component is a procedure
25 pointer and add 'tb' member.
26 (mio_typebound_proc): Include pass_arg and take care of procedure
27 pointer components.
28 * resolve.c (update_arglist_pass): Add argument 'name' and take care of
29 optional arguments.
30 (extract_ppc_passed_object): New function, analogous to
31 extract_compcall_passed_object, but for procedure pointer components.
32 (update_ppc_arglist): New function, analogous to
33 update_compcall_arglist, but for procedure pointer components.
34 (resolve_typebound_generic_call): Added argument to update_arglist_pass.
35 (resolve_ppc_call, resolve_expr_ppc): Take care of PASS attribute.
36 (resolve_fl_derived): Check the PASS argument for procedure pointer
37 components.
38 * symbol.c (verify_bind_c_derived_type): Reject procedure pointer
39 components in BIND(C) types.
40
41 2009-07-24 Janus Weil <janus@gcc.gnu.org>
42
43 PR fortran/40822
44 * array.c (gfc_resolve_character_array_constructor): Use new function
45 gfc_new_charlen.
46 * decl.c (add_init_expr_to_sym,variable_decl,match_char_spec,
47 gfc_match_implicit): Ditto.
48 * expr.c (gfc_simplify_expr): Ditto.
49 * gfortran.h (gfc_new_charlen): New prototype.
50 * iresolve.c (check_charlen_present,gfc_resolve_char_achar): Use new
51 function gfc_new_charlen.
52 * module.c (mio_charlen): Ditto.
53 * resolve.c (gfc_resolve_substring_charlen,
54 gfc_resolve_character_operator,fixup_charlen,resolve_fl_derived,
55 resolve_symbol): Ditto.
56 * symbol.c (gfc_new_charlen): New function to create a new gfc_charlen
57 structure and add it to a namespace.
58 (gfc_copy_formal_args_intr): Make sure ts.cl is present
59 for CHARACTER variables.
60
61 2009-07-24 Jakub Jelinek <jakub@redhat.com>
62
63 PR fortran/40643
64 PR fortran/31067
65 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc,
66 gfc_conv_intrinsic_minmaxval): Handle Infinities and NaNs properly,
67 optimize.
68 * trans-array.c (gfc_trans_scalarized_loop_end): No longer static.
69 * trans-array.h (gfc_trans_scalarized_loop_end): New prototype.
70
71 2009-07-23 Jakub Jelinek <jakub@redhat.com>
72
73 PR fortran/40839
74 * io.c (gfc_resolve_dt): Add LOC argument. Fail if
75 dt->io_unit is NULL. Return FAILURE after issuing error about
76 negative UNIT number.
77 (match_io_element): Don't segfault if current_dt->io_unit is NULL.
78 * gfortran.h (gfc_resolve_dt): Adjust prototype.
79 * resolve.c (resolve_code): Adjust caller.
80
81 2009-07-22 Paul Thomas <pault@gcc.gnu.org>
82
83 PR fortran/40796
84 * trans-decl.c (generate_local_decl): Unreferenced result
85 variables with allocatable components should be treated like
86 INTENT_OUT dummy variables.
87
88 2009-07-22 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
89
90 * trans.h (gfc_set_decl_assembler_name): New prototype.
91 * trans-decl.c (gfc_set_decl_assembler_name): New function.
92 (gfc_get_symbol_decl, gfc_get_extern_function_decl,
93 build_function_decl): Use gfc_set_decl_assembler_name instead of
94 SET_DECL_ASSEMBLER_NAME.
95 * trans-common.c (build_common_decl): Use
96 gfc_set_decl_assembler_name instead of SET_DECL_ASSEMBLER_NAME.
97
98 2009-07-21 Richard Guenther <rguenther@suse.de>
99
100 PR fortran/40726
101 * trans-decl.c (gfc_get_extern_function_decl): Do not set
102 DECL_IS_MALLOC for pointer valued functions.
103 (build_function_decl): The same.
104
105 2009-07-19 Steven G. Kargl <kargl@gcc.gnu.org>
106
107 PR fortran/40727
108 * fortran/check.c (gfc_check_cmplx, gfc_check_dcmplx): Add check that
109 the optional second argument isn't of COMPLEX type.
110
111 2009-07-17 Richard Guenther <rguenther@suse.de>
112
113 PR c/40401
114 * f95-lang.c (gfc_be_parse_file): Do not finalize the CU here.
115 * trans-decl.c (gfc_gimplify_function): Remove.
116 (build_entry_thunks): Do not gimplify here.
117 (create_main_function): Likewise.
118 (gfc_generate_function_code): Likewise.
119
120 2009-07-17 Aldy Hernandez <aldyh@redhat.com>
121 Manuel López-Ibáñez <manu@gcc.gnu.org>
122
123 PR 40435
124 * trans-expr.c, trans-array.c, trans-openmp.c, trans-stmt.c,
125 trans.c, trans-io.c, trans-decl.c, trans-intrinsic.c: Add location
126 argument to fold_{unary,binary,ternary}, fold_build[123],
127 build_call_expr, build_size_arg, build_fold_addr_expr,
128 build_call_array, non_lvalue, size_diffop,
129 fold_build1_initializer, fold_build2_initializer,
130 fold_build3_initializer, fold_build_call_array,
131 fold_build_call_array_initializer, fold_single_bit_test,
132 omit_one_operand, omit_two_operands, invert_truthvalue,
133 fold_truth_not_expr, build_fold_indirect_ref, fold_indirect_ref,
134 combine_comparisons, fold_builtin_*, fold_call_expr,
135 build_range_check, maybe_fold_offset_to_address, round_up,
136 round_down.
137
138 2009-07-15 Janus Weil <janus@gcc.gnu.org>
139
140 PR fortran/40743
141 * resolve.c (resolve_symbol): Don't resolve the formal namespace of a
142 contained procedure.
143
144 2009-07-14 Taras Glek <tglek@mozilla.com>
145 Rafael Espindola <espindola@google.com>
146
147 * Make-lang.in (fortran.install-plugin): New target for
148 installing plugin headers.
149
150 2009-07-13 H.J. Lu <hongjiu.lu@intel.com>
151
152 * module.c (mio_symbol): Remove the unused variable, formal.
153
154 2009-07-13 Janus Weil <janus@gcc.gnu.org>
155
156 PR fortran/40646
157 * module.c (mio_symbol): If the symbol has formal arguments,
158 the formal namespace will be present.
159 * resolve.c (resolve_actual_arglist): Correctly handle 'called'
160 procedure pointer components as actual arguments.
161 (resolve_fl_derived,resolve_symbol): Make sure the formal namespace
162 is present.
163 * trans-expr.c (gfc_conv_procedure_call): Correctly handle the formal
164 arguments of procedure pointer components.
165
166 2009-07-12 Tobias Burnus <burnus@net-b.de>
167 Philippe Marguinaud <philippe.marguinaud@meteo.fr>
168
169 PR fortran/40588
170 * primary.c (match_charkind_name): Fix condition for $ matching.
171
172 PR libfortran/22423
173 * libgfortran.h: Typedef the GFC_DTYPE_* enum.
174
175 2009-07-11 Tobias Burnus <burnus@net-b.de>
176
177 PR fortran/33197
178 * check.c (gfc_check_fn_rc2008): New function.
179 * intrinsic.h (gfc_check_fn_rc2008): New prototype.
180 * intrinsic.c (add_functions): Add complex tan, cosh, sinh,
181 and tanh.
182
183 2009-07-10 Paul Thomas <pault@gcc.gnu.org>
184
185 PR fortran/39334
186 * primary.c (match_kind_param): Return MATCH_NO if the symbol
187 has no value.
188
189 2008-07-09 Paul Thomas <pault@gcc.gnu.org>
190
191 PR fortran/40629
192 * resolve.c (check_host_association): Use the existing
193 accessible symtree and treat function expressions with
194 symbols that have procedure flavor.
195
196 2009-07-09 Janus Weil <janus@gcc.gnu.org>
197
198 PR fortran/40646
199 * dump-parse-tree.c (show_expr): Renamed 'is_proc_ptr_comp'.
200 * expr.c (is_proc_ptr_comp): Renamed to 'gfc_is_proc_ptr_comp'.
201 (gfc_check_pointer_assign): Renamed 'is_proc_ptr_comp'.
202 (replace_comp,gfc_expr_replace_comp): New functions, analogous
203 to 'replace_symbol' and 'gfc_expr_replace_symbol', just with components
204 instead of symbols.
205 * gfortran.h (gfc_expr_replace_comp): New prototype.
206 (is_proc_ptr_comp): Renamed to 'gfc_is_proc_ptr_comp'.
207 * interface.c (compare_actual_formal): Renamed 'is_proc_ptr_comp'.
208 * match.c (gfc_match_pointer_assignment): Ditto.
209 * primary.c (gfc_match_varspec): Handle array-valued procedure pointers
210 and procedure pointer components. Renamed 'is_proc_ptr_comp'.
211 * resolve.c (resolve_fl_derived): Correctly handle interfaces with
212 RESULT statement, and handle array-valued procedure pointer components.
213 (resolve_actual_arglist,resolve_ppc_call,resolve_expr_ppc): Renamed
214 'is_proc_ptr_comp'.
215 * trans-array.c (gfc_walk_function_expr): Ditto.
216 * trans-decl.c (gfc_get_symbol_decl): Security check for presence of
217 ns->proc_name.
218 * trans-expr.c (gfc_conv_procedure_call): Handle array-valued procedure
219 pointer components. Renamed 'is_proc_ptr_comp'.
220 (conv_function_val,gfc_trans_arrayfunc_assign): Renamed
221 'is_proc_ptr_comp'.
222 (gfc_get_proc_ptr_comp): Do not modify the argument 'e', but instead
223 make a copy of it.
224 * trans-io.c (gfc_trans_transfer): Handle array-valued procedure
225 pointer components.
226
227 2009-07-09 Tobias Burnus <burnus@net-b.de>
228
229 PR fortran/40604
230 * intrinsic.c (gfc_convert_type_warn): Set sym->result.
231 * trans-expr.c (gfc_conv_procedure_call): Fix -fcheck=pointer
232 for optional arguments.
233
234 2009-07-08 Tobias Burnus <burnus@net-b.de>
235
236 PR fortran/40675
237 * simplify.c (gfc_simplify_sign): Handle signed zero correctly.
238 * trans-intrinsic.c (gfc_conv_intrinsic_sign): Support
239 -fno-sign-zero.
240 * invoke.texi (-fno-sign-zero): Add text regarding SIGN intrinsic.
241
242 2008-07-08 Paul Thomas <pault@gcc.gnu.org>
243
244 PR fortran/40591
245 * decl.c (match_procedure_interface): Correct the association
246 or creation of the interface procedure's symbol.
247
248 2009-07-04 Jakub Jelinek <jakub@redhat.com>
249
250 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): For integer
251 maxloc initialize limit to -huge-1 rather than just -huge.
252
253 2009-07-04 Janus Weil <janus@gcc.gnu.org>
254
255 PR fortran/40593
256 * interface.c (compare_actual_formal): Take care of proc-pointer-valued
257 functions as actual arguments.
258 * trans-expr.c (gfc_conv_procedure_call): Ditto.
259 * resolve.c (resolve_specific_f0): Use the correct ts.
260
261 2009-07-02 Michael Matz <matz@suse.de>
262
263 PR fortran/32131
264 * trans-array.c (gfc_conv_descriptor_stride_get): Return
265 constant one for strides in the first dimension of ALLOCATABLE
266 arrays.
267
268 2009-06-30 Janus Weil <janus@gcc.gnu.org>
269
270 PR fortran/40594
271 * trans-types.c (gfc_get_derived_type): Bugfix, reverting one hunk from
272 r147206.
273
274 2009-06-29 Tobias Burnus <burnus@net-b.de>
275
276 PR fortran/40580
277 * trans-expr.c (gfc_conv_procedure_call): Add -fcheck=pointer check.
278 * libgfortran.h: Add GFC_RTCHECK_POINTER.
279 * invoke.texi (-fcheck): Document new pointer option.
280 * options.c (gfc_handle_runtime_check_option): Handle pointer option.
281
282 * gfortran.texi (C Binding): Improve wording.
283 * iso-c-binding.def: Remove obsolete comment.
284
285 2009-06-29 Paul Thomas <pault@gcc.gnu.org>
286
287 PR fortran/40551
288 * dependency.h : Add second bool* argument to prototype of
289 gfc_full_array_ref_p.
290 * dependency.c (gfc_full_array_ref_p): If second argument is
291 present, return true if last dimension of reference is an
292 element or has unity stride.
293 * trans-array.c : Add NULL second argument to references to
294 gfc_full_array_ref_p.
295 * trans-expr.c : The same, except for;
296 (gfc_trans_arrayfunc_assign): Return fail if lhs reference
297 is not a full array or a contiguous section.
298
299 2009-06-28 Tobias Burnus <burnus@net-b.de>
300 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
301
302 PR fortran/34112
303 * symbol.c (gfc_add_ext_attribute): New function.
304 (gfc_get_sym_tree): New argument allow_subroutine.
305 (gfc_get_symbol,gfc_get_ha_sym_tree,gen_cptr_param,gen_fptr_param
306 gen_shape_param,generate_isocbinding_symbol): Use it.
307 * decl.c (find_special): New argument allow_subroutine.
308 (add_init_expr_to_sym,add_hidden_procptr_result,attr_decl1,
309 match_procedure_in_type,gfc_match_final_decl): Use it.
310 (gfc_match_gcc_attributes): New function.
311 * gfortran.texi (Mixed-Language Programming): New section
312 "GNU Fortran Compiler Directives".
313 * gfortran.h (ext_attr_t): New struct.
314 (symbol_attributes): Use it.
315 (gfc_add_ext_attribute): New prototype.
316 (gfc_get_sym_tree): Update pototype.
317 * expr.c (gfc_check_pointer_assign): Check whether call
318 convention is the same.
319 * module.c (import_iso_c_binding_module, create_int_parameter,
320 use_iso_fortran_env_module): Update gfc_get_sym_tree call.
321 * scanner.c (skip_gcc_attribute): New function.
322 (skip_free_comments,skip_fixed_comments): Use it.
323 (gfc_next_char_literal): Support !GCC$ lines.
324 * resolve.c (check_host_association): Update
325 gfc_get_sym_tree call.
326 * match.c (gfc_match_sym_tree,gfc_match_call): Update
327 gfc_get_sym_tree call.
328 * trans-decl.c (add_attributes_to_decl): New function.
329 (gfc_get_symbol_decl,get_proc_pointer_decl,
330 gfc_get_extern_function_decl,build_function_decl: Use it.
331 * match.h (gfc_match_gcc_attributes): Add prototype.
332 * parse.c (decode_gcc_attribute): New function.
333 (next_free,next_fixed): Support !GCC$ lines.
334 * primary.c (match_actual_arg,check_for_implicit_index,
335 gfc_match_rvalue,gfc_match_rvalue): Update
336 gfc_get_sym_tree call.
337
338 2009-06-28 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
339
340 * gfortran.h: Define HAVE_mpc_pow.
341 * arith.c (complex_reciprocal, complex_pow): If HAVE_mpc_pow,
342 don't define these functions.
343 (arith_power): If HAVE_mpc_pow, use mpc_pow.
344
345 2009-06-26 Janus Weil <janus@gcc.gnu.org>
346
347 PR fortran/39997
348 PR fortran/40541
349 * decl.c (add_hidden_procptr_result): Copy the typespec to the hidden
350 result.
351 * expr.c (gfc_check_pointer_assign): Enable interface check for
352 procedure pointer assignments where the rhs is a function returning a
353 procedure pointer.
354 * resolve.c (resolve_symbol): If an external procedure with unspecified
355 return type can not be implicitly typed, it must be a subroutine.
356
357 2009-06-24 Janus Weil <janus@gcc.gnu.org>
358
359 PR fortran/40427
360 * gfortran.h (gfc_component): New member 'formal_ns'.
361 (gfc_copy_formal_args_ppc,void gfc_ppc_use): New.
362 * interface.c (gfc_ppc_use): New function, analogous to
363 gfc_procedure_use, but for procedure pointer components.
364 * module.c (MOD_VERSION): Bump module version.
365 (mio_component): Treat formal arguments.
366 (mio_formal_arglist): Changed argument from gfc_symbol to
367 gfc_formal_arglist.
368 (mio_symbol): Changed argument of mio_formal_arglist.
369 * resolve.c (resolve_ppc_call,resolve_expr_ppc): Call gfc_ppc_use,
370 to check actual arguments and treat formal args correctly.
371 (resolve_fl_derived): Copy formal args of procedure pointer components
372 from their interface.
373 * symbol.c (gfc_copy_formal_args_ppc): New function, analogous to
374 gfc_copy_formal_args, but for procedure pointer components.
375
376 2009-06-22 Janus Weil <janus@gcc.gnu.org>
377
378 PR fortran/37254
379 PR fortran/39850
380 * interface.c (compare_parameter): Set implicit type for function
381 actual arguments with BT_UNKNOWN.
382
383 2009-06-22 Tobias Burnus <burnus@net-b.de>
384
385 PR fortran/40472
386 PR fortran/50520
387 * simplify.c (gfc_simplify_spread): Fix the case that source=
388 is a scalar.
389
390 2009-06-22 Paul Thomas <pault@gcc.gnu.org>
391
392 PR fortran/40443
393 * interface.c (gfc_search_interface): Hold back a match to an
394 elementary procedure until all other possibilities are
395 exhausted.
396
397 2009-06-22 Paul Thomas <pault@gcc.gnu.org>
398
399 PR fortran/40472
400 * simplify.c (gfc_simplify_spread): Restrict the result size to
401 the limit for an array constructor.
402
403 2009-06-21 Janus Weil <janus@gcc.gnu.org>
404
405 PR fortran/39850
406 * interface.c (gfc_compare_interfaces): Take care of implicit typing
407 when checking the function attribute. Plus another bugfix.
408 (compare_parameter): Set attr.function and attr.subroutine according
409 to the usage of a procedure as actual argument.
410
411 2009-06-20 Tobias Burnus <burnus@net-b.de>
412
413 PR fortran/40452
414 * trans-decl.c (add_argument_checking): Disable bounds check
415 for allowed argument storage association.
416
417 2009-06-19 Paul Thomas <pault@gcc.gnu.org>
418
419 PR fortran/40440
420 * trans-expr.c (gfc_conv_procedure_call): Do not deallocate
421 allocatable components if the argument is a pointer.
422
423 2009-06-19 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
424
425 * gfortran.h (gfc_expr): Use mpc_t to represent complex numbers.
426
427 * arith.c, dump-parse-tree.c, expr.c, module.c, resolve.c,
428 simplify.c, target-memory.c, target-memory.h, trans-const.c,
429 trans-expr.c: Convert to mpc_t throughout.
430
431 2009-06-19 Ian Lance Taylor <iant@google.com>
432
433 * cpp.c (struct gfc_cpp_option_data): Give this struct, used for
434 the global variable gfc_cpp_option, a name.
435
436 2009-06-19 Janus Weil <janus@gcc.gnu.org>
437
438 PR fortran/40450
439 * trans-expr.c (gfc_conv_procedure_call): Only add an extra addr_expr
440 to a procedure pointer actual argument, if it is not itself a
441 dummy arg.
442
443 2009-06-18 Janus Weil <janus@gcc.gnu.org>
444
445 PR fortran/40451
446 * resolve.c (resolve_contained_fntype): Prevent implicit typing for
447 procedures with explicit interface.
448 * symbol.c (gfc_check_function_type): Ditto.
449
450 2009-06-16 Ian Lance Taylor <iant@google.com>
451
452 * decl.c (build_struct): Rewrite loop over constructor elements.
453
454 2009-06-16 Janus Weil <janus@gcc.gnu.org>
455
456 PR fortran/36947
457 PR fortran/40039
458 * expr.c (gfc_check_pointer_assign): Call 'gfc_compare_interfaces' with
459 error message.
460 * gfortran.h (gfc_compare_interfaces): Additional argument.
461 * interface.c (operator_correspondence): Removed.
462 (gfc_compare_interfaces): Additional argument to return error message.
463 Directly use the code from 'operator_correspondence' instead of calling
464 the function. Check for OPTIONAL. Some rearrangements.
465 (check_interface1): Call 'gfc_compare_interfaces' without error message.
466 (compare_parameter): Call 'gfc_compare_interfaces' with error message.
467 * resolve.c (check_generic_tbp_ambiguity): Call 'gfc_compare_interfaces'
468 without error message.
469
470 2009-06-16 Tobias Burnus <burnus@net-b.de>
471
472 PR fortran/40383
473 * trans-decl.c (create_function_arglist): Copy formal charlist to
474 have a proper passed_length for -fcheck=bounds.
475
476 2009-06-12 Steven G. Kargl <kargls@comcast.net>
477
478 * arith.c (gfc_enum_initializer): Move function ...
479 * decl.c: ... here. Remove gfc_ prefix and make static.
480 (enumerator_decl): Update function call.
481 * gfortran.h: Remove gfc_enum_initializer prototype.
482
483 2009-06-12 Aldy Hernandez <aldyh@redhat.com>
484
485 * trans-array.c (gfc_trans_allocate_array_storage): Pass
486 location on down.
487 (gfc_trans_array_constructor_value): Same.
488 (gfc_trans_scalarized_loop_end): Same.
489 (gfc_conv_ss_startstride): Same.
490 (gfc_trans_g77_array): Same.
491 (gfc_trans_dummy_array_bias): Same.
492 (gfc_conv_array_parameter): Same.
493 (structure_alloc_comps): Same.
494 * trans-expr.c (gfc_conv_function_call): Same.
495 (fill_with_spaces): Same.
496 (gfc_trans_string_copy): Same.
497 (gfc_trans_scalar_assign): Same.
498 * trans-stmt.c (gfc_trans_goto): Same.
499 (gfc_trans_if_1): Same.
500 (gfc_trans_simple_do): Same.
501 (gfc_trans_do): Same.
502 (gfc_trans_do_while): Same.
503 (gfc_trans_logical_select): Same.
504 (gfc_trans_select): Same.
505 (gfc_trans_forall_loop): Same.
506 (gfc_trans_nested_forall_loop): Same.
507 (generate_loop_for_temp_to_lhs): Same.
508 (generate_loop_for_rhs_to_temp): Same.
509 (gfc_trans_forall_1): Same.
510 (gfc_trans_where_assign): Same.
511 (gfc_trans_where_3): Same.
512 (gfc_trans_allocate): Same.
513 * trans.c (gfc_finish_block): Same.
514 (gfc_trans_runtime_check): Same.
515 (gfc_call_malloc): Same.
516 (gfc_allocate_with_status): Same.
517 (gfc_call_free): Same.
518 (gfc_deallocate_with_status): Same.
519 (gfc_call_realloc): Same.
520 (gfc_trans_code): Same.
521 * trans-decl.c (gfc_init_default_dt): Same.
522 (gfc_generate_constructors): Same.
523 * trans-io.c (gfc_trans_io_runtime_check): Same.
524 * trans-intrinsic.c (gfc_conv_intrinsic_ctime): Same.
525 (gfc_conv_intrinsic_fdate): Same.
526 (gfc_conv_intrinsic_ttynam): Same.
527 (gfc_conv_intrinsic_minmax): Same.
528 (gfc_conv_intrinsic_minmax_char): Same.
529 (gfc_conv_intrinsic_anyall): Same.
530 (gfc_conv_intrinsic_count): Same.
531 (gfc_conv_intrinsic_arith): Same.
532 (gfc_conv_intrinsic_minmaxloc): Same.
533 (gfc_conv_intrinsic_minmaxval): Same.
534 (gfc_conv_intrinsic_rrspacing): Same.
535 (gfc_conv_intrinsic_array_transfer): Same.
536 (gfc_conv_intrinsic_trim): Same.
537 (gfc_conv_intrinsic_repeat): Same.
538
539 2009-06-12 Janus Weil <janus@gcc.gnu.org>
540
541 PR fortran/40176
542 * resolve.c (resolve_symbol): Additional error check, preventing an
543 infinite loop.
544
545 2009-06-11 Paul Thomas <pault@gcc.gnu.org>
546
547 PR fortran/40402
548 * resolve.c (next_data_value): It is an error if the value is
549 not constant.
550
551 2009-06-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
552
553 PR fortran/38718
554 * intrinsic.c (add_functions): Add simplifiers for ISNAN,
555 IS_IOSTAT_END and IS_IOSTAT_EOR.
556 * intrinsic.h (gfc_simplify_is_iostat_end, gfc_simplify_is_iostat_eor,
557 gfc_simplify_isnan): New prototypes.
558 * intrinsic.c (gfc_simplify_is_iostat_end, gfc_simplify_is_iostat_eor,
559 gfc_simplify_isnan): New functions.
560
561 2009-06-11 Jakub Jelinek <jakub@redhat.com>
562
563 * interface.c (fold_unary): Rename to...
564 (fold_unary_intrinsic): ... this.
565 (gfc_extend_expr): Adjust caller.
566 (gfc_match_generic_spec): Likewise. Initialize *op to INTRINSIC_NONE
567 to avoid warnings.
568 * expr.c (gfc_simplify_expr): Initialize start and end before calling
569 gfc_extract_int.
570
571 2009-06-10 Dave Korn <dave.korn.cygwin@gmail.com>
572
573 * trans-decl.c (create_main_function): Don't build main decl twice.
574
575 2009-06-09 Tobias Burnus <burnus@net-b.de>
576
577 * trans-decl.c (gfc_generate_function_code): Use gfc_option.rtcheck
578 instead of flag_bounds_check.
579 * intrinsic.texi (ISO_FORTRAN_ENV): Document INT{8,16,32,64} and
580 REAL{32,64,128}.
581
582 2009-06-08 Paul Thomas <pault@gcc.gnu.org>
583
584 * trans-array.h : Replace prototypes for
585 gfc_conv_descriptor_offset, gfc_conv_descriptor_stride,
586 gfc_conv_descriptor_lbound, gfc_conv_descriptor_ubound with new
587 prototypes of the same names with _get or _set appended.
588 * trans-array.c : Make the originals of the above static and
589 new functions for the _get and _set functions. Update all the
590 references to these descriptor access functions.
591 * trans-expr.c : Update references to the above descriptor
592 access functions.
593 * trans-intrinsic.c : The same.
594 * trans-openmp.c : The same.
595 * trans-stmt.c : The same.
596
597 2009-06-08 Alexandre Oliva <aoliva@redhat.com>
598
599 * options.c (gfc_post_options): Disable dump_parse_tree
600 during -fcompare-debug-second.
601
602 2009-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
603
604 PR fortran/40008
605 * gfortran.h (gfc_open): Add newunit expression to structure.
606 * io.c (io_tag): Add new unit tag and fix whitespace.
607 (match_open_element): Add matching for newunit.
608 (gfc_free_open): Free the newunit expression.
609 (gfc_resolve_open): Add newunit to resolution and check constraints.
610 (gfc_resolve_close): Add check for non-negative unit.
611 (gfc_resolve_filepos): Likewise.
612 (gfc_resolve_dt): Likewise.
613 * trans-io.c (set_parameter_value): Build runtime checks for unit
614 numbers within range of kind=4 integer. (gfc_trans_open) Set the
615 newunit parameter.
616 * ioparm.def (IOPARM): Define the newunit parameter as a pointer
617 to GFC_INTEGER_4, pint4.
618
619 2009-06-07 Daniel Franke <franke.daniel@gmail.com>
620
621 PR fortran/25104
622 PR fortran/29962
623 * array.c (gfc_append_constructor): Added NULL-check.
624 * check.c (gfc_check_spread): Check DIM.
625 (gfc_check_unpack): Check that the ARRAY arguments provides enough
626 values for MASK.
627 * intrinsic.h (gfc_simplify_spread): New prototype.
628 (gfc_simplify_unpack): Likewise.
629 * intrinsic.c (add_functions): Added new simplifier callbacks.
630 * simplify.c (gfc_simplify_spread): New.
631 (gfc_simplify_unpack): New.
632 * expr.c (check_transformational): Allow additional transformational
633 intrinsics in initialization expression.
634
635 2009-06-07 Daniel Franke <franke.daniel@gmail.com>
636
637 PR fortran/25104
638 PR fortran/29962
639 * check.c (gfc_check_all_any): Check rank of DIM.
640 (gfc_check_count): Likewise.
641 * intrinsic.h (gfc_simplify_all): New prototype.
642 (gfc_simplify_any): Likewise.
643 (gfc_simplify_count): Likewise.
644 (gfc_simplify_sum): Likewise.
645 (gfc_simplify_product): Likewise.
646 * intrinsic.c (add_functions): Added new simplifier callbacks.
647 * simplify.c (transformational_result): New.
648 (simplify_transformation_to_scalar): New.
649 (simplify_transformation_to_array): New.
650 (gfc_count): New.
651 (gfc_simplify_all): New.
652 (gfc_simplify_any): New.
653 (gfc_simplify_count): New.
654 (gfc_simplify_sum): New.
655 (gfc_simplify_product): New.
656 * expr.c (check_transformational): Allow additional transformational
657 intrinsics in initialization expression.
658
659 2009-06-07 Daniel Franke <franke.daniel@gmail.com>
660
661 * check.c (dim_rank_check): Return SUCCESS if DIM=NULL.
662 (gfc_check_lbound): Removed (now) redundant check for DIM=NULL.
663 (gfc_check_minloc_maxloc): Likewise.
664 (check_reduction): Likewise.
665 (gfc_check_size): Likewise.
666 (gfc_check_ubound): Likewise.
667 (gfc_check_cshift): Added missing shape-conformance checks.
668 (gfc_check_eoshift): Likewise.
669 * gfortran.h (gfc_check_conformance): Modified prototype to printf-style.
670 * expr.c (gfc_check_conformance): Accept error-message chunks in
671 printf-style. Changed all callers.
672
673
674 2009-06-07 Daniel Franke <franke.daniel@gmail.com>
675
676 PR fortran/25104
677 PR fortran/29962
678 * intrinsic.h (gfc_simplify_dot_product): New prototype.
679 (gfc_simplify_matmul): Likewise.
680 (gfc_simplify_transpose): Likewise.
681 * intrinsic.c (add_functions): Added new simplifier callbacks.
682 * simplify.c (init_result_expr): New.
683 (compute_dot_product): New.
684 (gfc_simplify_dot_product): New.
685 (gfc_simplify_matmul): New.
686 (gfc_simplify_transpose): New.
687 * expr.c (check_transformational): Allow transformational intrinsics
688 with simplifier in initialization expression.
689
690 2009-06-06 Daniel Franke <franke.daniel@gmail.com>
691
692 PR fortran/37203
693 * simplify.c (gfc_simplify_reshape): Fixed reshaping of empty arrays
694 without padding.
695
696 2009-06-06 Daniel Franke <franke.daniel@gmail.com>
697
698 PR fortran/32890
699 * intrinsic.h (gfc_simplify_pack): New prototype.
700 * intrinsic.c (add_functions): Added
701 simplifier-callback to PACK.
702 * simplify.c (is_constant_array_expr): Moved
703 to beginning of file.
704 (gfc_simplify_pack): New.
705 * check.c (gfc_check_pack): Check that VECTOR has enough elements.
706 Added safeguards for empty arrays.
707
708 2009-06-05 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
709
710 * simplify.c (call_mpc_func): Use mpc_realref/mpc_imagref
711 instead of MPC_RE/MPC_IM.
712
713 2009-06-05 Alexandre Oliva <aoliva@redhat.com>
714
715 * trans-decl.c (gfc_build_qualified_array): Don't skip generation
716 of range types.
717 * trans.h (struct lang_type): Add base_decls.
718 (GFC_TYPE_ARRAY_BASE_DECL): New.
719 * trans-types.c (gfc_get_array_type_bounds): Initialize base decls
720 proactively and excessively.
721 (gfc_get_array_descr_info): Use existing base decls if available.
722
723 2009-06-04 Daniel Franke <franke.daniel@gmail.com>
724
725 PR fortran/37203
726 * check.c (gfc_check_reshape): Additional checks for the
727 SHAPE and ORDER arguments.
728 * simplify.c (gfc_simplify_reshape): Converted argument checks
729 to asserts.
730
731 2009-06-03 Tobias Burnus <burnus@net-b.de>
732
733 * gfortran.texi: Add mixed-language programming, mention
734 varying string lengths, some clean up of introduction parts.
735 * intrinsic.texi (instrinsic modules): Create @menu for subsections.
736 (ISO_C_BINDING): Support ISOCBINDING_INT_FAST128_T.
737 * libgfortran.h: Comment to rember to keep gfortran.texi in sync.
738 * iso-c-binding.def: Support ISOCBINDING_INT_FAST128_T.
739
740 2009-06-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
741 Tobias Burnus <burnus@net-b.de>
742
743 * iso-c-binding.def: Use INTMAX_TYPE instead of intmax_type_node.
744 * trans-types.c (init_c_interop_kinds): Remove intmax_type_node.
745
746 2009-06-03 Alexandre Oliva <aoliva@redhat.com>
747
748 * module.c (mio_f2k_derived): Initialize cur.
749
750 2009-06-01 Tobias Burnus <burnus@net-b.de>
751
752 PR fortran/40309
753 * trans-decl.c (gfc_sym_identifier): Use "MAIN__" for PROGRAM "main".
754 (create_main_function): Set main_identifier_node.
755
756 2009-05-29 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
757
758 PR fortran/40019
759 * trans-types.c (gfc_build_uint_type): Make nonstatic.
760 * trans.h (gfor_fndecl_clz128, gfor_fndecl_ctz128): New prototypes.
761 * trans-types.h (gfc_build_uint_type): Add prototype.
762 * trans-decl.c (gfc_build_intrinsic_function_decls): Build
763 gfor_fndecl_clz128 and gfor_fndecl_ctz128.
764 * trans-intrinsic.c (gfc_conv_intrinsic_leadz,
765 gfc_conv_intrinsic_trailz): Call the right builtins or library
766 functions, and cast arguments to unsigned types first.
767 * simplify.c (gfc_simplify_leadz): Deal with negative arguments.
768
769 2009-05-27 Ian Lance Taylor <iant@google.com>
770
771 * Make-lang.in (gfortran$(exeext)): Change $(COMPILER) to
772 $(LINKER).
773 (f951$(exeext)): Likewise.
774
775 2009-05-27 Tobias Burnus <burnus@net-b.de>
776
777 PR fortran/40270
778 * trans-decl.c (create_main_function): Mark MAIN__ and
779 argc/argv as TREE_USED and push/pop function_decl context
780 if needed.
781
782 2009-05-26 Tobias Burnus <burnus@net-b.de>
783
784 PR fortran/39178
785 * gfortranspec.c (lang_specific_driver): Stop linking
786 libgfortranbegin.
787 * trans-decl.c (gfc_build_builtin_function_decls): Stop
788 making MAIN__ publicly visible.
789 (gfc_build_builtin_function_decls): Add
790 gfor_fndecl_set_args.
791 (create_main_function) New function.
792 (gfc_generate_function_code): Use it.
793
794 2009-05-26 Tobias Burnus <burnus@net-b.de>
795
796 PR fortran/40246
797 * match.c (gfc_match_nullify): NULLify freed pointer.
798
799 2009-05-26 Ian Lance Taylor <iant@google.com>
800
801 * Make-lang.in (gfortranspec.o): Use $(COMPILER).
802 (gfortran$(exeext), f951$(exeext), fortran/cpp.o): Likewise.
803
804 2009-05-26 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
805
806 * gfortran.h (GFC_MPC_RND_MODE): New.
807 * simplify.c (call_mpc_func): New helper function.
808 (gfc_simplify_cos, gfc_simplify_exp, gfc_simplify_log,
809 gfc_simplify_sin, gfc_simplify_sqrt): Add MPC support.
810
811 2009-05-25 Janus Weil <janus@gcc.gnu.org>
812
813 PR fortran/40176
814 * primary.c (gfc_match_varspec): Handle procedure pointer components
815 with array return value.
816 * resolve.c (resolve_expr_ppc): Ditto.
817 (resolve_symbol): Make sure the interface of a procedure pointer has
818 been resolved.
819 * trans-array.c (gfc_walk_function_expr): Handle procedure pointer
820 components with array return value.
821 * trans-expr.c (gfc_conv_component_ref,gfc_conv_procedure_call,
822 gfc_trans_arrayfunc_assign): Ditto.
823 (gfc_trans_pointer_assignment): Handle procedure pointer assignments,
824 where the rhs is a dummy argument.
825 * trans-types.c (gfc_get_ppc_type,gfc_get_derived_type): Handle
826 procedure pointer components with array return value.
827
828 2009-05-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
829 Dominique Dhumieres
830
831 PR fortran/35732
832 PR fortran/39872
833 * trans-array.c (gfc_conv_ss_startstride): Add one to index.
834
835 2009-05-22 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
836
837 PR fortran/40195
838 * module.c (read_md5_from_module_file): Close file before returning.
839
840 2009-05-18 Janus Weil <janus@gcc.gnu.org>
841
842 PR fortran/40164
843 * primary.c (gfc_match_rvalue): Handle procedure pointer components in
844 arrays.
845 * resolve.c (resolve_ppc_call,resolve_expr_ppc): Resolve component and
846 array references.
847 (resolve_fl_derived): Procedure pointer components are not required to
848 have constant array bounds in their return value.
849
850 2009-05-18 Janus Weil <janus@gcc.gnu.org>
851
852 * intrinsic.c (add_sym): Fix my last commit (r147655),
853 which broke bootstrap.
854
855 2009-05-18 Richard Guenther <rguenther@suse.de>
856
857 PR fortran/40168
858 * trans-expr.c (gfc_trans_zero_assign): For local array
859 destinations use an assignment from an empty constructor.
860
861 2009-05-18 Janus Weil <janus@gcc.gnu.org>
862
863 PR fortran/36947
864 PR fortran/40039
865 * expr.c (gfc_check_pointer_assign): Check intents when comparing
866 interfaces.
867 * gfortran.h (typedef struct gfc_intrinsic_arg): Add 'intent' member.
868 (gfc_compare_interfaces): Additional argument.
869 * interface.c (operator_correspondence): Add check for equality of
870 intents, and new argument 'intent_check'.
871 (gfc_compare_interfaces): New argument 'intent_check', which is passed
872 on to operator_correspondence.
873 (check_interface1): Don't check intents when comparing interfaces.
874 (compare_parameter): Do check intents when comparing interfaces.
875 * intrinsic.c (add_sym): Add intents for arguments of intrinsic
876 procedures.
877 (add_sym_1,add_sym_1s,add_sym_1m,add_sym_2,add_sym_2s,add_sym_3,
878 add_sym_3ml,add_sym_3red,add_sym_3s,add_sym_4): Use INTENT_IN by
879 default.
880 (add_sym_1_intent,add_sym_1s_intent,add_sym_2s_intent,add_sym_3s_intent)
881 : New functions to add intrinsic symbols, specifying custom intents.
882 (add_sym_4s,add_sym_5s): Add new arguments to specify intents.
883 (add_functions,add_subroutines): Add intents for various intrinsics.
884 * resolve.c (check_generic_tbp_ambiguity): Don't check intents when
885 comparing interfaces.
886 * symbol.c (gfc_copy_formal_args_intr): Copy intent.
887
888 2009-05-17 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
889
890 * iso-fortran-env.def: Define INT8, INT16, INT32, INT64, REAL32,
891 REAL64 and REAL128.
892 * gfortran.h (gfc_get_int_kind_from_width_isofortranenv,
893 gfc_get_real_kind_from_width_isofortranenv): New prototypes.
894 * iso-c-binding.def: Update definitions for the INT*_T,
895 INT_LEAST*_T and INT_FAST*_T named parameters.
896 * trans-types.c (get_typenode_from_name, get_int_kind_from_name,
897 gfc_get_real_kind_from_width_isofortranenv): New functions.
898
899 2009-05-17 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
900
901 PR fortran/36260
902 * intrinsic.c (add_functions, add_subroutines): Fix argument
903 names and wrap long lines.
904 * intrinsic.texi: Fix documentation and argument names of
905 LOG_GAMMA, DATAN2, DBESJN, DTIME, ETIME, FSTAT, STAT, LSTAT,
906 GET_COMMAND, IDATE, LTIME, MOVE_ALLOC, NINT, OR, PRODUCT,
907 SUM, RAND, RANDOM_SEED, REAL, SELECTED_INT_KIND,
908 SELECTED_REAL_KIND and XOR.
909
910 2009-05-16 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
911
912 PR fortran/33197
913 * intrinsic.c (add_functions): Use ERFC_SCALED simplification.
914 * intrinsic.h (gfc_simplify_erfc_scaled): New prototype.
915 * simplify.c (fullprec_erfc_scaled, asympt_erfc_scaled,
916 gfc_simplify_erfc_scaled): New functions.
917
918 2009-05-16 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
919
920 PR fortran/31243
921 * resolve.c (resolve_substring): Don't allow too large substring
922 indexes.
923 (gfc_resolve_substring_charlen): Fix typo.
924 (gfc_resolve_character_operator): Fix typo.
925 (resolve_charlen): Catch unreasonably large string lengths.
926 * simplify.c (gfc_simplify_len): Don't error out on LEN
927 range checks.
928
929 2009-05-16 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
930
931 PR fortran/36031
932 * decl.c (set_enum_kind): Use global short-enums flag.
933 * gfortran.h (gfc_option_t): Remove short_enums flag.
934 * lang.opt (-fshort-enums): Refer to C documentation.
935 * options.c (gfc_init_options, gfc_handle_option): Use global
936 short-enums flag.
937
938 2009-05-15 Tobias Burnus <burnus@net-b.de>
939
940 PR fortran/39352
941 * f95-lang.c: Add gfc_maybe_initialize_eh.
942 * gfortran.h: Add gfc_maybe_initialize_eh prototype.
943 * Make-lang.in: Add new .h dendencies for f95-lang.c
944 * openmp.c (resolve_omp_do): Call gfc_maybe_initialize_eh.
945 * misc.c (gfc_free): Avoid #define trickery for free.
946
947 2009-05-14 Steven G. Kargl <kargl@gcc.gnu.org>
948
949 * dump-parse-tree.c (show_code_node): Add ERRMSG to the dumping
950 of allocate and deallocate statements.
951
952 2009-05-14 Ian Lance Taylor <iant@google.com>
953
954 * decl.c (match_attr_spec): Change d to unsigned int.
955 * dump-parse-tree.c (show_namespace): Change op to int. Add cast.
956 * interface.c (gfc_check_interfaces): Change i to int. Add casts.
957 * module.c (read_module): Change i to int. Add cast.
958 (write_module): Change i to int.
959 * symbol.c (gfc_get_namespace): Change in to int.
960 (gfc_free_namespace): Change i to int.
961 * trans-io.c (gfc_build_io_library_fndecls): Change ptype to
962 unsigned int. Add cast.
963 * trans-types.c (gfc_init_kinds): Change mode to unsigned int.
964 Add casts.
965
966 2009-05-14 Daniel Kraft <d@domob.eu>
967
968 PR fortran/40045
969 * dump-parse-tree.c (show_typebound): Fix missing adaption to new
970 type-bound procedure storage structure.
971
972 2009-05-14 Janus Weil <janus@gcc.gnu.org>
973
974 PR fortran/39996
975 * decl.c (gfc_match_function_decl): Use gfc_add_type.
976 * symbol.c (gfc_add_type): Better checking for duplicate types in
977 function declarations. And: Always give an error for duplicte types,
978 not just a warning with -std=gnu.
979
980 2009-05-14 Jakub Jelinek <jakub@redhat.com>
981
982 PR fortran/39865
983 * io.c (resolve_tag_format): CHARACTER array in FMT= argument
984 isn't an extension. Reject non-CHARACTER array element of
985 assumed shape or pointer or assumed size array.
986 * trans-array.c (array_parameter_size): New function.
987 (gfc_conv_array_parameter): Add size argument. Call
988 array_parameter_size if it is non-NULL.
989 * trans-array.h (gfc_conv_array_parameter): Adjust prototype.
990 * trans-expr.c (gfc_conv_function_call, gfc_trans_arrayfunc_assign):
991 Adjust callers.
992 * trans-intrinsic.c (gfc_conv_intrinsic_loc): Likewise.
993 * trans-io.c (gfc_convert_array_to_string): Rewritten.
994
995 2009-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
996
997 * gfortran.h (gfc_code): Rename struct member expr to expr1.
998 * openmp.c (resolve_omp_atomic): Update expr to expr1.
999 * interface.c (gfc_extend_assign): Ditto.
1000 * trans-expr.c (gfc_conv_expr_reference, gfc_trans_assignment,
1001 gfc_trans_init_assign): Ditto.
1002 * dump-parse-tree.c (show_code_node): Ditto.
1003 * trans-openmp.c (gfc_trans_omp_atomic): Ditto.
1004 * trans-stmt.c ( gfc_trans_label_assign, gfc_trans_goto, gfc_trans_call,
1005 gfc_trans_return, gfc_trans_pause, gfc_trans_stop, gfc_trans_if_1,
1006 gfc_trans_arithmetic_if, gfc_trans_do_while, gfc_trans_integer_select,
1007 gfc_trans_logical_select, gfc_trans_character_select
1008 forall_make_variable_temp, check_forall_dependencies
1009 gfc_trans_forall_1, gfc_trans_where_2, gfc_trans_where_3
1010 gfc_trans_where, gfc_trans_allocate, gfc_trans_deallocate): Ditto.
1011 * io.c (match_io_element, gfc_match_inquire): Ditto.
1012 * resolve.c (resolve_typebound_call, resolve_ppc_call,
1013 resolve_allocate_expr, resolve_allocate_deallocate, resolve_select,
1014 resolve_transfer, resolve_where, gfc_resolve_assign_in_forall,
1015 gfc_resolve_blocks, resolve_code, build_init_assign): Ditto.
1016 * st.c (gfc_free_statement): Ditto.
1017 * match.c (gfc_match_assignment, gfc_match_pointer_assignment,
1018 match_arithmetic_if, gfc_match_if, gfc_match_elseif
1019 gfc_match_stopcode, gfc_match_assign, gfc_match_goto,
1020 gfc_match_nullify, match_typebound_call, gfc_match_call
1021 gfc_match_select, match_simple_where, gfc_match_where
1022 gfc_match_elsewhere, match_simple_forall, gfc_match_forall): Ditto.
1023 * trans-io.c (gfc_trans_transfer): Ditto.
1024 * parse.c (parse_where_block, parse_if_block): Ditto.
1025
1026 2009-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
1027
1028 * gfortran.h (gfc_code): Rename struct member label to label1.
1029 * dump-parse-tree.c (show_code_node): Update symbol.
1030 * trans-stmt.c (gfc_trans_label_assign, gfc_trans_goto,
1031 gfc_trans_arithmetic_if): Ditto.
1032 * resolve.c (gfc_resolve_blocks, resolve_code): Ditto.
1033 * match.c (match_arithmetic_if, gfc_match_if, gfc_reference_st_label,
1034 gfc_match_assign, gfc_match_goto): Ditto.
1035 * parse.c (parse_do_block): Ditto.
1036
1037 2009-05-13 Tobias Burnus <burnus@net-b.de>
1038
1039 PR fortran/34153
1040 * gfortran.h (gfc_exec_op): Add EXEC_END_PROCEDURE.
1041 * dump-parse-tree.c (show_code_node): Use EXEC_END_PROCEDURE.
1042 * trans.c (gfc_trans_code): Ditto.
1043 * resolve.c (resolve_code): Ditto.
1044 * st.c (gfc_free_statement): Ditto.
1045 * parse.c (accept_statement): Ditto.
1046
1047 2009-05-12 Tobias Burnus <burnus@net-b.de>
1048
1049 PR fortran/40110
1050 * decl.c (gfc_match_kind_spec): Turn C kind error into a warning.
1051
1052 2009-05-11 Steve Ellcey <sje@cup.hp.com>
1053
1054 * resolve.c (check_host_association): Initialize tail.
1055
1056 2009-05-11 Janus Weil <janus@gcc.gnu.org>
1057
1058 PR fortran/40089
1059 * resolve.c (resolve_fl_derived): Only return FAILURE if
1060 gfc_notify_std fails.
1061
1062 2009-05-10 Ian Lance Taylor <iant@google.com>
1063
1064 * gfortran.h (enum gfc_omp_sched_kind): New enum, broken out of
1065 gfc_omp_clauses.
1066 (enum gfc_omp_default_sharing): Likewise.
1067 * module.c (enum gfc_rsym_state): New enum, broken out of
1068 pointer_info.
1069 (enum gfc_wsym_state): Likewise.
1070 * parse.c (enum state_order): New enum, broken out of st_state.
1071
1072 2009-05-10 Paul Thomas <pault@gcc.gnu.org>
1073
1074 PR fortran/40018
1075 * trans-array.c (gfc_trans_array_constructor_value): Fold
1076 convert numeric constants.
1077 (gfc_build_constant_array_constructor): The same.
1078
1079 2009-05-10 Paul Thomas <pault@gcc.gnu.org>
1080
1081 PR fortran/38863
1082 * trans-expr.c (gfc_conv_operator_assign): Remove function.
1083 * trans.h : Remove prototype for gfc_conv_operator_assign.
1084 * trans-stmt.c (gfc_conv_elemental_dependencies): Initialize
1085 derivde types with intent(out).
1086 (gfc_trans_call): Add mask, count1 and invert arguments. Add
1087 code to use mask for WHERE assignments.
1088 (gfc_trans_forall_1): Use new arguments for gfc_trans_call.
1089 (gfc_trans_where_assign): The gfc_symbol argument is replaced
1090 by the corresponding code. If this has a resolved_sym, then
1091 gfc_trans_call is called. The call to gfc_conv_operator_assign
1092 is removed.
1093 (gfc_trans_where_2): Change the last argument in the call to
1094 gfc_trans_where_assign.
1095 * trans-stmt.h : Modify prototype for gfc_trans_call.
1096 * trans.c (gfc_trans_code): Use new args for gfc_trans_call.
1097
1098 2009-05-08 Janus Weil <janus@gcc.gnu.org>
1099
1100 PR fortran/39876
1101 * intrinsic.c (gfc_is_intrinsic): Do not add the EXTERNAL attribute if
1102 the symbol is a module procedure.
1103
1104 2009-05-08 Tobias Burnus <burnus@net-b.de>
1105
1106 * invoke.texi: Add do/recursion to the -fcheck= summary.
1107
1108 2009-05-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1109
1110 PR fortran/38830
1111 * gfortran.texi: Document that we don't support variable FORMAT
1112 expressions.
1113
1114 2009-05-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1115
1116 PR fortran/39576
1117 * error.c (error_print): Add missing break statement.
1118
1119 2009-05-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1120
1121 PR fortran/36382
1122 * invoke.texi: Document that -fdollar-ok does not allow $ to be
1123 used in IMPLICIT statement.
1124
1125 2009-05-06 Janus Weil <janus@gcc.gnu.org>
1126 Paul Thomas <pault@gcc.gnu.org>
1127
1128 PR fortran/39630
1129 * decl.c (match_procedure_interface): New function to match the
1130 interface for a PROCEDURE statement.
1131 (match_procedure_decl): Call match_procedure_interface.
1132 (match_ppc_decl): New function to match the declaration of a
1133 procedure pointer component.
1134 (gfc_match_procedure): Call match_ppc_decl.
1135 (match_binding_attributes): Add new argument 'ppc' and handle the
1136 POINTER attribute for procedure pointer components.
1137 (match_procedure_in_type,gfc_match_generic): Added new argument to
1138 match_binding_attributes.
1139 * dump-parse-tree.c (show_expr,show_components,show_code_node): Handle
1140 procedure pointer components.
1141 * expr.c (free_expr0,gfc_copy_expr,gfc_simplify_expr): Handle EXPR_PPC.
1142 (gfc_check_pointer_assign): Handle procedure pointer components, but no
1143 full checking yet.
1144 (is_proc_ptr_comp): New function to determine if an expression is a
1145 procedure pointer component.
1146 * gfortran.h (expr_t): Add EXPR_PPC.
1147 (symbol_attribute): Add new member 'proc_pointer_comp'.
1148 (gfc_component): Add new member 'formal'.
1149 (gfc_exec_op): Add EXEC_CALL_PPC.
1150 (gfc_get_default_type): Changed first argument.
1151 (is_proc_ptr_comp): Add prototype.
1152 (gfc_match_varspec): Add new argument.
1153 * interface.c (compare_actual_formal): Handle procedure pointer
1154 components.
1155 * match.c (gfc_match_pointer_assignment,match_typebound_call): Handle
1156 procedure pointer components.
1157 * module.c (mio_expr): Handle EXPR_PPC.
1158 * parse.c (parse_derived): Handle procedure pointer components.
1159 * primary.c (gfc_match_varspec): Add new argument 'ppc_arg' and handle
1160 procedure pointer components.
1161 (gfc_variable_attr): Handle procedure pointer components.
1162 (gfc_match_rvalue): Added new argument to gfc_match_varspec and changed
1163 first argument of gfc_get_default_type.
1164 (match_variable): Added new argument to gfc_match_varspec.
1165 * resolve.c (resolve_entries,set_type,resolve_fl_parameter): Changed
1166 first argument of gfc_get_default_type.
1167 (resolve_structure_cons,resolve_actual_arglist): Handle procedure
1168 pointer components.
1169 (resolve_ppc_call): New function to resolve a call to a procedure
1170 pointer component (subroutine).
1171 (resolve_expr_ppc): New function to resolve a call to a procedure
1172 pointer component (function).
1173 (gfc_resolve_expr): Handle EXPR_PPC.
1174 (resolve_code): Handle EXEC_CALL_PPC.
1175 (resolve_fl_derived): Copy the interface for a procedure pointer
1176 component.
1177 (resolve_symbol): Fix overlong line.
1178 * st.c (gfc_free_statement): Handle EXEC_CALL_PPC.
1179 * symbol.c (gfc_get_default_type): Changed first argument.
1180 (gfc_set_default_type): Changed first argument of gfc_get_default_type.
1181 (gfc_add_component): Initialize ts.type to BT_UNKNOWN.
1182 * trans.h (gfc_conv_function_call): Renamed.
1183 * trans.c (gfc_trans_code): Handle EXEC_CALL_PPC.
1184 * trans-expr.c (gfc_conv_component_ref): Ditto.
1185 (gfc_conv_function_val): Rename to 'conv_function_val', add new
1186 argument 'expr' and handle procedure pointer components.
1187 (gfc_conv_operator_assign): Renamed gfc_conv_function_val.
1188 (gfc_apply_interface_mapping_to_expr): Handle EXPR_PPC.
1189 (gfc_conv_function_call): Rename to 'gfc_conv_procedure_call', add new
1190 argument 'expr' and handle procedure pointer components.
1191 (gfc_get_proc_ptr_comp): New function to get the backend decl for a
1192 procedure pointer component.
1193 (gfc_conv_function_expr): Renamed gfc_conv_function_call.
1194 (gfc_conv_structure): Handle procedure pointer components.
1195 * trans-intrinsic.c (gfc_conv_intrinsic_funcall,
1196 conv_generic_with_optional_char_arg): Renamed gfc_conv_function_call.
1197 * trans-stmt.h (gfc_get_proc_ptr_comp): Add prototype.
1198 * trans-stmt.c (gfc_trans_call): Renamed gfc_conv_function_call.
1199 * trans-types.h (gfc_get_ppc_type): Add prototype.
1200 * trans-types.c (gfc_get_ppc_type): New function to build a tree node
1201 for a procedure pointer component.
1202 (gfc_get_derived_type): Handle procedure pointer components.
1203
1204 2009-05-06 Tobias Burnus <burnus@net-b.de>
1205
1206 PR fortran/40041
1207 * resolve.c (resolve_symbol): Print no warning for implicitly
1208 typed intrinsic functions.
1209
1210 2009-05-05 Janus Weil <janus@gcc.gnu.org>
1211
1212 PR fortran/39998
1213 * expr.c (gfc_check_pointer_assign): Check for statement functions and
1214 internal procedures in procedure pointer assignments.
1215
1216 2009-04-28 Janus Weil <janus@gcc.gnu.org>
1217
1218 PR fortran/39946
1219 * resolve.c (resolve_symbol): Correctly copy the interface of a
1220 PROCEDURE statement if the interface involves a RESULT variable.
1221
1222 2009-04-28 Janus Weil <janus@gcc.gnu.org>
1223
1224 PR fortran/39930
1225 PR fortran/39931
1226 * expr.c (gfc_check_pointer_assign): Correctly detect if the left hand
1227 side is a pointer.
1228 * parse.c (gfc_fixup_sibling_symbols): Don't check for ambiguity.
1229
1230 2009-04-28 Paul Thomas <pault@gcc.gnu.org>
1231
1232 PR fortran/39879
1233 * trans_expr.c (gfc_conv_procedure_call): Deep copy a derived
1234 type parentheses argument if it is a variable with allocatable
1235 components.
1236
1237 2009-04-27 Ian Lance Taylor <iant@google.com>
1238
1239 * trans-intrinsic.c (DEFINE_MATH_BUILTIN): Add casts to enum
1240 type.
1241 * trans-io.c (st_parameter_field): Add casts to enum type.
1242
1243 2009-04-26 Steven G. Kargl <kargl@gcc.gnu.org>
1244
1245 PR fortran/39893
1246 fortran/data.c (gfc_assign_data_value): If the lvalue is an
1247 assumed character length entity in a data statement, then
1248 return FAILURE to prevent segmentation fault.
1249
1250 2009-04-26 Jakub Jelinek <jakub@redhat.com>
1251
1252 * trans-decl.c: Include pointer-set.h.
1253 (nonlocal_dummy_decl_pset, tree nonlocal_dummy_decls): New variables.
1254 (gfc_nonlocal_dummy_array_decl): New function.
1255 (gfc_get_symbol_decl): Call it for non-local dummy args with saved
1256 descriptor.
1257 (gfc_get_symbol_decl): Set DECL_BY_REFERENCE when needed.
1258 (gfc_generate_function_code): Initialize nonlocal_dummy_decl{s,_pset},
1259 chain it to outermost block's vars, destroy it afterwards.
1260 * Make-lang.in (trans-decl.o): Depend on pointer-set.h.
1261
1262 2009-04-25 Janus Weil <janus@gcc.gnu.org>
1263
1264 PR fortran/39688
1265 * decl.c (gfc_match_import): Use 'sym->name' instead of 'name'.
1266 They differ if the symbol has been use-renamed.
1267
1268 2009-04-24 Ian Lance Taylor <iant@google.com>
1269
1270 * gfortran.h (enum gfc_symbol_type): New named enum type, broken
1271 out of struct gfc_symbol.
1272 (struct gfc_symbol): Use enum gfc_symbol_type.
1273 (enum gfc_array_ref_dimen_type): New named enum type, broken out
1274 of struct gfc_array_ref).
1275 (struct gfc_array_ref): Use enum gfc_array_ref_dimen_type.
1276 (mod_pointee_as): Update declaration.
1277 * decl.c (add_global_entry): Change type to enum gfc_symbol_type.
1278 (gfc_mod_pointee_as): Change return type to "match".
1279 * module.c (mio_array_ref): Add cast to enum type.
1280 (mio_symbol): Likewise.
1281 * resolve.c (resolve_global_procedure): Change type to enum
1282 gfc_symbol_type.
1283 * trans-io.c (gfc_build_st_parameter): Change type to unsigned
1284 int.
1285
1286 2009-04-24 Daniel Kraft <d@domob.eu>
1287
1288 * gfortran.h (gfc_get_typebound_proc): Removed as macro, now a function.
1289 (struct gfc_symtree): Moved "typebound" member inside union.
1290 (struct gfc_namespace): Add "tb_sym_root" as new symtree to sort out
1291 type-bound procedures there.
1292 (gfc_get_tbp_symtree): New procedure.
1293 * symbol.c (tentative_tbp_list): New global.
1294 (gfc_get_namespace): NULL new "tb_sym_root" member.
1295 (gfc_new_symtree): Removed initialization of "typebound" member.
1296 (gfc_undo_symbols): Process list of tentative tbp's.
1297 (gfc_commit_symbols): Ditto.
1298 (free_tb_tree): New method.
1299 (gfc_free_namespace): Call it.
1300 (gfc_get_typebound_proc): New method.
1301 (gfc_get_tbp_symtree): New method.
1302 (gfc_find_typebound_proc): Adapt to structural changes of gfc_symtree
1303 and gfc_namespace with regards to tbp's.
1304 * dump-parse-tree.c (show_typebound): Ditto.
1305 * primary.c (gfc_match_varspec): Ditto. Don't reference tbp-symbol
1306 as it isn't a symbol any longer.
1307 * module.c (mio_typebound_symtree): Adapt to changes.
1308 (mio_typebound_proc): Ditto, create symtrees using "gfc_get_tbp_symtree"
1309 rather than "gfc_get_sym_tree".
1310 (mio_f2k_derived): Ditto.
1311 * decl.c (match_procedure_in_type): Ditto.
1312 (gfc_match_generic): Ditto. Don't reference tbp-symbol.
1313 * resolve.c (check_typebound_override): Adapt to changes.
1314 (resolve_typebound_generic): Ditto.
1315 (resolve_typebound_procedures): Ditto.
1316 (ensure_not_abstract_walker): Ditto.
1317 (ensure_not_abstract): Ditto.
1318 (resolve_typebound_procedure): Ditto, ignore erraneous symbols (for
1319 instance, through removed tentative ones).
1320 * gfc-internals.texi (Type-bound procedures): Document changes.
1321
1322 2009-04-24 Janus Weil <janus@gcc.gnu.org>
1323
1324 PR fortran/39861
1325 PR fortran/39864
1326 * symbol.c (gfc_copy_formal_args_intr): Set attr.flavor and attr.dummy
1327 for the formal arguments.
1328
1329 2009-04-21 Taras Glek <tglek@mozilla.com>
1330
1331 * f95-lang.c: Update GTY annotations to new syntax.
1332 * trans-intrinsic.c: Likewise.
1333 * trans-io.c: Likewise.
1334 * trans.h: Likewise.
1335
1336 2009-04-22 Janus Weil <janus@gcc.gnu.org>
1337
1338 PR fortran/39735
1339 * decl.c (add_hidden_procptr_result): Bugfix for procptr results.
1340 (match_procedure_decl): Set if_source.
1341 * expr.c (gfc_check_pointer_assign): Bugfix: Return after error.
1342 And: Check interface also for IFSRC_UNKNOWN (return type may be known).
1343 * gfortran.h (typedef enum ifsrc): Remove IFSRC_USAGE,
1344 add documentation. Rename copy_formal_args and copy_formal_args_intr.
1345 * interface.c (gfc_compare_interfaces): Check for return types,
1346 handle IFSRC_UNKNOWN.
1347 (compare_intr_interfaces,compare_actual_formal_intr): Obsolete, removed.
1348 (gfc_procedure_use): Modified handling of intrinsics.
1349 * intrinsic.c (add_functions): Bugfix for "dim".
1350 * resolve.c (resolve_intrinsic): New function to resolve intrinsics,
1351 which copies the interface from isym to sym.
1352 (resolve_procedure_expression,resolve_function): Use new function
1353 'resolve_intrinsic'.
1354 (resolve_symbol): Add function attribute for externals with return type
1355 and use new function 'resolve_intrinsic'.
1356 * symbol.c (ifsrc_types): Remove string for IFSRC_USAGE.
1357 (copy_formal_args): Renamed to gfc_copy_formal_args.
1358 (copy_formal_args_intr): Renamed to gfc_copy_formal_args_intr.
1359 * trans-const.c (gfc_conv_const_charlen): Handle cl==NULL.
1360
1361 2009-04-21 Joseph Myers <joseph@codesourcery.com>
1362
1363 * ChangeLog, ChangeLog-2002, ChangeLog-2003, ChangeLog-2004,
1364 ChangeLog-2005, ChangeLog-2006, ChangeLog-2007, ChangeLog-2008,
1365 ChangeLog.ptr, config-lang.in, ioparm.def, mathbuiltins.def: Add
1366 copyright and license notices.
1367 * ChangeLog, ChangeLog-2005, ChangeLog-2006, ChangeLog-2007,
1368 ChangeLog-2008: Correct dates.
1369
1370 2009-04-20 Tobias Burnus <burnus@net-b.de>
1371
1372 PR fortran/39811
1373 * scanner.c (load_line): Fix bogus "&" compile-time diagnostic.
1374
1375 2009-04-20 Paul Thomas <pault@gcc.gnu.org>
1376
1377 PR fortran/39800
1378 * resolve.c (is_sym_host_assoc): New function.
1379 (resolve_fl_derived): Call it when checking PRIVATE components
1380 of PUBLIC derived types. Change gfc_error to a gfc_notify_std
1381 with std=f2003.
1382 (resolve_fl_namelist): Call it twice to check for host
1383 association.
1384
1385 2009-04-20 Ian Lance Taylor <iant@google.com>
1386
1387 * module.c (import_iso_c_binding_module): Add casts to enum type.
1388 * trans-intrinsic.c (gfc_conv_intrinsic_minmax): Change op to enum
1389 tree_code.
1390 (gfc_conv_intrinsic_anyall): Likewise.
1391 (gfc_conv_intrinsic_arith): Likewise.
1392 (gfc_conv_intrinsic_minmaxloc): Likewise.
1393 (gfc_conv_intrinsic_minmaxval): Likewise.
1394 (gfc_conv_intrinsic_bitop): Likewise.
1395 (gfc_conv_intrinsic_singlebitop): Likewise.
1396 (gfc_conv_intrinsic_strcmp): Likewise.
1397
1398 2009-04-20 Vasilis Liaskovitis <vliaskov@gmail.com>
1399 Jakub Jelinek <jakub@redhat.com>
1400
1401 PR fortran/35423
1402 * trans.h (OMPWS_WORKSHARE_FLAG, OMPWS_CURR_SINGLEUNIT,
1403 OMPWS_SCALARIZER_WS, OMPWS_NOWAIT): Define.
1404 (ompws_flags): New extern decl.
1405 * trans-array.c (gfc_trans_scalarized_loop_end): Build OMP_FOR
1406 for the outer dimension if ompws_flags allow it.
1407 * trans.c (gfc_generate_code): Clear ompws_flags.
1408 * trans-expr.c (gfc_trans_assignment_1): Allow worksharing
1409 array assignments inside of !$omp workshare.
1410 * trans-stmt.c (gfc_trans_where_3): Similarly for where statements
1411 and constructs.
1412 * trans-openmp.c (ompws_flags): New variable.
1413 (gfc_trans_omp_workshare): Rewritten.
1414
1415 2009-04-11 Daniel Kraft <d@domob.eu>
1416
1417 PR fortran/37746
1418 * gfortran.h (struct gfc_charlen): New field "passed_length" to store
1419 the actual passed string length for dummy arguments.
1420 * trans-decl.c (gfc_create_string_length): Formatting fixes and added
1421 assertion, moved a local variable into the innermost block it is needed.
1422 (create_function_arglist): Removed TODO about the check being
1423 implemented and initialize cl->passed_length here.
1424 (add_argument_checking): New method.
1425 (gfc_generate_function_code): Call the argument checking method.
1426
1427 2009-04-11 Janus Weil <janus@gcc.gnu.org>
1428
1429 PR fortran/39692
1430 * symbol.c (check_conflict): Reject procedure pointers for -std=f95.
1431
1432 2009-04-11 Daniel Franke <franke.daniel@gmail.com>
1433
1434 * resolve.c (resolve_global_procedure): Enable whole-file checking for
1435 procedures that are declared later in the file.
1436
1437 2009-04-10 Paolo Bonzini <bonzini@gnu.org>
1438
1439 PR middle-end/39701
1440 * trans.c (gfc_allocate_with_status): Fix type mismatches
1441 on "pstat == 0".
1442
1443 2009-04-10 Daniel Franke <franke.daniel@gmail.com>
1444
1445 PR fortran/38709
1446 * expr.c (find_array_section): Leave early on zero-sized arrays.
1447
1448 2009-04-09 Janus Weil <janus@gcc.gnu.org>
1449
1450 PR fortran/36704
1451 * decl.c (add_hidden_procptr_result): New function for handling
1452 procedure pointer return values by adding a hidden result variable.
1453 (variable_decl,match_procedure_decl,gfc_match_function_decl,
1454 gfc_match_subroutine,gfc_match_end,attr_decl1): Handle procedure pointer
1455 return values.
1456 * parse.c (parse_interface): Add EXTERNAL attribute only after
1457 FUNCTION/SUBROUTINE declaration is complete.
1458 * primary.c (replace_hidden_procptr_result): New function for replacing
1459 function symbol by hidden result variable.
1460 (gfc_match_rvalue,match_variable): Replace symbol by hidden result
1461 variable.
1462 * resolve.c (resolve_contained_fntype,resolve_function,resolve_variable,
1463 resolve_symbol): Allow for procedure pointer function results.
1464 (resolve_fl_procedure): Conflict detection moved here from
1465 'check_conflict'.
1466 * symbol.c (gfc_check_function_type): Allow for procedure pointer
1467 function results.
1468 (check_conflict): Move some conflict detection to resolution stage.
1469 * trans-types.c (gfc_sym_type,gfc_get_function_type): Handle hidden
1470 result variables.
1471
1472 2009-04-08 Jakub Jelinek <jakub@redhat.com>
1473
1474 * trans-types.c (gfc_init_types): Ensure gfc_integer_types doesn't
1475 contain TYPE_STRING_FLAG types.
1476
1477 2009-04-08 Janne Blomqvist <jb@gcc.gnu.org>
1478
1479 PR fortran/39670
1480 * invoke.texi (fdollar-ok): Fix typo.
1481
1482 2009-04-08 Daniel Franke <franke.daniel@gmail.com>
1483
1484 PR fortran/39670
1485 * invoke.texi (fdollar-ok): Clarify limitations.
1486
1487 2009-04-08 Paul Thomas <pault@gcc.gnu.org>
1488
1489 PR fortran/38863
1490 * trans-array.c (gfc_trans_deferred_array): Return if this
1491 is a result variable.
1492
1493 2009-04-07 Janus Weil <janus@gcc.gnu.org>
1494
1495 PR fortran/38152
1496 * trans-decl.c (gfc_get_symbol_decl): Correctly set decl location for
1497 procedure pointer decls.
1498
1499 2009-04-07 Janus Weil <janus@gcc.gnu.org>
1500
1501 PR fortran/38290
1502 * expr.c (gfc_check_pointer_assign): Enable interface check for
1503 procedure pointers.
1504 * gfortran.h: Add copy_formal_args_intr.
1505 * interface.c (gfc_compare_interfaces): Call gfc_compare_intr_interfaces
1506 if second argument is an intrinsic.
1507 (compare_intr_interfaces): Correctly set attr.function, attr.subroutine
1508 and ts.
1509 (compare_parameter): Call gfc_compare_interfaces also for intrinsics.
1510 * resolve.c (resolve_specific_f0,resolve_specific_s0): Don't resolve
1511 intrinsic interfaces here. Must happen earlier.
1512 (resolve_symbol): Resolution of intrinsic interfaces moved here from
1513 resolve_specific_..., and formal args are now copied from intrinsic
1514 interfaces.
1515 * symbol.c (copy_formal_args_intr): New function to copy the formal
1516 arguments from an intinsic procedure.
1517
1518 2009-04-06 Paul Thomas <pault@gcc.gnu.org>
1519
1520 PR fortran/38863
1521 * dependency.c (ref_same_as_full_array): New function.
1522 (gfc_dep_resolver): Call it.
1523
1524 2009-04-06 Janus Weil <janus@gcc.gnu.org>
1525
1526 PR fortran/39414
1527 * decl.c (match_procedure_decl): Fix double declaration problems with
1528 PROCEDURE statements.
1529 * symbol.c (gfc_add_type): Ditto.
1530
1531 2009-04-06 Paul Thomas <pault@gcc.gnu.org>
1532
1533 PR fortran/36091
1534 * trans-array.c (gfc_conv_array_ref): If the symbol has the
1535 temporary attribute use the array_spec for the bounds.
1536 * gfortran.h : Add the temporary field to the structure
1537 'symbol_attribute'.
1538 * trans-stmt.c (forall_make_variable_temp): Set the symbol's
1539 temporary attribute.
1540
1541 2009-04-05 Daniel Franke <franke.daniel@gmail.com>
1542
1543 PR fortran/29458
1544 * trans-array.c (gfc_trans_array_constructor_value): Shadow
1545 implied do-loop variable to avoid spurious middle-end warnings.
1546
1547 2009-04-04 Tobias Burnus <burnus@net-b.de>
1548
1549 PR fortran/39577
1550 * trans-decl.c (gfc_generate_function_code): Move recursive
1551 check to the right position.
1552
1553 2009-04-04 Paul Thomas <pault@gcc.gnu.org>
1554
1555 PR fortran/37614
1556 * trans-common.c (translate_common): Do not offset the whole
1557 coomon block.
1558
1559 2009-04-03 Tobias Burnus <burnus@net-b.de>
1560
1561 PR fortran/39594
1562 * resolve.c (resolve_common_vars): Add FL_VARIABLE to symbol
1563 if it is not a procedure pointer.
1564 * primary.c (match_actual_arg): Ditto.
1565
1566 2009-03-31 Joseph Myers <joseph@codesourcery.com>
1567
1568 PR preprocessor/15638
1569 * cpp.c (cb_cpp_error): Handle CPP_DL_FATAL.
1570
1571 2009-03-30 Steven G. Kargl <kargls@comcast.net>
1572
1573 PR fortran/38389
1574 * trans-stmt.c(gfc_trans_allocate): Add translation of ERRMSG.
1575 (gfc_trans_deallocate): Add translation of ERRMSG. Remove stale
1576 comments. Minor whitespace cleanup.
1577 * resolve.c(is_scalar_expr_ptr): Whitespace cleanup.
1578 (resolve_deallocate_expr (gfc_expr *e): Update error message.
1579 (resolve_allocate_expr): Remove dead code. Update error message.
1580 Move error checking to ...
1581 (resolve_allocate_deallocate): ... here. Add additional error
1582 checking for STAT, ERRMSG, and allocate-objects.
1583 * match.c(gfc_match_allocate,gfc_match_deallocate): Parse ERRMSG.
1584 Check for redundant uses of STAT and ERRMSG. Reword error message
1585 and add checking for pointer, allocatable, and proc_pointer attributes.
1586
1587 2009-03-30 Paul Thomas <pault@gcc.gnu.org>
1588
1589 PR fortran/22571
1590 PR fortran/26227
1591 PR fortran/24886
1592 * symbol.c : Add gfc_global_ns_list.
1593 * decl.c (add_global_entry): Set the namespace ('ns') field.
1594 * gfortran.h : Add the resolved field to gfc_namespace. Add the
1595 namespace ('ns') field to gfc_gsymbol. Add flag_whole_file to
1596 gfc_option_t. Add the prototype for gfc_free_dt_list.
1597 * lang.opt : Add the whole-file option.
1598 * invoke.texi : Document the whole-file option.
1599 * resolve.c (resolve_global_procedure): If the fwhole-file
1600 option is set, reorder gsymbols to ensure that translation is
1601 in the right order. Resolve the gsymbol's namespace if that
1602 has not occurred and then check interfaces.
1603 (resolve_function): Move call to resolve_global_procedure.
1604 (resolve_call): The same.
1605 (resolve_codes): Store the current labels_obstack.
1606 (gfc_resolve) : Return if the namespace is already resolved.
1607 trans-decl.c (gfc_get_extern_function_decl): If the whole_file
1608 option is selected, use the backend_decl of a gsymbol, if it is
1609 available.
1610 parse.c (add_global_procedure, add_global_program): If the flag
1611 whole-file is set, add the namespace to the gsymbol.
1612 (gfc_parse_file): On -fwhole-file, put procedure namespaces on
1613 the global namespace list. Rearrange to do resolution of all
1614 the procedures in a file, followed by their translation.
1615 * options.c (gfc_init_options): Add -fwhole-file.
1616 (gfc_handle_option): The same.
1617
1618 2009-03-30 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
1619
1620 * f95-lang.c (gfc_init_builtin_functions): Define BUILT_IN_HUGE_VAL
1621 family of intrinsics instead of BUILT_IN_INF family.
1622 * trans-intrinsics.c (gfc_conv_intrinsic_nearest): Use
1623 BUILT_IN_HUGE_VAL instead of BUILT_IN_INF.
1624
1625 2009-03-30 Jakub Jelinek <jakub@redhat.com>
1626
1627 * trans-types.c (gfc_sym_type, gfc_return_by_reference): For
1628 sym->attr.result check sym->ns->proc_name->attr.is_bind_c.
1629
1630 2009-03-30 Joseph Myers <joseph@codesourcery.com>
1631
1632 PR rtl-optimization/323
1633 * options.c (gfc_post_options): Set
1634 flag_excess_precision_cmdline. Give an error for
1635 -fexcess-precision=standard for processors where the option is
1636 significant.
1637
1638 2009-03-29 Joseph Myers <joseph@codesourcery.com>
1639
1640 PR preprocessor/34695
1641 * cpp.c (cb_cpp_error): New.
1642 (gfc_cpp_post_options): Don't set cpp_option->inhibit_warnings.
1643 Don't check cpp_errors (cpp_in).
1644 (gfc_cpp_init_0): Set cb->error.
1645
1646 2009-03-29 Steven G. Kargl <kargl@gcc.gnu.org>
1647
1648 PR fortran/38823
1649 * gfortran.h: Add ARITH_PROHIBIT to arith enum.
1650 expr.c (gfc_match_init_expr): Add global variable init_flag to
1651 flag matching an initialization expression.
1652 (check_intrinsic_op): Move no longer reachable error message to ...
1653 * arith.c (arith_power): ... here. Remove gfc_ prefix in
1654 gfc_arith_power. Use init_flag. Allow constant folding of x**y
1655 when y is REAL or COMPLEX.
1656 (eval_intrinsic): Remove restriction that y in x**y must be INTEGER
1657 for constant folding.
1658 * gfc_power: Update gfc_arith_power to arith_power
1659
1660 2009-03-29 Daniel Kraft <d@domob.eu>
1661
1662 PR fortran/37423
1663 * gfortran.h (struct gfc_typebound_proc): Added new flag "deferred" and
1664 added a comment explaining DEFERRED binding handling.
1665 * decl.c (match_binding_attributes): Really match DEFERRED attribute.
1666 (match_procedure_in_type): Really match PROCEDURE(interface) syntax
1667 and do some validity checks for DEFERRED and this construct.
1668 * module.c (binding_overriding): New string constant for DEFERRED.
1669 (mio_typebound_proc): Module-IO DEFERRED flag.
1670 * resolve.c (check_typebound_override): Ensure that a non-DEFERRED
1671 binding is not overridden by a DEFERRED one.
1672 (resolve_typebound_procedure): Allow abstract interfaces as targets
1673 for DEFERRED bindings.
1674 (ensure_not_abstract_walker), (ensure_not_abstract): New methods.
1675 (resolve_fl_derived): Use new "ensure_not_abstract" method for
1676 non-ABSTRACT types extending ABSTRACT ones to ensure each DEFERRED
1677 binding is overridden.
1678 (check_typebound_baseobject): New method.
1679 (resolve_compcall), (resolve_typebound_call): Check base-object of
1680 the type-bound procedure call.
1681 * gfc-internals.texi (Type-bound procedures): Document a little bit
1682 about internal handling of DEFERRED bindings.
1683
1684 2009-03-29 Tobias Schlueter <tobi@gcc.gnu.org>
1685
1686 PR fortran/38507
1687 * gfortran.h (gfc_st_label): Fix comment.
1688 (gfc_exec_op): Add statement code EXEC_END_BLOCK for end of block.
1689 * parse.c (accept_statement): Use EXEC_END_BLOCK for END IF and
1690 END SELECT with labels.
1691 (check_do_closure): Fix formatting.
1692 (parse_do_block): Fix typo in error message.
1693 * resolve.c (code_stack): Remove tail member. Update comment to
1694 new use of reachable_labels.
1695 (reachable_labels): Rename to ...
1696 (find_reachable_labels): ... this. Overhaul. Update preceding
1697 comment.
1698 (resolve_branch): Fix comment preceding function. Rewrite.
1699 (resolve_code): Update call to find_reachable_labels. Add code to
1700 deal with EXEC_END_BLOCK.
1701 * st.c (gfc_free_statement): Add code to deal with EXEC_END_BLOCK.
1702 Add 2009 to copyright years.
1703 * trans.c (gfc_trans_code): Likewise on both counts.
1704
1705 2009-03-31 Paul Thomas <pault@gcc.gnu.org>
1706
1707 PR fortran/38917
1708 * expr.c (gfc_check_assign): Allow pointer components when
1709 checking for NULL.
1710
1711 PR fortran/38918
1712 * resolve.c (check_data_variable): Treat pointer arrays with
1713 scalars.
1714
1715 2009-03-31 Paul Thomas <pault@gcc.gnu.org>
1716
1717 PR fortran/38915
1718 * trans-expr.c (gfc_trans_assignment_1): Ensure temporaries
1719 have a string_length.
1720
1721 2009-03-28 Tobias Burnus <burnus@net-b.de>
1722
1723 PR fortran/34656
1724 * trans-stmt.c (gfc_trans_simple_do, gfc_trans_do):
1725 Add GFC_RTCHECK_DO support.
1726 * option.c (gfc_handle_runtime_check_option): Enable GFC_RTCHECK_DO.
1727 * invoke.texi (-fcheck): Document "do" option.
1728
1729 2009-03-28 Paul Thomas <pault@gcc.gnu.org>
1730
1731 PR fortran/38538
1732 * trans-array.c (get_elemental_fcn_charlen): Remove.
1733 (get_array_charlen): New function to replace previous.
1734
1735 2009-03-28 Paul Thomas <pault@gcc.gnu.org>
1736
1737 PR fortran/38765
1738 * parse.c (parse_derived): Do not break on finding pointer,
1739 allocatable or private components.
1740
1741 2009-03-28 Tobias Burnus <burnus@net-b.de>
1742
1743 PR fortran/32626
1744 * option.c (gfc_handle_runtime_check_option): Enable recursion check.
1745 * trans-decl.c (gfc_generate_function_code): Add recursion check.
1746 * invoke.texi (-fcheck): Add recursive option.
1747
1748 2009-03-28 Tobias Burnus <burnus@net-b.de>
1749
1750 PR fortran/38432
1751 * resolve.c (gfc_resolve_iterator): Add zero-loop warning.
1752
1753 2009-03-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1754 Paul Thomas <pault@gcc.gnu.org>
1755 Tobias Burnus <burnus@net-b.de>
1756
1757 * gfortran.h (gfc_option_t): Add rtcheck.
1758 * lang.opt: New option -fcheck.
1759 * libgfortran.h: Add GFC_RTCHECK_* constants.
1760 * invoke.texi: Document -fcheck.
1761 * options.c (gfc_handle_runtime_check_option): New function.
1762 (gfc_init_options,gfc_post_options,gfc_handle_option):
1763 Add -fcheck option.
1764
1765 2009-03-27 Richard Guenther <rguenther@suse.de>
1766
1767 * trans-array.c (gfc_conv_descriptor_data_addr): Use
1768 gfc_build_addr_expr instead of build_fold_addr_expr.
1769 (gfc_trans_allocate_array_storage, gfc_trans_array_constructor_value,
1770 gfc_trans_constant_array_constructor, gfc_conv_array_data,
1771 gfc_conv_expr_descriptor, gfc_conv_array_parameter): Likewise.
1772 * trans-expr.c (gfc_conv_missing_dummy, gfc_conv_variable,
1773 gfc_conv_function_val, gfc_conv_operator_assign,
1774 gfc_conv_subref_array_arg, gfc_conv_function_call,
1775 gfc_conv_expr_reference, gfc_trans_scalar_assign): Likewise.
1776 * trans-intrinsic.c (gfc_conv_intrinsic_exponent,
1777 gfc_conv_intrinsic_ctime, gfc_conv_intrinsic_fdate,
1778 gfc_conv_intrinsic_ttynam, gfc_conv_intrinsic_minmax_char,
1779 gfc_conv_intrinsic_fraction, gfc_conv_intrinsic_spacing,
1780 gfc_conv_intrinsic_rrspacing, gfc_conv_intrinsic_set_exponent,
1781 gfc_conv_intrinsic_array_transfer, gfc_conv_intrinsic_transfer,
1782 gfc_conv_intrinsic_si_kind, gfc_conv_intrinsic_trim): Likewise.
1783 * trans-io.c (gfc_trans_io_runtime_check, set_parameter_ref,
1784 gfc_convert_array_to_string, gfc_trans_open, gfc_trans_close,
1785 build_filepos, gfc_trans_inquire, gfc_trans_wait,
1786 nml_get_addr_expr, transfer_namelist_element, build_dt,
1787 gfc_trans_dt_end, transfer_array_component, transfer_expr,
1788 transfer_array_desc, gfc_trans_transfer): Likewise.
1789 * trans-stmt.c (gfc_trans_allocate, gfc_trans_deallocate): Likewise.
1790 * trans.c (gfc_build_addr_expr): Mark the base of the address
1791 TREE_ADDRESSABLE.
1792
1793 2009-03-27 Tobias Burnus <burnus@net-b.de>
1794
1795 * gfortran.h (enum init_local_real.): Add GFC_INIT_REAL_SNAN.
1796 (gfc_expr): Add is_snan.
1797 * trans-const.c (gfc_conv_mpfr_to_tree): Support SNaN.
1798 (gfc_conv_constant_to_tree): Update call to gfc_conv_mpfr_to_tree.
1799 * trans-const.h (gfc_conv_mpfr_to_tree): Update prototype.
1800 * resolve.c (build_default_init_expr): Update call.
1801 * target-memory.c (encode_float): Ditto.
1802 * trans-intrinsic.c (gfc_conv_intrinsic_aint,gfc_conv_intrinsic_mod,
1803
1804 2009-03-18 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
1805
1806 * lang.opt: Unify help texts for -I, -Wconversion, -d, -fopenmp,
1807 and -fpreprocessed.
1808
1809 2009-03-06 Alexandre Oliva <aoliva@redhat.com>
1810
1811 * simplify.c (gfc_simplify_transfer): Zero-initialize the
1812 buffer.
1813
1814 2009-02-27 Tobias Burnus <burnus@net-b.de>
1815
1816 PR fortran/39309
1817 * module.c (read_md5_from_module_file): Add missing quote.
1818
1819 2009-02-27 Tobias Burnus <burnus@net-b.de>
1820
1821 PR fortran/39309
1822 * module.c (read_md5_from_module_file): Include mod version
1823 in had-changed test.
1824
1825 2009-02-26 Paul Thomas <pault@gcc.gnu.org>
1826
1827 PR fortran/39295
1828 * interface.c (compare_type_rank_if): Return 1 if the symbols
1829 are the same and deal with external procedures where one is
1830 identified to be a function or subroutine by usage but the
1831 other is not.
1832
1833 2009-02-26 Paul Thomas <pault@gcc.gnu.org>
1834
1835 PR fortran/39292
1836 * trans-array.c (gfc_conv_array_initializer): Convert all
1837 expressions rather than ICEing.
1838
1839 2009-02-21 Thomas Koenig <tkoenig@gcc.gnu.org>
1840
1841 PR fortran/38914
1842 * array.c (ref_dimen_size): Rename to gfc_ref_dimen_size,
1843 make global. Change function name in error messages.
1844 (ref_size): Change ref_dimen_size to gfc_ref_dimen_size.
1845 (gfc_array_ref_shape): Likewise.
1846 * gfortran.h: Add prototype for gfc_ref_dimen_size.
1847 * simplify.c (simplify_bound_dim): Add ref argument.
1848 If the reference isn't a full array, return one for
1849 the lower bound and the extent for the upper bound.
1850 (simplify_bound): For array sections, take as from the
1851 argument. Add reference to all to simplify_bound_dim.
1852
1853 2009-02-19 Daniel Franke <franke.daniel@gmail.com>
1854
1855 * scanner.c (load_line): At end of line, skip '\r' without setting
1856 the truncation flag.
1857
1858 2009-02-18 Daniel Kraft <d@domob.eu>
1859
1860 * gfortran.texi: New chapter about compiler characteristics.
1861 (Compiler Characteristics): Document KIND type parameters here.
1862
1863 2009-02-18 Tobias Burnus <burnus@net-b.de>
1864
1865 * intrinsic.texi (MALLOC): Make example more portable.
1866
1867 2009-02-13 Mikael Morin <mikael.morin@tele2.fr>
1868
1869 PR fortran/38259
1870 * module.c (gfc_dump_module,gfc_use_module): Add module
1871 version number.
1872
1873 2009-02-13 Paul Thomas <pault@gcc.gnu.org>
1874
1875 PR fortran/36703
1876 PR fortran/36528
1877 * trans-expr.c (gfc_conv_function_val): Stabilize Cray-pointer
1878 function references to ensure that a valid expression is used.
1879 (gfc_conv_function_call): Pass Cray pointers to procedures.
1880
1881 2009-02-03 Jakub Jelinek <jakub@redhat.com>
1882
1883 * gfortranspec.c (lang_specific_driver): Update copyright notice
1884 dates.
1885
1886 2009-01-28 Paul Thomas <pault@gcc.gnu.org>
1887
1888 PR fortran/38852
1889 PR fortran/39006
1890 * trans-intrinsic.c (gfc_conv_intrinsic_bound): Use the array
1891 descriptor ubound for UBOUND, when the array lbound == 1.
1892
1893 2009-01-27 Daniel Kraft <d@domob.eu>
1894
1895 PR fortran/38883
1896 * trans-stmt.c (gfc_conv_elemental_dependencies): Create temporary
1897 for the real type needed to make it work for subcomponent-references.
1898
1899 2009-01-21 Daniel Kraft <d@domob.eu>
1900
1901 * trans-stmt.c (gfc_conv_elemental_dependencies): Cleaned up comment.
1902
1903 2009-01-20 Paul Thomas <pault@gcc.gnu.org>
1904
1905 PR fortran/38907
1906 * resolve.c (check_host_association): Remove the matching to
1907 correct an incorrect host association and use manipulation of
1908 the expression instead.
1909
1910 2009-01-20 Tobias Burnus <burnus@net-b.de>
1911
1912 * invoke.texi (RANGE): RANGE also takes INTEGER arguments.
1913
1914 2009-01-19 Mikael Morin <mikael.morin@tele2.fr>
1915
1916 PR fortran/38859
1917 * simplify.c (simplify_bound): Don't use array specification
1918 if variable or component has subsequent references.
1919
1920 2009-01-17 Paul Thomas <pault@gcc.gnu.org>
1921
1922 PR fortran/38657
1923 * module.c (write_common_0): Add argument 'this_module' and
1924 check that non-use associated common blocks are written first.
1925 (write_common): Call write_common_0 twice, once with true and
1926 then with false.
1927
1928 2009-01-17 Paul Thomas <pault@gcc.gnu.org>
1929
1930 PR fortran/34955
1931 * trans-intrinsic.c (gfc_conv_intrinsic_array_transfer): Has
1932 been absorbed into gfc_conv_intrinsic_transfer. All
1933 references to it in trans-intrinsic.c have been changed
1934 accordingly. PR fixed by using a temporary for scalar
1935 character transfer, when the source is shorter than the
1936 destination.
1937
1938 2009-01-17 Paul Thomas <pault@gcc.gnu.org>
1939
1940 PR fortran/38657
1941 * module.c (write_common_0): Revert patch of 2009-01-05.
1942
1943 2009-01-16 Janus Weil <janus@gcc.gnu.org>
1944
1945 PR fortran/38152
1946 * expr.c (gfc_check_pointer_assign): Allow use-associated procedure
1947 pointers as lvalue.
1948 * trans-decl.c (get_proc_pointer_decl,gfc_create_module_variable):
1949 Enable procedure pointers as module variables.
1950
1951 2009-01-14 Steven G. Kargl <kargl@gcc.gnu.org>
1952
1953 * ChangeLog-2007: Clean out svn merge droppings.
1954
1955 2009-01-10 Paul Thomas <pault@gcc.gnu.org>
1956
1957 PR fortran/38763
1958 * target-memory.c (encode_derived): Encode NULL.
1959
1960 2009-01-10 Paul Thomas <pault@gcc.gnu.org>
1961
1962 PR fortran/38765
1963 * resolve.c (check_host_association): Use the symtree name to
1964 search for a potential contained procedure, since this is the
1965 name by which it would be referenced.
1966
1967 2009-01-06 Thomas Koenig <tkoenig@gcc.gnu.org>
1968
1969 PR fortran/38220
1970 * interface.c (gfc_procedure_use): Don't warn about functions
1971 from ISO_C_BINDING.
1972 * symbol.c (generate_isocbinding_symbol): Mark c_loc and
1973 c_funloc as pure.
1974
1975 2009-01-05 Paul Thomas <pault@gcc.gnu.org>
1976
1977 PR fortran/38657
1978 * module.c (write_common_0): Use the name of the symtree rather
1979 than the common block, to determine if the common has been
1980 written.
1981
1982 2009-01-05 Daniel Franke <franke.daniel@gmail.com>
1983
1984 PR fortran/37159
1985 * check.c (gfc_check_random_seed): Added size check for GET
1986 dummy argument, reworded error messages to follow common pattern.
1987
1988 2009-01-05 Thomas Koenig <tkoenig@gcc.gnu.org>
1989
1990 PR fortran/38672
1991 * trans-types.c (gfc_get_derived_type): Check for the
1992 presence of derived->ns->proc_name before
1993 accessing derived->ns->proc_name->attr.flavor .
1994 * resolve.c (resolve_symbol): Likewise.
1995
1996 2009-01-05 Paul Thomas <pault@gcc.gnu.org>
1997
1998 PR fortran/38665
1999 * gfortran.h : Add bit to gfc_expr 'user_operator'
2000 * interface.c (gfc_extend_expr): Set the above if the operator
2001 is substituted by a function.
2002 * resolve.c (check_host_association): Return if above is set.
2003
2004 2009-01-04 Mikael Morin <mikael.morin@tele2.fr>
2005
2006 PR fortran/35681
2007 * ChangeLog-2008: Fix function name.
2008
2009 PR fortran/38487
2010 * dependency.c (gfc_check_argument_var_dependency):
2011 Move the check for pointerness inside the if block
2012 so that it doesn't affect the return value.
2013
2014 PR fortran/38669
2015 * trans-stmt.c (gfc_trans_call):
2016 Add the dependency code after the loop bounds calculation one.
2017
2018 2009-01-04 Daniel Franke <franke.daniel@gmail.com>
2019
2020 * intrinsic.c (do_simplify): Removed already implemented TODO.
2021
2022 2009-01-04 Daniel Franke <franke.daniel@gmail.com>
2023
2024 PR fortran/38718
2025 * simplify.c (gfc_simplify_merge): New.
2026 * intrinsic.h (gfc_simplify_merge): New prototype.
2027 * intrinsic.c (add_functions): Added simplification for MERGE.
2028
2029 2009-01-04 Mikael Morin <mikael.morin@tele2.fr>
2030
2031 PR fortran/38536
2032 * gfortran.h (gfc_is_data_pointer): Added prototype
2033 * resolve.c (gfc_iso_c_func_interface):
2034 Use gfc_is_data_pointer to test for pointer attribute.
2035 * dependency.c (gfc_is_data_pointer):
2036 Support pointer-returning functions.
2037
2038 2009-01-03 Daniel Franke <franke.daniel@gmail.com>
2039
2040 * symbol.c (save_symbol): Don't SAVE function results.
2041
2042 2009-01-03 Paul Thomas <pault@gcc.gnu.org>
2043
2044 PR fortran/38594
2045 * resolve.c (resolve_call): When searching for proper host
2046 association, use symtree rather than symbol. For everything
2047 except generic subroutines, substitute the symtree in the call
2048 rather than the symbol.
2049
2050 \f
2051 Copyright (C) 2009 Free Software Foundation, Inc.
2052
2053 Copying and distribution of this file, with or without modification,
2054 are permitted in any medium without royalty provided the copyright
2055 notice and this notice are preserved.