1 2008-06-12 Tobias Burnus <burnus@net-b.de>
4 * trans-intrinsic.c (gfc_conv_intrinsic_index_scan_verify):
5 Fix passing of the BACK= argument.
7 2008-06-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
9 * cpp.c: Add copyright notice.
10 * cpp.h: Add copyright notice.
12 2008-06-08 Janus Weil <janus@gcc.gnu.org>
15 * decl.c (match_procedure_decl): Correctly recognize if the interface
16 is an intrinsic procedure.
18 2008-06-08 Tobias Burnus <burnus@net-b.de>
21 * resolve.c (resolve_symbol): Copy more attributes for
22 PROCEDUREs with interfaces.
24 2008-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
28 * io.c (check_format): Add new error message for zero width.
29 Use new error message for FMT_A and with READ, FMT_G. Allow
30 FMT_G with WRITE except when -std=F95 and -std=F2003.
32 2008-06-07 Tobias Burnus <burnus@net-b.de>
35 * intrinsic.c (add_functions): Implement c_sizeof.
36 * trans-intrinsic.c (gfc_conv_intrinsic_sizeof): Do not
37 create unneeded variable in the scalar case.
38 * intrinsic.texi: Add C_SIZEOF documentation.
40 2008-06-06 Tobias Burnus <burnus@net-b.de>
42 * intrinsic.texi (BESSEL_J1): Fix BES(S)EL_J1 typo.
44 2008-06-06 Jakub Jelinek <jakub@redhat.com>
46 * scanner.c (skip_free_comments, skip_fixed_comments): Handle tabs.
47 * parse.c (next_free): Allow tab after !$omp.
48 (decode_omp_directive): Handle !$omp task, !$omp taskwait
50 (case_executable): Add ST_OMP_TASKWAIT.
51 (case_exec_markers): Add ST_OMP_TASK.
52 (gfc_ascii_statement): Handle ST_OMP_TASK, ST_OMP_END_TASK and
54 (parse_omp_structured_block, parse_executable): Handle ST_OMP_TASK.
55 * gfortran.h (gfc_find_sym_in_expr): New prototype.
56 (gfc_statement): Add ST_OMP_TASK, ST_OMP_END_TASK and ST_OMP_TASKWAIT.
57 (gfc_omp_clauses): Add OMP_SCHED_AUTO to sched_kind,
58 OMP_DEFAULT_FIRSTPRIVATE to default_sharing. Add collapse and
60 (gfc_exec_op): Add EXEC_OMP_TASK and EXEC_OMP_TASKWAIT.
61 * f95-lang.c (LANG_HOOKS_OMP_CLAUSE_COPY_CTOR,
62 LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP, LANG_HOOKS_OMP_CLAUSE_DTOR,
63 LANG_HOOKS_OMP_PRIVATE_OUTER_REF): Define.
64 * trans.h (gfc_omp_clause_default_ctor): Add another argument.
65 (gfc_omp_clause_copy_ctor, gfc_omp_clause_assign_op,
66 gfc_omp_clause_dtor, gfc_omp_private_outer_ref): New prototypes.
67 * types.def (BT_ULONGLONG, BT_PTR_ULONGLONG,
68 BT_FN_BOOL_ULONGLONGPTR_ULONGLONGPTR,
69 BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULLPTR_ULLPTR,
70 BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULL_ULLPTR_ULLPTR,
71 BT_FN_VOID_PTR_PTR, BT_PTR_FN_VOID_PTR_PTR,
72 BT_FN_VOID_OMPFN_PTR_OMPCPYFN_LONG_LONG_BOOL_UINT): New.
73 (BT_BOOL): Use integer type with BOOL_TYPE_SIZE rather
74 than boolean_type_node.
75 * dump-parse-tree.c (gfc_show_omp_node): Handle EXEC_OMP_TASK,
76 EXEC_OMP_TASKWAIT, OMP_SCHED_AUTO, OMP_DEFAULT_FIRSTPRIVATE,
77 untied and collapse clauses.
78 (gfc_show_code_node): Handle EXEC_OMP_TASK and EXEC_OMP_TASKWAIT.
79 * trans.c (gfc_trans_code): Handle EXEC_OMP_TASK and
81 * st.c (gfc_free_statement): Likewise.
82 * resolve.c (gfc_resolve_blocks, resolve_code): Likewise.
83 (find_sym_in_expr): Rename to...
84 (gfc_find_sym_in_expr): ... this. No longer static.
85 (resolve_allocate_expr, resolve_ordinary_assign): Adjust caller.
86 * match.h (gfc_match_omp_task, gfc_match_omp_taskwait): New
88 * openmp.c (resolve_omp_clauses): Allow allocatable arrays in
89 firstprivate, lastprivate, reduction, copyprivate and copyin
91 (omp_current_do_code): Made static.
92 (omp_current_do_collapse): New variable.
93 (gfc_resolve_omp_do_blocks): Compute omp_current_do_collapse,
94 clear omp_current_do_code and omp_current_do_collapse on return.
95 (gfc_resolve_do_iterator): Handle collapsed do loops.
96 (resolve_omp_do): Likewise, diagnose errorneous collapsed do loops.
97 (OMP_CLAUSE_COLLAPSE, OMP_CLAUSE_UNTIED): Define.
98 (gfc_match_omp_clauses): Handle default (firstprivate),
99 schedule (auto), untied and collapse (n) clauses.
100 (OMP_DO_CLAUSES): Add OMP_CLAUSE_COLLAPSE.
101 (OMP_TASK_CLAUSES): Define.
102 (gfc_match_omp_task, gfc_match_omp_taskwait): New functions.
103 * trans-openmp.c (gfc_omp_private_outer_ref): New function.
104 (gfc_omp_clause_default_ctor): Add outer argument. For allocatable
105 arrays allocate them with the bounds of the outer var if outer
107 (gfc_omp_clause_copy_ctor, gfc_omp_clause_assign_op,
108 gfc_omp_clause_dtor): New functions.
109 (gfc_trans_omp_array_reduction): If decl is allocatable array,
110 allocate it with outer var's bounds in OMP_CLAUSE_REDUCTION_INIT
111 and deallocate it in OMP_CLAUSE_REDUCTION_MERGE.
112 (gfc_omp_predetermined_sharing): Return OMP_CLAUSE_DEFAULT_SHARED
113 for assumed-size arrays.
114 (gfc_trans_omp_do): Add par_clauses argument. If dovar is
115 present in lastprivate clause and do loop isn't simple,
116 set OMP_CLAUSE_LASTPRIVATE_STMT. If dovar is present in
117 parallel's lastprivate clause, change it to shared and add
118 lastprivate clause to OMP_FOR_CLAUSES. Handle collapsed do loops.
119 (gfc_trans_omp_directive): Adjust gfc_trans_omp_do callers.
120 (gfc_trans_omp_parallel_do): Likewise. Move collapse clause to
121 OMP_FOR from OMP_PARALLEL.
122 (gfc_trans_omp_clauses): Handle OMP_SCHED_AUTO,
123 OMP_DEFAULT_FIRSTPRIVATE, untied and collapse clauses.
124 (gfc_trans_omp_task, gfc_trans_omp_taskwait): New functions.
125 (gfc_trans_omp_directive): Handle EXEC_OMP_TASK and
128 2008-06-04 Janus Weil <janus@gcc.gnu.org>
132 * resolve.c (resolve_symbol): Correctly copy the interface for a
133 PROCEDURE declaration.
135 2008-06-02 Janus Weil <janus@gcc.gnu.org>
138 * symbol.c (gfc_add_allocatable,gfc_add_dimension,
139 gfc_add_explicit_interface): Added checks.
140 * decl.c (attr_decl1): Added missing "var_locus".
141 * parse.c (parse_interface): Checking for errors.
143 2008-06-02 Daniel Kraft <d@domob.eu>
145 * gfortran.h: New statement-type ST_FINAL for FINAL declarations.
146 (struct gfc_symbol): New member f2k_derived.
147 (struct gfc_namespace): New member finalizers, for use in the above
148 mentioned f2k_derived namespace.
149 (struct gfc_finalizer): New type defined for finalizers linked list.
150 * match.h (gfc_match_final_decl): New function header.
151 * decl.c (gfc_match_derived_decl): Create f2k_derived namespace on
152 constructed symbol node.
153 (gfc_match_final_decl): New function to match a FINAL declaration line.
154 * parse.c (decode_statement): match-call for keyword FINAL.
155 (parse_derived): Parse CONTAINS section and accept FINAL statements.
156 * resolve.c (gfc_resolve_finalizers): New function to resolve (that is
157 in this case, check) a list of finalizer procedures.
158 (resolve_fl_derived): Call gfc_resolve_finalizers here.
159 * symbol.c (gfc_get_namespace): Initialize new finalizers to NULL.
160 (gfc_free_namespace): Free finalizers list.
161 (gfc_new_symbol): Initialize new f2k_derived to NULL.
162 (gfc_free_symbol): Free f2k_derived namespace.
163 (gfc_free_finalizer): New function to free a single gfc_finalizer node.
164 (gfc_free_finalizer_list): New function to free a linked list of
167 2008-06-02 Daniel Franke <franke.daniel@gmail.com>
171 * cpp.c (gfc_cpp_init): Do not initialize builtins if
172 processing already preprocessed input.
173 (gfc_cpp_preprocess): Finalize output with newline.
175 2008-05-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
177 * intrinsic.texi: Revert wrong commit.
179 2008-05-31 Steven G. Kargl <kargls@comcast.net>
181 * arith.c (gfc_arith_init_1): Remove now unused r and c variables.
182 Cleanup numerical inquiry function initialization.
183 (gfc_arith_done_1): Replace multiple mpfr_clear() invocations with
184 a single mpfr_clears().
185 (gfc_check_real_range): Re-arrange logic to eliminate multiple
186 unnecessary branching and assignments.
187 (gfc_arith_times): Use mpfr_clears() in preference to multiple
189 (gfc_arith_divide): Ditto.
190 (complex_reciprocal): Eliminate now unused variables a, re, im.
191 Cleanup the mpfr abuse. Use mpfr_clears() in preference to
192 multiple mpfr_clear().
193 (complex_pow): Fix comment whitespace. Use mpfr_clears() in
194 preference to multiple mpfr_clear().
195 * simplify.c (gfc_simplify_and): Remove blank line.
196 (gfc_simplify_atan2): Move error checking earlier to eliminate
197 a now unnecessay gfc_free_expr().
198 (gfc_simplify_bessel_j0): Remove unnecessary gfc_set_model_kind().
199 (gfc_simplify_bessel_j1): Ditto.
200 (gfc_simplify_bessel_jn): Ditto.
201 (gfc_simplify_bessel_y0): Ditto.
202 (gfc_simplify_bessel_y1): Ditto.
203 (gfc_simplify_bessel_yn): Ditto.
204 (only_convert_cmplx_boz): Eliminate unnecessary duplicate code, and
205 combine nested if statement rational expressions.
206 (gfc_simplify_cos): Use mpfr_clears() in preference to multiple
208 (gfc_simplify_exp): Ditto.
209 (gfc_simplify_fraction): Move gfc_set_model_kind() to after the
210 special case of 0. Use mpfr_clears() in preference to multiple
212 (gfc_simplify_gamma): Eliminate unnecessary gfc_set_model_kind().
213 (gfc_simplify_lgamma): Ditto.
214 (gfc_simplify_log10): Ditto.
215 (gfc_simplify_log): Move gfc_set_model_kind () inside switch
216 statement. Use mpfr_clears() in preference to multiple mpfr_clear().
217 (gfc_simplify_mod): Eliminate now unused variables quot, iquot,
218 and term. Simplify the mpfr magic.
219 (gfc_simplify_modulo): Ditto.
220 (gfc_simplify_nearest): Eliminate unnecessary gfc_set_model_kind().
221 (gfc_simplify_scale): Use mpfr_clears() in preference to multiple
223 (gfc_simplify_sin): Ditto
224 (gfc_simplify_sqrt): Ditto
225 (gfc_simplify_set_exponent): Move gfc_set_model_kind() to after the
226 special case of 0. Use mpfr_clears() in preference to multiple
229 2008-05-29 Daniel Franke <franke.daniel@gmail.com>
232 * Make-lang.in (F95_OBJS): Added dependency on FORTRAN_TARGET_OBJS.
234 2008-05-29 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
236 * scanner.c (load_line): Add first_char argument. Don't call ungetc.
237 (gfc_read_orig_filename): Adjust call to load_line. Don't call
239 (load_file): Adjust call to load_line.
241 2008-05-28 Janus Weil <janus@gcc.gnu.org>
245 * interface.c (gfc_procedure_use): Enable argument checking for
246 external procedures with explicit interface.
247 * symbol.c (check_conflict): Fix conflict checking for externals.
248 (copy_formal_args): Fix handling of arrays.
249 * resolve.c (resolve_specific_f0, resolve_specific_s0): Fix handling
251 * parse.c (parse_interface): Non-abstract INTERFACE statement implies
254 2008-05-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
257 * intrinsic.c (gfc_convert_chartype): Don't mark conversion
259 * trans-array.c (gfc_trans_array_ctor_element): Divide element
260 size by the size of one character to obtain length.
261 * iresolve.c (gfc_resolve_cshift): Call the _char4 variant when
263 (gfc_resolve_eoshift): Likewise.
264 * trans-intrinsic.c (gfc_conv_intrinsic_ctime): Minor beautification.
265 (gfc_conv_intrinsic_fdate): Minor beautification.
266 (gfc_conv_intrinsic_ttynam): Minor beautification.
267 (gfc_conv_intrinsic_minmax_char): Allow all character kinds.
268 (size_of_string_in_bytes): New function.
269 (gfc_conv_intrinsic_size): Call size_of_string_in_bytes for
270 character expressions.
271 (gfc_conv_intrinsic_sizeof): Likewise.
272 (gfc_conv_intrinsic_array_transfer): Likewise.
273 (gfc_conv_intrinsic_trim): Allow all character kinds. Minor
275 (gfc_conv_intrinsic_repeat): Fix comment typo.
276 * simplify.c (gfc_convert_char_constant): Take care of conversion
277 of array constructors.
279 2008-05-27 Tobias Burnus <burnus@net-b.de>
282 * trans-array.c (gfc_set_loop_bounds_from_array_spec):
283 Add missing fold_convert.
285 2008-05-26 Daniel Franke <franke.daniel@gmail.com>
287 * fortran/cpp.c (cpp_define_builtins): Remove usage of TARGET_* macros,
290 2008-05-26 Daniel Franke <franke.daniel@gmail.com>
293 * lang.opt (A, C, CC, D, E, H, P, U, cpp, d, fworking-directory,
294 imultilib, iprefix, iquote, isysroot, isystem, nocpp, nostdinc,
295 o, undef, v): New options.
296 * options.c (gfc_init_options): Also initialize preprocessor
298 (gfc_post_options): Also handle post-initialization of preprocessor
300 (gfc_handle_option): Check if option is a preprocessor option.
301 If yes, let gfc_cpp_handle_option() handle the option.
302 * lang-specs.h: Reorganized to handle new options.
303 * scanner.c (gfc_new_file): Read temporary file instead of
304 input source if preprocessing is enabled.
305 * f95-lang.c (gfc_init): Initialize preprocessor.
306 (gfc_finish): Clean up preprocessor.
309 * Make-lang.in: Added new objects and dependencies.
310 * gfortran.texi: Updated section "Preprocessing and
311 conditional compilation".
312 * invoke.texi: Added new section "Preprocessing Options",
313 listed and documented the preprocessing options handled
316 2008-05-25 Tobias Burnus <burnus@net-b.de>
319 * trans-expr.c (gfc_conv_function_call): Remove library
320 call for c_f_pointer with scalar Fortran pointers and for
323 2008-05-21 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
326 * iresolve.c (check_charlen_present): Don't force the rank to 1.
328 2008-05-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
331 * trans-expr.c (gfc_conv_string_tmp): Pick the correct type for
332 the temporary variable.
334 2008-05-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
336 * simplify.c (gfc_simplify_dble, gfc_simplify_real): Initialize
337 result variable to avoid warnings.
339 2008-05-18 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
341 * intrinsic.c (char_conversions, ncharconv): New static variables.
342 (find_char_conv): New function.
343 (add_functions): Add simplification functions for ADJUSTL and
344 ADJUSTR. Don't check the kind of their argument. Add checking for
345 LGE, LLE, LGT and LLT.
346 (add_subroutines): Fix argument type for SLEEP. Fix argument name
348 (add_char_conversions): New function.
349 (gfc_intrinsic_init_1): Call add_char_conversions.
350 (gfc_intrinsic_done_1): Free char_conversions.
351 (check_arglist): Use kind == 0 as a signal that we don't want
352 the kind value to be checked.
353 (do_simplify): Also simplify character functions.
354 (gfc_convert_chartype): New function
355 * trans-array.c (gfc_trans_array_ctor_element): Don't force the
356 use of default character type.
357 (gfc_trans_array_constructor_value): Likewise.
358 (get_array_ctor_var_strlen): Use integer kind to build an integer
359 instead of a character kind!
360 (gfc_build_constant_array_constructor): Don't force the use of
361 default character type.
362 (gfc_conv_loop_setup): Likewise.
363 * trans-expr.c (gfc_conv_string_tmp): Don't force the use of
364 default character type. Allocate enough memory for wide strings.
365 (gfc_conv_concat_op): Make sure operand kind are the same.
366 (string_to_single_character): Remove gfc_ prefix. Reindent.
367 Don't force the use of default character type.
368 (gfc_conv_scalar_char_value): Likewise.
369 (gfc_build_compare_string): Call string_to_single_character.
370 (fill_with_spaces): New function
371 (gfc_trans_string_copy): Add kind arguments. Use them to deal
372 with wide character kinds.
373 (gfc_conv_statement_function): Whitespace fix. Call
374 gfc_trans_string_copy with new kind arguments.
375 (gfc_conv_substring_expr): Call gfc_build_wide_string_const
376 instead of using gfc_widechar_to_char.
377 (gfc_conv_string_parameter): Don't force the use of default
379 (gfc_trans_scalar_assign): Pass kind args to gfc_trans_string_copy.
380 * intrinsic.h (gfc_check_lge_lgt_lle_llt, gfc_convert_char_constant,
381 gfc_resolve_adjustl, gfc_resolve_adjustr): New prototypes.
382 * decl.c (gfc_set_constant_character_len): Don't assert the
383 existence of a single character kind.
384 * trans-array.h (gfc_trans_string_copy): New prototype.
385 * gfortran.h (gfc_check_character_range, gfc_convert_chartype):
387 * error.c (print_wide_char_into_buffer): New function lifting
388 code from gfc_print_wide_char. Fix order to output '\x??' instead
390 (gfc_print_wide_char): Call print_wide_char_into_buffer.
391 (show_locus): Call print_wide_char_into_buffer with buffer local
393 * trans-const.c (gfc_build_wide_string_const): New function.
394 (gfc_conv_string_init): Deal with wide characters strings
396 (gfc_conv_constant_to_tree): Call gfc_build_wide_string_const.
397 * trans-stmt.c (gfc_trans_label_assign): Likewise.
398 (gfc_trans_character_select): Deal with wide strings.
399 * expr.c (gfc_check_assign): Allow conversion between character
401 * trans-const.h (gfc_build_wide_string_const): New prototype.
402 * trans-types.c (gfc_get_character_type_len_for_eltype,
403 gfc_get_character_type_len): Create too variants of the old
404 gfc_get_character_type_len, one getting kind argument and the
405 other one directly taking a type tree.
406 * trans.h (gfor_fndecl_select_string_char4,
407 gfor_fndecl_convert_char1_to_char4,
408 gfor_fndecl_convert_char4_to_char1): New prototypes.
409 * trans-types.h (gfc_get_character_type_len_for_eltype): New
411 * resolve.c (resolve_operator): Exit early when kind mismatches
412 are detected, because that makes us issue an error message later.
413 (validate_case_label_expr): Fix wording of error message.
414 * iresolve.c (gfc_resolve_adjustl, gfc_resolve_adjustr): New
416 (gfc_resolve_pack): Call _char4 variants of library function
417 when dealing with wide characters.
418 (gfc_resolve_reshape): Likewise.
419 (gfc_resolve_spread): Likewise.
420 (gfc_resolve_transpose): Likewise.
421 (gfc_resolve_unpack): Likewise.
422 * target-memory.c (size_character): Take character kind bit size
423 correctly into account (not that it changes anything for now, but
425 (gfc_encode_character): Added gfc_ prefix. Encoding each
426 character of a string by calling native_encode_expr for the
427 corresponding unsigned integer.
428 (gfc_target_encode_expr): Add gfc_ prefix to encode_character.
429 * trans-decl.c (gfc_build_intrinsic_function_decls): Build
430 gfor_fndecl_select_string_char4, gfor_fndecl_convert_char1_to_char4
431 and gfor_fndecl_convert_char4_to_char1.
432 * target-memory.h (gfc_encode_character): New prototype.
433 * arith.c (gfc_check_character_range): New function.
434 (eval_intrinsic): Allow non-default character kinds.
435 * check.c (gfc_check_access_func): Only allow default
436 character kind arguments.
437 (gfc_check_chdir): Likewise.
438 (gfc_check_chdir_sub): Likewise.
439 (gfc_check_chmod): Likewise.
440 (gfc_check_chmod_sub): Likewise.
441 (gfc_check_lge_lgt_lle_llt): New function.
442 (gfc_check_link): Likewise.
443 (gfc_check_link_sub): Likewise.
444 (gfc_check_symlnk): Likewise.
445 (gfc_check_symlnk_sub): Likewise.
446 (gfc_check_rename): Likewise.
447 (gfc_check_rename_sub): Likewise.
448 (gfc_check_fgetputc_sub): Likewise.
449 (gfc_check_fgetput_sub): Likewise.
450 (gfc_check_stat): Likewise.
451 (gfc_check_stat_sub): Likewise.
452 (gfc_check_date_and_time): Likewise.
453 (gfc_check_ctime_sub): Likewise.
454 (gfc_check_fdate_sub): Likewise.
455 (gfc_check_gerror): Likewise.
456 (gfc_check_getcwd_sub): Likewise.
457 (gfc_check_getarg): Likewise.
458 (gfc_check_getlog): Likewise.
459 (gfc_check_hostnm): Likewise.
460 (gfc_check_hostnm_sub): Likewise.
461 (gfc_check_ttynam_sub): Likewise.
462 (gfc_check_perror): Likewise.
463 (gfc_check_unlink): Likewise.
464 (gfc_check_unlink_sub): Likewise.
465 (gfc_check_system_sub): Likewise.
466 * primary.c (got_delim): Perform correct character range checking
468 * trans-intrinsic.c (gfc_conv_intrinsic_conversion): Generate
469 calls to library functions convert_char4_to_char1 and
470 convert_char1_to_char4 for character conversions.
471 (gfc_conv_intrinsic_char): Allow all character kings.
472 (gfc_conv_intrinsic_strcmp): Fix whitespace.
473 (gfc_conv_intrinsic_repeat): Take care of all character kinds.
474 * intrinsic.texi: For all GNU intrinsics accepting character
475 arguments, mention that they're restricted to the default kind.
476 * simplify.c (simplify_achar_char): New function.
477 (gfc_simplify_achar, gfc_simplify_char): Call simplify_achar_char.
478 gfc_simplify_ichar): Don't error out for wide characters.
479 (gfc_convert_char_constant): New function.
481 2008-05-18 Steven G. Kargl <kargls@comcast.net>
484 * symbol.c (check_conflict): Issue errors for abuse of PUBLIC, PRIVATE,
486 * resolve.c (gfc_verify_binding_labels): Fix NULL pointer dereference.
488 2008-05-17 Tobias Burnus <burnus@net-b.de>
490 * intrinsic.texi: Correct description of GET_COMMAND_ARGUMENT
491 and GET_ENVIRONMENT_VARIABLE; fix keyword= name for GETENV,
492 GETLOG, GMTIME, HOSTNM, IRAND, ITIME, KILL.
493 Move LOG_GAMMA after LOG10.
495 2008-05-17 Tobias Burnus <burnus@net-b.de>
497 * intrinsic.c (add_functions): Change FLUSH(C) to FLUSH(UNIT).
498 * intrinsic.texi: Change INTEGER(*) to INTEGER; fix keyword= name for
499 ABS, ADJUSTL, AINT, ALLOCATED, ANINT, ASSOCIATED, C_ASSOCIATED,
500 CEILING, DBLE, DFLOAT, DOT_PRODUCT, DREAL, FLOAT, FLOOR, GET_COMMAND.
502 2008-05-16 Paul Thomas <pault@gcc.gnu.org>
506 * trans-stmt.c (gfc_trans_where): Tighten up the dependency
507 check for calling gfc_trans_where_3.
510 * trans-stmt.c (gfc_trans_where_2): Set the mask size to zero
511 if it is calculated to be negative.
514 * trans-stmt.c (gfc_trans_where_3, gfc_trans_where_assign): Set
515 ss->where for scalar right hand sides.
516 * trans-array.c (gfc_add_loop_ss_code): If ss->where is set do
517 not evaluate scalars outside the loop. Clean up whitespace.
518 * trans.h : Add a bitfield 'where' to gfc_ss.
520 2008-05-16 Tobias Burnus <burnus@net-b.de>
522 * libgfortran.h: Increase GFC_MAX_DIMENSIONS to 15.
523 * array.c (gfc_match_array_spec): Error with -std=f2003 if rank > 7.
525 2008-04-16 Daniel Kraft <d@domob.eu>
528 * gfortran.h: Added field "length_from_typespec" to gfc_charlength.
529 * aray.c (gfc_match_array_constructor): Added code to parse typespec.
530 (check_element_type, check_constructor_type, gfc_check_constructor_type):
531 Extended to support explicit typespec on constructor.
532 (gfc_resolve_character_array_constructor): Pad strings correctly for
533 explicit, constant character length.
534 * trans-array.c: New static global variable "typespec_chararray_ctor"
535 (gfc_trans_array_constructor): New code to support explicit but dynamic
538 2008-05-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
541 * decl.c (match_attr_spec): Check for matching pairs of parenthesis.
542 * expr.c (gfc_specification_expr): Supplement the error message with the
544 * resolve.c (gfc_resolve_index): Likewise.
545 * match.c (gfc_match_parens): Clarify error message with "at or before".
546 (gfc_match_do): Check for matching pairs of parenthesis.
548 2008-05-16 Tobias Burnus <burnus@net-b.de
550 * intrinsic.texi: Write Fortran 77/90/95 instead of F77/90/95;
551 add missing KIND argument to ACHAR and NINT; and state that
552 the KIND argument is a F2003 extension for ACHAR, COUNT, IACHAR,
553 ICHAR, INDEX, LBOUND, LEN, LEN_TRIM, SCAN, SIZE, UBOUND, VERIFY.
555 2008-05-16 Daniel Kraft <d@domob.eu>
557 * primary.c: New private structure "gfc_structure_ctor_component".
558 (gfc_free_structure_ctor_component): New helper function.
559 (gfc_match_structure_constructor): Extended largely to support named
560 arguments and default initialization for structure constructors.
562 2008-05-15 Steven G. Kargl <kargls@comcast.net>
564 * simplify.c (gfc_simplify_dble, gfc_simplify_float,
565 simplify_bound, gfc_simplify_nearest, gfc_simplify_real): Plug
566 possible memory leaks.
567 (gfc_simplify_reshape): Plug possible memory leaks and dereferencing
570 2008-05-15 Steven G. Kargl <kargls@comcast.net>
573 * simplify.c (gfc_simplify_int, gfc_simplify_intconv): Replaced hand
574 rolled integer conversion with gfc_int2int, gfc_real2int, and
576 (gfc_simplify_intconv): Renamed to simplify_intconv.
578 2008-05-15 Steven G. Kargl, <kargl@comcast.net>
579 * gfortran.dg/and_or_xor.f90: New test
581 * fortran/simplify.c (gfc_simplify_and, gfc_simplify_or,
582 gfc_simplify_xor): Don't range check logical results.
584 2008-05-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
586 * trans-expr.c (gfc_conv_concat_op): Take care of nondefault
588 (gfc_build_compare_string): Add kind argument and use it.
589 (gfc_conv_statement_function): Fix indentation.
590 * gfortran.h (gfc_character_info): New structure.
591 (gfc_character_kinds): New array.
592 * trans-types.c (gfc_character_kinds, gfc_character_types,
593 gfc_pcharacter_types): New array.
594 (gfc_init_kinds): Fill character kinds array.
595 (validate_character): Take care of nondefault character kinds.
596 (gfc_build_uint_type): New function.
597 (gfc_init_types): Take care of nondefault character kinds.
598 (gfc_get_char_type, gfc_get_pchar_type): New functions.
599 (gfc_get_character_type_len): Use gfc_get_char_type.
600 * trans.h (gfc_build_compare_string): Adjust prototype.
601 (gfor_fndecl_compare_string_char4, gfor_fndecl_concat_string_char4,
602 gfor_fndecl_string_len_trim_char4, gfor_fndecl_string_index_char4,
603 gfor_fndecl_string_scan_char4, gfor_fndecl_string_verify_char4,
604 gfor_fndecl_string_trim_char4, gfor_fndecl_string_minmax_char4,
605 gfor_fndecl_adjustl_char4, gfor_fndecl_adjustr_char4): New
607 * trans-types.h (gfc_get_char_type, gfc_get_pchar_type): New
609 * trans-decl.c (gfor_fndecl_compare_string_char4,
610 gfor_fndecl_string_len_trim_char4, gfor_fndecl_string_index_char4,
611 gfor_fndecl_string_scan_char4, gfor_fndecl_string_verify_char4,
612 gfor_fndecl_string_trim_char4, gfor_fndecl_string_minmax_char4,
613 gfor_fndecl_adjustl_char4, gfor_fndecl_adjustr_char4,
614 gfor_fndecl_concat_string_char4): New function decls.
615 (gfc_build_intrinsic_function_decls): Define new *_char4 function
617 * trans-intrinsic.c (gfc_conv_intrinsic_minmax_char,
618 gfc_conv_intrinsic_len_trim, gfc_conv_intrinsic_ichar,
619 gfc_conv_intrinsic_strcmp, gfc_conv_intrinsic_trim,
620 gfc_conv_intrinsic_function): Deal with nondefault character kinds.
622 2008-05-15 Sa Liu <saliu@de.ibm.com>
624 * iso-c-binding.def: Add standard parameter to macro NAMED_INTCST.
625 All existing NAMED_INTCST definitions has standard GFC_STD_F2003,
626 c_int128_t, c_int_least128_t and c_int_fast128_t are added as
628 * iso-fortran-evn.def: Add standard parameter GFC_STD_F2003
629 to macro NAMED_INTCST.
630 * symbol.c (std_for_isocbinding_symbol): New helper function to
631 return the standard that supports this isocbinding symbol.
632 (generate_isocbinding_symbol): Do not generate GNU extension symbols
633 if std=f2003. Add new parameter to NAMED_INTCST.
634 * module.c (use_iso_fortran_env_module): Add new parameter to
635 NAMED_INTCST and new field standard to struct intmod_sym.
636 * gfortran.h: Add new parameter to NAMED_INTCST.
637 * trans-types.c (init_c_interop_kinds): Add new parameter to
639 * intrinsic.texi: Documented new types C_INT128_T, C_INT_LEASE128_T
642 2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
645 * trans-decl.c (gfc_build_dummy_array_decl): Don't repack
646 arrays that have the TARGET attribute.
648 2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
651 * simplify.c (only_convert_cmplx_boz): New function.
652 (gfc_simplify_cmplx, gfc_simplify_complex, gfc_simplify_dcmplx):
653 Call only_convert_cmplx_boz.
655 2008-05-14 Paul Thomas <pault@gcc.gnu.org>
658 * interface.c (compare_actual_formal): Do not check sizes if the
659 actual is BT_PROCEDURE.
661 2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
664 * trans-array.c (gfc_conv_ss_startstride): Any negative size is
665 the same as zero size.
666 (gfc_conv_loop_setup): Fix size calculation.
668 2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
671 * trans-intrinsic.c (gfc_conv_intrinsic_bound): Correctly
672 handle zero-size sections.
674 2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
677 * scanner.c (preprocessor_line): Allocate enough memory for a
680 2008-05-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
683 * target-memory.c (gfc_target_expr_size): Correctly treat
685 (gfc_target_encode_expr): Likewise.
686 (gfc_interpret_complex): Whitespace change.
688 2008-05-11 Thomas Koenig <tkoenig@gcc.gnu.org>
691 * trans.c (gfc_call_malloc): If size equals zero, allocate one
692 byte; don't return a null pointer.
694 2008-05-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
697 * module.c (quote_string): Fix sprintf format.
699 2008-05-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
702 * module.c (quote_string, unquote_string,
703 mio_allocated_wide_string): New functions.
704 (mio_expr): Call mio_allocated_wide_string where needed.
706 2008-05-07 Kenneth Zadeck <zadeck@naturalbridge.com>
708 * trans-decl.c (gfc_get_extern_function_decl, build_function_decl):
709 Rename DECL_IS_PURE to DECL_PURE_P.
711 2008-05-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
713 * arith.c: (gfc_arith_concat, gfc_compare_string,
714 gfc_compare_with_Cstring, hollerith2representation,
715 gfc_hollerith2int, gfc_hollerith2real, gfc_hollerith2complex,
716 gfc_hollerith2character, gfc_hollerith2logical): Use wide
717 characters for character constants.
718 * data.c (create_character_intializer): Likewise.
719 * decl.c (gfc_set_constant_character_len): Likewise.
720 * dump-parse-tree.c (show_char_const): Correctly dump wide
722 error.c (print_wide_char): Rename into gfc_print_wide_char.
723 (show_locus): Adapt to new prototype of gfc_print_wide_char.
724 expr.c (free_expr0): Representation is now disjunct from
725 character string value, so we always free it.
726 (gfc_copy_expr, find_substring_ref, gfc_simplify_expr): Adapt
727 to wide character strings.
728 * gfortran.h (gfc_expr): Make value.character.string a wide string.
729 (gfc_wide_toupper, gfc_wide_strncasecmp, gfc_wide_memset,
730 gfc_widechar_to_char, gfc_char_to_widechar): New prototypes.
731 (gfc_get_wide_string): New macro.
732 (gfc_print_wide_char): New prototype.
733 * io.c (format_string): Make a wide string.
734 (next_char, gfc_match_format, compare_to_allowed_values,
735 gfc_match_open): Deal with wide strings.
736 * module.c (mio_expr): Convert between wide strings and ASCII ones.
737 * primary.c (match_hollerith_constant, match_charkind_name):
739 * resolve.c (build_default_init_expr): Likewise.
740 * scanner.c (gfc_wide_toupper, gfc_wide_memset,
741 gfc_char_to_widechar): New functions.
742 (wide_strchr, gfc_widechar_to_char, gfc_wide_strncasecmp):
743 Changes in prototypes.
744 (gfc_define_undef_line, load_line, preprocessor_line,
745 include_line, load_file, gfc_read_orig_filename): Handle wide
747 * simplify.c (gfc_simplify_achar, gfc_simplify_adjustl,
748 gfc_simplify_adjustr, gfc_simplify_char, gfc_simplify_iachar,
749 gfc_simplify_ichar, simplify_min_max, gfc_simplify_new_line,
750 gfc_simplify_repeat): Handle wide strings.
751 (wide_strspn, wide_strcspn): New helper functions.
752 (gfc_simplify_scan, gfc_simplify_trim, gfc_simplify_verify):
754 * symbol.c (generate_isocbinding_symbol): Likewise.
755 * target-memory.c (size_character, gfc_target_expr_size,
756 encode_character, gfc_target_encode_expr, gfc_interpret_character,
757 gfc_target_interpret_expr): Handle wide strings.
758 * trans-const.c (gfc_conv_string_init): Lower wide strings to
760 (gfc_conv_constant_to_tree): Likewise.
761 * trans-expr.c (gfc_conv_substring_expr): Handle wide strings.
762 * trans-io.c (gfc_new_nml_name_expr): Likewise.
763 * trans-stmt.c (gfc_trans_label_assign): Likewise.
765 2008-05-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
767 * simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1,
768 gfc_simplify_bessel_jn,gfc_simplify_bessel_y0,
769 gfc_simplify_bessel_y1,gfc_simplify_bessel_yn): Mark arguments
770 with ATTRIBUTE_UNUSED.
772 2008-05-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
774 * check.c (gfc_check_sizeof): Switch to ATTRIBUTE_UNUSED.
775 * simplify.c (gfc_simplify_lgamma): Likewise.
777 2008-05-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
779 * openmp.c (gfc_match_omp_eos): Use gfc_next_ascii_char and
781 * decl.c (gfc_match_kind_spec, gfc_match_type_spec,
782 gfc_match_implicit_none, match_implicit_range, gfc_match_implicit,
783 match_string_p, match_attr_spec, gfc_match_suffix,
784 match_procedure_decl, gfc_match_entry, gfc_match_subroutine):
786 * gfortran.h (gfc_char_t): New type.
787 (gfc_linebuf): Make line member a gfc_char_t.
788 (locus): Make nextc member a gfc_char_t.
789 (gfc_wide_is_printable, gfc_wide_is_digit, gfc_wide_fits_in_byte,
790 gfc_wide_tolower, gfc_wide_strlen, gfc_next_ascii_char,
791 gfc_peek_ascii_char, gfc_check_digit): New prototypes.
792 * error.c (print_wide_char): New function.
793 (show_locus): Use print_wide_char and gfc_wide_strlen.
794 * io.c (next_char): Use gfc_char_t type.
795 (match_io): Use gfc_peek_ascii_char and gfc_next_ascii_char.
796 * match.c (gfc_match_parens, gfc_match_eos,
797 gfc_match_small_literal_int, gfc_match_name, gfc_match_name_C,
798 gfc_match_intrinsic_op, gfc_match_char, gfc_match_return,
799 gfc_match_common): Likewise.
800 * match.h (gfc_match_special_char): Change prototype.
801 * parse.c (decode_specification_statement, decode_statement,
802 decode_omp_directive, next_free, next_fixed): Use
803 gfc_peek_ascii_char and gfc_next_ascii_char.
804 * primary.c (gfc_check_digit): Change name.
805 (match_digits, match_hollerith_constant, match_boz_constant,
806 match_real_constant, next_string_char, match_charkind_name,
807 match_string_constant, match_logical_constant_string,
808 match_complex_constant, match_actual_arg, match_varspec,
809 gfc_match_rvalue, match_variable): Use gfc_peek_ascii_char and
811 * scanner.c (gfc_wide_fits_in_byte, wide_is_ascii,
812 gfc_wide_is_printable, gfc_wide_tolower, gfc_wide_is_digit,
813 gfc_wide_is_digit, wide_atoi, gfc_wide_strlen, wide_strcpy,
814 wide_strchr, widechar_to_char, wide_strncmp, wide_strncasecmp,
815 gfc_next_ascii_char, gfc_peek_ascii_char):
817 (next_char, gfc_define_undef_line, skip_free_comments,
818 gfc_next_char_literal, gfc_next_char, gfc_peek_char,
819 gfc_error_recovery, load_line, preprocessor_line, include_line,
820 load_file, gfc_read_orig_filename): Use gfc_char_t for source
821 characters and the {gfc_,}wide_* functions to manipulate wide
824 2008-05-06 Tobias Burnus <burnus@net-b.de>
827 * intrinsic.c (add_functions): Call gfc_simplify_bessel_*.
828 * intrinsic.h: Add prototypes for gfc_simplify_bessel_*.
829 * simplify.c (gfc_simplify_bessel_j0,gfc_simplify_bessel_j1,
830 gfc_simplify_bessel_jn,gfc_simplify_bessel_y0,
831 gfc_simplify_bessel_y1,gfc_simplify_bessel_yn): New.
833 2008-05-03 Janus Weil <jaydub66@gmail.com>
835 * misc.c (gfc_clear_ts): Set interface to NULL.
837 2008-05-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
840 * gfortran.h: Add extra_comma pointer to gfc_dt structure. Add iokind to
841 gfc_expr value union. Add io_kind enum to here from io.c.
842 * io.c (gfc_free_dt): Free extra_comma.
843 (gfc_resolve_dt): If an extra comma was encountered and io_unit is type
844 BT_CHARACTER, resolve to format_expr and set default unit. Error if
845 io_kind is M_WRITE. (match_io): Match the extra comma and set new
846 pointer, extra_comma.
848 2008-05-01 Bud Davis <bdavis9659@sbcglobal.net>
851 * simplify.c (gfc_simplify_index): Check for direction argument
854 2008-05-01 Janus Weil <jaydub66@gmail.com>
856 * gfortran.h (struct gfc_symbol): Moving "interface" member to
857 gfc_typespec (plus fixing a small docu error).
858 * interface.c (gfc_procedure_use): Ditto.
859 * decl.c (match_procedure_decl): Ditto.
860 * resolve.c (resolve_specific_f0,
861 resolve_specific_f0, resolve_symbol): Ditto.
863 2008-04-30 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
865 * intrinsic.c (add_functions): Add SELECTED_CHAR_KIND intrinsic.
866 * intrinsic.h (gfc_check_selected_char_kind,
867 gfc_simplify_selected_char_kind): New prototypes.
868 * gfortran.h (gfc_isym_id): Add GFC_ISYM_SC_KIND.
869 * trans.h (gfor_fndecl_sc_kind): New function decl.
870 * trans-decl.c (gfor_fndecl_sc_kind): Build new decl.
871 * arith.c (gfc_compare_with_Cstring): New function.
872 * arith.h (gfc_compare_with_Cstring): New prototype.
873 * check.c (gfc_check_selected_char_kind): New function.
874 * primary.c (match_string_constant, match_kind_param): Mark
875 symbols used as literal constant kind param as referenced.
876 * trans-intrinsic.c (gfc_conv_intrinsic_sc_kind): New function.
877 (gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_sc_kind.
878 * intrinsic.texi (SELECTED_CHAR_KIND): Document new intrinsic.
879 * simplify.c (gfc_simplify_selected_char_kind): New function.
881 2008-04-28 Paul Thomas <pault@gcc.gnu.org>
884 * module.c (find_symbol): Do not return a result for a symbol
885 that has been renamed in another module.
887 2008-04-26 George Helffrich <george@gcc.gnu.org>
891 * trans-common.c (create_common): Add decl to function
892 chain (if inside one) to preserve identifier scope in debug output.
894 2008-04-25 Jan Hubicka <jh@suse.cz>
896 * trans-decl.c (trans_function_start): Update.
898 2008-04-25 Tobias Burnus <burnus@net-b.de>
899 Daniel Franke <franke.daniel@gmail.com>
902 * gfortranspec.c (lang_specific_driver): Deprecate
903 -M option; fix ICE when "-M" is last argument and
905 * options.c (gfc_handle_module_path_options):
906 Use -J instead of -M in error messages.
907 * invoke.texi: Mark -M as depecated.
909 2008-04-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
910 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
913 * trans-instrinsic.c (gfc_conv_intrinsic_minmaxloc): Correctly adjust
916 2008-04-23 Paolo Bonzini <bonzini@gnu.org>
918 * trans-expr.c (gfc_conv_structure): Don't set TREE_INVARIANT.
919 * trans-array.c (gfc_build_null_descriptor): Don't set TREE_INVARIANT.
920 (gfc_trans_array_constructor_value): Don't set TREE_INVARIANT.
921 (gfc_build_constant_array_constructor): Don't set TREE_INVARIANT.
922 (gfc_conv_array_initializer): Don't set TREE_INVARIANT.
923 * trans-common.c (get_init_field): Don't set TREE_INVARIANT.
924 (create_common): Don't set TREE_INVARIANT.
925 * trans-stmt.c (gfc_trans_character_select): Don't set TREE_INVARIANT.
926 * trans-decl.c (gfc_generate_function_code): Don't set TREE_INVARIANT.
928 2008-04-21 Steve Ellcey <sje@cup.hp.com>
930 * f95-lang.c (gfc_init_decl_processing): use ptr_mode instead of Pmode.
932 2008-04-21 Daniel Franke <franke.daniel@gmail.com>
935 * gfortranspec.c (lookup_option): Properly handle separated arguments
936 in -J option, print missing argument message when necessary.
938 2008-04-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
941 * scanner.c (skip_fixed_comments): Update continue_line when comment is
942 detected. (gfc_next_char_literal): Likewise.
944 2008-04-19 Paul Thomas <pault@gcc.gnu.org>
949 * trans_array.c (gfc_trans_array_constructor): Temporarily
950 realign loop, if loop->from is not zero, before creating
951 the temporary array and provide an offset.
954 * trans-decl.c (gfc_init_default_dt): Add gfc_ prefix to name
955 and allow for NULL body. Change all references from
956 init_default_dt to gfc_init_default_dt.
957 * trans.h : Add prototype for gfc_init_default_dt.
958 * trans-array.c (gfc_trans_deferred_vars): After nullification
959 call gfc_init_default_dt for derived types with allocatable
962 2008-04-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
965 * trans-common.c (create_common): Revert patch causing regression.
967 2008-04-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
970 * iresolve.c (gfc_resolve_eoshift): Check for NULL symtree in test for
971 optional argument attribute.
973 2008-04-16 Paul Thomas <pault@gcc.gnu.org>
976 * trans-intrinsic.c (gfc_conv_intrinsic_char): Even though KIND
977 is not used, the argument must be converted.
979 2008-04-16 Jakub Jelinek <jakub@redhat.com>
982 * f95-lang.c (gfc_init_builtin_functions): Make sure
983 BUILT_IN_SINCOS{,F,L} types aren't varargs.
985 2008-04-15 Paul Thomas <pault@gcc.gnu.org>
988 * expr.c (scalarize_intrinsic_call): Reorder identification of
989 array argument so that if one is not found a segfault does not
990 occur. Return FAILURE if all scalar arguments.
992 2008-04-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
993 Tobias Burnus <burnus@net-b.de>
996 * options.c (gfc_init_options): Set the default maximum continuation
997 lines to 255 for both free and fixed form source for warnings.
998 (gfc_handle_option): Set -std=f95 fixed form max continuations to 19 and
999 the -std=f95 free form max continuations to 39 for warnings.
1000 * scanner.c (gfc_next_char_literal): Adjust the current_line number only
1001 if it is less than the current locus.
1003 2008-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1005 PR fortran/25829 28655
1006 * io.c (io_tag): Add new tags for decimal, encoding, asynchronous,
1007 round, sign, and id. (match_open_element): Match new tags.
1008 (gfc_resolve_open): Resolve new tags. (gfc_match_open): Enable encoding
1009 for DEFAULT only. Update error messages. (match_dt_element): Fix match
1010 tag for asynchronous. Update error messages. (gfc_free_inquire): Free
1011 new expressions. (match_inquire_element): Match new tags.
1012 (gfc_match_inquire): Add constraint for ID and PENDING.
1013 (gfc_resolve_inquire): Resolve new tags.
1014 * trans-io.c (gfc_trans_inquire): Clean up whitespace and fix setting of
1015 mask for ID parameter.
1016 * ioparm.def: Fix order of parameters for pending, round, and sign.
1017 NOTE: These must line up with the definitions in libgfortran/io/io.h. or
1020 2008-04-06 Paul Thomas <pault@gcc.gnu.org>
1023 * expr.c (scalarize_intrinsic_call): Identify which argument is
1024 an array and use that as the template.
1025 (check_init_expr): Remove tests that first argument is an array
1026 in the call to scalarize_intrinsic_call.
1028 2008-04-06 Tobias Schlüter <tobi@gcc.gnu.org>
1031 * io.c (io_tag): Add field 'value'. Split 'spec' field in
1033 (match_etag, match_vtag, match_ltag): Split parsing in two steps
1034 to give better error messages.
1036 2008-04-06 Tobias Burnus <burnus@net-b.de>
1038 * io.c (check_io_constraints): Add constrains. ID= requires
1039 asynchronous= and asynchronous= must be init expression.
1041 2008-04-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1043 * f95-lang.c: Set LANG_HOOKS_NAME to "GNU Fortran".
1045 2008-04-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1047 * dump-parse-tree.c: Use fprintf, fputs and fputc instead of
1048 gfc_status and gfc_status_char. Remove gfc_ prefix of the gfc_show_*
1049 functions and make them static. Add new gfc_dump_parse_tree
1051 * gfortran.h (gfc_option_t): Rename verbose into dump_parse_tree.
1052 (gfc_status, gfc_status_char): Delete prototypes.
1053 * error.c (gfc_status, gfc_status_char): Remove functions.
1054 * scanner.c (gfc_new_file): Use printf instead of gfc_status.
1055 * options.c (gfc_init_options): Rename verbose into dump_parse_tree.
1056 (gfc_handle_module_path_options): Use gfc_fatal_error instead of
1057 gfc_status and exit.
1058 (gfc_handle_option): Rename verbose into dump_parse_tree.
1059 * parse.c (gfc_parse_file): Use gfc_dump_parse_tree.
1061 2008-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1062 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1064 PR fortran/25829 28655
1065 * dump-parse-tree.c (gfc_show_code_node): Show new I/O parameters.
1066 * gfortran.h (gfc_statement): Add ST_WAIT enumerator.
1067 (gfc_open): Add pointers for decimal, encoding, round, sign,
1068 asynchronous. (gfc_inquire): Add pointers for asynchronous, decimal,
1069 encoding, pending, round, sign, size, id.
1070 (gfc_wait): New typedef struct. (gfc_dt): Add pointers for id, pos,
1071 asynchronous, blank, decimal, delim, pad, round, sign.
1072 (gfc_exec_op): Add EXEC_WAIT enumerator. (gfc_code): Add pointer for
1073 wait. (gfc_free_wait), (gfc_resolve_wait): New function prototypes.
1074 * trans-stmt.h (gfc_trans_wait): New function prototype.
1075 * trans.c (gfc_trans_code): Add case for EXEC_WAIT.
1076 * io.c (io_tag): Add new tags for DECIMAL, ENCODING, ROUND, SIGN,
1077 ASYCHRONOUS, ID. (match_open_element): Add matchers for new tags.
1078 (gfc_free_open): Free new pointers. (gfc_resolve_open): Resolve new
1079 tags. (gfc_resolve_open): Remove comment around check for allowed
1080 values and ASYNCHRONOUS, update it. Likewise for DECIMAL, ENCODING,
1081 ROUND, and SIGN. (match_dt_element): Add matching for new tags.
1082 (gfc_free_wait): New function. (gfc_resolve_wait): New function.
1083 (match_wait_element): New function. (gfc_match_wait): New function.
1084 * resolve.c (gfc_resolve_blocks): Add case for EXEC_WAIT.
1085 (resolve_code): Add case for EXEC_WAIT.
1086 * st.c (gfc_free_statement): Add case for EXEC_WAIT.
1087 * trans-io.c (ioparam_type): Add IOPARM_ptype_wait. (gfc_st_parameter):
1088 Add "wait" entry. (iocall): Add IOCALL_WAIT enumerator.
1089 (gfc_build_io_library_fndecls): Add function declaration for st_wait.
1090 (gfc_trans_open): Add mask bits for new I/O tags.
1091 (gfc_trans_inquire): Add mask bits for new I/O tags.
1092 (gfc_trans_wait): New translation function.
1093 (build_dt): Add mask bits for new I/O tags.
1094 * match.c (gfc_match_if) Add matcher for "wait".
1095 * match.h (gfc_match_wait): Prototype for new function.
1096 * ioparm.def: Add new I/O parameter definitions.
1097 * parse.c (decode_statement): Add match for "wait" statement.
1098 (next_statement): Add case for ST_WAIT. (gfc_ascii_statement): Same.
1100 2008-04-03 Jakub Jelinek <jakub@redhat.com>
1103 * openmp.c (resolve_omp_clauses): Diagnose if a clause symbol
1106 2008-04-03 Tom Tromey <tromey@redhat.com>
1108 * Make-lang.in (fortran_OBJS): New variable.
1110 2008-04-03 Paolo Bonzini <bonzini@gnu.org>
1112 * f95-lang.c (insert_block): Kill.
1114 2008-04-01 George Helffrich <george@gcc.gnu.org>
1116 PR fortran/35154, fortran/23057
1117 * trans-common.c (create_common): Add decl to function
1118 chain to preserve identifier scope in debug output.
1120 2008-04-01 Joseph Myers <joseph@codesourcery.com>
1122 * gfortran.texi: Include gpl_v3.texi instead of gpl.texi
1123 * Make-lang.in (GFORTRAN_TEXI): Include gpl_v3.texi instead of
1126 2008-03-30 Paul Thomas <pault@gcc.gnu.org>
1129 * resolve.c (resolve_function, resolve_call): If the procedure
1130 is elemental do not look for noncopying intrinsics.
1132 2008-03-29 Paul Thomas <pault@gcc.gnu.org>
1135 * trans-array.c (gfc_array_init_size): Set 'size' zero if
1136 negative in one dimension.
1139 * trans-expr.c (gfc_trans_string_copy): Only assign a char
1140 directly if the lhs and rhs types are the same.
1142 2008-03-28 Daniel Franke <franke.daniel@gmail.com>
1143 Paul Richard Thomas <paul.richard.thomas@gmail.com>
1146 * primary.c (match_variable): Improved matching of function
1148 * resolve.c (resolve_allocate_deallocate): Removed checks if
1149 the actual argument for STAT is a variable.
1151 2008-03-28 Tobias Burnus <burnus@net-b.de>
1153 * symbol.c (gfc_get_default_type): Fix error message; option
1154 -fallow_leading_underscore should be -fallow-leading-underscore
1156 2008-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1159 * iresolve.c (gfc_resolve_cshift): Check for NULL symtree in test for
1160 optional argument attribute.
1162 2008-03-27 Tom Tromey <tromey@redhat.com>
1164 * Make-lang.in: Revert automatic dependency patch.
1166 2008-03-25 Tom Tromey <tromey@redhat.com>
1168 * Make-lang.in: Remove .o targets.
1169 (fortran_OBJS): New variable.
1170 (fortran/gfortranspec.o): Move to fortran/. Reduce to variable
1172 (GFORTRAN_D_OBJS): Update.
1173 (GFORTRAN_TRANS_DEPS): Remove.
1175 2008-03-24 Paul Thomas <pault@gcc.gnu.org>
1178 * resolve.c (resolve_structure_cons): It is an error to assign
1179 NULL to anything other than a pointer or allocatable component.
1182 * resolve.c (resolve_symbol): If the symbol is a derived type,
1183 resolve the derived type. If the symbol is a derived type
1184 function, ensure that the derived type is visible in the same
1185 namespace as the function.
1187 2008-03-23 Tobias Schlüter <tobi@gcc.gnu.org>
1189 * trans.h: Use fold_build in build1_v, build2_v and build3_v
1191 * trans-openmp.c (gfc_trans_omp_critical, gfc_trans_omp_single):
1192 Don't use build2_v macro.
1194 2008-03-19 Daniel Franke <franke.daniel@gmail.com>
1197 * interface.c (gfc_procedure_use): Check for keyworded arguments in
1198 procedures without explicit interfaces.
1200 2008-03-16 Paul Thomas <pault@gcc.gnu.org>
1203 * resolve.c (check_assumed_size_reference): Only visit the
1204 first reference and look directly at the highest dimension.
1206 2008-03-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1209 * trans-array.c (gfc_conv_array_index_offset): Remove unnecessary
1212 2008-03-15 Daniel Franke <franke.daniel@gmail.com>
1215 * resolve.c (resolve_branch): Less strict and pessimistic warning
1218 2008-03-11 Paolo Bonzini <bonzini@gnu.org>
1220 * f95-lang.c (LANG_HOOKS_CLEAR_BINDING_STACK): Delete.
1221 (gfc_be_parse_file): Call clear_binding_stack from here.
1222 (gfc_clear_binding_stack): Rename to clear_binding_stack.
1224 2008-03-09 Paul Thomas <pault@gcc.gnu.org>
1227 * module.c (mio_symtree_ref): After providing a symbol for a
1228 missing equivalence member, resolve and NULL the fixups.
1230 2008-03-09 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
1232 * invoke.texi (Error and Warning Options): Document
1235 2008-03-08 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1238 * trans-array.c (gfc_conv_ss_startstride): Fix the logic to avoid
1239 checking bounds of absent optional arguments.
1241 2008-03-06 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1244 * intrinsic.c (add_functions): Add simplification routines for
1245 ERF, DERF, ERFC and DERFC.
1246 * decl.c (gfc_match_suffix, gfc_match_subroutine): Change GNU
1247 extensions into Fortran 2008 features.
1248 * intrinsic.h (gfc_simplify_erf, gfc_simplify_erfc): New
1250 * simplify.c (gfc_simplify_erf, gfc_simplify_erfc): New functions.
1252 2008-03-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1255 * intrinsic.c (add_functions): Modify intrinsics ACOSH, ASINH,
1256 ATANH, ERF, ERFC and GAMMA. Add intrinsics BESSEL_{J,Y}{0,1,N},
1257 ERFC_SCALED, LOG_GAMMA and HYPOT.
1258 * intrinsic.h (gfc_check_hypot, gfc_simplify_hypot,
1259 gfc_resolve_hypot): New prototypes.
1260 * mathbuiltins.def: Add HYPOT builtin. Make complex versions of
1261 ACOSH, ASINH and ATANH available.
1262 * gfortran.h (GFC_ISYM_ERFC_SCALED, GFC_ISYM_HYPOT): New values.
1263 * lang.opt: Add -std=f2008 option.
1264 * libgfortran.h: Define GFC_STD_F2008.
1265 * lang-specs.h: Add .f08 and .F08 file suffixes.
1266 * iresolve.c (gfc_resolve_hypot): New function.
1267 * parse.c (parse_contained): Allow empty CONTAINS for Fortran 2008.
1268 * check.c (gfc_check_hypot): New function.
1269 * trans-intrinsic.c (gfc_intrinsic_map): Define ERFC_SCALE builtin.
1270 * options.c (set_default_std_flags): Allow Fortran 2008 by default.
1271 (form_from_filename): Add .f08 suffix.
1272 (gfc_handle_option): Handle -std=f2008 option.
1273 * simplify.c (gfc_simplify_hypot): New function.
1274 * gfortran.texi: Document Fortran 2008 status and file extensions.
1275 * intrinsic.texi: Document new BESSEL_{J,Y}{0,1,N} intrinsics,
1276 as well as HYPOT and ERFC_SCALED. Update documentation of ERF,
1277 ERFC, GAMMA, LGAMMA, ASINH, ACOSH and ATANH.
1278 * invoke.texi: Document the new -std=f2008 option.
1280 2008-03-02 Jakub Jelinek <jakub@redhat.com>
1282 * gfortranspec.c (lang_specific_driver): Update copyright notice
1285 2008-02-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1288 * expr.c (find_array_element): Modify traversing the constructor to
1289 avoid trying to access NULL memory pointed to by next for the
1290 last element. (find_array_section): Exit while loop if cons->next is
1292 * trans-expr.c (gfc_conv_scalar_char_value): Initialize gfc_typespec.
1293 (gfc_conv_function_call): Same.
1294 * decl.c (gfc_match_implicit): Same.
1295 * trans-intrinsic.c (gfc_conv_intrinsic_sr_kind): Same.
1297 2008-02-28 Daniel Franke <franke.daniel@gmail.com>
1302 * lang.opt: Added -Wreturn-type.
1303 * options.c (gfc_handle_option): Recognize -Wreturn-type.
1304 * trans-decl.c (gfc_trans_deferred_vars): Emit warnings for funtions
1305 where the result value is not set.
1306 (gfc_generate_function_code): Likewise.
1307 (generate_local_decl): Emit warnings for funtions whose RESULT
1308 variable is not set.
1310 2008-02-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1313 * trans-expr.c (gfc_conv_variable): Don't build indirect
1314 references when explicit interface is mandated.
1315 * resolve.c (resolve_formal_arglist): Set attr.always_explicit
1316 on the result symbol as well as the procedure symbol.
1318 2008-02-27 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1321 * trans.h: Remove prototypes for gfor_fndecl_math_exponent4,
1322 gfor_fndecl_math_exponent8, gfor_fndecl_math_exponent10 and
1323 gfor_fndecl_math_exponent16.
1324 * f95-lang.c (build_builtin_fntypes): Add new function types.
1325 (gfc_init_builtin_functions): Add new builtins for nextafter,
1326 frexp, ldexp, fabs, scalbn and inf.
1327 * iresolve.c (gfc_resolve_rrspacing): Don't add hidden arguments.
1328 (gfc_resolve_scale): Don't convert type of second argument.
1329 (gfc_resolve_set_exponent): Likewise.
1330 (gfc_resolve_size): Don't add hidden arguments.
1331 * trans-decl.c: Remove gfor_fndecl_math_exponent4,
1332 gfor_fndecl_math_exponent8, gfor_fndecl_math_exponent10 and
1333 gfor_fndecl_math_exponent16.
1334 * trans-intrinsic.c (gfc_intrinsic_map): Remove intrinsics
1335 for scalbn, fraction, nearest, rrspacing, set_exponent and
1337 (gfc_conv_intrinsic_exponent): Directly call frexp.
1338 (gfc_conv_intrinsic_fraction, gfc_conv_intrinsic_nearest,
1339 gfc_conv_intrinsic_spacing, gfc_conv_intrinsic_rrspacing,
1340 gfc_conv_intrinsic_scale, gfc_conv_intrinsic_set_exponent): New
1342 (gfc_conv_intrinsic_function): Use the new functions above.
1344 2008-02-26 Tobias Burnus <burnus@net-b.de>
1347 * interface.c (check_operator_interface): Show better line for error
1348 messages; fix constrains for user-defined assignment operators.
1349 (gfc_extend_assign): Fix constrains for user-defined assignment
1352 2008-02-26 Tom Tromey <tromey@redhat.com>
1354 * trans-io.c (set_error_locus): Remove old location code.
1355 * trans-decl.c (gfc_set_decl_location): Remove old location code.
1356 * f95-lang.c (gfc_init): Remove test of USE_MAPPED_LOCATION.
1357 * scanner.c (gfc_gobble_whitespace): Remove old location code.
1358 (get_file): Likewise.
1359 (preprocessor_line): Likewise.
1360 (load_file): Likewise.
1361 (gfc_new_file): Likewise.
1362 * trans.c (gfc_trans_runtime_check): Remove old location code.
1363 (gfc_get_backend_locus): Likewise.
1364 (gfc_set_backend_locus): Likewise.
1365 * data.c (gfc_assign_data_value): Remove old location code.
1366 * error.c (show_locus): Remove old location code.
1367 * gfortran.h (gfc_linebuf): Remove old location code.
1368 (gfc_linebuf_linenum): Remove old-location variant.
1370 2008-02-25 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1373 * trans-const.c (gfc_build_string_const): Don't call gettext.
1374 (gfc_build_localized_string_const): New function.
1375 * trans-const.h (gfc_build_localized_string_const): New prototype.
1376 * trans.c (gfc_trans_runtime_check): Use
1377 gfc_build_localized_string_const instead of gfc_build_string_const.
1378 (gfc_call_malloc): Likewise.
1379 (gfc_allocate_with_status): Likewise.
1380 (gfc_allocate_array_with_status): Likewise.
1381 (gfc_deallocate_with_status): Likewise.
1382 (gfc_call_realloc): Likewise.
1383 * trans-io.c (gfc_trans_io_runtime_check): Likewise.
1385 2008-02-24 Tobias Schlüter <tobi@gcc.gnu.org>
1387 * arith.c: Update copyright years.
1388 * arith.h: Likewise.
1389 * array.c: Likewise.
1391 * check.c: Likewise.
1395 * dependency.c: Likewise.
1396 * dependency.h: Likewise.
1397 * dump-parse-tree.c: Likewise.
1398 * error.c: Likewise.
1400 * gfc-internals.texi: Likewise.
1401 * gfortran.h: Likewise.
1402 * gfortran.texi: Likewise.
1403 * gfortranspec.c: Likewise.
1404 * interface.c: Likewise.
1405 * intrinsic.c: Likewise.
1406 * intrinsic.h: Likewise.
1407 * intrinsic.texi: Likewise.
1408 * invoke.texi: Likewise.
1410 * iresolve.c: Likewise.
1411 * iso-c-binding.def: Likewise.
1412 * iso-fortran-env.def: Likewise.
1413 * lang-specs.h: Likewise.
1414 * lang.opt: Likewise.
1415 * libgfortran.h: Likewise.
1416 * match.c: Likewise.
1417 * match.h: Likewise.
1418 * matchexp.c: Likewise.
1420 * module.c: Likewise.
1421 * openmp.c: Likewise.
1422 * options.c: Likewise.
1423 * parse.c: Likewise.
1424 * parse.h: Likewise.
1425 * primary.c: Likewise.
1426 * resolve.c: Likewise.
1427 * scanner.c: Likewise.
1428 * simplify.c: Likewise.
1430 * symbol.c: Likewise.
1431 * target-memory.c: Likewise.
1432 * target-memory.h: Likewise.
1433 * trans-array.h: Likewise.
1434 * trans-const.h: Likewise.
1435 * trans-stmt.h: Likewise.
1436 * trans-types.c: Likewise.
1437 * trans-types.h: Likewise.
1438 * types.def: Likewise.
1440 2008-02-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1443 * simplify.c (gfc_simplify_ibclr), (gfc_simplify_ibits),
1444 (gfc_simplify_ibset): Remove call to range_check.
1445 (simplify_cmplx), (gfc_simplify_dble), (gfc_simplify_float)
1446 (gfc_simplify_real): Add call gfc_clear_ts to initialize the
1447 temporary gfc_typspec variable.
1449 2008-02-24 Tobias Schlüter <tobi@gcc.gnu.org>
1451 * trans-array.c (gfc_conv_descriptor_data_get,
1452 gfc_conv_descriptor_data_set_internal,
1453 gfc_conv_descriptor_data_addr, gfc_conv_descriptor_offset,
1454 gfc_conv_descriptor_dtype, gfc_conv_descriptor_dimension,
1455 gfc_conv_descriptor_stride, gfc_conv_descriptor_lbound,
1456 gfc_conv_descriptor_ubound, gfc_trans_create_temp_array,
1457 gfc_conv_array_transpose, gfc_grow_array,
1458 gfc_trans_array_constructor_subarray,
1459 gfc_trans_array_constructor_value, gfc_trans_scalarized_loop_end,
1460 gfc_array_init_size, gfc_array_allocate, gfc_array_deallocate,
1461 gfc_conv_array_initializer, gfc_trans_array_bounds,
1462 gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias,
1463 gfc_get_dataptr_offset, gfc_conv_array_parameter,
1464 gfc_trans_dealloc_allocated, get_full_array_size,
1465 gfc_duplicate_allocatable, structure_alloc_comps): Use fold_buildN
1467 * trans-expr.c (gfc_conv_expr_present, gfc_conv_missing_dummy,
1468 gfc_conv_component_ref, gfc_conv_cst_int_power,
1469 gfc_conv_function_call, gfc_trans_structur_assign): Likewise.
1470 * trans-common.c (create_common): Likewise.
1471 * trans-openmp.c (gfc_trans_omp_atomic, gfc_trans_omp_do):
1473 * trans-const.c (gfc_conv_constant_to_tree): Likewise.
1474 * trans-stmt.c (gfc_trans_goto, gfc_trans_return, gfc_trans_do,
1475 gfc_trans_integer_select, gfc_trans_character_select,
1476 gfc_trans_forall_loop, compute_overall_iter_number,
1477 gfc_trans_forall_1, gfc_evaluate_where_mask, gfc_trans_allocate,
1478 gfc_trans_deallocate): Likewise.
1479 * trans.c (gfc_build_addr_expr, gfc_trans_runtime_check,
1480 gfc_allocate_with_status, gfc_allocate_array_with_status,
1481 gfc_deallocate_with_status): Likewise.
1482 * f95-lang.c (gfc_truthvalue_conversion): Likewise.
1483 * trans-io.c (set_parameter_const, set_parameter_value,
1484 set_parameter_ref, set_string, set_internal_unit, io_result,
1485 set_error_locus, nml_get_addr_expr, transfer_expr): Likewise.
1486 * trans-decl.c (gfc_build_qualified_array, build_entry_thunks,
1487 gfc_get_fake_result_decl, gfc_trans_auto_character_variable,
1488 gfc_generate_function_code): Likewise.
1489 * convert.c (convert): Likewise.
1490 * trans-intrinsic.c (gfc_conv_intrinsic_conversion,
1491 build_fixbound_expr, build_fix_expr, gfc_conv_intrinsic_aint,
1492 gfc_conv_intrinsic_int, gfc_conv_intrinsic_imagpart,
1493 gfc_conv_intrinsic_conjg, gfc_conv_intrinsic_abs,
1494 gfc_conv_intrinsic_cmplx, gfc_conv_intrinsic_mod,
1495 gfc_conv_intrinsic_dim, gfc_conv_intrinsic_dprod,
1496 gfc_conv_intrinsic_ctime, gfc_conv_intrinsic_fdate,
1497 gfc_conv_intrinsic_ttynam, gfc_conv_intrinsic_minmax,
1498 gfc_conv_intrinsic_minmax_char, gfc_conv_intrinsic_count,
1499 gfc_conv_intrinsic_arith, gfc_conv_intrinsic_dot_product,
1500 gfc_conv_intrinsic_minmaxloc, gfc_conv_intrinsic_minmaxval,
1501 gfc_conv_intrinsic_btest, gfc_conv_intrinsic_not,
1502 gfc_conv_intrinsic_ibits, gfc_conv_intrinsic_ishft,
1503 gfc_conv_intrinsic_ichar, gfc_conv_intrinsic_size,
1504 gfc_conv_intrinsic_array_transfer, gfc_conv_intrinsic_transfer,
1505 gfc_conv_allocated, gfc_conv_associated, gfc_conv_intrinsic_trim,
1506 gfc_conv_intrinsic_repeat): Likewise.
1508 2008-02-23 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1511 * trans-expr.c (gfc_conv_power_op): Use BUILT_IN_CPOW{F,,L}.
1512 * f95-lang.c (gfc_init_builtin_functions): Define BUILT_IN_CPOW{F,,L}.
1513 * trans.h (gfor_fndecl_math_cpow, gfor_fndecl_math_cpowf,
1514 gfor_fndecl_math_cpowl10, gfor_fndecl_math_cpowl16): Remove.
1515 * trans-decl.c: Likewise.
1517 2008-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1520 * expr.c (find_array_element): Modify traversing the constructor to
1521 avoid trying to access NULL memory pointed to by next for the
1522 last element. (find_array_section): Exit while loop if cons->next is
1525 2008-02-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1528 * iresolve.c (resolve_mask_arg): Add gfc_clear_ts to initialize
1530 (gfc_resolve_aint): Likewise.
1531 (gfc_resolve_anint): Likewise.
1532 (gfc_resolve_besn): Likewise.
1533 (gfc_resolve_cshift): Likewise.
1534 (gfc_resolve_ctime): Likewise.
1535 (gfc_resolve_eoshift): Likewise.
1536 (gfc_resolve_index_func): Likewise.
1537 (gfc_resolve_isatty): Likewise.
1538 (gfc_resolve_malloc): Likewise.
1539 (gfc_resolve_rrspacing): Likewise.
1540 (gfc_resolve_scale): Likewise.
1541 (gfc_resolve_set_exponent): Likewise.
1542 (gfc_resolve_spacing): Likewise.
1543 (gfc_resolve_spacing): Likewise.
1544 (gfc_resolve_fgetc): Likewise.
1545 (gfc_resolve_fputc): Likewise.
1546 (gfc_resolve_ftell): Likewise.
1547 (gfc_resolve_ttynam): Likewise.
1548 (gfc_resolve_alarm_sub): Likewise.
1549 (gfc_resolve_mvbits): Likewise.
1550 (gfc_resolve_getarg): Likewise.
1551 (gfc_resolve_signal_sub): Likewise.
1552 (gfc_resolve_exit): Likewise.
1553 (gfc_resolve_flush): Likewise.
1554 (gfc_resolve_free): Likewise.
1555 (gfc_resolve_ctime_sub): Likewise.
1556 (gfc_resolve_fgetc_sub): Likewise.
1557 (gfc_resolve_fputc_sub): Likewise.
1558 (gfc_resolve_fseek_sub): Likewise.
1559 (gfc_resolve_ftell_sub): Likewise.
1560 (gfc_resolve_ttynam_sub): Likewise.
1562 2008-02-22 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
1564 * gfc-internals.texi: Fix typos and markup nits.
1565 * gfortran.texi: Likewise.
1566 * intrinsic.texi: Likewise.
1568 2008-02-21 Richard Guenther <rguenther@suse.de>
1570 * trans-expr.c (gfc_conv_expr_op): Expand INTRINSIC_PARENTHESES
1571 as unary PAREN_EXPR for real and complex typed expressions.
1572 (gfc_conv_unary_op): Fold the built tree.
1574 2008-02-20 Tobias Burnus <burnus@net-b.de>
1577 * match.c (gfc_match_name): Improve error message for '$'.
1579 2008-02-19 Daniel Franke <franke.daniel@gmail.com>
1582 * expr.c (gfc_check_pointer_assign): Add type and kind information
1583 to type-mismatch message.
1584 (gfc_check_assign): Unify error messages.
1586 2008-02-16 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1589 * gfortran.texi: Create new section for unimplemented extensions.
1590 Add "STRUCTURE and RECORD" and "ENCODE and DECODE statements".
1591 Remove "smaller projects" list. Fix a few typos.
1593 2008-02-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1595 * intrinsic.texi: Rename INDEX node to avoid clashing with
1596 index.html on case-insensitive systems.
1598 2008-02-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1601 * trans-expr.c (gfc_conv_function_call): Force evaluation of
1604 2008-02-10 Daniel Franke <franke.daniel@gmail.com>
1607 * lang.opt: Allow '-J<dir>' next to '-J <dir>',
1608 likewise '-I <dir>' and '-I<dir>'.
1610 2008-02-06 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
1613 * Make-lang.in (f951): Add $(GMPLIBS).
1615 2008-02-05 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1618 * trans-common.c (build_field): Mark fields as volatile when needed.
1620 2008-02-05 Tobias Burnus <burnus@net-b.de>
1623 * data.c (gfc_assign_data_value): Only free "size" if
1624 it has not already been freed.
1626 2008-02-05 Paul Thomas <pault@gcc.gnu.org>
1629 * array.c (match_array_element_spec): Remove check for negative
1631 (gfc_resolve_array_spec): Add check for negative size.
1633 2008-02-05 Paul Thomas <pault@gcc.gnu.org>
1636 * data.c (gfc_assign_data_value): Add bounds check for array
1639 2008-02-04 Daniel Franke <franke.daniel@gmail.com>
1641 * resolve.c (resolve_where): Fix typo.
1642 (gfc_resolve_where_code_in_forall): Likewise.
1644 2008-02-03 Paul Thomas <pault@gcc.gnu.org>
1647 * resolve.c (resolve_allocate_deallocate): New function.
1648 (resolve_code): Call it for allocate and deallocate.
1649 * match.c (gfc_match_allocate, gfc_match_deallocate) : Remove
1650 the checking of the STAT tag and put in above new function.
1651 * primary,c (match_variable): Do not fix flavor of host
1652 associated symbols yet if the type is not known.
1654 2008-01-31 Paul Thomas <pault@gcc.gnu.org>
1657 * expr.c (gfc_check_assign): It is an error to assign
1658 to a sibling procedure.
1660 2008-01-30 Paul Thomas <pault@gcc.gnu.org>
1663 * symbol.c (gfc_delete_symtree, gfc_undo_symbols): Rename
1664 delete_symtree to gfc_delete_symtree.
1665 * gfortran.h : Add prototype for gfc_delete_symtree.
1666 * module.c (load_generic_interfaces): Transfer symbol to a
1667 unique symtree and delete old symtree, instead of renaming.
1668 (read_module): The rsym and the found symbol are the same, so
1669 the found symtree can be deleted.
1672 * decl.c (match_char_spec): Remove the constraint on deferred
1673 matching of functions and free the length expression.
1674 delete_symtree to gfc_delete_symtree.
1675 (gfc_match_type_spec): Whitespace.
1676 (gfc_match_function_decl): Defer characteristic association for
1677 all types except BT_UNKNOWN.
1678 * parse.c (decode_specification_statement): Only derived type
1679 function matching is delayed to the end of specification.
1681 2008-01-28 Tobias Burnus <burnus@net-b.de>
1684 * simplify.c (gfc_simplify_shape): Simplify rank zero arrays.
1686 2008-01-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1689 * array.c (gfc_check_constructor_type): Revert clearing the expression.
1691 2008-01-26 Tobias Burnus <burnus@net-b.de>
1694 * trans-expr.c (gfc_conv_function_call): Don't call
1695 gfc_add_interface_mapping if the expression is NULL.
1697 2008-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1700 * trans-array.c (gfc_trans_create_temp_array): Remove call to
1701 gcc_assert (integer_zerop (loop->from[n])).
1703 2008-01-25 Daniel Franke <franke.daniel@gmail.com>
1706 * resolve.c (resolve_where): Added check if user-defined assignment
1707 operator is an elemental subroutine.
1708 (gfc_resolve_where_code_in_forall): Likewise.
1710 2008-01-24 Daniel Franke <franke.daniel@gmail.com>
1714 * gfortran.h: Revert changes from 2008-01-17.
1715 * match.c: Likewise.
1716 * symbol.c: Likewise.
1717 (gfc_undo_symbols): Undo namespace changes related to common blocks.
1719 2008-01-24 Daniel Franke <franke.daniel@gmail.com>
1722 * data.c (formalize_structure_cons): Skip formalization on
1725 2008-01-24 Daniel Franke <franke.daniel@gmail.com>
1727 * gfortran.texi (OpenMP): Extended existing documentation.
1728 (contributors): Added major contributors of 2008 that were
1730 (proposed extensions): Removed implemented items.
1732 2008-01-24 Paul Thomas <pault@gcc.gnu.org>
1735 * parse.c (next_statement) : If ST_GET_FCN_CHARACTERISTICS is
1736 seen, check for a statement label and, if present, delete it
1737 and set the locus to the start of the statement.
1739 2008-01-22 Paul Thomas <pault@gcc.gnu.org>
1742 * trans-io.c (gfc_trans_transfer): If the array reference in a
1743 read has a vector subscript, use gfc_conv_subref_array_arg to
1744 copy back the temporary.
1746 2008-01-22 Tobias Burnus <burnus@net-b.de>
1749 * interface.c (compare_actual_formal): Fix adding type
1750 to missing_arg_type for absent optional arguments.
1752 2008-01-22 Tobias Burnus <burnus@net-b.de>
1755 * parse.c (parse_spec): Change = into ==.
1757 2008-01-22 Daniel Franke <franke.daniel@gmail.com>
1760 * expr.c (check_elemental): Fix check for valid data types.
1762 2008-01-22 Tobias Burnus <burnus@net-b.de>
1765 * scanner.c (load_line): Support <tab><digit> continuation lines.
1766 * invoke.texi (-Wtabs): Document this.
1768 2008-01-22 Paul Thomas <pault@gcc.gnu.org>
1771 * module.c (read_module): Set use_rename attribute.
1773 2007-01-21 Tobias Burnus <burnus@net-b.de>
1776 * interface.c (compare_parameter): Improved error message
1777 for arguments of same type and mismatched kinds.
1779 2008-01-20 Paul Thomas <pault@gcc.gnu.org>
1782 * resolve.c (resolve_entries): Do not do an array bounds check
1783 if the result symbols are the same.
1786 * module.c (read_module) : Hide the symtree of the previous
1787 version of the symbol if this symbol is renamed.
1789 2008-01-20 Paul Thomas <pault@gcc.gnu.org>
1792 * array.c (gfc_check_constructor_type): Clear the expression ts
1793 so that the checking starts from the deepest level of array
1795 * primary.c (match_varspec): If an unknown type is changed to
1796 default character and the attempt to match a substring fails,
1797 change it back to unknown.
1800 * trans-array.c (gfc_add_loop_ss_code) : If ss->string_length is
1801 NULL for an array constructor, use the cl.length expression to
1803 (gfc_conv_array_parameter): Change call to gfc_evaluate_now to
1806 2008-01-19 Thomas Koenig <tkoenig@gcc.gnu.org>
1810 * iresolve.c (gfc_resolve_all): Remove conversion of mask
1811 argument to kind=1 by removing call to resolve_mask_arg().
1812 (gfc_resolve_any): Likewise.
1814 2008-01-19 Tobias Burnus <burnus@net-b.de>
1817 * primary.c (match_variable): Handle FL_UNKNOWN without
1818 uneducated guessing.
1819 (match_variable): Improve error message.
1821 2008-01-18 Tobias Burnus <burnus@net-b.de>
1824 * interface.c (get_expr_storage_size): Return storage size
1825 for array element designators.
1826 (compare_actual_formal): Reject unequal string sizes for
1827 assumed-shape dummy arguments. And fix error message for
1828 array-sections with vector subscripts.
1830 2008-01-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1833 * simplify.c (is_constant_array_expr): New static function that returns
1834 true if the given expression is an array and is constant.
1835 (gfc_simplify_reshape): Use new function.
1837 2008-01-17 H.J. Lu <hongjiu.lu@intel.com>
1840 * symbol.c (free_common_tree): Renamed to ...
1841 (gfc_free_common_tree): This. Remove static.
1842 (gfc_free_namespace): Updated.
1844 * gfortran.h (gfc_free_common_tree): New.
1846 * match.c (gfc_match_common): Call gfc_free_common_tree () with
1847 gfc_current_ns->common_root and set gfc_current_ns->common_root
1848 to NULL on syntax error.
1850 2008-01-18 Richard Sandiford <rsandifo@nildram.co.uk>
1853 * trans-expr.c (gfc_conv_function_call): Use proper
1854 type for returned character pointers.
1856 2008-01-17 Paul Thomas <pault@gcc.gnu.org>
1861 * decl.c : Remove gfc_function_kind_locus and
1862 gfc_function_type_locus. Add gfc_matching_function.
1863 (match_char_length): If matching a function and the length
1864 does not match, return MATCH_YES and try again later.
1865 (gfc_match_kind_spec): The same.
1866 (match_char_kind): The same.
1867 (gfc_match_type_spec): The same for numeric and derived types.
1868 (match_prefix): Rename as gfc_match_prefix.
1869 (gfc_match_function_decl): Except for function valued character
1870 lengths, defer applying kind, type and charlen info until the
1871 end of specification block.
1872 gfortran.h (gfc_statement): Add ST_GET_FCN_CHARACTERISTICS.
1873 parse.c (decode_specification_statement): New function.
1874 (decode_statement): Call it when a function has kind = -1. Set
1875 and reset gfc_matching function, as function statement is being
1877 (match_deferred_characteristics): Simplify with a single call
1878 to gfc_match_prefix. Do appropriate error handling. In any
1879 case, make sure that kind = -1 is reset or corrected.
1880 (parse_spec): Call above on seeing ST_GET_FCN_CHARACTERISTICS.
1881 Throw an error if kind = -1 after last specification statement.
1882 parse.h : Prototype for gfc_match_prefix.
1884 2008-01-16 Tobias Burnus <burnus@net-b.de>
1887 * interface.c (compare_parameter): Allow AS_DEFERRED array
1888 elements and reject attr.pointer array elemenents.
1889 (get_expr_storage_size): Return storage size of elements of
1890 assumed-shape and pointer arrays.
1892 2008-01-15 Sebastian Pop <sebastian.pop@amd.com>
1894 * f95-lang.c (gfc_init_builtin_functions): Initialize GOMP builtins
1895 for flag_tree_parallelize_loops.
1897 2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
1900 * iresolve.c (gfc_resolve_all): Call resolve_mask_arg.
1901 (gfc_resolve_any): Likewise.
1902 (gfc_resolve_count): Likewise. Don't append kind of
1903 argument to function name.
1905 2008-01-13 Tobias Burnus <burnus@net-b.de>
1908 * resolve.c (resolve_actual_arglist): For expressions,
1909 also check for assume-sized arrays.
1910 * interface.c (compare_parameter): Move F2003 character checks
1911 here, print error messages here, reject elements of
1912 assumed-shape array as argument to dummy arrays.
1913 (compare_actual_formal): Update for the changes above.
1915 2008-01-13 Tobias Burnus <burnus@net-b.de>
1918 * decl.c (contained_procedure): Only check directly preceeding state.
1920 2008-01-13 Tobias Burnus <burnus@net-b.de>
1923 * check.c (gfc_check_shape): Accept array ranges of
1924 assumed-size arrays.
1926 2008-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1929 * match.c (gfc_match_name): Don't error if leading character is a '(',
1930 just return MATCH_NO.
1932 2008-01-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1935 * trans-io.c (create_dummy_iostat): Commit the symbol.
1937 2008-01-11 Paul Thomas <pault@gcc.gnu.org>
1940 * simplify.c (gfc_simplify_transfer): Return NULL if the size
1941 of the element is unavailable and only assign character length
1942 to the result, if 'mold' is constant.
1944 2008-01-10 Paul Thomas <pault@gcc.gnu.org>
1947 * trans-array.c (gfc_trans_array_ctor_element): Use gfc_trans_string_copy
1948 to assign strings and perform bounds checks on the string length.
1949 (get_array_ctor_strlen): Remove bounds checking.
1950 (gfc_trans_array_constructor): Initialize string length checking.
1951 * trans-array.h : Add prototype for gfc_trans_string_copy.
1953 2008-01-08 Richard Guenther <rguenther@suse.de>
1956 PR tree-optimization/34683
1957 * trans-types.c (gfc_get_array_type_bounds): Use an array type
1958 with known size for accesses if that is known.
1960 2008-01-08 Paul Thomas <pault@gcc.gnu.org>
1963 * expr.c (find_array_element): Check that the array bounds are
1964 constant before using them. Use lower, as well as upper bound.
1965 (check_restricted): Allow implied index variable.
1967 2008-01-08 Paul Thomas <pault@gcc.gnu.org>
1970 * trans_array.c (gfc_trans_deferred_array): Do not null the
1971 data pointer on entering scope, nor deallocate it on leaving
1972 scope, if the symbol has the 'save' attribute.
1975 * trans_decl.c (gfc_finish_var_decl): Derived types with
1976 allocatable components and an initializer must be TREE_STATIC.
1978 2008-01-07 Paul Thomas <pault@gcc.gnu.org>
1981 * module.c (write_generic): Rewrite completely.
1982 (write_module): Change call to write_generic.
1984 2008-01-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1987 * scanner.c (load_line): Do not count ' ' as printable when checking for
1990 2008-01-06 Paul Thomas <pault@gcc.gnu.org>
1993 * module.c (load_needed): If the namespace has no proc_name
1994 give it the module symbol.
1996 2008-01-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1999 * trans-expr.c (gfc_conv_missing_dummy): Use a temporary to type convert
2000 the dummy variable expression, test for NULL, and pass the variable
2001 address to the called function.
2003 2007-01-06 Tobias Burnus <burnus@net-b.de>
2006 * match.c (gfc_match_common): Remove blank common in
2008 * resolve.c (resolve_common_vars): New function.
2009 (resolve_common_blocks): Move checks to resolve_common_vars
2010 and invoke that function.
2011 (resolve_types): Call resolve_common_vars for blank commons.
2013 2008-01-06 Tobias Burnus <burnus@net-b.de>
2016 * resolve.c (resolve_equivalence_derived): Reject derived types with
2017 default initialization if equivalenced with COMMON variable.
2019 2008-01-06 Tobias Burnus <burnus@net-b.de>
2022 * io.c (check_io_constraints): Disallow unformatted I/O for
2025 2008-01-06 Tobias Burnus <burnus@net-b.de>
2028 * resolve.c (resolve_formal_arglist): Reject dummy procedure in
2029 ELEMENTAL functions.
2031 2008-01-06 Tobias Burnus <burnus@net-b.de>
2034 * interface.c (compare_actual_formal): Reject parameter
2035 actual to intent(out) dummy.
2037 2008-01-04 Tobias Burnus <burnus@net-b.de>
2040 * primary.c (match_varspec): Gobble whitespace before