1 2010-06-20 Joseph Myers <joseph@codesourcery.com>
3 * options.c (gfc_handle_option): Don't handle N_OPTS.
5 2010-06-19 Janus Weil <janus@gcc.gnu.org>
8 * resolve.c (resolve_fl_derived): Reverse ordering of conditions
11 2010-06-18 Tobias Burnus <burnus@net-b.de>
14 * resolve.c (resolve_allocate_deallocate): Properly check
15 part-refs in stat=/errmsg= for invalid use.
17 2010-06-17 Janus Weil <janus@gcc.gnu.org>
20 * resolve.c (resolve_typebound_function,resolve_typebound_subroutine):
21 Return directly in case of an error.
23 2010-06-16 Janus Weil <janus@gcc.gnu.org>
26 * gfortran.h (gfc_get_typebound_proc): Modified Prototype.
27 * decl.c (match_procedure_in_type): Give a unique gfc_typebound_proc
28 structure to each procedure in a procedure list.
29 * module.c (mio_typebound_proc): Add NULL argument to
30 'gfc_get_typebound_proc'.
31 * symbol.c (gfc_get_typebound_proc): Add a new argument, which is used
32 to initialize the new structure.
34 2010-06-15 Janus Weil <janus@gcc.gnu.org>
37 * gfortran.h (gfc_expr): Add new member 'mold'.
38 * match.c (gfc_match_allocate): Implement the MOLD tag.
39 * resolve.c (resolve_allocate_expr): Ditto.
40 * trans-stmt.c (gfc_trans_allocate): Ditto.
42 2010-06-15 Jakub Jelinek <jakub@redhat.com>
45 * trans-openmp.c (gfc_omp_predetermined_sharing): Don't return
46 OMP_CLAUSE_DEFAULT_SHARED for artificial vars with
47 GFC_DECL_SAVED_DESCRIPTOR set.
48 (gfc_omp_report_decl): New function.
49 * trans.h (gfc_omp_report_decl): New prototype.
50 * f95-lang.c (LANG_HOOKS_OMP_REPORT_DECL): Redefine.
52 2010-06-13 Daniel Franke <franke.daniel@gmail.com>
56 * gfortranspec.c (lang_specific_driver): Removed deprecation
58 * lang.opt: Add options -M, -MM, -MD, -MMD, -MF, -MG, -MP, -MT, -MQ.
59 * lang-specs.h (CPP_FORWARD_OPTIONS): Add -M* options.
60 * cpp.h (gfc_cpp_makedep): New.
61 (gfc_cpp_add_dep): New.
62 (gfc_cpp_add_target): New.
63 * cpp.c (gfc_cpp_option): Add deps* members.
64 (gfc_cpp_makedep): New.
65 (gfc_cpp_add_dep): New.
66 (gfc_cpp_add_target): New.
67 (gfc_cpp_init_options): Initialize new options.
68 (gfc_cpp_handle_option): Handle new options.
69 (gfc_cpp_post_options): Map new options to libcpp-options.
70 (gfc_cpp_init): Handle deferred -MQ and -MT options.
71 (gfc_cpp_done): If requested, write dependencies to file.
72 * module.c (gfc_dump_module): Add a module filename as target.
73 * scanner.c (open_included_file): New parameter system; add the
74 included file as dependency.
75 (gfc_open_included_file): Add the included file as dependency.
76 (gfc_open_intrinsic_module): Likewise.
77 * invoke.texi: Removed deprecation warning for -M.
78 * gfortran.texi: Removed Makefile-dependencies project.
80 2010-06-12 Daniel Franke <franke.daniel@gmail.com>
82 * resolve.c (resolve_global_procedure): Improved checking if an
83 explicit interface is required.
85 2010-06-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
87 * trans-decl.c (gfc_build_intrinsic_function_decls): Fix
89 * trans-intrinsic.c (gfc_conv_intrinsic_fdate): Fix argument type.
90 (gfc_conv_intrinsic_ttynam): Likewise.
91 (gfc_conv_intrinsic_trim): Likewise.
93 2010-06-12 Janus Weil <janus@gcc.gnu.org>
96 * decl.c (match_procedure_in_type): Allow procedure lists (F08).
98 2010-06-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
100 * trans-intrinsic.c (gfc_build_intrinsic_lib_fndecls): Fix comment.
102 2010-06-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
104 * mathbuiltins.def: Add builtins that do not directly correspond
105 to a Fortran intrinsic, with new macro OTHER_BUILTIN.
106 * f95-lang.c (gfc_init_builtin_functions): Define OTHER_BUILTIN.
107 * trans-intrinsic.c (gfc_intrinsic_map_t): Remove
108 code_{r,c}{4,8,10,16} fields. Add
109 {,complex}{float,double,long_double}_built_in fields.
110 (gfc_intrinsic_map): Adjust definitions of DEFINE_MATH_BUILTIN,
111 DEFINE_MATH_BUILTIN_C and LIB_FUNCTION accordingly. Add
112 definition of OTHER_BUILTIN.
113 (real_compnt_info): Remove unused struct.
114 (builtin_decl_for_precision, builtin_decl_for_float_kind): New
116 (build_round_expr): Call builtin_decl_for_precision instead of
118 (gfc_conv_intrinsic_aint): Call builtin_decl_for_float_kind
120 (gfc_build_intrinsic_lib_fndecls): Match
121 {real,complex}{4,8,10,16}decl into the C-style built_in_decls.
122 (gfc_get_intrinsic_lib_fndecl): Do not hardcode floating-point
124 (gfc_conv_intrinsic_lib_function): Go through all the extended
126 (gfc_trans_same_strlen_check): Call builtin_decl_for_float_kind
128 (gfc_conv_intrinsic_abs): Likewise.
129 (gfc_conv_intrinsic_mod): Likewise.
130 (gfc_conv_intrinsic_sign): Likewise.
131 (gfc_conv_intrinsic_fraction): Likewise.
132 (gfc_conv_intrinsic_nearest): Likewise.
133 (gfc_conv_intrinsic_spacing): Likewise.
134 (gfc_conv_intrinsic_rrspacing): Likewise.
135 (gfc_conv_intrinsic_scale): Likewise.
136 (gfc_conv_intrinsic_set_exponent): Likewise.
138 2010-06-11 Paul Thomas <pault@gcc.gnu.org>
142 * trans-expr.c (gfc_conv_derived_to_class): Handle array-valued
143 functions with CLASS formal arguments.
145 2010-06-10 Janus Weil <janus@gcc.gnu.org>
148 * resolve.c (conformable_arrays): Handle allocatable components.
150 2010-06-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
153 * gfortran.texi: Document that Cray pointers cannot be function
156 2010-06-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
159 * gfortran.texi: Document lack of support for syntax
160 "complex FUNCTION name*16()", and existence of alternative
161 legacy syntax "complex*16 FUNCTION name()".
163 2010-06-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
166 * intrinsic.texi (FLUSH): Note the difference between FLUSH and
167 POSIX's fsync(), and how to call the latter from Fortran code.
169 2010-06-10 Daniel Franke <franke.daniel@gmail.com>
172 * interface.c (compare_actual_formal): Reject actual arguments with
173 array subscript passed to ASYNCHRONOUS dummys.
175 2010-06-10 Daniel Kraft <d@domob.eu>
178 * gfortran.h (enum gfc_statement): Add ST_ASSOCIATE, ST_END_ASSOCIATE.
179 (struct gfc_symbol): New field `assoc'.
180 (struct gfc_association_list): New struct.
181 (struct gfc_code): New struct `block' in union, move `ns' there
182 and add association list.
183 (gfc_free_association_list): New method.
184 (gfc_has_vector_subscript): Made public;
185 * match.h (gfc_match_associate): New method.
186 * parse.h (enum gfc_compile_state): Add COMP_ASSOCIATE.
187 * decl.c (gfc_match_end): Handle ST_END_ASSOCIATE.
188 * interface.c (gfc_has_vector_subscript): Made public.
189 (compare_actual_formal): Rename `has_vector_subscript' accordingly.
190 * match.c (gfc_match_associate): New method.
191 (gfc_match_select_type): Change reference to gfc_code's `ns' field.
192 * primary.c (match_variable): Don't allow names associated to expr here.
193 * parse.c (decode_statement): Try matching ASSOCIATE statement.
194 (case_exec_markers, case_end): Add ASSOCIATE statement.
195 (gfc_ascii_statement): Hande ST_ASSOCIATE and ST_END_ASSOCIATE.
196 (parse_associate): New method.
197 (parse_executable): Handle ST_ASSOCIATE.
198 (parse_block_construct): Change reference to gfc_code's `ns' field.
199 * resolve.c (resolve_select_type): Ditto.
200 (resolve_code): Ditto.
201 (resolve_block_construct): Ditto and add comment.
202 (resolve_select_type): Set association list in generated BLOCK to NULL.
203 (resolve_symbol): Resolve associate names.
204 * st.c (gfc_free_statement): Change reference to gfc_code's `ns' field
205 and free association list.
206 (gfc_free_association_list): New method.
207 * symbol.c (gfc_new_symbol): NULL new field `assoc'.
208 * trans-stmt.c (gfc_trans_block_construct): Change reference to
209 gfc_code's `ns' field.
211 2010-06-10 Kai Tietz <kai.tietz@onevision.com>
213 * error.c (error_print): Pre-initialize loc by NULL.
214 * openmp.c (resolve_omp_clauses): Add explicit
215 braces to avoid ambigous else.
216 * array.c (match_subscript): Pre-initialize m to MATCH_ERROR.
218 2010-06-10 Gerald Pfeifer <gerald@pfeifer.com>
220 * gfc-internals.texi: Move to GFDL 1.3.
221 * gfortran.texi: Ditto.
222 * intrinsic.texi: Ditto.
223 * invoke.texi: Ditto.
225 2010-06-09 Daniel Franke <franke.daniel@gmail.com>
228 * check.c (gfc_check_selected_real_kind): Verify that the
229 actual arguments are scalar.
231 2010-06-09 Daniel Franke <franke.daniel@gmail.com>
234 * intrinsic.c (gfc_convert_type_warn): Further improve -Wconversion.
236 2010-06-09 Janus Weil <janus@gcc.gnu.org>
239 * dump-parse-tree.c (show_symbol): Avoid infinite loop.
241 2010-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
243 * fortran/symbol.c (check_conflict): Remove an invalid conflict check.
245 2010-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
247 * fortran/intrinsic.c (add_functions): Change gfc_check_btest,
248 gfc_check_ibclr, and gfc_check_ibset to gfc_check_bitfcn.
249 * fortran/intrinsic.h: Remove prototypes for gfc_check_btest,
250 gfc_check_ibclr, and gfc_check_ibset. Add prototype for
252 * fortran/check.c (nonnegative_check, less_than_bitsize1,
253 less_than_bitsize2): New functions.
254 (gfc_check_btest): Renamed to gfc_check_bitfcn. Use
255 nonnegative_check and less_than_bitsize1.
256 (gfc_check_ibclr, gfc_check_ibset): Removed.
257 (gfc_check_ibits,gfc_check_mvbits): Use nonnegative_check and
260 2010-06-09 Janus Weil <janus@gcc.gnu.org>
263 * resolve.c (resolve_typebound_function,resolve_typebound_subroutine):
266 2010-06-09 Kai Tietz <kai.tietz@onevision.com>
268 * resolve.c (resolve_deallocate_expr): Avoid warning
269 about possible use of iunitialized sym.
270 (resolve_allocate_expr): Pre-initialize sym by NULL.
272 2010-06-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
275 * f95-lang.c (gfc_init_builtin_functions): Remove comment.
277 2010-06-08 Laurynas Biveinis <laurynas.biveinis@gmail.com>
279 * trans-types.c (gfc_get_nodesc_array_type): Use typed GC
281 (gfc_get_array_type_bounds): Likewise.
283 * trans-decl.c (gfc_allocate_lang_decl): Likewise.
284 (gfc_find_module): Likewise.
286 * f95-lang.c (pushlevel): Likewise.
288 * trans.h (struct lang_type): Add variable_size GTY option.
289 (struct lang_decl): Likewise.
291 2010-06-08 Tobias Burnus <burnus@net-b.de>
294 * symbol.c (check_conflict): Move protected--external/procedure check ...
295 * resolve.c (resolve_select_type): ... to the resolution stage.
297 2010-06-07 Tobias Burnus <burnus@net-b.de>
299 * options.c (gfc_handle_option): Fix -fno-recursive.
301 2010-06-07 Tobias Burnus <burnus@net-b.de>
303 * gfc-internals.texi (copyrights-gfortran): Fix copyright year format.
304 * gfortran.texi (copyrights-gfortran): Ditto.
306 2010-06-07 Joseph Myers <joseph@codesourcery.com>
308 * lang.opt (fshort-enums): Define using Var and VarExists.
309 * options.c (gfc_handle_option): Don't set flag_short_enums here.
311 2010-06-05 Paul Thomas <pault@gcc.gnu.org>
312 Janus Weil <janus@gcc.gnu.org>
315 * resolve.c (get_declared_from_expr): Move to before
316 resolve_typebound_generic_call. Make new_ref and class_ref
317 ignorable if set to NULL.
318 (resolve_typebound_generic_call): Once we have resolved the
319 generic call, check that the specific instance is that which
320 is bound to the declared type.
321 (resolve_typebound_function,resolve_typebound_subroutine): Avoid
322 freeing 'class_ref->next' twice.
324 2010-06-05 Paul Thomas <pault@gcc.gnu.org>
327 * trans-array.c (structure_alloc_comps): Dereference scalar
328 'decl' if it is a REFERENCE_TYPE. Tidy expressions containing
331 2010-06-04 Joseph Myers <joseph@codesourcery.com>
333 * gfortranspec.c (append_arg, lang_specific_driver): Use
334 GCC-specific formats in diagnostics.
336 2010-06-02 Tobias Burnus <burnus@net-b.de>
339 * parse.c (gfc_fixup_sibling_symbols): Do not "fix" use-associated
342 2010-06-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
345 * match.c (gfc_match_stopcode): Move gfc_match_eos call inside
348 2010-05-31 Steven G. Kargl <kargl@gcc.gnu.org>
350 * fortran/gfortran.texi: Fix typos in description of variable-format-
353 2010-05-31 Thomas Koenig <tkoenig@gcc.gnu.org>
356 * dependency.c (gfc_check_section_vs_section): Check
357 for interleaving array assignments without conflicts.
359 2010-05-30 Janus Weil <janus@gcc.gnu.org>
361 * gcc/fortran/gfortran.h (CLASS_DATA): New macro for accessing the
362 $data component of a class container.
363 * gcc/fortran/decl.c (attr_decl1): Use macro CLASS_DATA.
364 * gcc/fortran/expr.c (gfc_check_pointer_assign,gfc_check_assign_symbol,
365 gfc_has_ultimate_allocatable,gfc_has_ultimate_pointer): Ditto.
366 * gcc/fortran/interface.c (matching_typebound_op): Ditto.
367 * gcc/fortran/match.c (gfc_match_allocate, gfc_match_deallocate): Ditto.
368 * gcc/fortran/parse.c (parse_derived): Ditto.
369 * gcc/fortran/primary.c (gfc_match_varspec, gfc_variable_attr,
370 gfc_expr_attr): Ditto.
371 * gcc/fortran/resolve.c (resolve_structure_cons, find_array_spec,
372 resolve_deallocate_expr, resolve_allocate_expr, resolve_select_type,
373 resolve_fl_var_and_proc, resolve_typebound_procedure,
374 resolve_fl_derived): Ditto.
375 * gcc/fortran/symbol.c (gfc_type_compatible): Restructured.
376 * gcc/fortran/trans-array.c (structure_alloc_comps): Use macro
378 * gcc/fortran/trans-decl.c (gfc_get_symbol_decl,
379 gfc_trans_deferred_vars): Ditto.
380 * gcc/fortran/trans-stmt.c (gfc_trans_allocate): Ditto.
382 2010-05-28 Tobias Burnus <burnus@net-b.de>
384 * options.c (gfc_handle_option): Fix handling of -fno-whole-file.
386 2010-05-28 Joseph Myers <joseph@codesourcery.com>
388 * gfortranspec.c (append_arg, lang_specific_driver): Use
389 fatal_error instead of fatal. Use warning instead of fprintf for
392 2010-05-28 Joseph Myers <joseph@codesourcery.com>
394 * cpp.c (gfc_cpp_init_0): Use xstrerror instead of strerror.
395 * module.c (write_char, gfc_dump_module, gfc_use_module): Use
396 xstrerror instead of strerror.
398 2010-05-26 Joseph Myers <joseph@codesourcery.com>
400 * cpp.c (cb_cpp_error): Save and restore
401 global_dc->warn_system_headers, not variable warn_system_headers.
403 2010-05-26 Steven Bosscher <steven@gcc.gnu.org>
405 * fortran/f95-lang.c: Do not include libfuncs.h, expr.h, and except.h.
407 2010-05-26 Steven Bosscher <steven@gcc.gnu.org>
409 * trans-common.c: Do not include rtl.h, include output.h instead.
410 * trans-decl.c: Likewise.
412 2010-05-26 Paul Thomas <pault@gcc.gnu.org>
415 * resolve.c (resolve_global_procedure): Resolve the gsymbol's
416 namespace before trying to reorder the gsymbols.
418 2010-05-25 Daniel Franke <franke.daniel@gmail.com>
423 * resolve.c (resolve_global_procedure): Add check for global
424 procedures with implicit interfaces and assumed-shape or optional
425 dummy arguments. Verify that function return type, kind and string
428 2010-05-21 Tobias Burnus <burnus@net-b.de>
430 * gfortran.h: Do not include system.h.
431 * bbt.c: Include system.h.
433 * dependency.c: Ditto.
434 * dump-parse-tree.c: Ditto.
435 * arith.h: Do not include gfortran.h.
436 * constructor.h: Do not include gfortran.h and splay-tree.h.
437 * match.h: Do not include gfortran.h.
439 * target-memory.h: Ditto.
440 * openmp.c: Do not include toplev.h and target.h.
441 * trans-stmt.c: Ditto not include toplev.h.
443 * trans-common.c: Tell why toplev.h is needed. And
444 do not include target.h.
445 * trans-expr.c: Tell why toplev.h is needed.
446 * trans-array.c: Ditto.
447 * trans-openmp.c: Ditto.
448 * trans-const.c: Ditto.
450 * trans-types.c: Ditto.
452 * trans-decl.c: Ditto.
455 * trans-intrinsic.c: Ditto.
458 2010-05-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
461 * match.c (gfc_match_stopcode): Use gfc_match_init_expr. Go to cleanup
462 before returning MATCH_ERROR. Add check for scalar. Add check for
463 default integer kind.
465 2010-05-22 Janus Weil <janus@gcc.gnu.org>
468 * match.c (gfc_match_select_type): On error jump back out of the local
470 * parse.c (parse_derived): Defer creation of vtab symbols to resolution
471 stage, more precisely to ...
472 * resolve.c (resolve_fl_derived): ... this place.
474 2010-05-22 Janus Weil <janus@gcc.gnu.org>
477 * resolve.c (ensure_not_abstract): Allow abstract types with
478 non-abstract ancestors.
480 2010-05-21 Steven Bosscher <steven@gcc.gnu.org>
482 * trans-const.c: Include realmpfr.h.
483 * Make-lang.in: Update dependencies.
485 2010-05-21 Steven Bosscher <steven@gcc.gnu.org>
487 * trans-const.c, trans-types.c, trans-intrinsic.c:
488 Clean up redundant includes.
490 2010-05-20 Daniel Franke <franke.daniel@gmail.com>
493 * lang.opt (Wunused-dummy-argument): New option.
494 * gfortran.h (gfc_option_t): Add warn_unused_dummy_argument.
495 * options.c (gfc_init_options): Disable warn_unused_dummy_argument.
496 (set_Wall): Enable warn_unused_dummy_argument.
497 (gfc_handle_option): Set warn_unused_dummy_argument according to
499 * trans-decl.c (generate_local_decl): Separate warnings about
500 unused variables and unused dummy arguments.
501 * invoke.texi: Documented new option.
503 2010-05-20 Steven Bosscher <steven@gcc.gnu.org>
505 * trans-expr.c: Do not include convert.h, ggc.h, real.h, and gimple.h.
506 (gfc_conv_string_tmp): Do not assert type comparibilty.
507 * trans-array.c: Do not include gimple.h, ggc.h, and real.h.
508 (gfc_conv_expr_descriptor): Remove assert.
509 * trans-common.c: Clarify why rtl.h and tm.h are included.
510 * trans-openmp.c: Do not include ggc.h and real.h.
511 Explain why gimple.h is included.
512 * trans-const.c: Do not include ggc.h.
513 * trans-stmt.c: Do not include gimple.h, ggc.h, and real.h.
514 * trans.c: Do not include ggc.h and real.h.
515 Explain why gimple.h is included.
516 * trans-types.c: Do not include tm.h. Explain why langhooks.h
517 and dwarf2out.h are included.
518 * trans-io.c: Do not include gimple.h and real.h.
519 * trans-decl.c: Explain why gimple.h, tm.h, and rtl.h are included.
520 * trans-intrinsic.c: Do not include gimple.h. Explain why tm.h
523 2010-05-20 Tobias Burnus <burnus@net-b.de>
525 * options.c (gfc_init_options,gfc_post_options): Enable
526 flag_associative_math by default.
528 2010-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
531 * trans-stmt.c (gfc_trans_stop): Add generation of call to
532 gfortran_error_stop_numeric. Fix up some whitespace. Use stop_string for
533 blank STOP, handling a null expression. (gfc_trans_pause): Use
534 pause_string for blank PAUSE.
535 * trans.h: Add external function declaration for error_stop_numeric.
536 * trans-decl.c (gfc_build_builtin_function_decls): Add the building of
537 the declaration for the library call. Adjust whitespaces.
538 * match.c (gfc_match_stopcode): Remove use of the actual stop code to
539 signal no stop code. Match the expression following the stop and pass
540 that to the translators. Remove the old use of digit matching. Add
541 checks that the stop_code expression is INTEGER or CHARACTER, constant,
542 and if CHARACTER, default character KIND.
544 2010-05-19 Daniel Franke <franke.daniel@gmail.com>
547 * lang.opt (Wconversion-extra): New option.
548 * gfortran.h (gfc_option_t): Add warn_conversion_extra.
549 * options.c (gfc_init_options): Disable -Wconversion-extra by default.
550 (set_Wall): Enable -Wconversion.
551 (gfc_handle_option): Set warn_conversion_extra.
552 * intrinsic.c (gfc_convert_type_warn): Ignore kind conditions
553 introduced for -Wconversion if -Wconversion-extra is present.
554 * invoke.texi: Add -Wconversion to -Wall; document new behaviour of
555 -Wconversion; document -Wconversion-extra.
557 2010-05-19 Daniel Franke <franke.daniel@gmail.com>
560 * gfortran.h (gfc_has_default_initializer): New.
561 * expr.c (gfc_has_default_initializer): New.
562 * resolve.c (has_default_initializer): Removed, use
563 gfc_has_default_initializer() instead. Updated all callers.
564 * trans-array.c (has_default_initializer): Removed, use
565 gfc_has_default_initializer() instead. Updated all callers.
566 * trans-decl.c (generate_local_decl): Do not check the
567 first component only to check for initializers, but use
568 gfc_has_default_initializer() instead.
570 2010-05-19 Daniel Franke <franke.daniel@gmail.com>
573 * primary.c (match_string_constant): Move start_locus just inside
575 * data.c (create_character_intializer): Clarified truncation warning.
577 2010-05-19 Daniel Franke <franke.daniel@gmail.com>
580 * intrinsic.h (gfc_check_float): New prototype.
581 (gfc_check_sngl): New prototype.
582 * check.c (gfc_check_float): New.
583 (gfc_check_sngl): New.
584 * intrinsic.c (add_functions): Moved DFLOAT from aliasing DBLE
585 to be a specific for REAL. Added check routines for FLOAT, DFLOAT
587 * intrinsic.texi: Removed individual nodes of FLOAT, DFLOAT and SNGL,
588 added them to the list of specifics of REAL instead.
590 2010-05-17 Janus Weil <janus@gcc.gnu.org>
593 * trans-expr.c (gfc_conv_structure): Remove unneeded and buggy code.
594 This is now handled via 'gfc_class_null_initializer'.
596 2010-05-17 Janus Weil <janus@gcc.gnu.org>
598 * class.c (gfc_add_component_ref,gfc_class_null_initializer,
599 gfc_build_class_symbol,add_proc_component,add_proc_comps,
600 add_procs_to_declared_vtab1,copy_vtab_proc_comps,
601 add_procs_to_declared_vtab,add_generic_specifics,
602 add_generics_to_declared_vtab,gfc_find_derived_vtab,
603 find_typebound_proc_uop,gfc_find_typebound_proc,
604 gfc_find_typebound_user_op,gfc_find_typebound_intrinsic_op,
605 gfc_get_tbp_symtree): Moved here from other places.
606 * expr.c (gfc_add_component_ref,gfc_class_null_initializer): Move to
608 * gfortran.h (gfc_build_class_symbol,gfc_find_derived_vtab,
609 gfc_find_typebound_proc,gfc_find_typebound_user_op,
610 gfc_find_typebound_intrinsic_op,gfc_get_tbp_symtree,
611 gfc_add_component_ref, gfc_class_null_initializer): Moved to class.c.
612 * Make-lang.in: Add class.o.
613 * symbol.c (gfc_build_class_symbol,add_proc_component,add_proc_comps,
614 add_procs_to_declared_vtab1,copy_vtab_proc_comps,
615 add_procs_to_declared_vtab,add_generic_specifics,
616 add_generics_to_declared_vtab,gfc_find_derived_vtab,
617 find_typebound_proc_uop,gfc_find_typebound_proc,
618 gfc_find_typebound_user_op,gfc_find_typebound_intrinsic_op,
619 gfc_get_tbp_symtree): Move to class.c.
621 2010-05-17 Nathan Froyd <froydnj@codesourcery.com>
623 * trans-types.c (gfc_init_types): Use build_function_type_list.
624 (gfc_get_ppc_type): Likewise.
625 * trans-decl.c (gfc_generate_constructors): Likewise.
626 * f95-lang.c (build_builtin_fntypes): Likewise.
627 (gfc_init_builtin_functions): Likewise.
628 (DEF_FUNCTION_TYPE_0): Likewise.
629 (DEF_FUNCTION_TYPE_1): Likewise.
630 (DEF_FUNCTION_TYPE_2): Likewise.
631 (DEF_FUNCTION_TYPE_3): Likewise.
632 (DEF_FUNCTION_TYPE_4): Likewise.
633 (DEF_FUNCTION_TYPE_5): Likewise.
634 (DEF_FUNCTION_TYPE_6): Likewise.
635 (DEF_FUNCTION_TYPE_7): Likewise. Use ARG7.
636 (DEF_FUNCTION_TYPE_VAR_0): Use build_varags_function_type_list.
638 2010-05-17 Nathan Froyd <froydnj@codesourcery.com>
640 * trans-array.c (gfc_trans_array_constructor_value): Use
641 build_constructor instead of build_constructor_from_list.
642 (gfc_build_constant_array_constructor): Likewise.
643 * trans-decl.c (create_main_function): Likewise.
644 * trans-stmt.c (gfc_trans_character_select): Likewise.
646 2010-05-17 Janus Weil <janus@gcc.gnu.org>
649 * resolve.c (resolve_fl_var_and_proc): Move error messages here from ...
650 (resolve_fl_variable_derived): ... this place.
651 (resolve_symbol): Make sure function symbols (and their result
652 variables) are not resolved twice.
654 2010-05-16 Daniel Franke <franke.daniel@gmail.com>
657 * array.c (match_array_list): Revert change from 2010-05-13.
659 2010-05-16 Richard Guenther <rguenther@suse.de>
661 * trans-decl.c (module_htab_decls_hash): Revert last change.
663 2010-05-16 Richard Guenther <rguenther@suse.de>
665 * trans-decl.c (module_htab_decls_hash): Use IDENTIFIER_HASH_VALUE.
667 2010-05-16 Manuel López-Ibáñez <manu@gcc.gnu.org>
669 * options.c (set_Wall): Remove special logic for Wuninitialized
672 2010-05-15 Janus Weil <janus@gcc.gnu.org>
676 * trans-decl.c (gfc_trans_deferred_vars): Modify ordering of
679 2010-05-15 Janus Weil <janus@gcc.gnu.org>
683 * gfortran.h (gfc_class_null_initializer): New prototype.
684 * expr.c (gfc_class_null_initializer): New function to build a NULL
685 initializer for CLASS pointers.
686 * symbol.c (gfc_build_class_symbol): Modify internal naming of class
687 containers. Remove default NULL initialization of $data component.
688 * trans.c (gfc_allocate_array_with_status): Fix wording of an error
690 * trans-expr.c (gfc_conv_initializer,gfc_trans_subcomponent_assign):
691 Use new function 'gfc_class_null_initializer'.
692 * trans-intrinsic.c (gfc_conv_allocated): Handle allocatable scalar
695 2010-05-14 Steven G. Kargl <kargl@gcc.gnu.org>
698 * fortran/interface.c (get_sym_storage_size): Use signed instead of
699 unsigned mpz_get_?i routines.
701 2010-05-14 Jakub Jelinek <jakub@redhat.com>
703 * trans.c (trans_code): Set backend locus early.
704 * trans-decl.c (gfc_get_fake_result_decl): Use source location
705 of the function instead of current input_location.
707 2010-05-13 Daniel Franke <franke.daniel@gmail.com>
710 * intrinsic.c (gfc_init_expr): Renamed to gfc_init_expr_flag.
712 * expr.c (init_flag): Removed; use gfc_init_expr_flag everywhere.
713 * array.c (match_array_list): Pass on gfc_init_expr_flag when matching
716 2010-05-13 Jakub Jelinek <jakub@redhat.com>
719 * openmp.c (resolve_omp_clauses): Allow procedure pointers in clause
721 * trans-openmp.c (gfc_omp_privatize_by_reference): Don't privatize
722 by reference dummy procedures or non-dummy procedure pointers.
723 (gfc_omp_predetermined_sharing): Return
724 OMP_CLAUSE_DEFAULT_FIRSTPRIVATE for dummy procedures.
726 2010-05-11 Daniel Franke <franke.daniel@gmail.com>
729 * openmp.c (gfc_match_omp_taskwait): Report unexpected characters
731 (gfc_match_omp_critical): Likewise.
732 (gfc_match_omp_flush): Likewise.
733 (gfc_match_omp_workshare): Likewise.
734 (gfc_match_omp_master): Likewise.
735 (gfc_match_omp_ordered): Likewise.
736 (gfc_match_omp_atomic): Likewise.
737 (gfc_match_omp_barrier): Likewise.
738 (gfc_match_omp_end_nowait): Likewise.
740 2010-05-11 Daniel Franke <franke.daniel@gmail.com>
743 * resolve.c (validate_case_label_expr): Removed FIXME.
744 (resolve_select): Raise default warning on case labels out of range
745 of the case expression.
747 2010-05-10 Daniel Franke <franke.daniel@gmail.com>
752 * intrinsic.c (gfc_convert_type_warn): Be more discriminative
753 about conversion warnings.
755 2010-05-10 Janus Weil <janus@gcc.gnu.org>
758 * match.c (gfc_match_select_type): Move error message to
760 * resolve.c (resolve_select_type): Error message moved here from
761 gfc_match_select_type. Correctly set type of temporary.
763 2010-05-10 Richard Guenther <rguenther@suse.de>
765 * trans-decl.c (gfc_build_library_function_decl): Split out
767 (build_library_function_decl_1): ... this new function.
768 Set a fnspec attribute if a specification was provided.
769 (gfc_build_library_function_decl_with_spec): New function.
770 (gfc_build_intrinsic_function_decls): Annotate internal_pack
773 2010-05-07 Daniel Franke <franke.daniel@gmail.com>
776 * intrinc.c (gfc_is_intrinsic): Do not prematurely mark symbol
779 2010-05-07 Jason Merrill <jason@redhat.com>
781 * trans-expr.c (gfc_conv_procedure_call): Rename nullptr to null_ptr
782 to avoid -Wc++-compat warning.
784 2010-05-06 Manuel López-Ibáñez <manu@gcc.gnu.org>
787 * options.c (gfc_handle_option): Add argument kind.
788 * gfortran.h (gfc_handle_option): Update declaration.
790 2010-05-06 Tobias Burnus <burnus@net-b.de>
793 * trans-types.c (gfc_sym_type): Mark Cray pointees as
796 2010-05-05 Daniel Franke <franke.daniel@gmail.com>
799 * resolve.c (traverse_data_list): Rephrase error message for
800 non-constant bounds in data-implied-do.
802 2010-05-05 Daniel Franke <franke.daniel@gmail.com>
805 * gfortran.h: Removed repeat count from constructor, removed
807 * data.h (gfc_assign_data_value_range): Changed return value from
809 * data.c (gfc_assign_data_value): Add location to constructor element.
810 (gfc_assign_data_value_range): Call gfc_assign_data_value()
811 for each element in range. Return early if an error was generated.
812 * resolve.c (check_data_variable): Stop early if range assignment
815 2010-05-05 Janus Weil <janus@gcc.gnu.org>
818 * resolve.c (resolve_fl_derived): Some fixes for class variables.
819 * symbol.c (gfc_build_class_symbol): Add separate class container for
822 2010-05-03 Steven G. Kargl <kargl@gcc.gnu.org>
825 * fortran/parse.c (parse_interface): Do not dereference a NULL pointer.
827 2010-05-02 Tobias Burnus <burnus@net-b.de>
830 * intrinsic.c (add_functions): Fix GFC_STD and add gfc_resolve_ calls
831 for lcobound, ucobound, image_index and this_image.
832 * intrinsic.h (gfc_resolve_lcobound, gfc_resolve_this_image,
833 gfc_resolve_image_index, gfc_resolve_ucobound): New prototypes.
834 * iresolve.c (gfc_resolve_lcobound, gfc_resolve_this_image,
835 gfc_resolve_image_index, gfc_resolve_ucobound, resolve_bound): New
837 (gfc_resolve_lbound, gfc_resolve_ubound): Use resolve_bound.
839 2010-04-30 Tobias Burnus <burnus@net-b.de>
843 * trans-types.c (gfc_get_array_descriptor_base): Fix index
844 calculation for array descriptor types.
846 2010-04-29 Janus Weil <janus@gcc.gnu.org>
849 * symbol.c (add_proc_component,copy_vtab_proc_comps): Remove
850 initializers for PPC members of the vtabs.
852 2010-04-29 Janus Weil <janus@gcc.gnu.org>
855 * symbol.c (add_proc_component,add_proc_comps): Correctly set the 'ppc'
856 attribute for all PPC members of the vtypes.
857 (copy_vtab_proc_comps): Copy the correct interface.
858 * trans.h (gfc_trans_assign_vtab_procs): Modified prototype.
859 * trans-expr.c (gfc_trans_assign_vtab_procs): Pass the derived type as
860 a dummy argument and make sure all PPC members of the vtab are
861 initialized correctly.
862 (gfc_conv_derived_to_class,gfc_trans_class_assign): Additional argument
863 in call to gfc_trans_assign_vtab_procs.
864 * trans-stmt.c (gfc_trans_allocate): Ditto.
866 2010-04-29 Paul Thomas <pault@gcc.gnu.org>
869 * resolve.c (resolve_typebound_function): Renamed
870 resolve_class_compcall.Do all the detection of class references
872 (resolve_typebound_subroutine): resolve_class_typebound_call
873 renamed. Otherwise same as resolve_typebound_function.
874 (gfc_resolve_expr): Call resolve_typebound_function.
875 (resolve_code): Call resolve_typebound_subroutine.
877 2010-04-29 Janus Weil <janus@gcc.gnu.org>
880 * resolve.c (resolve_typebound_generic_call): For CLASS methods
881 pass back the specific symtree name, rather than the target
884 2010-04-29 Paul Thomas <pault@gcc.gnu.org>
887 * resolve.c (resolve_structure_cons): Make the initializer of
888 the vtab component 'extends' the same type as the component.
890 2010-04-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
893 * interface.c (check_interface1): Pass symbol name rather than NULL to
894 gfc_compare_interfaces.(gfc_compare_interfaces): Add assert to
895 trap MULL. (gfc_compare_derived_types): Revert previous change
896 incorporated incorrectly during merge from trunk, r155778.
897 * resolve.c (check_generic_tbp_ambiguity): Pass symbol name rather
898 than NULL to gfc_compare_interfaces.
899 * symbol.c (add_generic_specifics): Likewise.
901 2010-02-29 Janus Weil <janus@gcc.gnu.org>
904 * interface.c (gfc_compare_derived_types): Add condition for vtype.
905 * symbol.c (gfc_find_derived_vtab): Sey access to private.
906 (gfc_find_derived_vtab): Likewise.
907 * module.c (ab_attribute): Add enumerator AB_VTAB.
908 (mio_symbol_attribute): Use new attribute, AB_VTAB.
909 (check_for_ambiguous): Likewise.
911 2010-04-29 Paul Thomas <pault@gcc.gnu.org>
912 Janus Weil <janus@gcc.gnu.org>
915 * trans-expr.c (select_class_proc): Remove function.
916 (conv_function_val): Delete reference to previous.
917 (gfc_conv_derived_to_class): Add second argument to the call to
918 gfc_find_derived_vtab.
919 (gfc_conv_structure): Exclude proc_pointer components when
920 accessing $data field of class objects.
921 (gfc_trans_assign_vtab_procs): New function.
922 (gfc_trans_class_assign): Add second argument to the call to
923 gfc_find_derived_vtab.
924 * symbol.c (gfc_build_class_symbol): Add delayed_vtab arg and
925 implement holding off searching for the vptr derived type.
926 (add_proc_component): New function.
927 (add_proc_comps): New function.
928 (add_procs_to_declared_vtab1): New function.
929 (copy_vtab_proc_comps): New function.
930 (add_procs_to_declared_vtab): New function.
931 (void add_generic_specifics): New function.
932 (add_generics_to_declared_vtab): New function.
933 (gfc_find_derived_vtab): Add second argument to the call to
934 gfc_find_derived_vtab. Add the calls to
935 add_procs_to_declared_vtab and add_generics_to_declared_vtab.
936 * decl.c (build_sym, build_struct): Use new arg in calls to
937 gfc_build_class_symbol.
938 * gfortran.h : Add vtype bitfield to symbol_attr. Remove the
939 definition of struct gfc_class_esym_list. Modify prototypes
940 of gfc_build_class_symbol and gfc_find_derived_vtab.
941 * trans-stmt.c (gfc_trans_allocate): Add second argument to the
942 call to gfc_find_derived_vtab.
943 * module.c : Add the vtype attribute.
944 * trans.h : Add prototype for gfc_trans_assign_vtab_procs.
945 * resolve.c (resolve_typebound_generic_call): Add second arg
946 to pass along the generic name for class methods.
947 (resolve_typebound_call): The same.
948 (resolve_compcall): Use the second arg to carry the generic
949 name from the above. Remove the reference to class_esym.
950 (check_members, check_class_members, resolve_class_esym,
951 hash_value_expr): Remove functions.
952 (resolve_class_compcall, resolve_class_typebound_call): Modify
953 to use vtable rather than member by member calls.
954 (gfc_resolve_expr): Modify second arg in call to
956 (resolve_select_type): Add second arg in call to
957 gfc_find_derived_vtab.
958 (resolve_code): Add second arg in call resolve_typebound_call.
959 (resolve_fl_derived): Exclude vtypes from check for late
960 procedure definitions. Likewise for checking of explicit
961 interface and checking of pass arg.
962 * iresolve.c (gfc_resolve_extends_type_of): Add second arg in
963 calls to gfc_find_derived_vtab.
964 * match.c (select_type_set_tmp): Use new arg in call to
965 gfc_build_class_symbol.
966 * trans-decl.c (gfc_get_symbol_decl): Complete vtable if
968 * parse.c (endType): Finish incomplete classes.
970 2010-04-28 Tobias Burnus <burnus@net-b.de>
974 * simplify.c (simplify_cobound): Handle scalar coarrays.
976 2010-04-27 Tobias Burnus <burnus@net-b.de>
978 * gfc-internals.texi: Update copyright year.
979 * gfortran.texi: Ditto.
980 * invoke.texi: Ditto.
982 2010-04-27 Tobias Burnus <burnus@net-b.de>
985 * resolve.c (resolve_allocate_expr): Allow array coarrays.
986 * trans-types.h (gfc_get_array_type_bounds): Update prototype.
987 * trans-types.c (gfc_get_array_type_bounds,
988 gfc_get_array_descriptor_base): Add corank argument.
989 * trans-array.c (gfc_array_init_size): Handle corank.
990 (gfc_trans_create_temp_array, gfc_array_allocate,
991 gfc_conv_expr_descriptor): Add corank argument to call.
992 * trans-stmt.c (gfc_trans_pointer_assign_need_temp): Ditto.
994 2010-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
998 * trans-array.c (gfc_trans_array_bound_check): Use TREE_CODE instead
999 of mucking with a tree directly.
1001 2010-04-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1004 * io.c (gfc_match_open): Remove branch to syntax error. Add call to
1005 gfc_error with new error message.
1007 2010-04-24 Paul Thomas <pault@gcc.gnu.org>
1011 * trans-expr.c (gfc_conv_expr): Supply an address expression for
1013 (gfc_conv_expr_reference): Call gfc_conv_expr and return for
1015 * trans-array.c (gfc_add_loop_ss_code): Store the value rather
1016 than the address of a GFC_SS_REFERENCE.
1017 * trans.h : Change comment on GFC_SS_REFERENCE.
1019 2010-04-22 Richard Guenther <rguenther@suse.de>
1022 * resolve.c (gfc_resolve_index): Wrap around ...
1023 (gfc_resolve_index_1): ... this. Add parameter to allow
1024 any integer kind index type.
1025 (resolve_array_ref): Allow any integer kind for the start
1026 index of an array ref.
1028 2010-04-21 Jakub Jelinek <jakub@redhat.com>
1031 * f95-lang.c (gfc_define_builtin): Set TREE_NOTHROW on
1034 2010-04-20 Harald Anlauf <anlauf@gmx.de>
1036 * intrinsic.c (sort_actual): Remove 'is' in error message.
1038 2010-04-20 Paul Thomas <pault@gcc.gnu.org>
1041 * resolve.c (resolve_fl_derived): If a component character
1042 length has not been resolved, do so now.
1043 (resolve_symbol): The same as above for a symbol character
1045 * trans-decl.c (gfc_create_module_variable): A 'length' decl is
1046 not needed for a character valued, procedure pointer.
1049 * resolve.c (ensure_not_abstract_walker): If 'overriding' is
1050 not found, return FAILURE rather than ICEing.
1052 2010-04-19 Jakub Jelinek <jakub@redhat.com>
1055 * openmp.c (gfc_resolve_do_iterator): Only make iteration vars for
1056 sequential loops private in the innermost containing task region.
1058 2010-04-18 Eric Botcazou <ebotcazou@adacore.com>
1060 * f95-lang.c (gfc_init_decl_processing): Remove second argument in call
1061 to build_common_tree_nodes.
1063 2010-04-17 Steven G. Kargl <kargl@gcc.gnu.org>
1066 * fortran/trans-array.c (gfc_conv_ss_startstride): Remove the use of
1067 gfc_msg_bounds by using 'Array bound mismatch' directly.
1068 (gfc_trans_dummy_array_bias): Remove the use of gfc_msg_bounds. Reword
1069 error message to include the mismatch in the extent of array bound.
1070 * fortran/trans.c: Remove gfc_msg_bounds. It is only used in one place.
1071 * fortran/trans.h: Remove extern definition of gfc_msg_bounds.
1073 2010-04-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1075 * gfortran.texi: Update information on temporary file locations.
1077 2010-04-16 Jakub Jelinek <jakub@redhat.com>
1079 * trans-decl.c (gfc_build_qualified_array): Ensure
1080 ubound.N and lbound.N artificial variable names don't appear
1083 2010-04-15 Steven G. Kargl <kargl@gcc.gnu.org>
1086 * trans-array.c (gfc_trans_array_bound_check): Eliminate a redundant
1087 block of code. Set name to the variable associated with the descriptor.
1089 2010-04-15 Jakub Jelinek <jakub@redhat.com>
1091 * trans-decl.c (gfc_build_qualified_array): Clear DECL_IGNORED_P
1092 on VAR_DECL LBOUND and/or UBOUND, even for -O1.
1094 2010-04-14 Steven G. Kargl <kargl@gcc.gnu.org>
1096 * intrinsic.texi: Add the missing specific name of intrinsic
1097 procedure where the specific name is identical to the generic name.
1098 Fix inconsistent or mismatch in the argument names in intrinsic
1099 procedure descriptions. Add the SCALAR allocatable description to
1102 2010-04-14 Tobias Burnus <burnus@net-b.de>
1105 * array.c (gfc_find_array_ref): Handle codimensions.
1106 (gfc_match_array_spec,gfc_match_array_ref): Use gfc_fatal_error.
1107 * check.c (is_coarray, dim_corank_check, gfc_check_lcobound,
1108 gfc_check_image_index, gfc_check_this_image, gfc_check_ucobound):
1110 * gfortran.h (gfc_isym_id): Add GFC_ISYM_IMAGE_INDEX,
1111 GFC_ISYM_LCOBOUND, GFC_ISYM_THIS_IMAGE,
1113 * intrinsic.h (add_functions): Add this_image, image_index,
1114 lcobound and ucobound intrinsics.
1115 * intrinsic.c (gfc_check_lcobound,gfc_check_ucobound,
1116 gfc_check_image_index, gfc_check_this_image,
1117 gfc_simplify_image_index, gfc_simplify_lcobound,
1118 gfc_simplify_this_image, gfc_simplify_ucobound):
1119 New function prototypes.
1120 * intrinsic.texi (IMAGE_INDEX, LCOBOUND, THIS_IMAGE
1121 IMAGE_INDEX): Document new intrinsic functions.
1122 * match.c (gfc_match_critical, sync_statement): Make -fcoarray=none
1124 * simplify.c (simplify_bound_dim): Handle coarrays.
1125 (simplify_bound): Update simplify_bound_dim call.
1126 (gfc_simplify_num_images): Add -fcoarray=none check.
1127 (simplify_cobound, gfc_simplify_lcobound, gfc_simplify_ucobound,
1128 gfc_simplify_ucobound, gfc_simplify_ucobound): New functions.
1130 2010-04-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1133 * constructor.c: Fix typo in comment.
1134 * expr.c (find_array_section): Add check for max array limit.
1136 2010-04-13 Iain Sandoe <iains@gcc.gnu.org>
1139 * gfortranspec.c (lookup_option): Check for -static and return
1141 (lang_specific_driver): Break when OPTION_static is discovered.
1143 2010-04-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1145 * array.c (extract_element): Restore function from trunk.
1146 (gfc_get_array_element): Restore function from trunk.
1147 (gfc_expand_constructor): Restore check against
1148 flag_max_array_constructor.
1149 * constructor.c (node_copy_and_append): Delete unused.
1150 * gfortran.h: Delete comment and extra include.
1151 * constructor.h: Bump copyright and clean up TODO comments.
1152 * resolve.c: Whitespace.
1154 2010-04-12 Daniel Franke <franke.daniel@gmail.com>
1156 * simplify.c (compute_dot_product): Replaced usage of ADVANCE macro
1157 with direct access access to elements. Adjusted prototype, fixed all
1159 (gfc_simplify_dot_product): Removed duplicate check for zero-sized
1161 (gfc_simplify_matmul): Removed usage of ADVANCE macro.
1162 (gfc_simplify_spread): Removed workaround, directly insert elements
1163 at a given array position.
1164 (gfc_simplify_transpose): Likewise.
1165 (gfc_simplify_pack): Replaced usage of ADVANCE macro with corresponding
1167 (gfc_simplify_unpack): Likewise.
1169 2010-04-12 Daniel Franke <franke.daniel@gmail.com>
1171 * simplify.c (only_convert_cmplx_boz): Renamed to ...
1172 (convert_boz): ... this and moved to start of file.
1173 (gfc_simplify_abs): Whitespace fix.
1174 (gfc_simplify_acos): Whitespace fix.
1175 (gfc_simplify_acosh): Whitespace fix.
1176 (gfc_simplify_aint): Whitespace fix.
1177 (gfc_simplify_dint): Whitespace fix.
1178 (gfc_simplify_anint): Whitespace fix.
1179 (gfc_simplify_and): Replaced if-gate by more common switch-over-type.
1180 (gfc_simplify_dnint): Whitespace fix.
1181 (gfc_simplify_asin): Whitespace fix.
1182 (gfc_simplify_asinh): Moved creation of result-expr out of switch.
1183 (gfc_simplify_atan): Likewise.
1184 (gfc_simplify_atanh): Whitespace fix.
1185 (gfc_simplify_atan2): Whitespace fix.
1186 (gfc_simplify_bessel_j0): Removed ATTRIBUTE_UNUSED.
1187 (gfc_simplify_bessel_j1): Likewise.
1188 (gfc_simplify_bessel_jn): Likewise.
1189 (gfc_simplify_bessel_y0): Likewise.
1190 (gfc_simplify_bessel_y1): Likewise.
1191 (gfc_simplify_bessel_yn): Likewise.
1192 (gfc_simplify_ceiling): Reorderd statements.
1193 (simplify_cmplx): Use convert_boz(), check for constant arguments.
1195 (gfc_simplify_cmplx): Use correct default kind. Removed check for
1197 (gfc_simplify_complex): Replaced if-gate. Removed check for
1199 (gfc_simplify_conjg): Whitespace fix.
1200 (gfc_simplify_cos): Whitespace fix.
1201 (gfc_simplify_cosh): Replaced if-gate by more common switch-over-type.
1202 (gfc_simplify_dcmplx): Removed check for constant arguments.
1203 (gfc_simplify_dble): Use convert_boz() and gfc_convert_constant().
1204 (gfc_simplify_digits): Whitespace fix.
1205 (gfc_simplify_dim): Whitespace fix.
1206 (gfc_simplify_dprod): Reordered statements.
1207 (gfc_simplify_erf): Whitespace fix.
1208 (gfc_simplify_erfc): Whitespace fix.
1209 (gfc_simplify_epsilon): Whitespace fix.
1210 (gfc_simplify_exp): Whitespace fix.
1211 (gfc_simplify_exponent): Use convert_boz().
1212 (gfc_simplify_floor): Reorderd statements.
1213 (gfc_simplify_gamma): Whitespace fix.
1214 (gfc_simplify_huge): Whitespace fix.
1215 (gfc_simplify_iand): Whitespace fix.
1216 (gfc_simplify_ieor): Whitespace fix.
1217 (simplify_intconv): Use gfc_convert_constant().
1218 (gfc_simplify_int): Use simplify_intconv().
1219 (gfc_simplify_int2): Reorderd statements.
1220 (gfc_simplify_idint): Reorderd statements.
1221 (gfc_simplify_ior): Whitespace fix.
1222 (gfc_simplify_ishftc): Removed duplicate type check.
1223 (gfc_simplify_len): Use range_check() instead of manual range check.
1224 (gfc_simplify_lgamma): Removed ATTRIBUTE_UNUSED. Whitespace fix.
1225 (gfc_simplify_log): Whitespace fix.
1226 (gfc_simplify_log10): Whitespace fix.
1227 (gfc_simplify_minval): Whitespace fix.
1228 (gfc_simplify_maxval): Whitespace fix.
1229 (gfc_simplify_mod): Whitespace fix.
1230 (gfc_simplify_modulo): Whitespace fix.
1231 (simplify_nint): Reorderd statements.
1232 (gfc_simplify_not): Whitespace fix.
1233 (gfc_simplify_or): Replaced if-gate by more common switch-over-type.
1234 (gfc_simplify_radix): Removed unused result-variable. Whitespace fix.
1235 (gfc_simplify_range): Removed unused result-variable. Whitespace fix.
1236 (gfc_simplify_real): Use convert_boz() and gfc_convert_constant().
1237 (gfc_simplify_realpart): Whitespace fix.
1238 (gfc_simplify_selected_char_kind): Removed unused result-variable.
1239 (gfc_simplify_selected_int_kind): Removed unused result-variable.
1240 (gfc_simplify_selected_real_kind): Removed unused result-variable.
1241 (gfc_simplify_sign): Whitespace fix.
1242 (gfc_simplify_sin): Whitespace fix.
1243 (gfc_simplify_sinh): Replaced if-gate by more common switch-over-type.
1244 (gfc_simplify_sqrt): Avoided goto by inlining check. Whitespace fix.
1245 (gfc_simplify_tan): Replaced if-gate by more common switch-over-type.
1246 (gfc_simplify_tanh): Replaced if-gate by more common switch-over-type.
1247 (gfc_simplify_xor): Replaced if-gate by more common switch-over-type.
1249 2010-04-12 Daniel Franke <franke.daniel@gmail.com>
1251 * gfortran.h (gfc_start_constructor): Removed.
1252 (gfc_get_array_element): Removed.
1253 * array.c (gfc_start_constructor): Removed, use gfc_get_array_expr
1254 instead. Fixed all callers.
1255 (extract_element): Removed.
1256 (gfc_expand_constructor): Temporarily removed check for
1257 max-array-constructor. Will be re-introduced later if still required.
1258 (gfc_get_array_element): Removed, use gfc_constructor_lookup_expr
1259 instead. Fixed all callers.
1260 * expr.c (find_array_section): Replaced manual lookup of elements
1261 by gfc_constructor_lookup.
1263 2010-04-12 Daniel Franke <franke.daniel@gmail.com>
1265 * gfortran.h (gfc_get_null_expr): New prototype.
1266 (gfc_get_operator_expr): New prototype.
1267 (gfc_get_character_expr): New prototype.
1268 (gfc_get_iokind_expr): New prototype.
1269 * expr.c (gfc_get_null_expr): New.
1270 (gfc_get_character_expr): New.
1271 (gfc_get_iokind_expr): New.
1272 (gfc_get_operator_expr): Moved here from matchexp.c (build_node).
1273 * matchexp.c (build_node): Renamed and moved to
1274 expr.c (gfc_get_operator_expr). Reordered arguments to match
1275 other functions. Fixed all callers.
1276 (gfc_get_parentheses): Use specific function to build expr.
1277 * array.c (gfc_match_array_constructor): Likewise.
1278 * arith.c (eval_intrinsic): Likewise.
1279 (gfc_hollerith2int): Likewise.
1280 (gfc_hollerith2real): Likewise.
1281 (gfc_hollerith2complex): Likewise.
1282 (gfc_hollerith2logical): Likewise.
1283 * data.c (create_character_intializer): Likewise.
1284 * decl.c (gfc_match_null): Likewise.
1285 (enum_initializer): Likewise.
1286 * io.c (gfc_match_format): Likewise.
1287 (match_io): Likewise.
1288 * match.c (gfc_match_nullify): Likewise.
1289 * primary.c (match_string_constant): Likewise.
1290 (match_logical_constant): Likewise.
1291 (build_actual_constructor): Likewise.
1292 * resolve.c (build_default_init_expr): Likewise.
1293 * symbol.c (generate_isocbinding_symbol): Likewise.
1294 (gfc_build_class_symbol): Likewise.
1295 (gfc_find_derived_vtab): Likewise.
1296 * simplify.c (simplify_achar_char): Likewise.
1297 (gfc_simplify_adjustl): Likewise.
1298 (gfc_simplify_adjustr): Likewise.
1299 (gfc_simplify_and): Likewise.
1300 (gfc_simplify_bit_size): Likewise.
1301 (gfc_simplify_is_iostat_end): Likewise.
1302 (gfc_simplify_is_iostat_eor): Likewise.
1303 (gfc_simplify_isnan): Likewise.
1304 (simplify_bound): Likewise.
1305 (gfc_simplify_leadz): Likewise.
1306 (gfc_simplify_len_trim): Likewise.
1307 (gfc_simplify_logical): Likewise.
1308 (gfc_simplify_maxexponent): Likewise.
1309 (gfc_simplify_minexponent): Likewise.
1310 (gfc_simplify_new_line): Likewise.
1311 (gfc_simplify_null): Likewise.
1312 (gfc_simplify_or): Likewise.
1313 (gfc_simplify_precision): Likewise.
1314 (gfc_simplify_repeat): Likewise.
1315 (gfc_simplify_scan): Likewise.
1316 (gfc_simplify_size): Likewise.
1317 (gfc_simplify_trailz): Likewise.
1318 (gfc_simplify_trim): Likewise.
1319 (gfc_simplify_verify): Likewise.
1320 (gfc_simplify_xor): Likewise.
1321 * trans-io.c (build_dt): Likewise.
1322 (gfc_new_nml_name_expr): Removed.
1324 2010-04-12 Daniel Franke <franke.daniel@gmail.com>
1326 * arith.h (gfc_constant_result): Removed prototype.
1327 * constructor.h (gfc_build_array_expr): Removed prototype.
1328 (gfc_build_structure_constructor_expr): Removed prototype.
1329 * gfortran.h (gfc_int_expr): Removed prototype.
1330 (gfc_logical_expr): Removed prototype.
1331 (gfc_get_array_expr): New prototype.
1332 (gfc_get_structure_constructor_expr): New prototype.
1333 (gfc_get_constant_expr): New prototype.
1334 (gfc_get_int_expr): New prototype.
1335 (gfc_get_logical_expr): New prototype.
1336 * arith.c (gfc_constant_result): Moved and renamed to
1337 expr.c (gfc_get_constant_expr). Fixed all callers.
1338 * constructor.c (gfc_build_array_expr): Moved and renamed to
1339 expr.c (gfc_get_array_expr). Split gfc_typespec argument to type
1340 and kind. Fixed all callers.
1341 (gfc_build_structure_constructor_expr): Moved and renamed to
1342 expr.c (gfc_get_structure_constructor_expr). Split gfc_typespec argument
1343 to type and kind. Fixed all callers.
1344 * expr.c (gfc_logical_expr): Renamed to ...
1345 (gfc_get_logical_expr): ... this. Added kind argument. Fixed all callers.
1346 (gfc_int_expr): Renamed to ...
1347 (gfc_get_int_expr): ... this. Added kind and where arguments. Fixed all
1349 (gfc_get_constant_expr): New.
1350 (gfc_get_array_expr): New.
1351 (gfc_get_structure_constructor_expr): New.
1352 * simplify.c (int_expr_with_kind): Removed, callers use gfc_get_int_expr
1355 2010-04-12 Daniel Franke <franke.daniel@gmail.com>
1357 * constructor.h: New.
1358 * constructor.c: New.
1359 * Make-lang.in: Add new files to F95_PARSER_OBJS.
1360 * arith.c (reducy_unary): Use constructor API.
1361 (reduce_binary_ac): Likewise.
1362 (reduce_binary_ca): Likewise.
1363 (reduce_binary_aa): Likewise.
1364 * check.c (gfc_check_pack): Likewise.
1365 (gfc_check_reshape): Likewise.
1366 (gfc_check_unpack): Likewise.
1367 * decl.c (add_init_expr_to_sym): Likewise.
1368 (build_struct): Likewise.
1369 * dependency.c (gfc_check_dependency): Likewise.
1370 (contains_forall_index_p): Likewise.
1371 * dump-parse-tree.c (show_constructor): Likewise.
1372 * expr.c (free_expr0): Likewise.
1373 (gfc_copy_expr): Likewise.
1374 (gfc_is_constant_expr): Likewise.
1375 (simplify_constructor): Likewise.
1376 (find_array_element): Likewise.
1377 (find_component_ref): Likewise.
1378 (find_array_section): Likewise.
1379 (find_substring_ref): Likewise.
1380 (simplify_const_ref): Likewise.
1381 (scalarize_intrinsic_call): Likewise.
1382 (check_alloc_comp_init): Likewise.
1383 (gfc_default_initializer): Likewise.
1384 (gfc_traverse_expr): Likewise.
1385 * iresolve.c (check_charlen_present): Likewise.
1386 (gfc_resolve_reshape): Likewise.
1387 (gfc_resolve_transfer): Likewise.
1388 * module.c (mio_constructor): Likewise.
1389 * primary.c (build_actual_constructor): Likewise.
1390 (gfc_match_structure_constructor): Likewise.
1391 * resolve.c (resolve_structure_cons): Likewise.
1392 * simplify.c (is_constant_array_expr): Likewise.
1393 (init_result_expr): Likewise.
1394 (transformational_result): Likewise.
1395 (simplify_transformation_to_scalar): Likewise.
1396 (simplify_transformation_to_array): Likewise.
1397 (gfc_simplify_dot_product): Likewise.
1398 (simplify_bound): Likewise.
1399 (simplify_matmul): Likewise.
1400 (simplify_minval_maxval): Likewise.
1401 (gfc_simplify_pack): Likewise.
1402 (gfc_simplify_reshape): Likewise.
1403 (gfc_simplify_shape): Likewise.
1404 (gfc_simplify_spread): Likewise.
1405 (gfc_simplify_transpose): Likewise.
1406 (gfc_simplify_unpack): Likewise.q
1407 (gfc_convert_constant): Likewise.
1408 (gfc_convert_char_constant): Likewise.
1409 * target-memory.c (size_array): Likewise.
1410 (encode_array): Likewise.
1411 (encode_derived): Likewise.
1412 (interpret_array): Likewise.
1413 (gfc_interpret_derived): Likewise.
1414 (expr_to_char): Likewise.
1415 (gfc_merge_initializers): Likewise.
1416 * trans-array.c (gfc_get_array_constructor_size): Likewise.
1417 (gfc_trans_array_constructor_value): Likewise.
1418 (get_array_ctor_strlen): Likewise.
1419 (gfc_constant_array_constructor_p): Likewise.
1420 (gfc_build_constant_array_constructor): Likewise.
1421 (gfc_trans_array_constructor): Likewise.
1422 (gfc_conv_array_initializer): Likewise.
1423 * trans-decl.c (check_constant_initializer): Likewise.
1424 * trans-expr.c (flatten_array_ctors_without_strlen): Likewise.
1425 (gfc_apply_interface_mapping_to_cons): Likewise.
1426 (gfc_trans_structure_assign): Likewise.
1427 (gfc_conv_structure): Likewise.
1428 * array.c (check_duplicate_iterator): Likewise.
1429 (match_array_list): Likewise.
1430 (match_array_cons_element): Likewise.
1431 (gfc_match_array_constructor): Likewise.
1432 (check_constructor_type): Likewise.
1433 (check_constructor): Likewise.
1435 (expand_constructor): Likewise.
1436 (extract_element): Likewise.
1437 (gfc_expanded_ac): Likewise.
1438 (resolve_array_list): Likewise.
1439 (gfc_resolve_character_array_constructor): Likewise.
1440 (copy_iterator): Renamed to ...
1441 (gfc_copy_iterator): ... this.
1442 (gfc_append_constructor): Removed.
1443 (gfc_insert_constructor): Removed unused function.
1444 (gfc_get_constructor): Removed.
1445 (gfc_free_constructor): Removed.
1446 (qgfc_copy_constructor): Removed.
1447 * gfortran.h (struct gfc_expr): Removed member 'con_by_offset'.
1448 Removed all references. Replaced constructor list by splay-tree.
1449 (struct gfc_constructor): Removed member 'next', moved 'offset' from
1450 the inner struct, added member 'base'.
1451 (gfc_append_constructor): Removed prototype.
1452 (gfc_insert_constructor): Removed prototype.
1453 (gfc_get_constructor): Removed prototype.
1454 (gfc_free_constructor): Removed prototype.
1455 (qgfc_copy_constructor): Removed prototype.
1456 (gfc_copy_iterator): New prototype.
1457 * trans-array.h (gfc_constant_array_constructor_p): Adjusted prototype.
1459 2010-04-10 Tobias Burnus <burnus@net-b.de>
1462 * expr.c (gfc_is_constant_expr, gfc_traverse_expr): Handle
1463 proc-pointers and type-bound procedures.
1464 (gfc_specification_expr): Check proc-pointers for pureness.
1466 2010-04-09 Iain Sandoe <iains@gcc.gnu.org>
1469 * gfortranspec.c (lang_specific_driver): Do not expose vars
1470 only used by HAVE_LD_STATIC_DYNAMIC targets unless compiling
1473 2010-04-09 Tobias Burnus <burnus@net-b.de>
1476 * decl.c (variable_decl, match_attr_spec): Fix setting the array
1478 * array.c (match_subscript,gfc_match_array_ref): Add coarray support.
1479 * data.c (gfc_assign_data_value): Ditto.
1480 * expr.c (gfc_check_pointer_assign): Add check for coarray constraint.
1481 (gfc_traverse_expr): Traverse also through codimension expressions.
1482 (gfc_is_coindexed, gfc_has_ultimate_allocatable,
1483 gfc_has_ultimate_pointer): New functions.
1484 * gfortran.h (gfc_array_ref_dimen_type): Add DIMEN_STAR for coarrays.
1485 (gfc_array_ref): Add codimen.
1486 (gfc_array_ref): Add in_allocate.
1487 (gfc_is_coindexed, gfc_has_ultimate_allocatable,
1488 gfc_has_ultimate_pointer): Add prototypes.
1489 * interface.c (compare_parameter, compare_actual_formal,
1490 check_intents): Add coarray constraints.
1491 * match.c (gfc_match_iterator): Add coarray constraint.
1492 * match.h (gfc_match_array_ref): Update interface.
1493 * primary.c (gfc_match_varspec): Handle codimensions.
1494 * resolve.c (coarray_alloc, inquiry_argument): New static variables.
1495 (check_class_members): Return gfc_try instead for error recovery.
1496 (resolve_typebound_function,resolve_typebound_subroutine,
1497 check_members): Handle return value of check_class_members.
1498 (resolve_structure_cons, resolve_actual_arglist, resolve_function,
1499 check_dimension, compare_spec_to_ref, resolve_array_ref,
1500 resolve_ref, resolve_variable, gfc_resolve_expr, conformable_arrays,
1501 resolve_allocate_expr, resolve_ordinary_assign): Add coarray
1503 * trans-array.c (gfc_conv_array_ref, gfc_walk_variable_expr):
1504 Skip over coarray refs.
1505 (gfc_array_allocate) Add support for references containing coindexes.
1506 * trans-expr.c (gfc_add_interface_mapping): Copy coarray attribute.
1507 (gfc_map_intrinsic_function): Ignore codimensions.
1509 2010-04-08 Bud Davis <bdavis9659@sbcglobal.net>
1512 * io.c (check_format_string): Added check for additional non
1513 blank characters after the format string was successfully
1515 * io.c (check_format): Changed the error messages for positive
1516 int required and period required to drop through the error logic
1517 and report with gfc_error instead of gfc_error_now. Corrected
1518 format postion for hollerith strings.
1520 2010-04-08 Tobias Burnus <burnus@net-b.de>
1522 * module.c (use_iso_fortran_env_module): Fix standard check.
1524 2010-04-07 Jakub Jelinek <jakub@redhat.com>
1526 * parse.c (parse_derived, parse_enum): Avoid set but not used
1529 2010-04-07 Janne Blomqvist <jb@gcc.gnu.org>
1532 * gfortran.texi: Add section about representation of
1535 2010-04-07 Simon Baldwin <simonb@google.com>
1537 * cpp.c (cb_cpp_error): Add warning reason argument, set a value
1538 for diagnostic_override_option_index if CPP_W_WARNING_DIRECTIVE.
1540 2010-04-07 Richard Guenther <rguenther@suse.de>
1542 * options.c (gfc_init_options): Do not set.
1544 2010-04-06 Tobias Burnus <burnus@net-b.de>
1547 * array.c (gfc_match_array_spec): Add error for -fcoarray=none.
1548 * match.c (gfc_match_critical, sync_statement): Ditto.
1549 * gfortran.h (gfc_fcoarray): New enum.
1550 (gfc_option_t): Use it.
1551 * lang.opt (fcoarray): Add new flag.
1552 * invoke.texi (fcoarray): Document it.
1553 * options.c (gfc_init_options,gfc_handle_option): Handle -fcoarray=.
1554 (gfc_handle_coarray_option): New function.
1556 2010-04-06 Tobias Burnus <burnus@net-b.de>
1559 * gfortran.h (gfc_array_spec): Add cotype.
1560 * array.c (gfc_match_array_spec,gfc_set_array_spec): Use it
1561 and defer error diagnostic.
1562 * resolve.c (resolve_fl_derived): Add missing check.
1563 (resolve_symbol): Add cotype/type check.
1564 * parse.c (parse_derived): Fix setting of coarray_comp.
1566 2010-04-06 Tobias Burnus <burnus@net-b.de>
1569 * array.c (gfc_free_array_spec,gfc_resolve_array_spec,
1570 match_array_element_spec,gfc_copy_array_spec,
1571 gfc_compare_array_spec): Include corank.
1572 (match_array_element_spec,gfc_set_array_spec): Support codimension.
1573 * decl.c (build_sym,build_struct,variable_decl,
1574 match_attr_spec,attr_decl1,cray_pointer_decl,
1575 gfc_match_volatile): Add codimension.
1576 (gfc_match_codimension): New function.
1577 * dump-parse-tree.c (show_array_spec,show_attr): Support codimension.
1578 * gfortran.h (symbol_attribute,gfc_array_spec): Ditto.
1579 (gfc_add_codimension): New function prototype.
1580 * match.h (gfc_match_codimension): New function prototype.
1581 (gfc_match_array_spec): Update prototype
1582 * match.c (gfc_match_common): Update gfc_match_array_spec call.
1583 * module.c (MOD_VERSION): Bump.
1584 (mio_symbol_attribute): Support coarray attributes.
1585 (mio_array_spec): Add corank support.
1586 * parse.c (decode_specification_statement,decode_statement,
1587 parse_derived): Add coarray support.
1588 * resolve.c (resolve_formal_arglist, was_declared,
1589 is_non_constant_shape_array, resolve_fl_variable,
1590 resolve_fl_derived, resolve_symbol): Add coarray support.
1591 * symbol.c (check_conflict, gfc_add_volatile, gfc_copy_attr,
1592 gfc_build_class_symbol): Add coarray support.
1593 (gfc_add_codimension): New function.
1595 2010-04-06 Tobias Burnus <burnus@net-b.de>
1598 * iso-fortran-env.def: Add the integer parameters atomic_int_kind,
1599 atomic_logical_kind, iostat_inquire_internal_unit, stat_locked,
1600 stat_locked_other_image, stat_stopped_image and stat_unlocked of
1602 * intrinsic.texi (iso_fortran_env): Ditto.
1603 * libgfortran.h (libgfortran_stat_codes): New enum.
1604 * module.c (use_iso_fortran_env_module): Honour -std= when loading
1605 constants from the intrinsic module.
1607 2010-04-06 Tobias Burnus <burnus@net-b.de>
1610 * intrinsic.c (add_functions): Add num_images.
1611 * decl.c (gfc_match_end): Handle END CRITICAL.
1612 * intrinsic.h (gfc_simplify_num_images): Add prototype.
1613 * dump-parse-tree.c (show_code_node): Dump CRITICAL, ERROR STOP,
1615 * gfortran.h (gfc_statement): Add enum items for those.
1616 (gfc_exec_op) Ditto.
1617 (gfc_isym_id): Add num_images.
1618 * trans-stmt.c (gfc_trans_stop): Handle ERROR STOP.
1619 (gfc_trans_sync,gfc_trans_critical): New functions.
1620 * trans-stmt.h (gfc_trans_stop,gfc_trans_sync,
1621 gfc_trans_critical): Add/update prototypes.
1622 * trans.c (gfc_trans_code): Handle CRITICAL, ERROR STOP,
1623 and SYNC statements.
1624 * trans.h (gfor_fndecl_error_stop_string) Add variable.
1625 * resolve.c (resolve_sync): Add function.
1626 (gfc_resolve_blocks): Handle CRITICAL.
1627 (resolve_code): Handle CRITICAL, ERROR STOP,
1628 (resolve_branch): Add CRITICAL constraint check.
1629 and SYNC statements.
1630 * st.c (gfc_free_statement): Add new statements.
1631 * trans-decl.c (gfor_fndecl_error_stop_string): Global variable.
1632 (gfc_build_builtin_function_decls): Initialize it.
1633 * match.c (gfc_match_if): Handle ERROR STOP and SYNC.
1634 (gfc_match_critical, gfc_match_error_stop, sync_statement,
1635 gfc_match_sync_all, gfc_match_sync_images, gfc_match_sync_memory):
1637 (match_exit_cycle): Handle CRITICAL constraint.
1638 (gfc_match_stopcode): Handle ERROR STOP.
1639 * match.h (gfc_match_critical, gfc_match_error_stop,
1640 gfc_match_sync_all, gfc_match_sync_images,
1641 gfc_match_sync_memory): Add prototype.
1642 * parse.c (decode_statement, gfc_ascii_statement,
1643 parse_executable): Handle new statements.
1644 (parse_critical_block): New function.
1645 * parse.h (gfc_compile_state): Add COMP_CRITICAL.
1646 * intrinsic.texi (num_images): Document new function.
1647 * simplify.c (gfc_simplify_num_images): Add function.
1649 2010-04-06 Tobias Burnus <burnus@net-b.de>
1652 * trans-array.c (gfc_conv_expr_descriptor): Update
1653 gfc_trans_scalar_assign call.
1654 (has_default_initializer): New function.
1655 (gfc_trans_deferred_array): Nullify less often.
1656 * trans-expr.c (gfc_conv_subref_array_arg,
1657 gfc_trans_subcomponent_assign): Update call to
1658 gfc_trans_scalar_assign.
1659 (gfc_trans_scalar_assign): Add parameter and pass it on.
1660 (gfc_trans_assignment_1): Optionally, do not dealloc before
1662 * trans-openmp.c (gfc_trans_omp_array_reduction): Update
1663 call to gfc_trans_scalar_assign.
1664 * trans-decl.c (gfc_get_symbol_decl): Do not always apply
1665 initializer to static variables.
1666 (gfc_init_default_dt): Add dealloc parameter and pass it on.
1667 * trans-stmt.c (forall_make_variable_temp,
1668 generate_loop_for_temp_to_lhs, generate_loop_for_rhs_to_temp,
1669 gfc_trans_forall_1, gfc_trans_where_assign, gfc_trans_where_3
1670 gfc_trans_allocate): Update gfc_trans_assignment call.
1671 * trans.h (gfc_trans_scalar_assign, gfc_init_default_dt,
1672 gfc_init_default_dt, gfc_trans_assignment): Add bool dealloc
1673 parameter to prototype.
1675 2010-03-31 Paul Thomas <pault@gcc.gnu.org>
1677 * ioparm.def : Update copyright.
1679 * trans-array.c : ditto
1680 * trans-array.h : ditto
1682 * trans-types.c: ditto
1683 * dependency.c : ditto
1684 * gfortran.h : ditto
1686 * trans-io.c : ditto
1687 * trans-intrinsic.c : ditto
1688 * libgfortran.h : ditto
1689 * invoke.texi : ditto
1690 * intrinsic.texi : ditto
1693 * intrinsic.c : ditto
1694 * interface.c : ditto
1695 * iresolve.c : ditto
1696 * trans-stmt.c : ditto
1697 * trans-stmt.h : ditto
1702 2010-03-20 Paul Thomas <pault@gcc.gnu.org>
1705 * trans-decl.c (gfc_create_module_variable): With -fwhole-file
1706 do not assert the context of derived types.
1708 2010-03-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1711 * ioparm.def: Change inquire size variable to type pointer to
1714 2010-03-18 Paul Thomas <pault@gcc.gnu.org>
1717 * trans-expr.c (conv_parent_component_references): Ensure that
1718 'dt' has a backend_decl.
1721 * trans-expr.c (gfc_conv_structure): Ensure that the derived
1722 type has a backend_decl.
1725 * resolve.c (resolve_global_procedure): Check that the 'cl'
1726 structure is not NULL.
1728 2010-03-18 Shujing Zhao <pearly.zhao@oracle.com>
1730 * lang.opt (-ffixed-line-length-, ffree-line-length-): Remove
1733 2010-03-17 Tobias Burnus <burnus@net-b.de>
1736 * trans-array.c (gfc_conv_array_index_offset,gfc_conv_array_ref,
1737 gfc_conv_ss_startstride): Remove no-longer-needed cp_was_assumed
1739 * decl.c (gfc_match_derived_decl): Don't mark assumed-size Cray
1740 pointees as having explizit size.
1741 * expr.c (gfc_check_assign): Remove now unreachable Cray pointee
1743 * trans-types.c (gfc_is_nodesc_array): Add cp_was_assumed to assert.
1744 (gfc_sym_type): Don't mark Cray pointees as restricted pointers.
1745 * resolve.c (resolve_symbol): Handle cp_was_assumed.
1746 * trans-decl.c (gfc_trans_deferred_vars): Ditto.
1747 (gfc_finish_var_decl): Don't mark Cray pointees as restricted
1750 2010-03-14 Tobias Burnus <burnus@net-b.de>
1753 * resolve.c (resolve_structure_cons): Add missing PURE constraint.
1754 (resolve_ordinary_assign): Add check to avoid segfault.
1756 2010-03-12 Paul Thomas <pault@gcc.gnu.org>
1760 * resolve.c (resolve_compcall): Add new boolean dummy argument
1761 'class_members'. Only resolve expression at end if false.
1762 Remove redundant, static variable 'class_object'.
1763 (check_class_members): Add extra argument to call of
1765 (resolve_typebound_function): Renamed resolve_class_compcall.
1766 Do all the detection of class references here. Correct calls to
1767 resolve_compcall for extra argument.
1768 (resolve_typebound_subroutine): resolve_class_typebound_call
1769 renamed. Otherwise same as resolve_typebound_function.
1770 (gfc_resolve_expr): Call resolve_typebound_function.
1771 (resolve_code): Call resolve_typebound_subroutine.
1773 2010-03-10 Tobias Burnus <burnus@net-b.de
1776 * symbol.c (get_iso_c_sym): Set sym->result.
1778 2010-03-08 Janus Weil <janus@gcc.gnu.org>
1781 * resolve.c (resolve_compcall): Don't set 'value.function.name' here
1782 for TBPs, otherwise they will not be resolved properly.
1783 (resolve_function): Use 'value.function.esym' instead of
1784 'value.function.name' to check if we're dealing with a TBP.
1785 (check_class_members): Set correct type of passed object for all TBPs,
1786 not only generic ones, except if the type is abstract.
1788 2010-03-04 Janus Weil <janus@gcc.gnu.org>
1791 * decl.c (gfc_match_final_decl): Make sure variable names starting with
1792 'final...' are not misinterpreted as FINAL statements.
1794 2010-03-03 Paul Thomas <pault@gcc.gnu.org>
1797 * trans-array.c (gfc_conv_array_parameter): Contiguous refs to
1798 allocatable ultimate components do not need temporaries, whilst
1799 ultimate pointer components do.
1801 2010-03-03 Janus Weil <janus@gcc.gnu.org>
1804 * resolve.c (resolve_code): Correctly set gfc_current_ns for
1806 (gfc_impure_variable): Make it work with sub-namespaces (BLOCK etc).
1809 2010-03-02 Paul Thomas <pault@gcc.gnu.org>
1812 * trans-array.c (gfc_conv_array_parameter): A full array of
1813 derived type need not be restricted to a symbol without an
1814 array spec to use the call to gfc_conv_expr_descriptor.
1817 * trans-array.c (gfc_conv_array_parameter): Contiguous refs to
1818 allocatable arrays do not need temporaries.
1820 2010-03-01 Tobias Burnus <burnus@net-b.de>
1823 * resolve.c (find_array_spec): Handle REF_COMPONENT with
1826 2010-02-28 Tobias Burnus <burnus@net-b.de>
1829 * trans-expr.c (is_zero_initializer_p): Move up in the file.
1830 (gfc_conv_initializer): Handle zero initializer as special case.
1832 2010-02-27 Tobias Burnus <burnus@net-b.de>
1835 * resolve.c (resolve_fl_variable_derived): Imply SAVE
1836 for module variables for Fortran 2008.
1838 2010-02-25 Jakub Jelinek <jakub@redhat.com>
1841 * trans-common.c (build_common_decl): Also update DECL_MODE,
1842 and DECL_SIZE when encountering a larger common block and call
1845 2010-02-24 Tobias Burnus <burnus@net-b.de>
1848 * trans-expr.c (gfc_conv_initializer): Call directly
1849 gfc_conv_constant for C_NULL_(FUN)PTR.
1851 2010-02-22 Paul Thomas <pault@gcc.gnu.org>
1854 * dependency.c (gfc_full_array_ref_p): Check for contiguous by
1855 checking the rest of the dimensions for elements.
1857 2010-02-21 Tobias Burnus <burnus@net-b.de>
1860 * gfortran.h (gfc_option_t): New flag -fprotect-parens.
1862 * option.c (gfc_init_options,gfc_handle_option): Ditto.
1863 * trans-expr.c (gfc_conv_expr_op): Use the flag.
1864 * invoke.texi: Document new -fno-protect-parens flag.
1866 2010-02-20 Paul Thomas <pault@gcc.gnu.org>
1872 * dependency.c (gfc_check_argument_var_dependency): Use enum
1873 value instead of arithmetic vaue for 'elemental'.
1874 (check_data_pointer_types): New function.
1875 (gfc_check_dependency): Call check_data_pointer_types.
1876 * trans-array.h : Change fourth argument of
1877 gfc_conv_array_parameter to boolean.
1878 * trans-array.c (gfc_conv_array_parameter): A contiguous array
1879 can be a dummy but it must not be assumed shape or deferred.
1880 Change fourth argument to boolean. Array constructor exprs will
1881 always be contiguous and do not need packing and unpacking.
1882 * trans-expr.c (gfc_conv_procedure_call): Clean up some white
1883 space and change fourth argument of gfc_conv_array_parameter
1885 (gfc_trans_arrayfunc_assign): Change fourth argument of
1886 gfc_conv_array_parameter to boolean.
1887 * trans-io.c (gfc_convert_array_to_string): The same.
1888 * trans-intrinsic.c (gfc_conv_intrinsic_loc): The same.
1890 2010-02-20 Tobias Burnus <burnus@net-b.de>
1893 * libgfortran.h: Add GFC_RTCHECK_MEM.
1894 * invoke.texi (-fcheck=): Document -fcheck=mem.
1895 * tranc.c (gfc_call_malloc): Remove negative-size run-time error
1896 and enable malloc-success check only with -fcheck=mem.
1897 * option.c (gfc_handle_runtime_check_option): Add -fcheck=mem.
1899 2010-02-16 Tobias Burnus <burnus@net-b.de>
1902 * gfortran.h (gfc_isym_id): Rename GFS_ISYM_GAMMA to GFS_ISYM_TGAMMA.
1903 * intrinsic.c (add_functions): Ditto.
1904 * iresolve.c (gfc_resolve_gamma): Call tgamma instead of gamma.
1905 * mathbuiltins.def: Use TGAMMA instead of GAMMA with "tgamma".
1907 2010-02-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1910 * trans-stmt.h: Add prototype for gfc_trans_code_cond. Add tree cond to
1911 gfc_trans_do prototype.
1912 * trans-stmt.c (gfc_trans_simple_do): Add optional argument to pass in
1913 a loop exit condition. If exit condition is given, build the loop exit
1914 code, checking IO results of implied do loops in READ and WRITE.
1915 (gfc_trans_do): Likewise.
1916 * trans.c (trans_code): New static work function, previously
1917 gfc_trans_code. Passes exit condition to gfc_trans_do.
1918 (gfc_trans_code): Calls trans_code with NULL_TREE condition.
1919 (gfc_trans_code_cond): Calls trans_code with loop exit condition.
1920 * trans-io.c (build_dt): Build an exit condition to allow checking IO
1921 result status bits in the dtparm structure. Use this condition in call
1922 to gfc_trans_code_cond.
1924 2010-02-13 Paul Thomas <pault@gcc.gnu.org>
1928 * trans-array.c (gfc_conv_array_parameter): Use
1929 gfc_full_array_ref_p to detect full and contiguous variable
1930 arrays. Full array components and contiguous arrays do not need
1931 internal_pack and internal_unpack.
1933 2010-02-11 Jakub Jelinek <jakub@redhat.com>
1936 * resolve.c (gfc_resolve_dim_arg): Call gfc_clear_ts.
1939 * decl.c (enumerator_decl): Don't call gfc_free_enum_history
1941 (gfc_match_enumerator_def): But here whenever enumerator_decl returns
1944 2010-02-10 Joost VandeVondele <jv244@cam.ac.uk>
1945 Tobias Burnus <burnus@net-b.de>
1948 * decl.c (gfc_match_subroutine): Explicitly set sym->declared_at.
1950 2010-02-10 Tobias Burnus <burnus@net-b.de>
1953 * trans-decl.c (gfc_generate_function_code): Only check
1954 actual-vs.-dummy character bounds if not bind(C).
1956 2010-02-10 Jakub Jelinek <jakub@redhat.com>
1959 * trans-expr.c (gfc_conv_subref_array_arg): Avoid accessing
1960 info->dimen after info has been freed.
1962 2010-02-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1965 * array.c (gfc_constant_ac): Do not prevent expansion of constructors
1968 2010-02-09 Jakub Jelinek <jakub@redhat.com>
1970 * module.c (fix_mio_expr): Declare sym.
1972 2010-02-09 Paul Thomas <pault@gcc.gnu.org>
1975 * module.c (fix_mio_expr): Fix for private generic procedures.
1977 2010-02-09 Daniel Kraft <d@domob.eu>
1980 * resolve.c (resolve_charlen): Change warning about negative CHARACTER
1981 length to be correct and issue only with -Wsurprising.
1982 * invoke.texi (Wsurprising): Mention this new warning that is
1983 turned on by -Wsurprising.
1985 2010-02-09 Daniel Kraft <d@domob.eu>
1988 * intrinsic.texi (MAXVAL): Remove wrong claim that array argument
1989 can be CHARACTER type.
1990 (MINVAL), (MAXLOC), (MINLOC): Ditto.
1992 2010-02-05 Paul Thomas <pault@gcc.gnu.org>
1995 * trans-expr.c (gfc_conv_subref_array_arg): Add new argument
1996 'formal_ptr'. If this is true, give returned descriptor unity
1997 lbounds, in all dimensions, and the appropriate offset.
1998 (gfc_conv_procedure_call); If formal is a pointer, set the last
1999 argument of gfc_conv_subref_array_arg to true.
2000 * trans.h : Add last argument for gfc_conv_subref_array_arg.
2001 * trans-io.c (set_internal_unit, gfc_trans_transfer): Set the
2002 new arg of gfc_conv_subref_array_arg to false.
2003 * trans-stmt.c (forall_make_variable_temp): The same.
2005 2010-02-03 Tobias Burnus <burnus@net-b.de>
2008 * interface.c (compare_parameter): Disable rank-checking
2011 2010-02-02 Tobias Burnus <burnus@net-b.de>
2014 * parse.c (decode_specification_statement): Use sym->result not sym.
2016 2010-02-01 Tobias Burnus <burnus@net-b.de>
2019 * decl.c (variable_decl): Allow default initializer in
2020 TYPE declarations in PURE functions.
2022 2010-01-31 Janus Weil <janus@gcc.gnu.org>
2025 * resolve.c (resolve_allocate_expr): Move default initialization code
2026 here from gfc_trans_allocate.
2027 * trans.c (gfc_trans_code): Call gfc_trans_class_assign also for
2029 * trans-expr.c (gfc_trans_class_assign): Handle default initialization
2030 of CLASS variables via memcpy.
2031 * trans-stmt.c (gfc_trans_allocate): Move default initialization code
2032 to resolve_allocate_expr.
2034 2010-01-31 Paul Thomas <pault@gcc.gnu.org>
2037 * expr.c (gfc_get_full_arrayspec_from_expr): New function.
2038 * gfortran.h : Add prototype for above.
2039 * trans-expr.c (gfc_trans_alloc_subarray_assign): New function.
2040 (gfc_trans_subcomponent_assign): Call new function to replace
2041 the code to deal with allocatable components.
2042 * trans-intrinsic.c (gfc_conv_intrinsic_bound): Call
2043 gfc_get_full_arrayspec_from_expr to replace existing code.
2045 2010-01-25 Tobias Burnus <burnus@net-b.de>
2048 * array.c (gfc_array_dimen_size): Fix intrinsic procedure
2051 2010-01-24 Paul Thomas <pault@gcc.gnu.org>
2055 * expr.c (remove_subobject_ref): If the constructor is NULL use
2056 the expression as the source.
2057 (simplify_const_ref): Change the type of expression if
2058 there are component references. Allow for substring to be at
2059 the end of an arbitrarily long chain of references. If an
2060 element is found that is not in an EXPR_ARRAY, assume that this
2061 is scalar initialization of array. Call remove_subobject_ref in
2062 this case with NULL second argument.
2064 2010-01-24 Tobias Burnus <burnus@net-b.de>
2067 * array.c (gfc_array_dimen_size): Use correct specific
2068 function in the check.
2070 2010-01-21 Paul Thomas <pault@gcc.gnu.org>
2073 * trans-stmt.c (gfc_conv_elemental_dependencies): If temporary
2074 is required, turn any trailing array elements after a range
2075 into ranges so that offsets can be calculated.
2077 2010-01-20 Joern Rennecke <amylaar@spamcop.net>
2079 * module.c (mio_f2k_derived): Use enumerator as initializer of
2083 * gfortran.h (struct gfc_namespace) <resolved>: Change to signed
2084 bitfield of width 2.
2086 2010-01-19 Janus Weil <janus@gcc.gnu.org>
2089 * resolve.c (extract_compcall_passed_object): Set locus for
2090 passed-object argument.
2091 (extract_ppc_passed_object): Set locus and correctly remove PPC
2094 2010-01-19 Paul Thomas <pault@gcc.gnu.org>
2097 * trans-decl.c (add_argument_checking): Do not use the backend
2098 decl directly to test for the presence of an optional dummy
2099 argument. Use gfc_conv_expr_present, remembering to set the
2103 * trans-decl.c (gfc_generate_function_code): Small white space
2104 changes. If 'recurcheckvar' is NULL do not try to reset it.
2106 2010-01-19 Janus Weil <janus@gcc.gnu.org>
2109 * resolve.c (resolve_fl_derived): Set the accessibility of the parent
2110 component for extended types.
2111 * symbol.c (gfc_find_component): Remove a wrongly-worded error message
2112 and take care of parent component accessibility.
2114 2010-01-17 Janus Weil <janus@gcc.gnu.org>
2117 * gfortran.h (symbol_attribute): Remove 'ambiguous_interfaces'.
2118 * interface.c (check_interface1): Move a warning message here from
2119 resolve_fl_procedure.
2120 (check_sym_interfaces): Removed 'attr.ambiguous_interfaces'.
2121 * module.c (read_module): Remove call to gfc_check_interfaces, since
2122 this comes too early here.
2123 * resolve.c (resolve_fl_procedure): Move warning message to
2126 2010-01-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2129 * interface.c (check_interface1): Pass symbol name rather than NULL to
2130 gfc_compare_interfaces. (gfc_compare_interfaces): Add assert to
2132 * resolve.c (check_generic_tbp_ambiguity): Pass symbol name rather
2133 than NULL to gfc_compare_interfaces.
2135 2010-01-14 Paul Thomas <pault@gcc.gnu.org>
2138 * trans-array.c (duplicate_allocatable): Static version of
2139 gfc_duplicate_allocatable with provision to handle scalar
2140 components. New boolean argument to switch off call to malloc
2142 (gfc_duplicate_allocatable): New function to call above with
2144 (gfc_copy_allocatable_data): New function to call above with
2146 (structure_alloc_comps): Do not apply indirect reference to
2147 scalar pointers. Add new section to copy allocatable components
2148 of arrays. Extend copying of allocatable components to include
2150 (gfc_copy_only_alloc_comp): New function to copy allocatable
2151 component derived types, without allocating the base structure.
2152 * trans-array.h : Add primitive for gfc_copy_allocatable_data.
2153 Add primitive for gfc_copy_only_alloc_comp.
2154 * trans-expr.c (gfc_conv_procedure_call): After calls to
2155 transformational functions with results that are derived types
2156 with allocatable components, copy the components in the result.
2157 (gfc_trans_arrayfunc_assign): Deallocate allocatable components
2158 of lhs derived types before allocation.
2160 2010-01-14 Paul Thomas <pault@gcc.gnu.org>
2163 * module.c (load_generic_interfaces): If a procedure that is
2164 use associated but not generic is given an interface that
2165 includes itself, then make it generic.
2167 2010-01-11 Joseph Myers <joseph@codesourcery.com>
2168 Shujing Zhao <pearly.zhao@oracle.com>
2170 PR translation/42469
2171 * lang.opt (fblas-matmul-limit=, finit-character=, finit-integer=,
2172 finit-logical=, finit-real=, fmax-array-constructor=): Use tab
2173 character between option name and help text.
2175 2010-01-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2179 * trans-array.c (gfc_conv_array_initializer): Change call to
2180 gfc_error_now to call to gfc_fatal_error.
2181 * array.c (count_elements): Whitespace. (extract_element): Whitespace.
2182 (is_constant_element): Changed name from constant_element.
2183 (gfc_constant_ac): Only use expand_construuctor for expression
2184 types of EXPR_ARRAY. If expression type is EXPR_CONSTANT, no need to
2185 call gfc_is_constant_expr.
2186 * expr.c (gfc_reduce_init_expr): Adjust conditionals and delete error
2188 * resolve.c (gfc_is_expandable_expr): New function that determiners if
2189 array expressions should have their constructors expanded.
2190 (gfc_resolve_expr): Use new function to determine whether or not to call
2191 gfc_expand_constructor.
2193 2010-01-09 Tobias Burnus <burnus@net-b.de>
2196 * trans-expr.c (gfc_trans_structure_assign): Handle
2198 * symbol.c (gen_special_c_interop_ptr): Add NULL_EXPR
2199 to the constructor for c_null_(fun)ptr.
2200 * resolve.c (resolve_structure_cons): Add special case
2201 for c_null_(fun)ptr.
2203 2010-01-09 Jakub Jelinek <jakub@redhat.com>
2205 * gfortranspec.c (lang_specific_driver): Update copyright notice
2208 2010-01-08 Tobias Burnus <burnus@net-b.de>
2211 * symbol.c (check_conflict, gfc_copy_attr): Add
2212 ASYNCHRONOUS support.
2213 (gfc_add_asynchronous): New function.
2214 * decl.c (match_attr_spec): Add ASYNCHRONOUS support.
2215 (gfc_match_asynchronous): New function.
2216 * dump-parse-tree.c (show_attr): Add ASYNCHRONOUS support.
2217 * gfortran.h (symbol_attribute): New ASYNCHRONOUS bit.
2218 (gfc_add_asynchronous): New Prototype.
2219 * module.c (ab_attribute, mio_symbol_attribute): Add
2220 ASYNCHRONOUS support.
2221 * resolve.c (was_declared): Ditto.
2222 * match.h (gfc_match_asynchronous): New prototype.
2223 * parse.c (decode_specification_statement,decode_statement):
2224 Add ASYNCHRONOUS support.
2226 2010-01-07 Tobias Burnus <burnus@net-b.de>
2229 * trans-decl.c (get_proc_pointer_decl): Fix call to
2230 gfc_conv_initializer for array-valued proc-pointer funcs.
2232 2010-01-07 Tobias Burnus <burnus@net-b.de>
2235 * trans-decl.c (gfc_trans_deferred_vars): Don't initialize
2236 allocatable scalars with SAVE attribute.
2238 2010-01-05 Tobias Burnus <burnus@net-b.de>
2241 * options.c (gfc_post_options): Set -frecursion
2242 when -fopenmp is used.
2244 2010-01-05 Tobias Burnus <burnus@net-b.de>
2247 * trans-expr.c (gfc_conv_procedure_call): Nullify
2248 return value for allocatable-scalar character functions.
2250 2010-01-04 Tobias Burnus <burnus@net-b.de>
2253 * error.c (error_printf, gfc_warning, gfc_notify_std,
2254 gfc_warning_now, gfc_error, gfc_error_now,
2255 gfc_fatal_error): Change argument name from nocmsgid to
2256 gmsgid to enable (x)gettext's % checking.
2258 2010-01-04 Tobias Burnus <burnus@net-b.de>
2260 * trans-decl.c (gfc_trans_deferred_vars): Fix spelling.
2262 2010-01-04 Tobias Burnus <burnus@net-b.de>
2265 * trans-expr.c (gfc_conv_procedure_call): Add indirect ref
2266 for functions returning allocatable scalars.
2267 * trans-stmt.c (gfc_trans_allocate): Emmit error when
2268 reallocating an allocatable scalar.
2269 * trans.c (gfc_allocate_with_status): Fix pseudocode syntax
2271 * trans-decl.c (gfc_trans_deferred_vars): Nullify local
2272 allocatable scalars.
2273 (gfc_generate_function_code): Nullify result variable for
2274 allocatable scalars.
2277 * module.c (gfc_use_module): Fix warning string to allow
2281 * invoke.texi (-fcheck=recursion): Mention that the checking
2282 is also disabled for -frecursive.
2283 * trans-decl.c (gfc_generate_function_code): Disable
2284 -fcheck=recursion when -frecursive is used.
2286 * intrinsic.texi (iso_c_binding): Improve wording.
2289 Copyright (C) 2010 Free Software Foundation, Inc.
2291 Copying and distribution of this file, with or without modification,
2292 are permitted in any medium without royalty provided the copyright
2293 notice and this notice are preserved.