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