]>
Commit | Line | Data |
---|---|---|
e88763d1 FXC |
1 | 2005-05-22 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
2 | ||
3 | * error.c (gfc_warning): Fix typo in comment. | |
4 | ||
8f4dc7af TK |
5 | 2005-05-18 Thomas Koenig <Thomas.Koenig@online.de> |
6 | ||
7 | PR libfortran/21127 | |
8 | * fortran/iresolve.c (gfc_resolve_reshape): Add | |
9 | gfc_type_letter (BT_COMPLEX) for complex to | |
10 | to resolved function name. | |
11 | ||
acc75ae3 EE |
12 | 2005-05-18 Erik Edelmann <erik.edelmann@iki.fi> |
13 | ||
14 | * array.c (gfc_match_array_constructor): Support [ ... ] | |
15 | style array constructors. | |
16 | ||
e743d142 TS |
17 | 2005-05-18 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
18 | ||
19 | * f95-lang.c (gfc_init_builtin_functions): Define BUILT_IN_TRUNC | |
20 | and BUILT_IN_TRUNCF instead of BUILT_IN_FLOOR and BUILT_IN_FLOORF. | |
21 | * trans-intrinsic.c (build_fix_expr): Change 'op' argument | |
22 | to correct enum type. | |
23 | (gfc_conv_intrinsic_aint): Likewise. Clarify comment in front of | |
24 | function. Add default case to switch, deal with FIX_TRUNC_EXPR | |
25 | instead of FIX_FLOOR_EXPR. | |
26 | ||
1e7d0a64 FW |
27 | 2005-05-18 Feng Wang <fengwang@nudt.edu.cn> |
28 | ||
29 | PR fortran/20954 | |
30 | * trans-const.c (gfc_conv_const_charlen): Use gfc_charlen_type_node to | |
31 | build character length. | |
32 | ||
b4838d29 ZD |
33 | 2005-05-17 Zdenek Dvorak <dvorakz@suse.cz> |
34 | ||
35 | * trans-types.c (gfc_array_range_type): New variable. | |
36 | (gfc_init_types): Initialize gfc_array_range_type. | |
37 | (gfc_get_array_type_bounds): Use gfc_array_range_type. | |
38 | ||
8de1f441 JJ |
39 | 2005-05-17 Jakub Jelinek <jakub@redhat.com> |
40 | ||
41 | PR fortran/15080 | |
42 | * trans-stmt.c (generate_loop_for_temp_to_lhs): Remove SIZE and COUNT2 | |
43 | arguments. If LSS is gfc_ss_terminator, increment COUNT1 by 1, instead | |
44 | of incrementing COUNT2 and using COUNT1+COUNT2 increment COUNT1 and use | |
45 | just that as index. | |
46 | (generate_loop_for_rhs_to_temp): Likewise. | |
47 | (compute_overall_iter_number): Add INNER_SIZE_BODY argument. | |
48 | It non-NULL, add it to body. | |
49 | (allocate_temp_for_forall_nest_1): New function, split from | |
50 | allocate_temp_for_forall_nest. | |
51 | (allocate_temp_for_forall_nest): Add INNER_SIZE_BODY argument, | |
52 | propagate it down to compute_overall_iter_number. Use | |
53 | allocate_temp_for_forall_nest_1. | |
54 | (gfc_trans_assign_need_temp): Remove COUNT2. Call | |
55 | compute_inner_temp_size into a new stmtblock_t. Adjust calls to | |
56 | allocate_temp_for_forall_nest, generate_loop_for_rhs_to_temp | |
57 | and generate_loop_for_temp_to_lhs. | |
58 | (gfc_trans_pointer_assign_need_temp): Adjust calls to | |
59 | allocate_temp_for_forall_nest. | |
60 | (gfc_evaluate_where_mask): Call compute_inner_temp_size into a new | |
61 | stmtblock_t. Call compute_overall_iter_number just once, then | |
62 | allocate_temp_for_forall_nest_1 twice with the same size. | |
63 | Initialize mask indexes if nested_forall_info != NULL. | |
64 | (gfc_trans_where_2): Initialize mask indexes before calling | |
65 | gfc_trans_nested_forall_loop. | |
66 | ||
b078dfbf FW |
67 | 2005-05-15 Feng Wang <fengwang@nudt.edu.cn> |
68 | Jerry DeLisle <jvdelisle@verizon.net> | |
69 | ||
70 | PR fortran/17432 | |
71 | * trans-stmt.c (gfc_trans_label_assign): fix pointer type, to | |
72 | resolve ICE on assign of format label. | |
73 | * trans-io.c (set_string): add fold-convert to properly | |
74 | handle assigned format label in write. | |
75 | ||
cafa34aa PB |
76 | 2005-05-13 Paul Brook <paul@codesourcery.com> |
77 | ||
78 | * trans-stmt.c (gfc_trans_forall_1): Fix comment typo. | |
79 | ||
4588b604 TS |
80 | 2005-05-12 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
81 | ||
82 | * trans-types.c (gfc_is_nodesc_array): Remove redundant check. | |
83 | ||
b160dd28 TS |
84 | 2005-05-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
85 | ||
86 | PR fortran/21260 | |
87 | * io.c (check_format): Look for literal characters inside | |
88 | hollerith constant. | |
89 | ||
09e7f686 TS |
90 | 2005-05-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
91 | ||
92 | * resolve.c (resolve_symbol): Copy 'pointer' and 'dimension' | |
93 | attribute from result symbol to function symbol. | |
3da7937d TS |
94 | * trans-expr.c (gfc_conv_function_call): Look at sym->attr.dimension |
95 | instead of sym->result->attr.dimension. | |
09e7f686 | 96 | |
973ff4c0 TS |
97 | 2005-05-10 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
98 | ||
99 | PR fortran/20178 | |
100 | * gfortran.h (gfc_option): Add flag_f2c. | |
101 | * invoke.texi: Document '-ff2c' command line option. Adapt | |
102 | documentation for '-fno-second-underscore' and '-fno-underscoring'. | |
103 | * lang.opt (ff2c): New entry. | |
104 | * options.c (gfc-init_options): Set default calling convention | |
105 | to -fno-f2c. Mark -fsecond-underscore unset. | |
106 | (gfc_post_options): Set -fsecond-underscore if not explicitly set | |
107 | by user. | |
108 | (handle_options): Set gfc_option.flag_f2c according to requested | |
109 | calling convention. | |
110 | * trans-decl.c (gfc_get_extern_function_decl): Use special f2c | |
111 | intrinsics where necessary. | |
112 | (gfc_trans_deferred_vars): Change todo error to assertion. | |
113 | * trans-expr.c (gfc_conv_variable): Dereference access | |
114 | to hidden result argument. | |
115 | (gfc_conv_function_call): Add hidden result argument to argument | |
116 | list if f2c calling conventions requested. Slightly restructure | |
117 | tests. Convert result of default REAL function to requested type | |
118 | if f2c calling conventions are used. Dereference COMPLEX result | |
119 | if f2c cc are used. | |
120 | * trans-types.c (gfc_sym_type): Return double for default REAL | |
121 | function if f2c cc are used. | |
122 | (gfc_return_by_reference): Slightly restructure logic. Return | |
123 | COMPLEX by reference depending on calling conventions. | |
124 | (gfc_get_function_type): Correctly make hidden result argument a | |
125 | pass-by-reference argument for COMPLEX. Remove old code which does | |
126 | this for derived types. | |
127 | ||
7f42f27f TS |
128 | 2005-05-09 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
129 | ||
130 | * match.c (gfc_match_return): Only require space after keyword when | |
131 | it is obligatory. Only give stdwarn to after matching is successful. | |
132 | * dump-parse-tree.c (gfc_show_symbol): Deal with alternate returns. | |
133 | ||
357877ed KH |
134 | 2005-05-08 Kazu Hirata <kazu@cs.umass.edu> |
135 | ||
136 | * intrinsic.texi: Fix typos. | |
137 | ||
a6334742 SK |
138 | 2005-05-07 Steven G. Kargl <kargls@comcast.net> |
139 | ||
140 | * intrinsic.texi: Document ASSOCIATED and ATAN2. Update Bessel function | |
141 | description to include information about scalar arguments. | |
142 | ||
aa990c83 KH |
143 | 2005-05-03 Kazu Hirata <kazu@cs.umass.edu> |
144 | ||
145 | * Make-lang.in, dump-parse-tree.c, invoke.texi, lang.opt, | |
146 | match.h, trans-array.h: Update copyright. | |
147 | ||
22e8617b TT |
148 | 2005-04-29 Tom Tromey <tromey@redhat.com> |
149 | ||
150 | * f95-lang.c (poplevel): Updated for change to build_block. | |
151 | ||
d198b59a JJ |
152 | 2005-04-29 Jakub Jelinek <jakub@redhat.com> |
153 | ||
154 | PR fortran/13082 | |
155 | PR fortran/18824 | |
156 | * trans-expr.c (gfc_conv_variable): Handle return values in functions | |
157 | with alternate entry points. | |
158 | * resolve.c (resolve_entries): Remove unnecessary string termination | |
159 | after snprintf. Set result of entry master. | |
160 | If all entries have the same type, set entry master's type | |
161 | to that common type, otherwise set mixed_entry_master attribute. | |
162 | * trans-types.c (gfc_get_mixed_entry_union): New function. | |
163 | (gfc_get_function_type): Use it for mixed_entry_master functions. | |
164 | * gfortran.h (symbol_attribute): Add mixed_entry_master bit. | |
165 | * decl.c (gfc_match_entry): Set entry->result properly for | |
166 | function ENTRY. | |
167 | * trans-decl.c (gfc_get_symbol_decl): For entry_master, skip over | |
168 | __entry argument. | |
169 | (build_entry_thunks): Handle return values in entry thunks. | |
170 | Clear BT_CHARACTER's ts.cl->backend_decl, so that it is not | |
171 | shared between multiple contexts. | |
172 | (gfc_get_fake_result_decl): Use DECL_ARGUMENTS from | |
173 | current_function_decl instead of sym->backend_decl. Skip over | |
174 | entry master's entry id argument. For mixed_entry_master entries or | |
175 | their results, return a COMPONENT_REF of the fake result. | |
176 | (gfc_trans_deferred_vars): Don't warn about missing return value if | |
177 | at least one entry point uses RESULT. | |
178 | (gfc_generate_function_code): For entry master returning | |
179 | CHARACTER, copy ts.cl->backend_decl to all entry result syms. | |
180 | * trans-array.c (gfc_trans_dummy_array_bias): Don't consider return | |
181 | values optional just because they are in entry master. | |
182 | ||
4c1f4f52 FXC |
183 | 2005-04-29 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
184 | ||
185 | * gfortran.h (gfc_namespace): Add seen_implicit_none field, | |
186 | Tobias forgot this in previous commit. | |
187 | ||
1a7bfcc3 PB |
188 | 2005-04-29 Paul Brook <paul@codesourcery.com> |
189 | ||
190 | * trans-expr.c (gfc_conv_expr_present): Fix broken assert. Update | |
191 | comment. | |
192 | ||
438e1428 TS |
193 | 2005-04-29 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
194 | ||
195 | * gfortran.h (gfc_namespace): Add seen_implicit_none field. | |
196 | * symbol.c (gfc_set_implicit_none): Give error if there's a previous | |
197 | IMPLICIT NONE, set seen_implicit_none. | |
198 | (gfc_merge_new_implicit): Error if there's an IMPLICIT NONE statement. | |
199 | ||
973a384d TS |
200 | 2005-04-28 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
201 | ||
202 | * gfortran.h (gfc_gsymbol): Make name a const char *. | |
203 | * symbol.c (gfc_get_gsymbol): Allocate gsymbol name via | |
204 | gfc_get_string. | |
205 | ||
781e1004 FXC |
206 | 2005-04-28 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
207 | ||
208 | PR fortran/20865 | |
209 | * resolve.c (resolve_actual_arglist): Issue an error if a statement | |
210 | functions is used as actual argument. | |
211 | ||
90aeadcb FXC |
212 | 2005-04-27 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
213 | ||
214 | PR fortran/21177 | |
215 | * interface.c (compare_parameter): Ignore type for EXPR_NULL | |
216 | only if type is BT_UNKNOWN. | |
217 | ||
860c8f3b PB |
218 | 2005-04-25 Paul Brook <paul@codesourcery.com> |
219 | Steven G. Kargl <kargls@comcast.net> | |
220 | ||
221 | PR fortran/20879 | |
222 | * check.c (gfc_check_ichar_iachar): New function. | |
223 | * instinsic.h (gfc_check_ichar_iachar): Add prototype. | |
224 | * intrinsic.c (add_functions): Use it. | |
225 | * primary.c (match_varspec, gfc_match_rvalue): Clear incorrect | |
226 | character expression lengths. | |
227 | ||
eb83e811 TS |
228 | 2005-04-24 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
229 | ||
230 | PR fortran/20059 | |
231 | * trans-common.c (translate_common): Cast offset and | |
232 | common_segment->offset to type int for warning message. | |
233 | ||
d4ee4d25 DD |
234 | 2005-04-23 DJ Delorie <dj@redhat.com> |
235 | ||
236 | * trans-decl.c: Adjust warning() callers. | |
237 | ||
855a145c TS |
238 | 2005-04-23 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
239 | ||
240 | * trans-const.c (gfc_conv_mpfr_to_tree): Use hexadecimal string as | |
beceb652 | 241 | intermediate representation. Fix typo in comment. |
855a145c | 242 | |
c41993e8 SK |
243 | 2005-04-21 Steven G. Kargl <kargls@comcast.net> |
244 | ||
245 | * trans-const.c (gfc_conv_mpfr_to_tree): Remove unneeded computation; | |
246 | simplify logic; Add a gcc_assert. | |
247 | ||
6c08eb63 SK |
248 | 2005-04-19 Steven G. Kargl <kargls@comcast.net> |
249 | ||
250 | * trans-const.c (gfc_conv_mpz_to_tree): Fix comment. | |
251 | ||
3010be13 AD |
252 | 2005-04-19 Arnaud Desitter <arnaud.desitter@ouce.ox.ac.uk> |
253 | Steven G. Kargl <kargls@comcast.net> | |
254 | ||
255 | * invoke.texi: Update -Waliasing description | |
256 | ||
009e94d4 FXC |
257 | 2005-04-19 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
258 | ||
259 | PR fortran/16861 | |
260 | * resolve.c (resolve_variable): If e->symtree is not set, this | |
261 | ought to be a FAILURE, and not a segfault. | |
262 | ||
29dc5138 PT |
263 | 2005-04-17 Paul Thomas <pault@gcc.gnu.org> |
264 | ||
265 | PR fortran/17472 | |
266 | PR fortran/18209 | |
267 | PR fortran/18396 | |
268 | PR fortran/19467 | |
269 | PR fortran/19657 | |
8a731165 TS |
270 | * fortran/trans-io.c (gfc_build_io_library_fndecls): Create |
271 | declaration for st_set_nml_var and st_set_nml_var_dim. Remove | |
272 | declarations of old namelist functions. | |
29dc5138 | 273 | (build_dt): Simplified call to transfer_namelist_element. |
8a731165 TS |
274 | (nml_get_addr_expr): Generates address expression for start of |
275 | object data. New function. | |
276 | (nml_full_name): Qualified name for derived type components. New | |
277 | function. | |
278 | (transfer_namelist_element): Modified for calls to new functions | |
279 | and improved derived type handling. | |
29dc5138 | 280 | |
a34938be RG |
281 | 2005-04-17 Richard Guenther <rguenth@gcc.gnu.org> |
282 | ||
283 | * scanner.c (gfc_next_char_literal): Reset truncation flag | |
284 | for lines ending in a comment for both fixed and free form. | |
285 | (load_line): Do not set truncated flag if only truncating | |
286 | the EOL marker. | |
287 | ||
ba1defa5 RG |
288 | 2005-04-15 Richard Guenther <rguenth@gcc.gnu.org> |
289 | ||
290 | PR fortran/14569 | |
291 | * gfortran.h (gfc_linebuf): Add truncated field. | |
292 | * parse.c (next_statement): Handle warning for truncated | |
293 | lines. | |
294 | * scanner.c (load_line): Return if line was truncated. | |
295 | No longer warn for truncated lines. Remove unused parameters. | |
296 | (load_file): Store load_line return value to linebuf. | |
297 | (gfc_error_recovery): Do not advance line at the end. | |
298 | ||
2d0aa65f SK |
299 | 2005-04-14 Steven G. Kargl <kargls@comcast.net> |
300 | ||
301 | * gfortran.h (gfc_real_info): Add subnormal struct member. | |
302 | * arith.c (gfc_arith_init_1): Set it. | |
303 | (gfc_check_real_range): Use it. | |
304 | * simplify.c (gfc_simplify_nearest): Fix nearest(0.,1.). | |
305 | ||
c33063e8 KH |
306 | 2005-04-12 Kazu Hirata <kazu@cs.umass.edu> |
307 | ||
308 | * simplify.c: Fix a comment typo. | |
309 | ||
0b026622 RS |
310 | 2005-04-11 Richard Sandiford <rsandifo@redhat.com> |
311 | ||
312 | * lang.opt: Refer to the GCC internals documentation instead of c.opt. | |
313 | ||
9f32d037 TS |
314 | 2005-04-11 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
315 | ||
316 | * simplify.c (gfc_simplify_nearest): Overhaul. | |
317 | ||
6892757c KH |
318 | 2005-04-10 Kazu Hirata <kazu@cs.umass.edu> |
319 | ||
320 | * interface.c: Fix a comment typo. | |
321 | ||
51c3f0f6 FXC |
322 | 2005-04-10 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
323 | ||
324 | * match.c (match_arithmetic_if): Arithmetic IF is obsolete in | |
325 | Fortran 95. | |
326 | ||
8e1fa5d6 SK |
327 | 2005-04-09 Steven G. Kargl <kargls@comcast.net> |
328 | ||
329 | * simplify.c (gfc_simplify_anint): Use mpfr_round() | |
330 | (gfc_simplify_dnint): ditto. | |
331 | (gfc_simplify_nint): ditto. | |
332 | ||
53d8a8ac AP |
333 | 2005-04-09 Andrew Pinski <pinskia@physics.uc.edu> |
334 | ||
335 | PR fortran/13257 | |
336 | * io.c (check_format): Allow an optional comma | |
337 | between descriptors. | |
338 | ||
835d64ab FXC |
339 | 2005-04-09 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
340 | ||
341 | * match.c (match_arithmetic_if): Remove gfc_ prefix and correct | |
342 | comment according to GNU coding style. | |
907d22fd FXC |
343 | (gfc_match_if): Remove gfc_ prefix in call to |
344 | match_arithmetic_if. | |
835d64ab | 345 | |
f55e72ce DN |
346 | 2005-04-08 Diego Novillo <dnovillo@redhat.com> |
347 | ||
348 | * match.c (gfc_match_arithmetic_if): Declare static. | |
349 | ||
43e1c5f7 FXC |
350 | 2005-04-08 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
351 | ||
352 | PR fortran/17229 | |
353 | * match.c (gfc_match_arithmetic_if): New function to match an | |
354 | arithmetic IF statement. | |
355 | (gfc_match_if): Use gfc_match_arithmetic_if to match an | |
356 | arithmetic IF statement embedded in a simple IF statement. | |
357 | ||
01ae8930 SK |
358 | 2005-04-07 Steven G. Kargl <kargls@comcast.net> |
359 | ||
360 | * simplify.c (gfc_simplify_exponent): Fix exponent(tiny(x)) | |
361 | ||
53ae8e14 SK |
362 | 2005-04-06 Steven G. Kargl <kargls@comcast.net> |
363 | ||
364 | * invoke.texi: Remove documentation of -std=f90 | |
365 | ||
ccccdb8d TS |
366 | 2005-04-06 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
367 | ||
368 | * expr.c (gfc_check_assign): Don't allow NULL as rhs in a | |
369 | non-pointer assignment. | |
370 | ||
bd024745 FW |
371 | 2005-04-05 Feng Wang <fengwang@nudt.edu.cn> |
372 | ||
373 | PR fortran/15959 | |
374 | PR fortran/20713 | |
375 | ||
376 | * array.c (resolve_character_array_constructor): New function. Set | |
377 | constant character array's character length. | |
378 | (gfc_resolve_array_constructor): Use it. | |
379 | * decl.c (add_init_expr_to_sym): Set symbol and initializer character | |
380 | length. | |
381 | (gfc_set_constant_character_len): New function. Set constant character | |
382 | expression according the given length. | |
383 | * match.h (gfc_set_constant_character_len): Add prototype. | |
384 | ||
c6db4d01 FXC |
385 | 2005-04-04 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
386 | ||
387 | * intrinsic.texi: BES?? functions are not in the f95 standard. | |
388 | ||
a5d58aeb FXC |
389 | 2005-04-03 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
390 | ||
391 | * intrinsic.texi: Document COS, EXP, LOG, LOG10, SIN, SQRT, TAN. | |
392 | ||
f7cdcbf1 FXC |
393 | 2005-04-03 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
394 | ||
395 | * intrinsic.texi: Document BESJ0, BESJ1, BESJN, BESY0, BESY1, | |
396 | BESYN, ATAN, COSH, ERF, ERC, SINH, TANH. | |
397 | ||
6230d276 SK |
398 | 2005-04-02 Steven G. Kargl <kargls@comcast.net> |
399 | ||
400 | * intrinsic.texi: Document ALLOCATED, ANINT, ANY, ASIN; fix typos | |
401 | ||
69de3b83 KH |
402 | 2005-04-01 Kazu Hirata <kazu@cs.umass.edu> |
403 | ||
404 | * decl.c, f95-lang.c, interface.c, module.c, trans-stmt.c, | |
405 | trans.h: Fix comment typos. | |
406 | ||
3ae9eb27 SK |
407 | 2005-03-29 Steven G. Kargl <kargls@comcast.net> |
408 | ||
409 | * gfortran.h (option_t): Change d8, i8, r8 to flag_default_double, | |
410 | flag_default_integer, flag_default_real | |
411 | * invoke.texi: Update documentation | |
412 | * lang.opt: Remove d8, i8, r8 definitions; Add fdefault-double-8 | |
413 | fdefault-integer-8, and fdefault-real-8 definitions. | |
414 | * options.c (gfc_init_options): Set option defaults | |
415 | (gfc_handle_option): Handle command line options. | |
416 | * trans-types.c (gfc_init_kinds): Use options. | |
417 | ||
8bb46326 DN |
418 | 2005-03-29 Keith Besaw <kbesaw@us.ibm.com> |
419 | ||
420 | * f95-lang.c (builtin_function): Process the attrs parameter | |
421 | and apply the "const" attribute to the builtin if found. | |
422 | ||
6b32f9fc SK |
423 | 2005-03-27 Steven G. Kargl <kargls@comcast.net> |
424 | ||
425 | * intrinsic.texi: Document AIMAG, AINT, ALL | |
426 | ||
4c54501b SK |
427 | 2005-03-26 Steven G. Kargl <kargls@comcast.net> |
428 | ||
429 | * arith.c (check_result): Fix illogical logic. | |
430 | ||
a3122424 CY |
431 | 2005-03-26 Canqun Yang <canqun@nudt.edu.cn> |
432 | ||
433 | * trans-common.c (create_common): Build RECORD_NODE for common blocks | |
434 | contain no equivalence objects. | |
435 | (add_equivalences): New argument saw_equiv. | |
436 | (trans_common): New local variable saw_equiv. | |
437 | (finish_equivalences): Add a local variable dummy, Always pass true | |
438 | for the 3rd parameter to create_common. | |
439 | ||
7b4047a0 SK |
440 | 2005-03-25 Steven G. Kargl <kargls@comcast.net> |
441 | ||
442 | * intrinsic.texi: Fix "make dvi" | |
443 | ||
444 | 2005-03-24 Steven G. Kargl <kargls@comcast.net> | |
8db2ba40 SK |
445 | |
446 | * intrinsic.texi: New file. | |
447 | * gfortran.texi: Include it; white space change; fix typo. | |
448 | ||
d101034c JM |
449 | 2005-03-23 Joseph S. Myers <joseph@codesourcery.com> |
450 | ||
451 | * f95-lang.c (LANG_HOOKS_TRUTHVALUE_CONVERSION): Remove. | |
452 | ||
10c7a96f SB |
453 | 2005-03-23 Steven Bosscher <stevenb@suse.de> |
454 | ||
455 | * convert.c (convert): Replace fold (buildN (...)) with fold_buildN. | |
456 | * trans-array.c (gfc_trans_allocate_array_storage, | |
457 | gfc_trans_allocate_temp_array gfc_trans_array_constructor_value, | |
458 | gfc_conv_array_index_ref, gfc_trans_array_bound_check, | |
459 | gfc_conv_array_index_offset, gfc_conv_scalarized_array_ref, | |
460 | gfc_conv_array_ref, gfc_trans_preloop_setup, gfc_conv_ss_startstride, | |
461 | gfc_conv_loop_setup, gfc_array_init_size, gfc_trans_array_bounds, | |
462 | gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias, | |
463 | gfc_conv_expr_descriptor): Likewise. | |
464 | * trans-expr.c (gfc_conv_powi, gfc_conv_string_tmp, | |
465 | gfc_conv_concat_op, gfc_conv_expr_op): Likewise. | |
466 | * trans-intrinsic.c (build_round_expr, gfc_conv_intrinsic_bound, | |
467 | gfc_conv_intrinsic_cmplx, gfc_conv_intrinsic_sign, | |
468 | gfc_conv_intrinsic_minmaxloc, gfc_conv_intrinsic_minmaxval, | |
469 | gfc_conv_intrinsic_btest, gfc_conv_intrinsic_bitop, | |
470 | gfc_conv_intrinsic_singlebitop, gfc_conv_intrinsic_ibits, | |
471 | gfc_conv_intrinsic_ishft, gfc_conv_intrinsic_ishftc, | |
472 | gfc_conv_intrinsic_merge, prepare_arg_info, | |
473 | gfc_conv_intrinsic_rrspacing, gfc_conv_intrinsic_repeat): Likewise. | |
474 | * trans-stmt.c (gfc_trans_simple_do, gfc_trans_do, gfc_trans_do_while, | |
475 | gfc_trans_forall_loop, gfc_do_allocate, generate_loop_for_temp_to_lhs, | |
476 | generate_loop_for_rhs_to_temp, compute_inner_temp_size, | |
477 | allocate_temp_for_forall_nest, gfc_trans_pointer_assign_need_temp, | |
478 | gfc_trans_forall_1, gfc_evaluate_where_mask, gfc_trans_where_assign): | |
479 | Likewise. | |
480 | * trans-types.c (gfc_get_dtype, gfc_get_array_type_bounds): Likewise. | |
481 | * trans.c (gfc_add_modify_expr): Likewise. | |
482 | ||
f77b6ca3 FXC |
483 | 2005-03-22 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
484 | ||
485 | * check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill, | |
486 | gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub, | |
487 | gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename, | |
488 | gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror, | |
489 | gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub, | |
490 | gfc_check_perror): new functions to check newly implemented | |
491 | g77 intrinsics. | |
492 | * gfortran.h: adding symbols for new intrinsics. | |
493 | * intrinsic.c (add_functions): adding new intrinsics. | |
494 | (add_subroutines): adding new intrinsics. | |
495 | * intrinsic.h: prototype for all checking and resolving | |
496 | functions. | |
497 | * iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub, | |
498 | gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill, | |
499 | gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk, | |
500 | gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub, | |
501 | gfc_resolve_kill_sub, gfc_resolve_link_sub, | |
502 | gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub, | |
503 | gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub, | |
504 | gfc_resolve_perror): new functions to resolve intrinsics. | |
505 | * trans-intrinsic.c (gfc_conv_intrinsic_function): add case | |
506 | for new symbols. | |
507 | ||
e76d0ec6 | 508 | 2005-03-19 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
9439ae41 TS |
509 | |
510 | * dump-parse-tree.c (gfc_show_expr): Dump name of namespace | |
511 | in which the variable is declared. | |
512 | ||
513 | PR fortran/18525 | |
514 | * resolve.c (was_declared): Also check for dummy attribute. | |
515 | ||
e76d0ec6 | 516 | 2005-03-19 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
0de27aac TS |
517 | |
518 | * gfortran.h (arith): Remove ARITH_0TO0. | |
519 | * arith.c (gfc_arith_error): Remove handling of ARITH_0TO0. | |
520 | (gfc_arith_power): Remove special casing of zero to integral | |
521 | power zero. | |
522 | ||
ffee7efd KG |
523 | 2005-03-18 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> |
524 | ||
525 | * Make-lang.in (fortran-warn): Remove -Wno-error. | |
526 | (expr.o-warn, resolve.o-warn, simplify.o-warn, | |
527 | trans-common.o-warn): Specify -Wno-error. | |
528 | ||
df7df328 TS |
529 | 2005-03-17 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
530 | ||
531 | * trans-array.c (gfc_trans_static_array_pointer, | |
532 | get_array_ctor_var_strlen, gfc_conv_array_index_offset): Fix | |
533 | comment and formatting typos. | |
534 | ||
d3ec5cb6 FXC |
535 | 2005-03-17 Francois-Xavier Coudert <coudert@clipper.ens.fr> |
536 | ||
537 | * invoke.texi: Fix typos. | |
538 | ||
a1286ef5 ZW |
539 | 2005-03-15 Zack Weinberg <zack@codesourcery.com> |
540 | ||
541 | * Make-lang.in (GFORTRAN_TEXI): Add gcc-vers.texi. | |
542 | ||
223c8158 FW |
543 | 2005-03-15 Feng Wang <fengwang@nudt.edu.cn> |
544 | ||
545 | * trans-stmt.c (gfc_trans_label_assign): Don't set DECL_ARTIFICIAL flag | |
546 | to zero on label_tree. | |
547 | ||
ce2df7c6 FW |
548 | 2005-03-15 Feng Wang <fengwang@nudt.edu.cn> |
549 | ||
550 | PR fortran/18827 | |
551 | * io.c (resolve_tag): Add checking on assigned label. | |
552 | (match_dt_format): Does not set symbol assign attribute. | |
553 | * match.c (gfc_match_goto):Does not set symbol assign attribute. | |
554 | * resolve.c (resolve_code): Add checking on assigned label. | |
555 | * trans-common.c (build_field): Deals with common variable assigned | |
556 | a label. | |
557 | * trans-stmt.c (gfc_conv_label_variable): New function. | |
558 | (gfc_trans_label_assign): Use it. | |
559 | (gfc_trans_goto): Ditto. | |
560 | * trans-io.c (set_string): Ditto. | |
561 | * trans.h (gfc_conv_label_variable): Add prototype. | |
562 | ||
2bb02bf0 TS |
563 | 2005-03-14 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
564 | ||
565 | PR fortran/20467 | |
566 | * symbol.c (check_conflict): A dummy argument can't be a statement | |
567 | function. | |
568 | ||
f1b19062 ZD |
569 | 2005-03-14 Zdenek Dvorak <dvorakz@suse.cz> |
570 | ||
571 | * fortran/trans-intrinsic.c (gfc_conv_intrinsic_ishft): Convert | |
572 | the argument of the shift to the unsigned type. | |
573 | ||
ee943062 TS |
574 | 2005-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
575 | ||
576 | PR fortran/16907 | |
577 | * resolve.c (gfc_resolve_index): Allow REAL indices as an extension. | |
578 | ||
8f9c06ca TS |
579 | 2005-03-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
580 | ||
581 | PR fortran/20323 | |
582 | * resolve.c (gfc_resolve): Check if character lengths are | |
583 | specification expressions. | |
584 | ||
bae88af6 TS |
585 | 2005-03-12 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
586 | ||
587 | PR fortran/20361 | |
588 | * trans-array.c (gfc_stack_space_left): Remove unused variable. | |
589 | (gfc_can_put_var_on_stack): Move to trans-decl.c, remove #if 0'ed | |
590 | code. | |
591 | * trans-array.h (gfc_stack_space_left, gfc_can_put_var_on_stack): | |
592 | Remove declaration / prototype. | |
593 | * trans-common.c (build_equiv_decl): Give union a name. Check if | |
594 | it can be put on the stack. | |
595 | * trans-decl.c (gfc_stack_space_left): Move function here. | |
596 | (gfc_build_qualified_array): Fix comment typo. | |
597 | * trans.h (gfc_put_var_on_stack): Add prototype. | |
598 | ||
5f42ddb0 KG |
599 | 2005-03-11 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> |
600 | ||
601 | * Make-lang.in (fortran-warn): Set to $(STRICT_WARN) -Wno-error. | |
602 | * decl.c, trans.c: Don't use C++ style comments. | |
603 | * gfortran.h (sym_flavor, procedure_type, sym_intent, gfc_access, | |
604 | ifsrc): Give names to enums and use ENUM_BITFIELD. | |
605 | (gfc_access): Remove trailing comma. | |
606 | ||
87ebdf2f SK |
607 | 2005-03-05 Steven G. Kargl <kargls@comcast.net> |
608 | ||
609 | PR 19936 | |
610 | * primary.c (match_complex_constant): Mangled complex constant may | |
611 | be an implied do-loop. Give implied do-loop matcher a chance. | |
612 | ||
a1286ef5 | 613 | 2005-03-05 Steven G. Kargl <kargls@comcast.net> |
2c5ed587 SK |
614 | |
615 | PR fortran/19754 | |
616 | * resolve.c (compare_shapes): New function. | |
617 | (resolve_operator): Use it. | |
618 | ||
19db01bb TS |
619 | 2005-03-05 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
620 | ||
621 | * trans-const.c (gfc_conv_constant_to_tree): Use correct tree | |
622 | type for COMPLEX constants. | |
623 | ||
3852e8b8 TS |
624 | 2005-03-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
625 | ||
626 | PR fortran/19673 | |
627 | * trans-expr.c (gfc_conv_function_call): Correctly dereference | |
628 | argument from a pointer function also if it has a result clause. | |
629 | ||
630 | 2005-03-04 Steven G. Kargl <kargls@comcast.net> | |
37e860a2 SK |
631 | |
632 | * expr.c (gfc_copy_shape_excluding): Change && to ||. | |
633 | ||
4b9b6210 TS |
634 | 2005-03-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
635 | ||
636 | * trans-intrinsic.c (gfc_get_symbol_for_expr): Fix comment typo, | |
637 | clarify comment. | |
638 | ||
2a4a7830 TS |
639 | 2005-02-28 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
640 | (port from g95) | |
641 | ||
642 | PR fortran/19479 | |
643 | * simplify.c (gfc_simplify_bound): Rename to ... | |
644 | (simplify_bound): ... this and overhaul. | |
645 | ||
d436d3de SK |
646 | 2005-02-28 Steven G. Kargl <kargl@gcc.gnu.org> |
647 | ||
648 | * trans-intrinsic.c (gfc_conv_intrinsic_iargc): remove boolean argument. | |
649 | (gfc_conv_intrinsic_function): update function calls | |
650 | ||
f4e7375a SK |
651 | 2005-02-27 Steven G. Kargl <kargl@gcc.gnu.org> |
652 | ||
653 | PR fortran/20058 | |
654 | * trans-types.c (gfc_max_integer_kind): Declare | |
655 | (gfc_init_kinds): Initialize it. | |
656 | * gfortran.h (gfc_max_integer_kind): extern it. | |
657 | * primary.c (match_boz_constant): Use it; remove gfortran extension | |
658 | of kind suffixes on BOZ literal constants | |
659 | ||
660 | ||
5a95dfde SK |
661 | 2005-02-27 Steven G. Kargl <kargls@comcast.net> |
662 | ||
663 | * arith.c (gfc_check_real_range): Remove multiple returns | |
664 | (check_result): New function. | |
665 | (gfc_arith_uminus,gfc_arith_plus,gfc_arith_times, | |
666 | gfc_arith_divide,gfc_arith_power,gfc_arith_minus): Use it. | |
667 | ||
668 | ||
2054fc29 VR |
669 | 2005-02-24 Volker Reichelt <reichelt@igpm.rwth-aachen.de> |
670 | ||
671 | * decl.c, resolve.c, trans-array.c, trans.h: Fix comment typo(s). | |
672 | ||
9c6a7ecc TS |
673 | |
674 | 2005-02-24 Tobias Schl"uter <tobias.schlueter@physik.uni-meunchen.de> | |
675 | ||
676 | Unrevert previously reverted patch. Adding this fix: | |
677 | * module.c (find_true_name): Deal with NULL module. | |
678 | ||
f5e9e99c TS |
679 | 2005-02-24 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
680 | ||
681 | Revert yesterday's patch: | |
682 | 2005-02-23 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> | |
683 | ||
684 | * gfortran.h (gfc_component, gfc_actual_arglist, ... | |
685 | ... argument. Copy string instead of pointing to it. | |
686 | ||
0366dfe9 TS |
687 | 2005-02-23 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
688 | ||
689 | * gfortran.h (gfc_get_namespace): Add second argument to prototype. | |
690 | * intrinsic.c (gfc_intrinsic_init_1): Pass second argument to | |
691 | gfc_get_namespace. | |
692 | * module.c (mio_namespace_ref, load_needed): Likewise. | |
693 | * parse.c (parse_interface, parse_contained): Likewise. Here the | |
694 | correct second argument matters. | |
695 | * symbol.c (gfc_get_namespace): Add parent_types argument, only copy | |
696 | parent's implicit types if this is set. | |
697 | (gfc_symbol_init_2): Pass second argument to gfc_get_namespace. | |
698 | * trans-common.c (build_common_decl): Likewise. | |
699 | ||
d1303acd TS |
700 | * gfortran.h (symbol_attribute): New 'untyped' field, fix comment |
701 | formatting. | |
702 | * symbol.c (gfc_set_default_type): Issue error only once, by setting | |
703 | and checking 'untyped' attribute. | |
704 | ||
58b03ab2 TS |
705 | * gfortran.h (gfc_expr): Move 'operator', 'op1', 'op2', and 'uop' |
706 | fields into new struct 'op' inside the 'value' union. | |
707 | * arith.c (eval_intrinsic): Adapt all users. | |
708 | * dependency.c (gfc_check_dependency): Likewise. | |
709 | * dump-parse-tree.c (gfc_show_expr): Likewise. | |
710 | * expr.c (gfc_get_expr): Don't clear removed fields. | |
711 | (free_expr0, gfc_copy_expr, gfc_type_convert_binary, | |
712 | gfc_is_constant_expr, simplify_intrinsic_op, check_init_expr, | |
713 | check_intrinsic_op): Adapt to new field names. | |
714 | * interface.c (gfc_extend_expr): Likewise. Also explicitly | |
715 | nullify 'esym' and 'isym' fields of new function call. | |
716 | * iresolve.c (gfc_resolve_dot_product, gfc_resolve_matmul): | |
717 | Adapt to renamed structure fields. | |
718 | * matchexp.c (build_node, match_level_1, match_expr): Likewise. | |
719 | * module.c (mio_expr): Likewise. | |
720 | * resolve.c (resolve_operator): Likewise. | |
721 | (gfc_find_forall_index): Likewise. Only look through operands | |
722 | if dealing with EXPR_OP | |
723 | * trans-array.c (gfc_walk_op_expr): Adapt to renamed fields. | |
724 | * trans-expr.c (gfc_conv_unary_op, gfc_conv_power_op, | |
725 | gfc_conv_concat_op, gfc_conv_expr_op): Likewise. | |
726 | ||
f5e9e99c | 727 | [ Reverted ] |
e9444bd5 TS |
728 | * gfortran.h (gfc_component, gfc_actual_arglist, gfc_user_op): Make |
729 | 'name' a 'const char *'. | |
730 | (gfc_symbol): Likewise, also for 'module'. | |
731 | (gfc_symtree): Make 'name' a 'const char *'. | |
732 | (gfc_intrinsic_sym): Likewise, also for 'lib_name'. | |
733 | (gfc_get_gsymbol, gfc_find_gsymbol): Add 'const' qualifier to | |
734 | 'char *' argument. | |
735 | (gfc_intrinsic_symbol): Use 'gfc_get_string' instead of 'strcpy' to | |
736 | initialize 'SYM->module'. | |
737 | * check.c (gfc_check_minloc_maxloc, check_reduction): Check for NULL | |
738 | pointer instead of empty string. | |
739 | * dump-parse-tree.c (gfc_show_actual_arglist): Likewise. | |
740 | * interface.c (gfc_compare_types): Adapt check to account for possible | |
741 | NULL pointer. | |
742 | (compare_actual_formal): Check for NULL pointer instead of empty | |
743 | string. | |
744 | * intrinsic.c (gfc_current_intrinsic, gfc_current_intrinsic_arg): | |
a1286ef5 | 745 | Add 'const' qualifier. |
e9444bd5 TS |
746 | (conv_name): Return a heap allocated string. |
747 | (find_conv): Add 'const' qualifier to 'target'. | |
748 | (add_sym): Use 'gfc_get_string' instead of 'strcpy'. | |
749 | (make_generic): Check for NULL pointer instead of empty string. | |
750 | (make_alias): Use 'gfc_get_string' instead of 'strcpy'. | |
751 | (add_conv): No need to strcpy result from 'conv_name'. | |
752 | (sort_actual): Check for NULL pointer instead of empty string. | |
753 | * intrinsic.h (gfc_current_intrinsic, gfc_current_intrinsic_arg): | |
754 | Adapt prototype. | |
755 | * module.c (compare_true_names): Compare pointers instead of strings | |
756 | for 'module' member. | |
757 | (find_true_name): Initialize string fields with gfc_get_string. | |
758 | (mio_pool_string): New function. | |
759 | (mio_internal_string): Adapt comment. | |
760 | (mio_component_ref, mio_component, mio_actual_arg): Use | |
761 | 'mio_pool_string' instead of 'mio_internal_string'. | |
762 | (mio_symbol_interface): Add 'const' qualifier to string arguments. | |
763 | Add level of indirection. Use 'mio_pool_string' instead of | |
764 | 'mio_internal_string'. | |
765 | (load_needed, read_module): Use 'gfc_get_string' instead of 'strcpy'. | |
766 | (write_common, write_symbol): Use 'mio_pool_string' instead of | |
767 | 'mio_internal_string'. | |
768 | (write_symbol0, write_symbol1): Likewise, also check for NULL pointer | |
769 | instead of empty string. | |
770 | (write_operator, write_generic): Pass correct type variable to | |
771 | 'mio_symbol_interface'. | |
772 | (write_symtree): Use 'mio_pool_string' instead of | |
773 | 'mio_internal_string'. | |
774 | * primary.c (match_keyword_arg): Adapt check to possible | |
775 | case of NULL pointer. Use 'gfc_get_string' instead of 'strcpy'. | |
776 | * symbol.c (gfc_add_component, gfc_new_symtree, delete_symtree, | |
777 | gfc_get_uop, gfc_new_symbol): Use 'gfc_get_string' instead of | |
778 | 'strcpy'. | |
779 | (ambiguous_symbol): Check for NULL pointer instead of empty string. | |
780 | (gfc_find_gsymbol, gfc_get_gsymbol): Add 'const' qualifier on string | |
781 | arguments. | |
782 | * trans-array.c (gfc_trans_auto_array_allocation): Check for NULL | |
783 | pointer instead of empty string. | |
784 | * trans-decl.c (gfc_sym_mangled_identifier, | |
785 | gfc_sym_mangled_function_id, gfc_finish_var_decl, gfc_get_symbol_decl, | |
786 | gfc_get_symbol_decl): Likewise. | |
787 | * trans-io.c (gfc_new_nml_name_expr): Add 'const' qualifier to | |
788 | argument. Copy string instead of pointing to it. | |
789 | ||
f439764f KH |
790 | 2005-02-23 Kazu Hirata <kazu@cs.umass.edu> |
791 | ||
792 | * intrinsic.h, st.c: Update copyright. | |
793 | ||
eebc3ee0 SK |
794 | 2005-02-20 Steven G. Kargl <kargls@comcast.net> |
795 | ||
796 | * symbol.c: Typos in comments. | |
797 | ||
687fcae7 SK |
798 | 2005-02-20 Steven G. Kargl <kargls@comcast.net> |
799 | ||
800 | * expr.c (gfc_type_convert_binary): Typo in comment. | |
801 | ||
145cf79b | 802 | 2005-02-19 Steven G. Kargl <kargls@comcast.net> |
a1286ef5 | 803 | |
145cf79b SK |
804 | * check.c (gfc_check_selected_int_kind): New function. |
805 | * intrinsic.h: Prototype it. | |
806 | * intrinsic.c (add_function): Use it. | |
807 | * simplify (gfc_simplify_ceiling,gfc_simplify_floor): Change | |
808 | BT_REAL to BT_INTEGER and use gfc_default_integer_kind. | |
809 | ||
c60d77d4 | 810 | 2005-02-19 Steven G. Kargl <kargls@comcast.net> |
a1286ef5 | 811 | |
c60d77d4 SK |
812 | * check.c (gfc_check_int): improve checking of optional kind |
813 | * simplify.c (gfc_simplify_int): Change BT_REAL to BT_INTEGER | |
814 | ||
332e7efe | 815 | 2005-02-19 Steven G. Kargl <kargls@comcast.net> |
a1286ef5 | 816 | |
332e7efe SK |
817 | * check.c (gfc_check_achar): New function |
818 | * intrinsic.h: Prototype it. | |
819 | * intrinsic.c (add_function): Use it. | |
820 | ||
1ac26262 TS |
821 | 2005-02-13 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
822 | ||
823 | * trans-stmt.c (generate_loop_for_temp_to_lhs, | |
824 | generate_loop_for_rhs_to_temp): Remove if whose condition is | |
825 | always true. | |
826 | ||
1e6283cb TS |
827 | 2005-02-12 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
828 | ||
829 | * symbol.c (gfc_use_ha_derived): Remove, fold functionality into ... | |
830 | (gfc_use_derived): ... this function. | |
831 | ||
c6a912da RH |
832 | 2005-02-09 Richard Henderson <rth@redhat.com> |
833 | ||
834 | * f95-lang.c (gfc_init_builtin_functions): Call | |
835 | build_common_builtin_nodes; do not define any functions handled | |
836 | by it. | |
837 | ||
eac33acc TS |
838 | 2005-02-08 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
839 | ||
840 | * expr.c (gfc_copy_expr): Don't copy 'op1' and 'op2' for | |
841 | EXPR_SUBSTRING. | |
842 | (gfc_is_constant_expr): Check 'ref' to determine if substring | |
843 | reference is constant. | |
844 | (gfc_simplify_expr): Simplify 'ref' instead of 'op1' and 'op2'. | |
845 | (check_init_expr, check_restricted): Check 'ref' instead of 'op1' | |
846 | and 'op2'. | |
847 | * module.c (mio_expr): Read / write 'ref' instead of 'op1' and 'op2'. | |
848 | ||
231b2fcc TS |
849 | 2005-02-07 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
850 | ||
851 | * gfortran.h (gfc_add_dimension, gfc_add_result, gfc_add_save, | |
852 | gfc_add_dummy, gfc_add_generic, gfc_add_in_common, gfc_add_data, | |
853 | gfc_add_in_namelist, gfc_add_sequence, gfc_add_function, | |
854 | gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry, | |
855 | gfc_add_procedure): Add argument. | |
856 | * array.c (gfc_set_array_spec), decl.c (var_element, get_proc_name, | |
857 | gfc_match_null, match_type_spec, match_attr_spec, | |
858 | gfc_match_formal_arglist, match_result, gfc_match_function_decl): | |
859 | Update callers to match. | |
860 | (gfc_match_entry) : Likewise, fix comment typo. | |
861 | (gfc_match_subroutine, attr_decl1, gfc_add_dimension, | |
862 | access_attr_decl, do_parm, gfc_match_save, gfc_match_modproc, | |
863 | gfc_match_derived_decl): Update callers. | |
864 | * interface.c (gfc_match_interface): Likewise. | |
865 | * match.c (gfc_match_label, gfc_add_flavor, | |
866 | gfc_match_call, gfc_match_common, gfc_match_block_data, | |
867 | gfc_match_namelist, gfc_match_module, gfc_match_st_function): | |
868 | Likewise. | |
869 | * parse.c (parse_derived, parse_interface, parse_contained), | |
870 | primary.c (gfc_match_rvalue, gfc_match_variable): Likewise. | |
871 | * resolve.c (resolve_formal_arglist, resolve_entries): Update callers. | |
872 | * symbol.c (check_conflict, check_used): Add new 'name' argument, | |
873 | use when printing error message. | |
874 | (gfc_add_dimension, gfc_add_result, gfc_add_save, gfc_add_dummy, | |
875 | gfc_add_generic, gfc_add_in_common, gfc_add_data, | |
876 | gfc_add_in_namelist, gfc_add_sequence, gfc_add_function, | |
877 | gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry, | |
878 | gfc_add_procedure): Add new 'name' argument. Pass along to | |
879 | check_conflict and check_used. | |
880 | (gfc_add_allocatable, gfc_add_external, gfc_add_intrinsic, | |
881 | gfc_add_optional, gfc_add_pointer, gfc_add_target, gfc_add_elemental, | |
882 | gfc_add_pure, gfc_add_recursive, gfc_add_intent, | |
883 | gfc_add_explicit_interface, gfc_copy_attr): Pass NULL for new | |
884 | argument in calls to any of the modified functions. | |
885 | ||
706bb773 JM |
886 | 2005-02-06 Joseph S. Myers <joseph@codesourcery.com> |
887 | ||
888 | * gfortran.texi: Don't give last update date. | |
889 | ||
61e067cc RH |
890 | 2006-01-30 Richard Henderson <rth@redhat.com> |
891 | ||
892 | * options.c (gfc_init_options): Zero flag_errno_math. | |
893 | ||
985aff9c PB |
894 | 2005-01-29 Paul Brook <paul@codesourcery.com> |
895 | ||
896 | PR fortran/18565 | |
897 | * check.c (real_or_complex_check): New function. | |
898 | (gfc_check_fn_c, gfc_check_fn_r, gfc_check_fn_rc): New functions. | |
899 | * intrinsic.c (add_functions): Use new check functions. | |
900 | * intrinsic.h (gfc_check_fn_c, gfc_check_fn_r, gfc_check_fn_rc): | |
901 | Add prototypes. | |
902 | ||
f240b896 SK |
903 | 2005-01-29 Steven G. Kargl <kargls@comcast.net> |
904 | ||
905 | PR fortran/19589 | |
906 | * expr.c (gfc_check_assign): Check for conformance of logical operands | |
907 | ||
c006df4e SB |
908 | 2004-01-27 Steven Bosscher <stevenb@suse.de> |
909 | ||
910 | * trans-decl.c (gfc_build_label_decl): Set DECL_ARTIFICAL and | |
911 | TREE_USED for all labels. | |
912 | (gfc_trans_entry_master_switch): Use it instead of building a | |
913 | label by hand. | |
914 | * trans-io.c (add_case): Likewise. | |
915 | * trans-stmt.c (gfc_trans_integer_select): Likewise. | |
916 | ||
69029c61 PB |
917 | 2004-01-23 Paul Brook <paul@codesourcery.com> |
918 | Steven G. Kargl <kargls@comcast.net> | |
919 | ||
920 | PR fortran/17941 | |
921 | * arith.c (gfc_convert_real): Remove sign handling. | |
922 | * primary.c (match_digits): Allow whitespace after initial sign. | |
923 | (match_real_const): Handle signs here. Allow whitespace after | |
924 | initial sign. Remove dead code. | |
925 | (match_const_complex_part): Remove. | |
926 | (match_complex_part): Use match_{real,integer}_const. | |
927 | (match_complex_constant): Cross-promote integer types. | |
928 | ||
58757957 JM |
929 | 2005-01-23 James A. Morrison <phython@gcc.gnu.org> |
930 | ||
931 | PR fortran/19294 | |
932 | * iresolve.c (gfc_resolve_transpose): Resolve to transpose_c4 or | |
933 | transpose_c8 for complex types. | |
934 | ||
e7dc5b4f KH |
935 | 2005-01-23 Kazu Hirata <kazu@cs.umass.edu> |
936 | ||
937 | * data.c, dependency.c, f95-lang.c, io.c, trans-array.c, | |
938 | trans-decl.c, trans-expr.c, trans-intrinsic.c, trans-io.c, | |
939 | trans-stmt.c, trans-types.c, trans.h: Fix comment typos. | |
940 | Follow spelling conventions. | |
941 | ||
dae24534 BD |
942 | 2005-01-22 Bud Davis <bdavis9659@comcast.net> |
943 | ||
944 | PR fortran/19313 | |
945 | * trans-io.c (gfc_trans_inquire): Added code to support | |
946 | pad. | |
947 | ||
19060788 SK |
948 | 2005-01-22 Steven G. Kargl <kargls@comcast.net> |
949 | ||
a1286ef5 | 950 | * intrinsic.c (make_alias): Add standard argument. |
19060788 SK |
951 | (add_functions): Update make_alias calls. |
952 | ||
1438a8c9 PB |
953 | 2005-01-22 Paul Brook <paul@codesourcery.com> |
954 | ||
955 | * trans-expr.c (gfc_conv_function_call): Remove bogus TODO. | |
956 | ||
af30f793 PB |
957 | 2005-01-22 Paul Brook <paul@codesourcery.com> |
958 | ||
959 | * gfortran.h (gfc_check_access): Add prototype. | |
960 | * match.c (gfc_match_namelist): Remove TODO. | |
961 | * module.c (check_access): Rename ... | |
962 | (gfc_check_access): ... to this. Boolify. Update callers. | |
963 | * resolve.c (resolve_symbol): Check for private objects in public | |
964 | namelists. | |
965 | ||
0dd973dd PB |
966 | 2005-01-22 Paul Brook <paul@codesourcery.com> |
967 | ||
968 | * primary.c (gfc_match_rvalue): Only apply implicit type if variable | |
969 | does not have an explicit type. | |
970 | (gfc_match_variable): Resolve implicit derived types in all cases. | |
971 | Resolve contained function types from their own namespace, not the | |
972 | parent. | |
973 | * resolve.c (resolve_contained_fntype): Remove duplicate sym->result | |
974 | checking. Resolve from the contained namespace, not the parent. | |
975 | ||
6ba692b4 TS |
976 | 2005-01-22 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
977 | ||
978 | PR fortran/19543 | |
979 | * trans-const.c (gfc_conv_constant_to_tree): Give logical | |
980 | constants the correct type. | |
981 | ||
b8d5e926 TS |
982 | PR fortran/19194 |
983 | * trans-io.c (ADD_STRING): Use gfc_charlen_type_node for string | |
984 | length parameters. | |
985 | (gfc_build_io_library_fndecls): 'rec' and 'recl_in' are not | |
986 | pointer fields. | |
987 | ||
ec378180 KH |
988 | 2005-01-18 Kazu Hirata <kazu@cs.umass.edu> |
989 | ||
990 | * arith.c, array.c, check.c, decl.c, expr.c, f95-lang.c, | |
991 | gfortran.h, interface.c, intrinsic.c, io.c, iresolve.c, | |
992 | match.c, matchexp.c, misc.c, module.c, options.c, parse.c, | |
993 | scanner.c, simplify.c, symbol.c, trans-array.c, trans-expr.c, | |
994 | trans-io.c, trans-stmt.c, trans.c: Update copyright. | |
995 | ||
33d4098d SB |
996 | 2005-01-17 Ira Rosen <irar@il.ibm.com> |
997 | ||
998 | * f95-lang.c (gfc_init_builtin_functions): Call targetm.init_builtins. | |
999 | ||
dfbb4318 TS |
1000 | 2005-01-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1001 | ||
1002 | PR fortran/19182 | |
1003 | * error.c (error_char): Line-buffer errors / warnings. | |
1004 | ||
de46b505 TS |
1005 | 2005-01-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1006 | ||
1007 | * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Fix signed / | |
1008 | unsigned issue. Use build_int_cst instead of converting | |
1009 | integer_zero_node. Remove unnecessary conversion. | |
1010 | ||
5e3b8727 TS |
1011 | * trans-types.c (gfc_get_character_type_len): : Use |
1012 | gfc_charlen_type_node as basic type for the range field. | |
1013 | ||
e805a599 TS |
1014 | * trans-intrinsic.c (build_fixbound_expr, |
1015 | gfc_conv_intrinsic_bound, gfc_conv_intrinsic_anyall, | |
1016 | gfc_conv_intrinsic_count, gfc_conv_intrinsic_btest, | |
1017 | gfc_conv_intrinsic_singlebitop): Use 'build_int_cst' instead | |
1018 | of converting 'integer_zero_node' or 'integer_one_node' | |
1019 | respectively. | |
1020 | (gfc_conv_intrinsic_ishftc): Same, but store in local variable to | |
1021 | evade re-building. | |
1022 | (gfc_conv_intrinsic_strcmp, gfc_conv_intrinsic_rrspacing, | |
1023 | gfc_conv_intrinsic_trim, gfc_conv_intrinsic_iargc): Use | |
1024 | 'build_int_cst' instead of converting 'integer_zero_node' or | |
1025 | 'integer_one_node' respectively. | |
0da87370 TS |
1026 | |
1027 | * trans-intrinsic.c (gfc_conv_intrinsic_index, | |
1028 | gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify): Remove | |
1029 | 'gfc'-prefix from local variable, remove dead code, use correct | |
1030 | type when inserting argument. | |
1031 | ||
ef1b6bcd TS |
1032 | * trans-intrinsic.c, trans-types.c: Update copyright years. |
1033 | ||
5352b89f SK |
1034 | 2005-01-16 Steven G. Kargl <kargls@comcast.net> |
1035 | ||
1036 | PR 19168 | |
1037 | * resolve.c (check_case_overlap): Typo in comment. | |
1038 | (validate_case_label_expr): Fix up kinds of case values | |
1039 | (resolve_select): Properly handle kind mismatches. | |
1040 | ||
36c028f6 PB |
1041 | 2004-01-16 Paul Brook <paul@codesourcery.com> |
1042 | ||
1043 | PR fortran/17675 | |
1044 | * trans-common.c (translate_common): Remove duplicate function call. | |
1045 | (finish_equivalences): Preserve alignment when biasing offsets. | |
1046 | ||
da8309c6 TS |
1047 | 2005-01-15 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de |
1048 | ||
1049 | * primary.c (check_digit): Call 'ISXDIGIT' instead of assuming | |
1050 | ASCII-like character encoding. | |
1051 | ||
c224550f SK |
1052 | 2005-01-14 Steven G. Kargl <kargls@comcast.net> |
1053 | ||
1054 | * resolve.c (compare_case): Cleanup. | |
1055 | ||
6e06dac5 SK |
1056 | 2005-01-14 Steven G. Kargl <kargls@comcast.net> |
1057 | ||
1058 | * resolve.c (compare_case): Give arguments correct type. | |
1059 | ||
43a5ef69 KH |
1060 | 2005-01-13 Kazu Hirata <kazu@cs.umass.edu> |
1061 | ||
1062 | * iresolve.c, trans-common.c, trans-types.c: Fix comment | |
1063 | typos. | |
1064 | ||
832ef1ce PB |
1065 | 2005-01-09 Paul Brook <paul@codesourcery.com> |
1066 | ||
1067 | PR fortran/17675 | |
1068 | * trans-common.c (current_common, current_offset): Remove. | |
1069 | (create_common): Add head argument. | |
1070 | (align_segment): New function. | |
1071 | (apply_segment_offset): New function. | |
1072 | (translate_common): Merge code from new_segment. Handle alignment. | |
1073 | (new_segment): Remove. | |
1074 | (finish_equivalences): Ensure proper alignment. | |
1075 | ||
92574caf TS |
1076 | 2005-01-08 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
1077 | ||
1078 | * trans-const.c: Don't include unused math.h. | |
1079 | ||
b36cd00b TS |
1080 | * trans-intrinsic.c (gfc_get_intrinsic_lib_fndecl, |
1081 | gfc_conv_intrinsic_bound, gfc_conv_intrinsic_minmaxloc, | |
1082 | gfc_conv_intrinsic_ishft, gfc_conv_intrinsic_len): Remove | |
1083 | trailing whitespace. | |
1084 | (prepare_arg_info): Fix formatting, indenting and remove trailing | |
1085 | whitespace. | |
1086 | (gfc_conv_intrinsic_spacing, gfc_conv_intrinsic_trim): Remove | |
27dfc9c4 TS |
1087 | trailing whitespace. |
1088 | ||
1089 | * arith.c (arctangent2, gfc_arith_init_1, gfc_arith_done_1, | |
1090 | gfc_constant_result, gfc_range_check, gfc_arith_power, | |
1091 | eval_type_intrinsic0, eval_intrinsic_f2, gfc_real2real, | |
1092 | gfc_real2complex, gfc_complex2int, gfc_complex2real, | |
1093 | gfc_complex2complex): Fix whitespace issues. | |
e6edaeb2 | 1094 | * check.c (must_be, type_check, numeric_check, int_or_real_check, |
27dfc9c4 TS |
1095 | logical_array_check, array_check, scalar_check, nonoptional_check, |
1096 | variable_check, dim_check, check_a_kind, gfc_check_a_ikind, | |
1097 | gfc_check_a_xkind, gfc_check_abs, gfc_check_all_any, | |
1098 | gfc_check_allocated, gfc_check_a_p, gfc_check_besn, | |
1099 | gfc_check_btest, gfc_check_char, gfc_check_cmplx, gfc_check_count, | |
1100 | gfc_check_cshift, gfc_check_dcmplx, gfc_check_dble, | |
1101 | gfc_check_digits, gfc_check_dot_product, gfc_check_eoshift, | |
1102 | gfc_check_fnum, gfc_check_g77_math1, gfc_check_huge, gfc_check_i, | |
1103 | gfc_check_iand, gfc_check_ibclr, gfc_check_ibits, gfc_check_ibset, | |
1104 | gfc_check_idnint, gfc_check_ieor, gfc_check_index, gfc_check_int, | |
1105 | gfc_check_ior, gfc_check_ishft, gfc_check_ishftc, gfc_check_kind, | |
1106 | gfc_check_lbound, gfc_check_logical, min_max_args, | |
1107 | gfc_check_min_max_integer, gfc_check_min_max_real, | |
1108 | gfc_check_min_max_double, gfc_check_matmul, | |
1109 | gfc_check_minval_maxval, gfc_check_merge, gfc_check_nearest, | |
1110 | gfc_check_pack, gfc_check_precision, gfc_check_radix, | |
1111 | gfc_check_range, gfc_check_real, gfc_check_repeat, | |
1112 | gfc_check_scale, gfc_check_scan, gfc_check_selected_real_kind, | |
1113 | gfc_check_set_exponent): Fix formatting issues. | |
1114 | (gfc_check_size, gfc_check_sign): Alphabetize function order, | |
1115 | remove whitespace-only line. | |
1116 | (gfc_check_fstat, gfc_check_fstat_sub, gfc_check_stat, | |
1117 | gfc_check_stat_sub, gfc_check_transfer, gfc_check_transpose, | |
1118 | gfc_check_ubound, gfc_check_unpack, gfc_check_verify, gfc_check_x, | |
1119 | gfc_check_cpu_time, gfc_check_date_and_time, gfc_check_mvbits, | |
1120 | gfc_check_random_number, gfc_check_random_seed, | |
1121 | gfc_check_second_sub, gfc_check_system_clock, | |
1122 | gfc_check_getcwd_sub, gfc_check_exit, gfc_check_flush, | |
1123 | gfc_check_umask, gfc_check_umask_sub, gfc_check_unlink, | |
1124 | gfc_check_unlink_sub): Fix formatting issues. | |
a1286ef5 | 1125 | |
779fae71 TS |
1126 | 2005-01-08 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> |
1127 | ||
1128 | * gfortran.h: Remove outdated comment. Don't include stdio.h | |
1129 | explicitly. | |
1130 | ||
12d3e34b TS |
1131 | 2005-01-06 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1132 | ||
1133 | * gfortranspec.c (lang_specific_driver): Change year to 2005 in | |
1134 | output of 'gfortran --version'. | |
1135 | ||
d22e4895 SK |
1136 | 2005-01-03 Steven G. Kargl <kargls@comcast.net> |
1137 | ||
1138 | * arith.c: Add system.h; remove string.h | |
1139 | * decl.c: Ditto | |
1140 | * matchexp.c: Ditto | |
1141 | * parse.c: Ditto | |
1142 | * resolve.c: Ditto | |
1143 | * st.c: Ditto | |
1144 | * check.c: Remove stdlib.h and stdarg.h | |
1145 | * error.c: Remove stdlib.h, stdarg.h, stdio.h, string.h | |
1146 | * expr.c: Add system.h; remove stdarg.h, stdio.h, and string.h | |
1147 | * f95-lang.c: Add system.h; remove stdio.h | |
1148 | * interface.c: Add system.h; remove stdlib.h and string.h | |
1149 | * intrinsic.c: Remove stdarg.h, stdio.h, and string.h | |
1150 | * io.c: Remove string.h | |
1151 | * simplify.c: Ditto | |
1152 | * match.c: Remove stdarg.h and string.h | |
1153 | * misc.c: Update copyright; add system.h; remove stdlib.h, | |
1154 | string.h, and sys/stat.h | |
1155 | * module.c: Add system.h; remove string.h, stdio.h, errno.h, | |
1156 | unistd.h, and time.h | |
1157 | * option.c: Remove string.h and stdlib.h | |
1158 | * primary.c: Ditto | |
1159 | * scanner.c: Update copyright; add system.h; remove stdlib.h, | |
1160 | stdio.h, string.h, and strings.h | |
1161 | * symbol.c: Add system.h; remove stdlib.h, stdio.h, and string.h | |
1162 | * trans-array.c: Remove stdio.h and gmp.h | |
1163 | * trans-const.c: Ditto | |
1164 | * trans-expr.c: Ditto | |
1165 | * trans-io.c: Ditto | |
1166 | * trans-stmt.c: Ditto | |
1167 | * trans.c: Ditto | |
1168 | * trans-intrinsic.c: Remove stdio.h and string.h | |
1169 | ||
410d1a45 SK |
1170 | 2004-12-29 Steven G. Kargl <kargls@comcast.net> |
1171 | ||
1172 | * gfortran.h (gfc_case): fix typo in comment. | |
1173 | ||
a1286ef5 | 1174 | 2004-12-27 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
56746a07 TS |
1175 | |
1176 | * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Change to | |
1177 | logical shift. Call fold. Remove 0-bit shift shortcut. | |
1178 | (gfc_conv_intrinsic_ishftc): Convert first argument to at least | |
1179 | 4 bytes bits. Convert 2nd and 3rd argument to 4 bytes. Convert | |
1180 | result if width(arg 1) < 4 bytes. Call fold. | |
1181 | ||
e98a8b5b TS |
1182 | PR fortran/19032 |
1183 | * trans-intrinsic.c (gfc_conv_intrinsic_mod): Update comment | |
1184 | in front of function to match the standard. Correct handling | |
1185 | of MODULO. | |
1186 | ||
1187 | 2004-12-27 Andrew Pinski <pinskia@physics.uc.edu> | |
1188 | ||
1189 | * trans-expr.c (gfc_conv_cst_int_power): Only check for | |
1190 | flag_unsafe_math_optimizations if we have a float type. | |
1191 | ||
f300468a SK |
1192 | 2004-12-23 Steven G. Kargl <kargls@comcast.net> |
1193 | ||
1194 | * gfortran.texi: Fix typo. | |
1195 | ||
4fdb5c71 TS |
1196 | 2004-12-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1197 | ||
1198 | * trans-intrinsic.c (build_fixbound_expr): Clarify comment, fix | |
1199 | comment typo. | |
1200 | ||
172b8799 TS |
1201 | 2004-12-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1202 | ||
1203 | PR fortran/18993 | |
1204 | * match.c (gfc_match_if): Don't explicitly skip optional whitespace. | |
1205 | (gfc_match_nullify): Make sure that ')' is in front of the end of | |
1206 | statement. | |
1207 | ||
e2435498 TS |
1208 | * scanner.c (skip_fixed_comments): Fix typo in comment preceding |
1209 | function. | |
1210 | ||
6b25a558 RH |
1211 | 2004-12-14 Richard Henderson <rth@redhat.com> |
1212 | ||
1213 | * gfortran.h (gfc_expr.function.name): Make const. | |
1214 | (gfc_iresolve_init_1, gfc_iresolve_done_1): Remove. | |
1215 | (gfc_get_string): Update prototype. | |
1216 | * iresolve.c: Include tree.h. | |
1217 | (string_node, HASH_SIZE, string_head, hash): Remove. | |
1218 | (gfc_get_string): Use vsnprintf, get_identifier. | |
1219 | (free_strings, gfc_iresolve_init_1, gfc_iresolve_done_1): Remove. | |
1220 | * misc.c (gfc_init_1): Don't call gfc_iresolve_init_1. | |
1221 | (gfc_done_1): Don't call gfc_iresolve_done_1. | |
1222 | * module.c (mio_allocated_string): Take and return const char *, | |
1223 | instead of modifying char**. | |
1224 | (mio_expr): Update to match. | |
1225 | * resolve.c (pure_function): Constify name argument. | |
1226 | (resolve_function): Constify name. | |
1227 | * trans-intrinsic.c (gfc_conv_intrinsic_function): Likewise. | |
1228 | ||
7f68c75f RH |
1229 | 2004-12-12 Richard Henderson <rth@redhat.com> |
1230 | ||
1231 | * iresolve.c (gfc_resolve_all, gfc_resolve_any, gfc_resolve_count, | |
1232 | gfc_resolve_cshift, gfc_resolve_dot_product, gfc_resolve_eoshift, | |
1233 | gfc_resolve_matmul, gfc_resolve_maxloc, gfc_resolve_maxval, | |
1234 | gfc_resolve_minloc, gfc_resolve_minval, gfc_resolve_pack, | |
1235 | gfc_resolve_product, gfc_resolve_reshape, gfc_resolve_shape, | |
1236 | gfc_resolve_spread, gfc_resolve_sum, gfc_resolve_transpose, | |
1237 | gfc_resolve_unpack: Use PREFIX. | |
1238 | ||
23acf4d4 TS |
1239 | 2004-12-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1240 | ||
1241 | PR fortran/18869 | |
1242 | * match.c (gfc_match_common): Skip whitespace. | |
1243 | ||
c3d003d2 SK |
1244 | 2004-12-12 Steven G. Kargl <kargls@comcast.net> |
1245 | ||
1246 | PR fortran/16581 | |
1247 | * check.c (gfc_check_iand, gfc_check_ibclr, gfc_check_ibits, | |
1248 | gfc_check_ibset, gfc_check_ieor, gfc_check_ior): Remove default | |
1249 | integer kind check; Issue error for -std=f95 when needed. | |
1250 | * intrinsic.c (add_functions): Change ieor from GFC_STD_GNU to | |
1251 | GFC_STD_F95. | |
1252 | * iresolve.c (gfc_resolve_iand, gfc_resolve_ieor, gfc_resolve_ior): | |
1253 | Promote arguments to same kind. | |
1254 | ||
8d5cfa27 SK |
1255 | 2004-12-12 Steven G. Kargl <kargls@comcast.net> |
1256 | Paul Brook <paul@codesourcery.com> | |
1257 | ||
1258 | PR fortran/16222 | |
1259 | * resolve.c (gfc_resolve_iterator_expr): New function. | |
1260 | (gfc_resolve_iterator): Use it. Add real_ok argument. Convert | |
1261 | start, end and stride to correct type. | |
1262 | (resolve_code): Pass extra argument. | |
1263 | * array.c (resolve_array_list): Pass extra argument. | |
1264 | * gfortran.h (gfc_resolve): Add prototype. | |
1265 | * trans-stmt.c (gfc_trans_do): Remove redundant type conversions. | |
1266 | Handle real type iterators. | |
1267 | ||
6ee42e01 | 1268 | 2004-12-11 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
49e4d580 TS |
1269 | |
1270 | PR fortran/17175 | |
1271 | * iresolve.c (gfc_resolve_scale): Convert 'I' argument if not of | |
1272 | same kind as C's 'int'. | |
6ee42e01 | 1273 | (gfc_resolve_set_exponent): Convert 'I' argument if not of kind 4. |
49e4d580 | 1274 | |
323c74da RH |
1275 | 2004-12-08 Richard Henderson <rth@redhat.com> |
1276 | ||
1277 | * intrinsic.c (gfc_convert_type_warn): Propagate the input shape | |
1278 | to the output expression. | |
1279 | * iresolve.c (gfc_resolve_cshift, gfc_resolve_eoshift): Suppress | |
1280 | warning conversion. | |
1281 | (gfc_resolve_reshape): Force convert SHAPE and ORDER parameters | |
1282 | to index kind. | |
1283 | ||
40f2165e TS |
1284 | 2004-12-08 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1285 | ||
baa8edda | 1286 | PR fortran/18826 |
40f2165e TS |
1287 | * resolve.c (resolve_code): Impose correct restrictions on |
1288 | assigned variable. | |
1289 | ||
59ce85b5 TS |
1290 | * decl.c (gfc_match_end): Use locus of END when eos is an error. |
1291 | ||
df65f093 SK |
1292 | 2004-12-02 Steven G. Kargl <kargls@comcast.net> |
1293 | Paul Brook <paul@codesourcery.com> | |
1294 | ||
1295 | * check.c (gfc_check_flush, gfc_check_fnum): New functions. | |
1296 | (gfc_check_fstat, gfc_check_fstat_sub): New functions. | |
1297 | (gfc_check_stat, gfc_check_stat_sub): New functions. | |
1298 | * gfortran.h (GFC_ISYM_FNUM,GFC_ISYM_FSTAT,GFC_ISYM_STAT): New symbols | |
1299 | * intrinsic.c (add_functions,add_subroutines): Add flush, fnum, | |
1300 | fstat, and stat to intrinsics symbol tables. | |
1301 | * intrinsic.h (gfc_check_flush, gfc_resolve_stat_sub): Add prototypes. | |
1302 | (gfc_resolve_fstat_sub, gfc_resolve_stat): Ditto. | |
1303 | * iresolve.c (gfc_resolve_fnum, gfc_resolve_fstat): New functions. | |
1304 | (gfc_resolve_stat, gfc_resolve_flush): New functions. | |
1305 | (gfc_resolve_stat_sub,gfc_resolve_fstat_sub): New functions | |
1306 | * trans-intrinsic.c (gfc_conv_intrinsic_function): Add new intrinsics. | |
1307 | ||
1270d633 SK |
1308 | 2004-12-02 Steven G. Kargl <kargls@comcast.net> |
1309 | ||
1310 | * intrinsic.c: Fix and add comments, fix function declarations | |
1311 | (OPTIONAL,REQUIRED): New symbols | |
1312 | (add_functions,add_subroutines): Use symbols | |
1313 | (gmp.h): Remove unused include | |
1314 | ||
597cdf4f JM |
1315 | 2004-11-25 Joseph S. Myers <joseph@codesourcery.com> |
1316 | ||
1317 | * f95-lang.c, gfortranspec.c, trans-decl.c: Avoid ` as left quote | |
1318 | in diagnostics. | |
1319 | ||
39afeb1a SB |
1320 | 2004-11-24 Steven Bosscher <stevenb@suse.de> |
1321 | ||
1322 | * options.c (gfc_post_options): Don't clear flag_inline_functions. | |
1323 | ||
d8fe26b2 SK |
1324 | 2004-11-20 Steven G. Kargl <kargls@comcast.net> |
1325 | ||
1326 | * check.c (gfc_check_getcwd_sub): Fix seg fault. | |
1327 | ||
1328 | * check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub, | |
1329 | gfc_check_unlink,gfc_check_unlink_sub): New functions | |
1330 | * gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols | |
1331 | * intrinsic.c (add_functions,add_subroutines): Add umask, unlink, | |
1332 | exit to intrinsics symbol tables. | |
1333 | * intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit, | |
1334 | gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask, | |
1335 | gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub, | |
1336 | gfc_resolve_unlink_sub): Add and sort prototypes. | |
1337 | * iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit, | |
1338 | gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions | |
1339 | * trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols | |
1340 | ||
40b026d8 PB |
1341 | 2004-11-16 Paul Brook <paul@codesourcery.com> |
1342 | ||
1343 | PR fortran/13010 | |
1344 | * trans-array.c (gfc_trans_allocate_temp_array): Use gfc_get_dtype. | |
1345 | (gfc_array_init_size, gfc_conv_expr_descriptor): Ditto. | |
1346 | * trans-types.c (gfc_get_dtype): Accept array type rather than element | |
1347 | type. | |
1348 | (gfc_get_nodesc_array_type): Don't set GFC_TYPE_ARRAY_DTYPE. | |
1349 | (gfc_get_array_type_bounds): Ditto. | |
1350 | (gfc_get_derived_type): Recurse into derived type pointers. | |
1351 | * trans-types.h (gfc_get_dtype): Add prototype. | |
1352 | * trans.h (GFC_TYPE_ARRAY_DTYPE): Add comment. | |
1353 | ||
c4759ce3 PB |
1354 | 2004-11-15 Paul Brook <paul@codesourcery.com> |
1355 | ||
1356 | * trans-types.c (gfc_get_dtype): Remove obsolete TODO. | |
1357 | ||
96654664 PB |
1358 | 2004-11-10 Paul Brook <paul@codesourcery.com> |
1359 | ||
1360 | PR fortran/18375 | |
1361 | * trans-expr.c (gfc_trans_subarray_assign): Free shape before ss. | |
1362 | * trans-io.c (transfer_array_component): Ditto. | |
1363 | ||
851739ea PB |
1364 | 2004-11-10 Paul Brook <paul@codesourcery.com> |
1365 | ||
1366 | * invoke.texi: Fix typo. | |
1367 | ||
f7b529fa KH |
1368 | 2004-11-08 Kazu Hirata <kazu@cs.umass.edu> |
1369 | ||
1370 | * arith.c, array.c, decl.c, expr.c, f95-lang.c, gfortran.h, | |
1371 | gfortranspec.c, interface.c, intrinsic.c, iresolve.c, match.c, | |
1372 | module.c, parse.c, parse.h, primary.c, resolve.c, scanner.c, | |
1373 | trans-array.c, trans-array.h, trans-expr.c, trans-intrinsic.c, | |
1374 | trans-io.c, trans-stmt.c, trans.h: Fix comment formatting. | |
1375 | ||
c1df75d1 TS |
1376 | 2004-11-06 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1377 | ||
1378 | PR fortran/18023 | |
1379 | * io.c (resolve_tag): Tighten up exception for assigned FORMAT. | |
1380 | ||
882f2b8e KH |
1381 | 2004-11-06 Kazu Hirata <kazu@cs.umass.edu> |
1382 | ||
1383 | * gfortranspec.c: Replace GNU CC with GCC. | |
1384 | ||
20a209b5 TS |
1385 | 2004-11-05 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1386 | ||
1387 | * gfortranspec.c (lang_specific_driver): Change year to 2004. | |
1388 | ||
ca0e9281 TS |
1389 | 2004-11-05 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1390 | ||
1391 | PR fortran/18111 | |
1392 | * trans-decl.c (create_function_arglist): Set DECL_ARTIFICIAL for | |
1393 | hidden parameters. | |
1394 | ||
adf3ed3f TS |
1395 | 2004-11-05 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1396 | ||
1397 | PR fortran/15164 | |
1398 | * trans-decl.c (gfc_finish_var_decl): Don't declare arguments to | |
1399 | module procedures as if they were module variables. | |
1400 | ||
36f4d144 TS |
1401 | 2004-11-03 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1402 | ||
1403 | PR fortran/17535 | |
1404 | PR fortran/17583 | |
1405 | PR fortran/17713 | |
1406 | * module.c (write_symbol1): Set module_name for dummy arguments. | |
1407 | ||
9e660c49 PB |
1408 | 2004-11-02 Paul Brook <paul@codesourcery.com> |
1409 | ||
1410 | * intrinsic.c (check_intrinsic_standard): Include error locus. | |
1411 | Remove VLA. | |
1412 | (gfc_intrinsic_func_interface, gfc_intrinsic_sub_interface): Pass | |
1413 | locus to check_intrinsic_standard. | |
1414 | ||
b7892582 JB |
1415 | 2004-10-31 Janne Blomqvist <jblomqvi@cc.hut.fi> |
1416 | ||
1417 | PR fortran/17590 | |
1418 | * gfortran.h: Change GFC_STD_* flags to more appropriate | |
1419 | ones. (struct gfc_intrinsic_isym): Add field for standard. (struct | |
1420 | gfc_option_t): Add field for warning about use of nonstandard | |
1421 | intrinsics. | |
1422 | * intrinsic.c (add_sym): Add parameter for standard version, check | |
1423 | this against current standard. | |
1424 | (add_sym_0): Pass standard parameter to add_sym. | |
1425 | (add_sym_1, add_sym_0s, add_sym_1s, add_sym_1m, add_sym_2): Ditto. | |
1426 | (add_sym_2s, add_sym_3, add_sym_3ml, add_sym_3red, add_sym_3s): Ditto. | |
1427 | (add_sym_4, add_sym_4s, add_sym_5, add_sym_5s): Ditto. | |
1428 | (make_generic): Add parameter for standard, check this | |
1429 | against currently selected standard. | |
1430 | (add_functions, add_subroutines): Add parameter to tell which | |
1431 | standard an intrinsic belongs to. | |
1432 | (check_intrinsic_standard): New function. | |
1433 | (gfc_intrinsic_func_interface): Add call to check_intrinsic_standard. | |
1434 | (gfc_intrinsic_sub_interface): Ditto. | |
1435 | * lang.opt: Add Wnonstd-intrinsics option. | |
1436 | * options.c (gfc_init_options): Change to use new GFC_STD_* flags, | |
1437 | init new warning. | |
1438 | (set_Wall): Add warning about nonstd intrinsics. | |
1439 | (gfc_handle_option): Change to use new GFC_STD_* flags, | |
1440 | handle new warning. | |
1441 | * invoke.texi: Update manual to include -Wnonstd-intrinsics. | |
1442 | ||
f88cf205 AP |
1443 | 2004-10-30 Andrew Pinski <pinskia@physics.uc.edu> |
1444 | ||
1445 | * f95-lang.c (lang_tree_node): Add chain_next to be the TREE_CHAIN. | |
1446 | ||
b7398e72 TS |
1447 | 2004-10-30 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1448 | ||
1449 | * simplify.c (twos_complement): Calculate mask in GMP arithmetic. | |
1450 | ||
bf737879 TS |
1451 | 2004-10-30 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1452 | ||
1453 | * trans.c (gfc_trans_code): Set global locus after recursing. Fix | |
1454 | comment typo. | |
1455 | ||
7a003d8e CY |
1456 | 2004-10-30 Canqun Yang <canqun@nudt.edu.cn> |
1457 | ||
a1286ef5 | 1458 | * check.c (gfc_check_rand): Allow missing optional argument. |
7a003d8e CY |
1459 | (gfc_check_irand): Ditto. |
1460 | * intrinsic.c (add_functions): Set arg optional flag for {i,}rand. | |
1461 | ||
be3a985e SRL |
1462 | 2004-10-28 Scott Robert Ladd <scott.ladd@coyotegulch.com> |
1463 | ||
1464 | PR fortran/13490, PR fortran/17912 | |
1465 | * gcc/fortran/gfortran.h: Added pedantic_min_int to gfc_integer_info | |
1466 | * gcc/fortran/gfortran.h: Added ARITH_ASYMMETRIC to arith | |
7a003d8e | 1467 | * gcc/fortran/arith.c: Added support for an "asymmetric integer" |
be3a985e SRL |
1468 | warning when compiling with pedantic. |
1469 | * gcc/fortran/arith.c: Set minimum integer values to reflect | |
1470 | realities of two's complement signed integers. Added | |
1471 | pedantic minimum. | |
1472 | ||
974ede64 AP |
1473 | 2004-10-17 Andrew Pinski <pinskia@physics.uc.edu> |
1474 | ||
1475 | * Make-lang.in (F95_ADDITIONAL_OBJS): Kill. | |
1476 | (f951): Do not depend on F95_ADDITIONAL_OBJS and don't | |
1477 | link it in. | |
1478 | ||
19e4c59d TS |
1479 | 2004-10-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1480 | ||
1481 | * trans-decl.c (generate_local_decl): Simplify logic, fix comment | |
1482 | typo. | |
1483 | (gfc_generate_function_code): Fix formatting issue. | |
1484 | ||
711f8369 TS |
1485 | 2004-10-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1486 | ||
1487 | * module.c: Fix formatting issues. | |
1488 | ||
5c76089a TS |
1489 | 2004-10-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1490 | ||
1491 | * module.c (mio_interface_rest): Set where member of interface | |
1492 | while loading. | |
1493 | ||
2d0b4bcd AP |
1494 | 2004-10-08 Andrew Pinski <pinskia@physics.uc.edu> |
1495 | ||
1496 | PR fortran/17901 | |
1497 | * options.c (gfc_handle_option): Add break after handing the | |
1498 | J/M option. | |
1499 | ||
26810721 TS |
1500 | 2004-10-08 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de> |
1501 | ||
1502 | * arith.c: Fix formatting issues. | |
a1286ef5 | 1503 | |
edbfca8f TS |
1504 | 2004-10-07 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1505 | ||
1506 | PR fortran/17676 | |
1507 | * resolve.c (resolve_operator): Use correct operator name in message. | |
1508 | ||
5d874166 TS |
1509 | 2004-10-07 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1510 | ||
1511 | * primary.c (match_boz_constant): Allow kind parameter suffixes. | |
1512 | Move standard warning further to the front. | |
1513 | ||
54c2d931 KH |
1514 | 2004-10-07 Kazu Hirata <kazu@cs.umass.edu> |
1515 | ||
1516 | * trans-stmt.c: Fix a comment typo. | |
1517 | ||
2b58638b PB |
1518 | 2004-10-07 Paul Brook <paul@codesourcery.com> |
1519 | ||
1520 | PR fortran/17678 | |
1521 | * trans-array.c (gfc_trans_deferred_array): Leave use associated | |
1522 | variables alone. | |
1523 | ||
5d24a977 TS |
1524 | 2004-10-06 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1525 | ||
1526 | PR fortran/17568 | |
1527 | * simplify.c (twos_complement): New function. | |
1528 | (gfc_simplify_ishft, gfc_simplify_ishftc): Revise. | |
1529 | ||
c45abcaf TS |
1530 | * simplify.c (gfc_simplify_abs): Use mpfr_hypot for CABS. |
1531 | ||
fbdad37d PB |
1532 | 2004-10-06 Paul Brook <paul@codesourcery.com> |
1533 | ||
1534 | * trans-stmt.c (gfc_trans_simple_do): New function. | |
1535 | (gfc_trans_do): Use it. Evaluate iteration bounds before entering | |
1536 | loop. Update comments. | |
1537 | ||
58c5b409 TS |
1538 | 2004-10-04 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1539 | ||
1540 | PR fortran/17283 | |
1541 | * iresolve.c (gfc_resolve_pack): Choose function depending if mask | |
1542 | is scalar. | |
1543 | ||
ee569894 TS |
1544 | PR fortran/17631 |
1545 | * intrinsic.c (add_sym_5): Remove. | |
1546 | (add_subroutines): Add resolution function for MVBITS. | |
1547 | * intrinsic.h (gfc_resolve_mvbits): Declare resolution function for | |
1548 | MVBITS | |
1549 | * iresolve.c (gfc_resolve_mvbits): New function. | |
1550 | (gfc_resolve_random_number): Remove empty line at end of function. | |
1551 | ||
73a014b5 TS |
1552 | * trans-const.c (gfc_build_cstring_const): New function. |
1553 | (gfc_init_cst): Use new function. | |
1554 | * trans-const.h (gfc_build_cstring_const): Add prototype. | |
1555 | * trans-io.c (set_string, set_error_locus): Use new function. | |
1556 | * trans-stmt.c (gfc_trans_goto): Use new function. | |
a1286ef5 | 1557 | |
73a014b5 TS |
1558 | PR fortran/17708 |
1559 | * parse.c (accept_statement): Don't treat END DO like END IF and | |
1560 | END SELECT. | |
1561 | (parse_do_block): Generate possible END DO label inside END DO | |
1562 | block. | |
1563 | ||
5b1374e9 TS |
1564 | PR fortran/17776 |
1565 | * check.c (gfc_check_system_sub): New function. | |
1566 | * gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SYSTEM. | |
1567 | * intrinsic.c (add_functions): Add 'system'. | |
1568 | (add_subroutines): Add 'system'. | |
1569 | * intrinsic.h (gfc_check_etime_sub, gfc_check_getcwd_sub): | |
1570 | Move prototypes to other suborutines. | |
1571 | (gfc_check_system_sub, gfc_resolve_system, gfc_resolve_system_sub): | |
1572 | Add prototype. | |
1573 | (gfc_resolve_system_clock): Fix formatting of prototype. | |
1574 | * iresolve.c (gfc_resolve_system, gfc_resolve_system_sub): New | |
1575 | functions. | |
1576 | * trans-intrinsic.c (gfc_conv_intrinsic_function): Deal with | |
1577 | GFC_ISYM_SYSTEM. | |
1578 | ||
d7d528c8 ES |
1579 | 2004-10-04 Erik Schnetter <schnetter@aei.mpg.de> |
1580 | ||
1581 | * scanner.c (preprocessor_line): Accept preprocessor lines without | |
1582 | file names. Check file names for closing quotes. Handle escaped | |
1583 | quotes in file names. | |
1584 | ||
ca2940c3 TS |
1585 | 2004-10-04 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1586 | Paul Brook <paul@codesourcery.com> | |
1587 | ||
1588 | * trans-array.c (gfc_conv_expr_descriptor): Check for substriungs. | |
1589 | Use gfc_get_expr_charlen. | |
1590 | * trans-expr.c (gfc_get_expr_charlen): New function. | |
1591 | * trans.h (gfc_get_expr_charlen): Add prototype. | |
1592 | ||
b805ea17 KH |
1593 | 2004-10-04 Kazu Hirata <kazu@cs.umass.edu> |
1594 | ||
1595 | * trans-intrinsic.c: Fix a comment typo. | |
1596 | ||
03ddaf35 TS |
1597 | 2004-10-03 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1598 | ||
1599 | * simplify.c (range_check): Remove blank line at beginning of function. | |
1600 | (gfc_simplify_dint): Same at end of function. | |
1601 | (gfc_simplify_exponent, gfc_simplify_fraction): Simplify calculations. | |
1602 | (gfc_simplify_bound): Fix indentation. | |
1603 | (gfc_simplify_log10): Simplify calculation. | |
1604 | (gfc_simplify_min, gfc_simplify_max): Remove blank line at beginning | |
1605 | of function. | |
1606 | (gfc_simplify_nearest): Same at end of function. | |
1607 | (gfc_simplify_nint, gfc_simplify_idnint): Same at beginning of | |
1608 | function. | |
1609 | (gfc_simplify_rrspacing, gfc_simplify_set_exponent, | |
1610 | gfc_simplify_spacing): Simplify calulations. | |
1611 | ||
046dcd57 FW |
1612 | 2004-10-03 Feng Wang <fengwang@nudt.edu.cn> |
1613 | ||
1614 | * trans-intrinsic.c: Fix comments on spacing and rrspacing | |
1615 | (gfc_conv_intrinsic_rrspacing): Add fold on constant trees. | |
1616 | ||
0f0377f6 JH |
1617 | 2004-10-01 Jan Hubicka <jh@suse.cz> |
1618 | ||
1619 | * f95-lang.c (gfc_expand_function): Update call of | |
1620 | tree_rest_of_compilation. | |
1621 | * trans-decl.c (gfc_generate_constructors): Likewise. | |
1622 | ||
68629d16 TS |
1623 | 2004-09-26 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1624 | ||
1625 | * trans-intrinsic.c: Comment fixes. | |
1626 | ||
75d17889 TS |
1627 | 2004-09-25 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1628 | ||
1629 | * decl.c (add_init_expr_to_sym, variable_decl): Comment fixes. | |
1630 | ||
206fb0a7 TS |
1631 | 2004-09-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1632 | ||
1633 | * trans-types.c (gfc_return_by_reference): Remove superfluous | |
1634 | assertion. | |
1635 | ||
c0c07d7b TS |
1636 | * intrinsic.h (gfc_resolve_getcwd): Update prototype. |
1637 | * iresolve.c (gfc_resolve_getcwd): Add second argument to function. | |
1638 | ||
1639 | PR fortran/17615 | |
1640 | * trans-expr.c (gfc_trans_arrayfunc_assign): Look at resolved | |
1641 | function to determine return type. | |
a1286ef5 | 1642 | |
8f235343 JH |
1643 | 2004-09-20 Jan Hubicka <jh@suse.cz> |
1644 | ||
1645 | * trans-decl.c (build_entry_thunks): Finalize the function; do not lower | |
1646 | tree. | |
1647 | (gfc_generate_function_code): Likewise. | |
1648 | ||
da89fba8 TS |
1649 | 2004-09-20 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1650 | ||
1651 | PR fortran/15957 | |
1652 | * simplify.c (gfc_simplify_reshape): Set shape of return value | |
1653 | correctly. | |
1654 | ||
6615c446 JO |
1655 | 2004-09-17 Jeffrey D. Oldham <oldham@codesourcery.com> |
1656 | Zack Weinberg <zack@codesourcery.com> | |
1657 | ||
1658 | * f95-lang.c, trans-expr.c, trans.c: Update for new tree-class | |
1659 | enumeration constants. | |
1660 | ||
4cdf7223 PB |
1661 | 2004-09-17 Paul Brook <paul@codesourcery.com> |
1662 | ||
1663 | * gfortran.h (struct gfc_linebuf): Don't use C99 empty arrays. | |
1664 | (gfc_linebuf_header_size): Define. | |
1665 | * scanner.c (load_file): Use it. | |
1666 | ||
1f2959f0 KH |
1667 | 2004-09-16 Kazu Hirata <kazu@cs.umass.edu> |
1668 | ||
1669 | * array.c, data.c, decl.c, dependency.c, error.c, f95-lang.c, | |
1670 | interface.c, intrinsic.c, io.c, misc.c, module.c, parse.h, | |
1671 | resolve.c, scanner.c, trans-array.c, trans-array.h, | |
1672 | trans-common.c, trans-const.h, trans-decl.c, trans-expr.c, | |
1673 | trans-intrinsic.c, trans-stmt.c, trans-types.c, trans.c, | |
1674 | trans.h: Fix comment typos. Follow spelling conventions. | |
1675 | ||
d2ccf6aa VL |
1676 | 2004-09-16 Victor Leikehman <lei@il.ibm.com> |
1677 | ||
1678 | PR/15364 | |
1679 | * trans-io.c (transfer_array_component): New function. | |
1680 | (transfer_expr): For array fields, call transfer_array_component. | |
1681 | ||
de787a96 KH |
1682 | 2004-09-16 Kazu Hirata <kazu@cs.umass.edu> |
1683 | ||
1684 | * gfortran.texi: Fix a typo. | |
1685 | ||
f13ab1ee AL |
1686 | 2004-09-15 Aaron W. LaFramboise <aaronavay62@aaronwl.com> |
1687 | ||
1688 | * parse.c (eof_buf): Rename eof to eof_buf. | |
1689 | (unexpected_eof): Same. | |
1690 | (gfc_parse_file): Same. | |
1691 | ||
0110c1ec SK |
1692 | 2004-09-15 Steven G. Kargl <kargls@comcast.net> |
1693 | ||
1694 | * check.c (gfc_check_getcwd_sub): New function. | |
1695 | * gfortran.h (GFC_ISYM_GETCWD): New symbol. | |
1696 | * intrinsic.c (add_functions): Add function definition; | |
1697 | Use symbol. | |
1698 | * intrinsic.c (add_subroutines): Add subroutine definitions. | |
1699 | * intrinsic.h: Add prototypes. | |
1700 | * iresolve.c (gfc_resolve_getcwd, gfc_resolve_getcwd_sub): | |
1701 | New functions. | |
1702 | * trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbol. | |
1703 | ||
4672f86a TS |
1704 | 2004-09-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1705 | ||
1706 | PR fortran/16485 | |
1707 | * module.c (write_symbol): Don't fill in module name here. | |
1708 | (write_symbol0): Fill in here instead. | |
1709 | ||
13795658 KH |
1710 | 2004-09-14 Kazu Hirata <kazu@cs.umass.edu> |
1711 | ||
1712 | * data.c, decl.c, f95-lang.c, gfortran.h, match.c, | |
1713 | trans-array.c, trans-common.c, trans-expr.c, | |
1714 | trans-intrinsic.c, trans-stmt.c, trans-types.c, trans.h: Fix | |
1715 | comment typos. Follow spelling conventions. | |
1716 | ||
4d28e183 PB |
1717 | 2004-09-09 Paul Brook <paul@codesourcery.com> |
1718 | ||
1719 | * scanner.c (get_file): Add ATTRIBUTE_UNUSED. | |
1720 | ||
6e45f57b PB |
1721 | 2004-09-08 Paul Brook <paul@codesourcery.com> |
1722 | ||
1723 | * array.c: Don't include assert.h. | |
1724 | * data.c: Don't include assert.h. Replace assert and abort with | |
1725 | gcc_assert and gcc_unreachable. | |
1726 | * dependency.c: Ditto. | |
1727 | * f95-lang.c: Ditto. | |
1728 | * iresolve.c: Ditto. | |
1729 | * resolve.c: Ditto. | |
1730 | * simplify.c: Ditto. | |
1731 | * symbol.c: Ditto. | |
1732 | * trans-array.c: Ditto. | |
1733 | * trans-common.c: Ditto. | |
1734 | * trans-const.c: Ditto. | |
1735 | * trans-decl.c: Ditto. | |
1736 | * trans-expr.c: Ditto. | |
1737 | * trans-intrinsic.c: Ditto. | |
1738 | * trans-io.c: Ditto. | |
1739 | * trans-stmt.c: Ditto. | |
1740 | * trans-types.c: Ditto. | |
1741 | * trans.c: Ditto. | |
1742 | ||
c8cc8542 PB |
1743 | 2004-09-07 Per Bothner <per@bothner.com> |
1744 | Paul Brook <paul@codesourcery.com> | |
1745 | ||
1746 | * error.c (show_locus): Handle mapped locations. | |
1747 | * f95-lang.c (gfc_be_parse_file): Initialize mapped locations. | |
1748 | * gfortran.h: Include input.h. | |
1749 | (struct gfc_linebuf): Use source_location. | |
1750 | * scanner.c (get_file): Initialize linemap. | |
1751 | (preprocessor_line): Pass extra argument to get_file. | |
1752 | (load_file): Ditto. Setup linemap. | |
1753 | (gfc_new_file): Handle mapped locations. | |
1754 | * trans-common.c (build_field, build_equiv_decl, build_common_decl): | |
1755 | Set decl source locations. | |
1756 | (gfc_trans_common): Set blank common block location. | |
1757 | * trans-decl.c (gfc_set_decl_location): New function. | |
1758 | (gfc_get_label_decl, gfc_get_symbol_decl): Use it. | |
1759 | (trans_function_start): Move call to gfc_set_backend_locus.. | |
1760 | (build_function_decl): ... to here. | |
1761 | (build_entry_thunks): Set and restore the backend locus. | |
1762 | (gfc_generate_constructors): Remove excess arguments to | |
1763 | init_function_start. | |
1764 | (gfc_generate_block_data): Add comments. Set the decl locus. | |
1765 | * trans-io.c (set_error_locus): Handle mapped locations. | |
1766 | * trans.c (gfc_get_backend_locus, gfc_get_backend_locus): Ditto. | |
1767 | (gfc_trans_code): Use SET_EXPR_LOCATION. | |
1768 | (gfc_generate_code): Override the location of the new symbol. | |
1769 | * trans.h (gfc_set_decl_location): Add prototype. | |
1770 | ||
4c97f95a PB |
1771 | 2004-08-31 Paul Brook <paul@codesourcery.com> |
1772 | ||
1773 | * trans-types.c (gfc_type_for_mode): Return NULL for unknown modes. | |
1774 | ||
c3d0559d TS |
1775 | 2004-09-01 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1776 | ||
1777 | PR fortran/15327 | |
1778 | * trans-intrinsic.c (gfc_conv_intrinsic_merge): Do the right thing for | |
1779 | strings. | |
1780 | ||
0e6928d8 TS |
1781 | 2004-09-01 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1782 | ||
1783 | PR fortran/16400 | |
1784 | PR fortran/16404 | |
1785 | (port from g95) | |
1786 | * resolve.c (resolve_transfer): New function. | |
1787 | (resolve_code): Call resolve_transfer in case of EXEC_TRANSFER. | |
1788 | ||
149a42dd TS |
1789 | 2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1790 | ||
1791 | PR fortran/16579 | |
1792 | * trans-types.c (gfc_init_types): Make gfc_character1_type_node an | |
1793 | unsigned char. | |
1794 | ||
c4dd5a8d TS |
1795 | 2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1796 | ||
1797 | * CONTRIB, NEWS, README, TODO: Remove obsolete files. | |
1798 | ||
cf73cdac TS |
1799 | 2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1800 | ||
1801 | PR fortran/17244 | |
1802 | * trans-types.c (gfc_return_by_reference): Remove TODO error, | |
1803 | add comment pointing out possible issue WRT compatibility with g77. | |
1804 | ||
d7177ab2 TS |
1805 | 2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1806 | ||
1807 | * trans-decl.c, trans-expr.c, trans-io.c, trans-types.c: Replace | |
1808 | all occurences of 'gfc_strlen_type_node' by | |
1809 | 'gfc_charlen_type_node'. | |
1810 | * trans-types.h: Same. Also update comment accordingly. | |
1811 | ||
d1d61a00 TS |
1812 | 2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1813 | ||
1814 | * primary.c: Update copyright boilerplate to say GCC. | |
f36327db | 1815 | * f95-lang.c: Change initial comment to say gfortran. |
d1d61a00 | 1816 | |
da17f559 PB |
1817 | 2004-08-31 Paul Brook <paul@codesourcery.com> |
1818 | ||
1819 | * trans-types.h: Add comments. | |
1820 | (intmax_type_node, string_type_node, const_string_type_node): Remove. | |
1821 | ||
e2cad04b RH |
1822 | 2004-08-30 Richard Henderson <rth@redhat.com> |
1823 | ||
1824 | * Make-lang.in (fortran/f95-lang.o): Update dependencies. | |
1825 | (fortran/trans-decl.o, fortran/trans-types.o): Likewise. | |
1826 | * gfortran.h (gfc_integer_info): Add c_char, c_short, c_int, | |
1827 | c_long, c_long_long. | |
1828 | (gfc_logical_info): Add c_bool. | |
1829 | (gfc_real_info): Add mode_precision, c_float, c_double, c_long_double. | |
1830 | * trans-array.c (gfc_array_allocate): Use TYPE_PRECISION | |
1831 | rather than gfc_int[48]_type_node for allocate choice. | |
1832 | * trans-decl.c (gfc_build_intrinsic_function_decls): Cache | |
1833 | local copies of some kind type nodes. | |
1834 | (gfc_build_builtin_function_decls): Likewise. | |
1835 | * trans-expr.c (gfc_conv_power_op): Likewise. | |
1836 | * trans-intrinsic.c (gfc_conv_intrinsic_index, | |
1837 | gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify, | |
1838 | gfc_conv_intrinsic_trim, gfc_conv_intrinsic_repeat): Likewise. | |
1839 | * trans-stmt.c (gfc_trans_pause, gfc_trans_stop, | |
1840 | gfc_trans_character_select, gfc_trans_allocate): Likewise. | |
1841 | * trans-io.c (gfc_pint4_type_node): Move into ... | |
1842 | (gfc_build_io_library_fndecls): ... here. Cache local copies of | |
1843 | some kind type nodes. | |
1844 | * trans-types.c (gfc_type_nodes): Remove. | |
1845 | (gfc_character1_type_node, gfc_strlen_type_node): New. | |
1846 | (gfc_integer_types, gfc_logical_types): New. | |
1847 | (gfc_real_types, gfc_complex_types): New. | |
1848 | (gfc_init_kinds): Fill in real mode_precision. | |
1849 | (gfc_build_int_type, gfc_build_real_type): New. | |
1850 | (gfc_build_complex_type, gfc_build_logical_type): New. | |
1851 | (c_size_t_size): New. | |
1852 | (gfc_init_types): Loop over kinds. | |
1853 | (gfc_get_int_type, gfc_get_real_type): Use gfc_validate_kind. | |
1854 | (gfc_get_complex_type, gfc_get_logical_type): Likewise. | |
1855 | (gfc_get_character_type_len): Likewise. | |
1856 | (gfc_type_for_size): Loop over kinds; use a reduced set of | |
1857 | unsigned type nodes. | |
1858 | (gfc_type_for_mode): Loop over kinds. | |
1859 | (gfc_signed_or_unsigned_type): Use gfc_type_for_size. | |
1860 | (gfc_unsigned_type, gfc_signed_type): Use gfc_signed_or_unsigned_type. | |
1861 | * trans-types.h (F95_INT1_TYPE, F95_INT2_TYPE, F95_INT4_TYPE, | |
1862 | F95_INT8_TYPE, F95_INT16_TYPE, F95_REAL4_TYPE, F95_REAL8_TYPE, | |
1863 | F95_REAl16_TYPE, F95_COMPLEX4_TYPE, F95_COMPLEX8_TYPE, | |
1864 | F95_COMPLEX16_TYPE, F95_LOGICAL1_TYPE, F95_LOGICAL2_TYPE, | |
1865 | F95_LOGICAL4_TYPE, F95_LOGICAL8_TYPE, F95_LOGICAL16_TYPE, | |
1866 | F95_CHARACTER1_TYPE, NUM_F95_TYPES, gfc_type_nodes, | |
1867 | gfc_int1_type_node, gfc_int2_type_node, gfc_int4_type_node, | |
1868 | gfc_int8_type_node, gfc_int16_type_node, gfc_real4_type_node, | |
1869 | gfc_real8_type_node, gfc_real16_type_node, gfc_complex4_type_node, | |
1870 | gfc_complex8_type_node, gfc_complex16_type_node, | |
1871 | gfc_logical1_type_node, gfc_logical2_type_node, | |
1872 | gfc_logical4_type_node, gfc_logical8_type_node, | |
1873 | gfc_logical16_type_node, gfc_strlen_kind): Remove. | |
1874 | (gfc_character1_type_node): Turn in to a variable. | |
1875 | (gfc_strlen_type_node): Likewise. | |
1876 | ||
0de4325e TS |
1877 | 2004-08-30 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1878 | ||
1879 | * gfortran.h (gfc_namespace): Add new field is_block_data. | |
1880 | * parse.c (accept_statement): Remove special handling for BLOCK DATA. | |
1881 | (parse_block_data): Record BLOCK DATA name, set is_block_data field. | |
1882 | * trans.c (gfc_generate_code): Handle BLOCK DATA units. | |
1883 | * trans.h (gfc_generate_block_data): Add prototype. | |
1884 | * trans-decl.c (gfc_generate_block_data): New function. | |
1885 | ||
04204c2f RH |
1886 | 2004-08-29 Richard Henderson <rth@redhat.com> |
1887 | ||
1888 | * trans-const.c (gfc_conv_mpz_to_tree): Use mpz_export. | |
1889 | * trans-types.c (gfc_init_kinds): Reject integer kinds larger | |
1890 | than two HOST_WIDE_INT. | |
1891 | ||
294fbfc8 TS |
1892 | 2004-08-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1893 | ||
1894 | PR fortran/13910 | |
1895 | * decl.c (free_variable, free_value, gfc_free_data, var_list, | |
1896 | var_element, top_var_list, match_data_constant, top_val_list, | |
1897 | gfc_match_data): Move here from match.c. | |
1898 | (match_old_style_init): New function. | |
1899 | (variable_decl): Match old-style initialization. | |
1900 | * expr.c (gfc_get_variable_expr): New function. | |
1901 | * gfortran.h (gfc_get_variable_expr): Add prototype. | |
1902 | * gfortran.texi: Start documentation for supported extensions. | |
1903 | * match.c: Remove the functions moved to decl.c. | |
1904 | * match.h (gfc_match_data): Move prototype to under decl.c. | |
1905 | * symbol.c (gfc_find_sym_tree, gfc_find_symbol): Add/correct | |
1906 | comments. | |
1907 | ||
e8525382 SK |
1908 | 2004-08-29 Steven G. Kargl <kargls@comcast.net> |
1909 | Paul Brook <paul@codesourcery.com> | |
1910 | ||
1911 | * check.c (gfc_check_besn, gfc_check_g77_math1): New functions. | |
1912 | * f95-lang.c (DO_DEFINE_MATH_BUILTIN): Define. | |
1913 | (DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it. | |
1914 | (build_builtin_fntypes): New function. | |
1915 | (gfc_init_builtin_functions): Use it. | |
1916 | * gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_{J,Y}{0,1,N} | |
1917 | and GFC_ISYM_ERF{,C}. | |
1918 | (gfc_c_int_kind): Declare. | |
1919 | * intrinsic.c (add_functions): Add [d]bes* and [d]erf*. | |
1920 | * intrinsic.h (gfc_check_besn, gfc_check_g77_math1, gfc_resolve_besn, | |
1921 | gfc_resolve_g77_math1): Add prototypes. | |
1922 | * resolve.c (gfc_resolve_besn, gfc_resolve_g77_math1): New functions. | |
1923 | * mathbuiltins.def: Add comment. Change third argument. Use | |
1924 | DEFINE_MATH_BUILTIN_C. Add bessel and error functions. | |
1925 | * trans-intrinsic.c (BUILT_IN_FUNCTION): Define. | |
1926 | (DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it. | |
1927 | * trans-types.c (gfc_c_int_kind): Declare. | |
1928 | (gfc_init_kinds): Set it. | |
1929 | ||
4c0c6b9f SK |
1930 | 2004-08-29 Steven G. Kargl <kargls@comcast.net> |
1931 | Paul Brook <paul@codesourcery.com> | |
1932 | ||
1933 | * gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_GET?ID. | |
1934 | (gfc_check_f, gfc_simplify_f): Add f0. | |
1935 | * intrinsic.c (do_check): Call f0. Flatten. | |
1936 | (add_sym_0): Fix prototype. Set f0. | |
1937 | (add_functions): Add getgid, getgid and getuid. | |
1938 | (resolve_intrinsic): Remove obsolete comment. | |
1939 | (do_simplify): Call f0. | |
1940 | * intrinsic.h (gfc_resolve_getgid, gfc_resolve_getpid, | |
1941 | gfc_resolve_getuid): Add prototypes. | |
1942 | * iresolve.c (gfc_resolve_getgid, gfc_resolve_getpid, | |
1943 | gfc_resolve_getuid): New functions. | |
1944 | * trans-intrinsic.c (gfc_conv_intrinsic_function): Handle | |
1945 | GFC_ISYM_GET?ID. | |
1946 | ||
1f05db63 TS |
1947 | 2004-08-28 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1948 | ||
1949 | * error.c (gfc_error_init_1): Remove blank line in front of | |
1950 | function body. Add missing blank. | |
1951 | (gfc_buffer_error, error_char, error_string): Remove blank line in | |
1952 | front of function body. | |
1953 | (show_locus): Add comma in comment. | |
1954 | (gfc_clear_warning, gfc_warning_check, gfc_clear_error, | |
1955 | gfc_push_error, gfc_pop_error): Remove blank line in front of | |
1956 | function body. | |
1957 | (gfc_get_errors): Typo fix in comment in front of function. Remove | |
1958 | blank line in front of function body. | |
1959 | ||
9d64df18 TS |
1960 | 2004-08-27 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
1961 | ||
1962 | * gfortran.h (gfc_default_*_kind): Remove prototypes, add extern | |
1963 | variable declaration of same name. | |
1964 | * arith.c, check.c, decl.c, dump_parse_tree.c, expr.c, | |
1965 | intrinsic.c, io.c, iresolve.c, match.c, options.c, primary.c, | |
1966 | resolve.c, simplify.c, symbol.c, trans-const.c, trans-io.c: | |
1967 | Replace all calls to gfc_default_*_kind with variable accesses. | |
1968 | * trans-types.c: Same as above. | |
1969 | (gfc_default_*_kind_1): Rename to gfc_default_*_kind, remove | |
1970 | static qualifier. Replace all occurences. | |
1971 | (gfc_default_*_kind): Remove functions. | |
1972 | ||
5e8e542f RH |
1973 | 2004-08-26 Richard Henderson <rth@redhat.com> |
1974 | ||
6615c446 JO |
1975 | * arith.c: Include system.h, not real system headers. |
1976 | (MPZ_NULL, MPF_NULL, DEF_GFC_INTEGER_KIND, DEF_GFC_LOGICAL_KIND, | |
1977 | DEF_GFC_REAL_KIND, GFC_SP_KIND, GFC_SP_PREC, GFC_SP_EMIN, GFC_SP_EMAX, | |
1978 | GFC_DP_KIND, GFC_DP_PREC, GFC_DP_EMIN, GFC_DP_EMAX, GFC_QP_KIND, | |
1979 | GFC_QP_PREC, GFC_QP_EMIN, GFC_QP_EMAX): Remove. | |
1980 | (gfc_integer_kinds, gfc_logical_kinds, gfc_real_kinds, | |
1981 | gfc_index_integer_kind, gfc_default_integer_kind, | |
1982 | gfc_default_real_kind,gfc_default_double_kind, | |
1983 | gfc_default_character_kind, gfc_default_logical_kind, | |
1984 | gfc_default_complex_kind, validate_integer, validate_real, | |
1985 | validate_logical, validate_character, | |
1986 | gfc_validate_kind): Move to trans-types.c. | |
1987 | (gfc_set_model_kind): Use gfc_validate_kind. | |
1988 | (gfc_set_model): Just copy the current precision to default. | |
1989 | (gfc_arith_init_1): Use mpfr precision 128 for integer setup. | |
1990 | * f95-lang.c (gfc_init_decl_processing): Invoke gfc_init_kinds. | |
1991 | * gfortran.h: Update file commentary. | |
1992 | * trans-types.c (MAX_INT_KINDS, MAX_REAL_KINDS): New. | |
1993 | (gfc_default_integer_kind_1, gfc_default_real_kind_1, | |
1994 | gfc_default_double_kind_1, gfc_default_character_kind_1, | |
1995 | gfc_default_logical_kind_1, gfc_default_complex_kind_1): New. | |
1996 | (gfc_init_kinds): New. | |
1997 | (gfc_init_types): Don't set gfc_index_integer_kind here. | |
1998 | * trans-types.h (gfc_init_kinds): Declare. | |
5e8e542f RH |
1999 | * doc/invoke.texi: Clarify DOUBLE PRECISION behaviour wrt -r8. |
2000 | ||
a1bab9ea TS |
2001 | 2004-08-26 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2002 | ||
2003 | * check.c (gfc_check_atan2): New function. | |
2004 | * intrinsic.c (add_functions): Use gfc_check_atan2 for ATAN2 | |
2005 | * intrinsic.h (gfc_check_atan2): Add prototype. | |
2006 | ||
e7a2d5fb RH |
2007 | 2004-08-25 Richard Henderson <rth@redhat.com> |
2008 | ||
2009 | * arith.c (gfc_validate_kind): Add may_fail argument; abort if | |
2010 | false and we don't validate the kind. | |
2011 | (gfc_check_integer_range, gfc_check_real_range): Update to match. | |
2012 | * check.c (kind_check): Likewise. | |
2013 | * decl.c (gfc_match_old_kind_spec, gfc_match_kind_spec): Likewise. | |
2014 | (match_char_spec, match_logical_spec): Likewise. | |
2015 | * gfortran.h (gfc_validate_kind): Likewise. | |
2016 | * options.c (gfc_handle_option): Likewise. | |
2017 | * primary.c (match_integer_constant, match_real_constant, | |
2018 | match_string_constant, match_logical_constant, | |
2019 | match_const_complex_part): Likewise. | |
2020 | * simplify.c (get_kind, gfc_simplify_bit_size, gfc_simplify_digits, | |
2021 | gfc_simplify_epsilon, gfc_simplify_huge, gfc_simplify_ibclr, | |
2022 | gfc_simplify_ibset, gfc_simplify_ishft, gfc_simplify_ishftc, | |
2023 | gfc_simplify_maxexponent, gfc_simplify_minexponent, | |
2024 | gfc_simplify_nearest, gfc_simplify_not, gfc_simplify_precision, | |
2025 | gfc_simplify_radix, gfc_simplify_range, gfc_simplify_rrspacing, | |
2026 | gfc_simplify_scale, gfc_simplify_spacing, gfc_simplify_tan, | |
2027 | gfc_simplify_tiny): Likewise. | |
2028 | * trans-intrinsic.c (gfc_conv_intrinsic_aint, gfc_conv_intrinsic_mod, | |
2029 | gfc_conv_intrinsic_minmaxloc, gfc_conv_intrinsic_minmaxval, | |
2030 | prepare_arg_info): Likewise. | |
2031 | ||
6d1c50cc TS |
2032 | 2004-08-25 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2033 | ||
2034 | * expr.c (gfc_check_assign): Add comment. Add new warning. | |
2035 | * trans-expr.c (gfc_conv_function_call): Correctly dereference | |
2036 | result of pointer valued function when not in pointer assignment. | |
2037 | ||
75101feb PB |
2038 | 2004-08-25 Paul Brook <paul@codesourcery.com> |
2039 | ||
2040 | * config-lang.in: Remove dead commented line. | |
2041 | * module.c: Replace g95 with gfortran in comment. | |
2042 | ||
9ca2b0db PB |
2043 | 2004-08-25 Paul Brook <paul@codesourcery.com> |
2044 | ||
2045 | PR fortran/17190 | |
2046 | * arith.c (gfc_mpfr_to_mpz): Workaround mpfr bug. | |
2047 | ||
40f20186 PB |
2048 | 2004-08-25 Paul Brook <paul@codesourcery.com> |
2049 | ||
2050 | PR fortran/17144 | |
2051 | * trans-array.c (gfc_trans_allocate_temp_array): Remove | |
2052 | string_length argument. | |
2053 | (gfc_trans_array_ctor_element): New function. | |
2054 | (gfc_trans_array_constructor_subarray): Use it. | |
2055 | (gfc_trans_array_constructor_value): Ditto. Handle constant | |
2056 | character arrays. | |
2057 | (get_array_ctor_var_strlen, get_array_ctor_strlen): New functions. | |
2058 | (gfc_trans_array_constructor): Use them. | |
2059 | (gfc_add_loop_ss_code): Update to new gfc_ss layout. | |
2060 | (gfc_conv_ss_descriptor): Remember section string length. | |
2061 | (gfc_conv_scalarized_array_ref): Ditto. Remove dead code. | |
2062 | (gfc_conv_resolve_dependencies): Update to new gfc_ss layout. | |
2063 | (gfc_conv_expr_descriptor): Ditto. | |
2064 | (gfc_conv_loop_setup): Ditto. Spelling fixes. | |
2065 | * trans-array.h (gfc_trans_allocate_temp_array): Update prototype. | |
2066 | * trans-const.c (gfc_conv_constant): Update to new gfc_ss layout. | |
2067 | * trans-expr.c (gfc_conv_component_ref): Turn error into ICE. | |
2068 | (gfc_conv_variable): Set string_length from section. | |
2069 | (gfc_conv_function_call): Remove extra argument. | |
2070 | (gfc_conv_expr, gfc_conv_expr_reference): Update to new gfc_ss layout. | |
2071 | * trans-types.c (gfc_get_character_type_len): New function. | |
2072 | (gfc_get_character_type): Use it. | |
2073 | (gfc_get_dtype): Return zero for internal types. | |
2074 | * trans-types.h (gfc_get_character_type_len): Add prototype. | |
2075 | * trans.h (struct gfc_ss): Move string_length out of union. | |
2076 | ||
923ab88c TS |
2077 | 2004-08-25 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2078 | ||
2079 | * trans.h (build2_v, build3_v): New macros. | |
2080 | (build_v): Remove. | |
2081 | * f95-lang.c (gfc_truthvalue_conversion): Use build2 instead of | |
2082 | build. | |
2083 | * trans-array.c (gfc_conv_descriptor_data, | |
2084 | gfc_conv_descriptor_offset, gfc_conv_descriptor_dimension, | |
6615c446 | 2085 | gfc_conv_descriptor_stride, gfc_conv_descriptor_lbound, |
923ab88c TS |
2086 | gfc_conv_descriptor_ubound, gfc_trans_allocate_array_storage, |
2087 | gfc_trans_allocate_temp_array, | |
2088 | gfc_trans_array_constructor_subarray, | |
2089 | gfc_trans_array_constructor_value, gfc_conv_array_index_ref, | |
2090 | gfc_trans_array_bound_check, gfc_conv_array_index_offset, | |
2091 | gfc_conv_scalarized_array_ref, gfc_conv_array_ref, | |
2092 | gfc_conv_array_ref, gfc_trans_preloop_setup, | |
2093 | gfc_trans_scalarized_loop_end, gfc_conv_ss_startstride, | |
2094 | gfc_conv_loop_setup, gfc_array_init_size, | |
2095 | gfc_conv_array_initializer, gfc_trans_array_bounds, | |
2096 | gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias, | |
2097 | gfc_conv_expr_descriptor, gfc_conv_array_parameter, | |
2098 | gfc_trans_deferred_array): Use buildN and buildN_v macros instead | |
2099 | of build and build_v as appropriate. | |
2100 | * trans-common.c (create_common): Same. | |
2101 | * trans-decl.c (gfc_trans_auto_character_variable, | |
2102 | gfc_trans_entry_master_switch, gfc_generate_function_code): Same. | |
2103 | * trans-expr.c (gfc_conv_expr_present, gfc_conv_substring, | |
2104 | gfc_conv_component_ref, gfc_conv_unary_op, gfc_conv_powi, | |
2105 | gfc_conv_cst_int_power, gfc_conv_string_tmp, gfc_conv_concat_op, | |
2106 | gfc_conv_expr_op, gfc_conv_function_call, | |
2107 | gfc_trans_structure_assign): Same. | |
2108 | * trans-intrinsic.c (build_fixbound_expr, build_round_expr, | |
2109 | gfc_conv_intrinsic_aint, gfc_conv_intrinsic_bound, | |
2110 | gfc_conv_intrinsic_cmplx, gfc_conv_intrinsic_mod, | |
2111 | gfc_conv_intrinsic_dim, gfc_conv_intrinsic_sign, | |
2112 | gfc_conv_intrinsic_dprod, gfc_conv_intrinsic_minmax, | |
2113 | gfc_conv_intrinsic_anyall, gfc_conv_intrinsic_count, | |
2114 | gfc_conv_intrinsic_arith, gfc_conv_intrinsic_minmaxloc, | |
2115 | gfc_conv_intrinsic_minmaxval, gfc_conv_intrinsic_btest, | |
2116 | gfc_conv_intrinsic_bitop, gfc_conv_intrinsic_singlebitop, | |
2117 | gfc_conv_intrinsic_ibits, gfc_conv_intrinsic_ishft, | |
2118 | gfc_conv_intrinsic_merge, gfc_conv_intrinsic_strcmp, | |
2119 | gfc_conv_allocated, gfc_conv_associated, prepare_arg_info, | |
2120 | gfc_conv_intrinsic_spacing, gfc_conv_intrinsic_rrspacing, | |
2121 | gfc_conv_intrinsic_trim, gfc_conv_intrinsic_repeat, | |
2122 | gfc_conv_intrinsic_iargc): Same. | |
2123 | * trans-io.c (set_parameter_value, set_parameter_ref, set_string, | |
2124 | set_flag, add_case, io_result, transfer_namelist_element, | |
2125 | transfer_expr): Same. | |
2126 | * trans-stmt.c (gfc_trans_goto, gfc_trans_return, gfc_trans_if_1, | |
2127 | gfc_trans_arithmetic_if, gfc_trans_do, gfc_trans_do_while, | |
2128 | gfc_trans_integer_select, gfc_trans_logical_select, | |
2129 | gfc_trans_character_select, gfc_trans_forall_loop, | |
2130 | gfc_trans_nested_forall_loop, gfc_do_allocate, | |
2131 | generate_loop_for_temp_to_lhs, generate_loop_for_rhs_to_temp, | |
2132 | compute_inner_temp_size, compute_overall_iter_number, | |
2133 | allocate_temp_for_forall_nest, gfc_trans_pointer_assign_need_temp, | |
2134 | gfc_trans_forall_1, gfc_evaluate_where_mask, | |
2135 | gfc_trans_where_assign, gfc_trans_allocate): Same. | |
2136 | * trans-types.c (gfc_get_dtype, gfc_get_array_type_bounds): Same. | |
2137 | * trans.c (gfc_add_modify_expr, gfc_finish_block, | |
2138 | gfc_build_array_ref, gfc_build_function_call, | |
2139 | gfc_trans_runtime_check): Same. | |
2140 | ||
0cc4be67 TS |
2141 | 2004-08-25 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2142 | ||
6615c446 | 2143 | * trans-const.c (gfc_conv_mpz_to_tree): Change call to |
0cc4be67 TS |
2144 | build_int_cst to build_int_cst_wide in accordance to Nathan's |
2145 | previous patch. | |
2146 | ||
7d60be94 NS |
2147 | 2004-08-25 Nathan Sidwell <nathan@codesourcery.com> |
2148 | ||
2149 | * trans-array.c (gfc_trans_array_constructor_value): Adjust | |
2150 | build_int_cst calls. | |
2151 | * trans-const.c (gfc_build_string_const, gfc_init_constants, | |
2152 | gfc_conv_mpz_to_tree, gfc_conv_constant_to_tree): Likewise. | |
2153 | * trans-decl.c (gfc_get_symbol_decl, build_entry_thunks, | |
2154 | gfc_trans_entry_master_switch): Likewise. | |
2155 | * trans-intrinsic.c (gfc_conv_intrinsic_ibits, | |
2156 | gfc_conv_intrinsic_len, prepare_arg_info): Likewise. | |
2157 | * trans-io.c (add_case, set_error_locus, | |
2158 | transfer_namelist_element, transfer_expr): Likewise. | |
2159 | * trans-stmt.c (gfc_trans_label_assign, gfc_trans_pause, | |
2160 | gfc_trans_stop, gfc_trans_character_select): Likewise. | |
2161 | * trans-types.c (gfc_init_types, gfc_get_dtype): Likewise. | |
2162 | * trans.c (gfc_trans_runtime_check): Likewise. | |
2163 | ||
45ede75e TS |
2164 | 2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2165 | ||
6615c446 | 2166 | * trans-decl.c, trans-types.c: Add and remove blank lines as |
45ede75e TS |
2167 | required. |
2168 | ||
0c8eb998 RH |
2169 | 2004-08-24 Richard Henderson <rth@redhat.com> |
2170 | ||
2171 | * trans-const.c (gfc_conv_mpz_to_tree): Fix 64-bit shift warning. | |
2172 | ||
de37af8c TS |
2173 | 2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2174 | ||
6615c446 | 2175 | * resolve.c (merge_argument_lists): Revert unintentionally |
de37af8c | 2176 | committed change. |
6615c446 | 2177 | |
7be7d41b TS |
2178 | 2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2179 | ||
2180 | * trans-decl.c (build_function_decl): Fix spelling in comment. | |
2181 | (build_entry_thunks): Remove code with no function. | |
2182 | (gfc_build_intrinsic_function_decls): Remove empty line. | |
2183 | ||
2184 | * resolve.c (resolve_entries): Fix a bunch of comment typos. | |
2185 | ||
8c1d6d62 NS |
2186 | 2004-08-24 Nathan Sidwell <nathan@codesourcery.com> |
2187 | ||
7d60be94 | 2188 | * f95-lang.c (gfc_init_decl_processing): Adjust |
8c1d6d62 NS |
2189 | build_common_tree_nodes call. |
2190 | ||
436529ea TS |
2191 | 2004-08-24 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2192 | ||
2193 | * trans-types.c: Spelling and formatting fixes. | |
2194 | ||
5f0ae953 RH |
2195 | 2004-08-23 Richard Henderson <rth@redhat.com> |
2196 | ||
2197 | * trans-const.c (gfc_conv_mpz_to_tree): Use mpz_getlimbn instead | |
2198 | of going through an intermediate string. Fix 32/64 int/long bug. | |
2199 | ||
f676971a EC |
2200 | 2004-08-23 Eric Christopher <echristo@redhat.com> |
2201 | ||
2202 | * trans-types.c (gfc_type_for_mode): Remove VECTOR_TYPE_SUPPORTED_P | |
2203 | usage. Use build_vector_type_for_mode for vector types. | |
2204 | ||
b8502435 RH |
2205 | 2004-08-22 Richard Henderson <rth@redhat.com> |
2206 | ||
2207 | PR 13465 | |
6615c446 JO |
2208 | * data.c (find_con_by_offset): Search ordered list; handle |
2209 | elements with repeat counts. | |
2210 | (gfc_assign_data_value_range): New. | |
2211 | * gfortran.h (struct gfc_data_value): Make repeat unsigned. | |
2212 | (gfc_assign_data_value_range): Declare. | |
2213 | * match.c (top_val_list): Extract repeat count into a temporary. | |
2214 | * resolve.c (values): Make left unsigned. | |
2215 | (next_data_value): Don't decrement left. | |
2216 | (check_data_variable): Use gfc_assign_data_value_range. | |
b8502435 | 2217 | |
f8d0aee5 TS |
2218 | 2004-08-22 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2219 | ||
2220 | * trans-const.c, trans-decl.c, trans-expr.c: Spelling fixes. | |
2221 | ||
617097a3 TS |
2222 | 2004-08-22 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2223 | ||
2224 | * check.c (gfc_check_reduction): Rename to ... | |
f676971a | 2225 | (check_reduction): ... this. Make static. Don't check type of |
617097a3 TS |
2226 | first argument. |
2227 | (gfc_check_minval_maxval, gfc_check_prodcut_sum): New functions. | |
2228 | * intrinsic.c (add_functions): Change MAXVAL, MINVAL, PRODUCT and | |
2229 | SUM to use new check functions. | |
2230 | (check_specific): Change logic to call new functions. | |
2231 | * intrinsic.h (gfc_check_minval_maxval, gfc_check_product_sum): | |
2232 | Add prototypes. | |
2233 | (gfc_check_reduction): Remove prototype. | |
2234 | ||
841b0c1f PB |
2235 | 2004-08-20 Paul Brook <paul@codesourcery.com> |
2236 | Canqun Yang <canqun@nudt.edu.cn> | |
2237 | ||
2238 | PR fortran/17077 | |
2239 | * trans-array.c (gfc_conv_array_parameter): Pass correct pointer | |
2240 | for automatic arrays. | |
2241 | * trans-types.c (gfc_get_nodesc_array_type): Add comment. | |
2242 | ||
c874ae73 | 2243 | 2004-08-19 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
841b0c1f | 2244 | (Port from g95) |
c874ae73 | 2245 | |
841b0c1f | 2246 | PR fortran/17074 |
c874ae73 TS |
2247 | * match.c (match_simple_forall, match_simple_where): Forward-declare. |
2248 | (gfc_match_if): Order statement list alphabetically, add WHERE and | |
841b0c1f | 2249 | FORALL, remove double PAUSE. |
c874ae73 | 2250 | (gfc_match_simple_where, match_forall_header, |
841b0c1f | 2251 | gfc_match_simple_forall): New functions. |
c874ae73 | 2252 | (gfc_match_forall): Use match_forall_header. |
f676971a | 2253 | |
bbef13dc PB |
2254 | 2004-08-19 Paul Brook <paul@codesourcery.com> |
2255 | ||
2256 | PR fortran/17091 | |
2257 | * gfortran.h (gfc_access): Give ACCESS_UNKNOWN value 0. | |
2258 | * symbol.c (gfc_clear_attr): Use memset. | |
2259 | ||
ec53454b PB |
2260 | 2004-08-19 Paul Brook <paul@codesourcery.com> |
2261 | ||
2262 | PR fortran/14976 | |
f676971a | 2263 | PR fortran/16228 |
ec53454b PB |
2264 | * data.c (assign_substring_data_value): Remove. |
2265 | (create_character_intializer): New function. | |
2266 | (gfc_assign_data_value): Track the typespec for the current | |
2267 | subobject. Use create_character_intializer. | |
2268 | ||
292e0d3a ES |
2269 | 2004-08-19 Erik Schnetter <schnetter@aei.mpg.de> |
2270 | ||
2271 | PR fortran/16946 | |
2272 | * check.c (gfc_check_reduction): New function. | |
2273 | (gfc_check_minval_maxval): Removed. | |
2274 | (gfc_check_product): Removed. | |
2275 | (gfc_check_sum): Removed. | |
2276 | * intrinsic.h: Add/remove declarations for these. | |
2277 | * gfortran.h: Add field f3red to union gfc_check_f. | |
2278 | * intrinsic.c (add_sym_3red): New function. | |
2279 | (add_functions): Register maxval, minval, product, and sum intrinsics | |
2280 | through add_sym_3red. | |
2281 | (check_specific): Handle f3red union field. | |
2282 | * iresolve.c: Whitespace change. | |
2283 | ||
1619aa6f PB |
2284 | 2004-08-18 Paul Brook <paul@codesourcery.com> |
2285 | ||
2286 | * trans-types.c (gfc_sym_type): Use pointer types for optional args. | |
2287 | ||
3bc268e6 VL |
2288 | 2004-08-18 Victor Leikehman <lei@il.ibm.com> |
2289 | ||
2290 | PR fortran/13278 | |
2291 | * trans-io.c (transfer_namelist_element): New. Recursively handle | |
2292 | derived-type variables. Pass string lengths. | |
2293 | (build_dt): Code moved to build_namelist, with some | |
2294 | changes and additions. | |
2295 | (gfc_build_io_library_fndecls): Declare the fifth | |
2296 | argument in st_set_nml_var_char -- string_length. | |
2297 | ||
3d79abbd PB |
2298 | 2004-08-17 Paul Brook <paul@codesourcery.com> |
2299 | Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> | |
2300 | ||
2301 | PR fortran/13082 | |
2302 | * decl.c (get_proc_name): Update mystery comment. | |
2303 | (gfc_match_entry): Check for errors earlier. Add entry point to list. | |
2304 | * dump-parse-tree.c (gfc_show_code_node): Print EXEC_ENTRY nodes. | |
2305 | * gfortran.h (symbol_attribute): Add entry_master. Document entry. | |
2306 | (struct gfc_entry_list): Define. | |
2307 | (gfc_get_entry_list): Define. | |
2308 | (struct gfc_namespace): Add refs and entries. | |
2309 | (enum gfc_exec_op): Add EXEC_ENTRY. | |
2310 | (struct gfc_code): Add ext.entry. | |
2311 | * module.c (ab_attribute, attr_bits): Remove AB_ENTRY. | |
2312 | (mio_symbol_attribute): Don't save/reture addr->entry. | |
2313 | (mio_namespace_ref): Refcount namespaces. | |
2314 | * parse.c (accept_statement): Handle ST_ENTRY. | |
2315 | (gfc_fixup_sibling_symbols): Mark symbol as referenced. | |
2316 | (parse_contained): Fixup sibling references to entry points | |
2317 | after parsing the procedure body. | |
2318 | * resolve.c (resolve_contained_fntype): New function. | |
2319 | (merge_argument_lists, resolve_entries): New functions. | |
2320 | (resolve_contained_functions): Use them. | |
2321 | (resolve_code): Handle EXEC_ENTRY. | |
2322 | (gfc_resolve): Call resolve_entries. | |
2323 | * st.c (gfc_free_statement): Handle EXEC_ENTRY. | |
2324 | * symbol.c (gfc_get_namespace): Refcount namespaces. | |
2325 | (gfc_free_namespace): Ditto. | |
2326 | * trans-array.c (gfc_trans_dummy_array_bias): Treat all args as | |
2327 | optional when multiple entry points are present. | |
2328 | * trans-decl.c (gfc_get_symbol_decl): Remove incorrect check. | |
2329 | (gfc_get_extern_function_decl): Add assertion. Fix coment. | |
2330 | (create_function_arglist, trans_function_start, build_entry_thunks): | |
2331 | New functions. | |
2332 | (gfc_build_function_decl): Rename ... | |
2333 | (build_function_decl): ... to this. | |
2334 | (gfc_create_function_decl): New function. | |
2335 | (gfc_generate_contained_functions): Use it. | |
2336 | (gfc_trans_entry_master_switch): New function. | |
2337 | (gfc_generate_function_code): Use new functions. | |
2338 | * trans-stmt.c (gfc_trans_entry): New function. | |
2339 | * trans-stmt.h (gfc_trans_entry): Add prototype. | |
2340 | * trans-types.c (gfc_get_function_type): Add entry point argument. | |
2341 | * trans.c (gfc_trans_code): Handle EXEC_ENTRY. | |
2342 | (gfc_generate_module_code): Call gfc_create_function_decl. | |
2343 | * trans.h (gfc_build_function_decl): Remove. | |
2344 | (gfc_create_function_decl): Add prototype. | |
2345 | ||
ead6d15f AP |
2346 | 2004-08-15 Andrew Pinski <apinski@apple.com> |
2347 | ||
2348 | PR fortran/17030 | |
2349 | * f95-lang.c (gfc_init_builtin_functions): Initialize the builtins | |
2350 | for cabs{,f} and copysign{,f}. | |
f676971a EC |
2351 | * trans-decl.c (gfor_fndecl_math_cabsf): Delete. |
2352 | (gfor_fndecl_math_cabs): Delete. | |
2353 | (gfor_fndecl_math_sign4): Delete. | |
2354 | (gfor_fndecl_math_sign8): Delete. | |
ead6d15f AP |
2355 | (gfc_build_intrinsic_function_decls): Remove the |
2356 | initializing of cabs{,f} and copysign{,f} functions. | |
2357 | * trans-intrinsic.c (gfc_conv_intrinsic_abs): Use the builtins | |
2358 | instead of the functions definitions. | |
2359 | (gfc_conv_intrinsic_sign): Likewise. | |
f676971a EC |
2360 | * trans.h (gfor_fndecl_math_cabsf): Delete. |
2361 | (gfor_fndecl_math_cabs): Delete. | |
2362 | (gfor_fndecl_math_sign4): Delete. | |
2363 | (gfor_fndecl_math_sign8): Delete. | |
ead6d15f | 2364 | |
4a90aeeb NS |
2365 | 2004-08-15 Nathan Sidwell <nathan@codesourcery.com> |
2366 | ||
2367 | * trans-array.c (gfc_trans_array_constructor_value): Use | |
f676971a | 2368 | build_int_cst. |
4a90aeeb NS |
2369 | * trans-const.c (gfc_build_string_const, |
2370 | gfc_init_constants, gfc_conv_mpz_to_tree, | |
f676971a | 2371 | gfc_conv_constant_to_tree): Likewise. |
4a90aeeb NS |
2372 | * trans-decl.c (gfc_get_symbol_decl): Likewise. |
2373 | * trans-intrinsic.c (gfc_conv_intrinsic_ibits, | |
2374 | gfc_conv_intrinsic_len, prepare_arg_info): Likewise. | |
2375 | * trans-io.c (add_case, set_error_locus, build_dt, | |
2376 | transfer_expr): Likewise. | |
2377 | * trans-stmt.c (gfc_trans_label_assign, gfc_trans_pause, | |
2378 | gfc_trans_stop, gfc_trans_character_select): Likewise. | |
2379 | * trans-types.c (gfc_init_types, gfc_get_dtype): Likewise. | |
2380 | * trans.c (gfc_trans_runtime_check): Likewise. | |
2381 | ||
1d754240 PB |
2382 | 2004-08-14 Paul Brook <paul@codesourcery.com> |
2383 | ||
2384 | * trans-decl.c (gfc_build_function_decl): Remove dead code. | |
2385 | ||
3ef059b4 PB |
2386 | 2004-08-14 Paul Brook <paul@codesourcery.com> |
2387 | ||
2388 | * trans-arry.c (gfc_trans_auto_array_allocation): Remove unused var. | |
2389 | ||
4f613946 TS |
2390 | 2004-08-13 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2391 | ||
2392 | * gfortran.h: Add comments. | |
2393 | * parse.c (parse_contained): Fix comment typo. | |
2394 | * resolve.c (was_declared): Ditto. | |
2395 | * symbol.c: Ditto. | |
2396 | ||
3ec0f302 PB |
2397 | 2004-08-11 Paul Brook <paul@codeourcery.com> |
2398 | ||
2399 | PR fortran/16917 | |
2400 | * intrinsic.c (add_functions): Add dfloat as an alias for dble. | |
2401 | ||
1a186ec5 RH |
2402 | 2004-08-10 Richard Henderson <rth@redhat.com> |
2403 | ||
2404 | * f95-lang.c (gfc_init_builtin_functions): Remove | |
2405 | __builtin_stack_alloc, add __builtin_alloca. | |
2406 | * trans-array.c (gfc_trans_auto_array_allocation): Use DECL_EXPR. | |
2407 | * trans-decl.c (gfc_trans_auto_character_variable): Likewise. | |
2408 | ||
2bf26ede PB |
2409 | 2004-08-10 Paul Brook <paul@codesourcery.com> |
2410 | ||
2411 | * trans-io.c (transfer_expr): Handle pointters. | |
2412 | ||
e9cfef64 PB |
2413 | 2004-08-10 Paul Brook <paul@codesourcery.com> |
2414 | ||
2415 | PR fortran/16919 | |
2416 | * trans-array.c (gfc_add_loop_ss_code): Handle GFC_SS_COMPONENT. | |
2417 | (gfc_conv_array_index_offset): Allow "temporary" with nonzero delta. | |
2418 | (gfc_trans_preloop_setup, gfc_trans_scalarized_loop_boundary): | |
2419 | Handle GFC_SS_COMPONENT. | |
2420 | (gfc_conv_ss_startstride): Ditto. Set ss->shape. | |
2421 | (gfc_conv_loop_setup): Tweak commends. Remove dead code. | |
2422 | Use ss->shape. | |
2423 | (gfc_conv_array_initializer): Call specific initializer routines. | |
2424 | * trans-expr.c (gfc_trans_structure_assign): New function. | |
2425 | (gfc_trans_subarray_assign): New function. | |
2426 | (gfc_trans_subcomponent_assign): New fucntion | |
2427 | (gfc_conv_structure): Use them. | |
2428 | * trans.h (gfc_ss_type): Add GFC_SS_COMPONENT. | |
2429 | (gfc_ss): Add shape. | |
2430 | ||
94538bd1 VL |
2431 | 2004-08-08 Victor Leikehman <lei@il.ibm.com> |
2432 | ||
2433 | * simplify.c (gfc_simplify_shape): Bugfix. | |
2434 | * expr.c (gfc_copy_shape_excluding): New function. | |
2435 | * gfortran.h (gfc_get_shape): Bugfix. | |
2436 | (gfc_copy_shape_excluding): Added declaration. | |
2437 | * iresolve.c (gfc_resolve_all, gfc_resolve_any, gfc_resolve_count, | |
2438 | gfc_resolve_cshift, gfc_resolve_eoshift, gfc_resolve_lbound, | |
2439 | gfc_resolve_ubound, gfc_resolve_transpose): Added compile | |
2440 | time resolution of shape. | |
2441 | ||
aa6fc635 JB |
2442 | 2004-08-06 Janne Blomqvist <jblomqvi@cc.hut.fi> |
2443 | ||
2444 | * intrinsic.c (add_subroutines): Add getenv and | |
2445 | get_environment_variable. (add_sym_5s): New function. | |
2446 | * intrinsic.h (gfc_resolve_get_environment_variable): Add | |
2447 | prototype. | |
2448 | * iresolve.c (gfc_resolve_get_environment_variable): New | |
2449 | function. | |
2450 | ||
c7d78bbe FW |
2451 | 2004-08-06 Feng Wang <fengwang@nudt.edu.cn> |
2452 | ||
2453 | * f95-lang.c (gfc_init_builtin_functions): Fix the number of | |
2454 | __builtin_pow[f] arguments. | |
2455 | ||
f8e566e5 SK |
2456 | 2004-08-06 Steven G. Kargl <kargls@comcast.net> |
2457 | ||
2458 | * arith.c: Add #define for model numbers. Remove global GMP variables. | |
2459 | (natural_logarithm,common_logarithm,exponential,sine, | |
2460 | cosine,arctangent,hypercos,hypersine ): Remove. | |
2461 | (gfc_mpfr_to_mpz,gfc_set_model_kind,gfc_set_model): New functions. | |
2462 | (arctangent2,gfc_arith_init_1,gfc_arith_done_1 | |
2463 | gfc_check_real_range, gfc_constant_result, gfc_range_check, | |
2464 | gfc_arith_uminus,gfc_arith_plus, gfc_arith_minus, gfc_arith_times, | |
2465 | gfc_arith_divide,complex_reciprocal,complex_pow_ui, | |
2466 | gfc_arith_power,gfc_compare_expr,compare_complex,gfc_convert_real, | |
2467 | gfc_convert_complex,gfc_int2real,gfc_int2complex, | |
2468 | gfc_real2int,gfc_real2real,gfc_real2complex, | |
2469 | gfc_complex2int,gfc_complex2real,gfc_complex2complex): Convert GMP | |
2470 | to MPFR, use new functions. | |
2471 | * arith.h: Remove extern global variables. | |
2472 | (natural_logarithm,common_logarithm,exponential, sine, cosine, | |
2473 | arctangent,hypercos,hypersine): Remove prototypes. | |
2474 | (arctangent2): Update prototype from GMP to MPFR. | |
2475 | (gfc_mpfr_to_mpz, gfc_set_model_kind,gfc_set_model): Add prototypes. | |
2476 | * dump-parse-tree.c (gfc_show_expr): Convert GMP to MPFR. | |
2477 | * expr.c (free_expr0,gfc_copy_expr): Convert GMP to MPFR. | |
2478 | * gfortran.h (GFC_REAL_BITS): Remove. | |
2479 | (arith): Add ARITH_NAN. | |
2480 | Include mpfr.h. Define GFC_RND_MODE. | |
2481 | Rename GCC_GFORTRAN_H GFC_GFC_H. | |
2482 | (gfc_expr): Convert GMP to MPFR. | |
2483 | * module.c: Add arith.h, correct type in comment. | |
2484 | (mio_gmp_real): Convert GMP to MPFR. | |
2485 | (mio_expr): Use gfc_set_model_kind(). | |
2486 | * primary.c: Update copyright date with 2004. | |
2487 | (match_real_constant,match_const_complex_part): Convert GMP to MPFR. | |
2488 | * simplify.c: Remove global GMP variables | |
2489 | (gfc_simplify_abs,gfc_simplify_acos,gfc_simplify_aimag, | |
2490 | gfc_simplify_aint,gfc_simplify_dint,gfc_simplify_anint, | |
2491 | gfc_simplify_dnint,gfc_simplify_asin,gfc_simplify_atan, | |
2492 | gfc_simplify_atan2,gfc_simplify_ceiling,simplify_cmplx, | |
2493 | gfc_simplify_conjg,gfc_simplify_cos,gfc_simplify_cosh, | |
2494 | gfc_simplify_dim,gfc_simplify_dprod,gfc_simplify_epsilon, | |
2495 | gfc_simplify_exp,gfc_simplify_exponent,gfc_simplify_floor, | |
2496 | gfc_simplify_fraction,gfc_simplify_huge,gfc_simplify_int, | |
2497 | gfc_simplify_ifix,gfc_simplify_idint,gfc_simplify_log, | |
2498 | gfc_simplify_log10,simplify_min_max,gfc_simplify_mod, | |
2499 | gfc_simplify_modulo,gfc_simplify_nearest,simplify_nint, | |
2500 | gfc_simplify_rrspacing,gfc_simplify_scale, | |
2501 | gfc_simplify_set_exponent,gfc_simplify_sign,gfc_simplify_sin, | |
2502 | gfc_simplify_sinh,gfc_simplify_spacing,gfc_simplify_sqrt, | |
2503 | gfc_simplify_tan,gfc_simplify_tanh,gfc_simplify_tiny, | |
2504 | gfc_simplify_init_1,gfc_simplify_done_1): Convert GMP to MPFR. | |
2505 | Use new functions. | |
2506 | * trans-const.c (gfc_conv_mpfr_to_tree): Rename from | |
2507 | gfc_conv_mpf_to_tree. Convert it to use MPFR | |
2508 | (gfc_conv_constant_to_tree): Use it. | |
2509 | * trans-const.h: Update prototype for gfc_conv_mpfr_to_tree(). | |
2510 | * trans-intrinsic.c: Add arith.h, remove gmp.h | |
2511 | (gfc_conv_intrinsic_aint,gfc_conv_intrinsic_mod): Convert GMP to MPFR. | |
2512 | ||
fc90a8f2 PB |
2513 | 2004-08-06 Victor Leikehman <lei@il.ibm.com> |
2514 | Paul Brook <paul@codesourcery.com> | |
2515 | ||
2516 | * trans-array.c (gfc_trans_allocate_array_storage, | |
2517 | gfc_trans_allocate_temp_array, gfc_add_loop_ss_code, | |
2518 | gfc_conv_loop_setup): For functions, if the shape of the result | |
2519 | is not known in compile-time, generate an empty array descriptor for | |
2520 | the result and let the callee to allocate the memory. | |
2521 | (gfc_trans_dummy_array_bias): Do nothing for pointers. | |
2522 | (gfc_conv_expr_descriptor): Use function return values directly. | |
2523 | * trans-expr.c (gfc_conv_function_call): Always add byref call | |
2524 | insn to pre chain. | |
2525 | (gfc_trans_pointer_assignment): Add comments. | |
2526 | (gfc_trans_arrayfunc_assign): Don't chain on expression. | |
2527 | ||
fc2d8429 RS |
2528 | 2004-08-01 Roger Sayle <roger@eyesopen.com> |
2529 | ||
2530 | * options.c (gfc_init_options): Don't warn about the use GNU | |
2531 | extensions by default. | |
2532 | (gfc_post_options): Warn about GNU extensions with -pedantic. | |
2533 | (gfc_handle_option): Don't warn about GNU extensions with -std=gnu. | |
2534 | ||
0534fa56 RH |
2535 | 2004-07-30 Richard Henderson <rth@redhat.com> |
2536 | ||
2537 | * trans-expr.c (gfc_conv_expr_reference): Create a CONST_DECL | |
2538 | for TREE_CONSTANTs. | |
2539 | ||
b785f485 RH |
2540 | 2004-07-25 Richard Henderson <rth@redhat.com> |
2541 | ||
2542 | * trans-decl.c (gfc_build_function_decl): Set DECL_ARTIFICIAL | |
2543 | and DECL_IGNORED_P on RESULT_DECL. | |
2544 | (gfc_generate_constructors): Likewise. | |
2545 | ||
f56c5d5d TS |
2546 | 2004-07-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2547 | ||
2548 | PR fortran/16465 | |
2549 | * lang.opt (ffixed-line-length-none, ffixed-line-length-): New | |
2550 | options. | |
2551 | (ffixed-line-length-80, ffixed-line-length-132): Remove. | |
2552 | * options.c (gfc_handle_options): Deal with changed options. | |
2553 | * scanner.c (load_line): Change second arg to 'char **', | |
2554 | allocate if pointing to NULL. Keep track of buffer's length. | |
2555 | Adapt buffer size to overlong lines. Pad lines to full length | |
2556 | in fixed form. | |
2557 | (load_file): Adapt to new interface of load_line. | |
2558 | ||
6e34d3a3 JM |
2559 | 2004-07-17 Joseph S. Myers <jsm@polyomino.org.uk> |
2560 | ||
2561 | * trans.h (builtin_function): Declare. | |
2562 | ||
c9583ed2 TS |
2563 | 2004-07-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2564 | ||
2565 | PR fortran/16404 | |
2566 | (parts ported from g95) | |
2567 | * parse.h (gfc_state_data): New field do_variable. | |
2568 | (gfc_check_do_variable): Add prototype. | |
2569 | * parse.c (push_state): Initialize field 'do_variable'. | |
2570 | (gfc_check_do_variable): New function. | |
2571 | (parse_do_block): Remember do iterator variable. | |
2572 | (parse_file): Initialize field 'do_variable'. | |
2573 | * match.c (gfc_match_assignment, gfc_match_do, | |
2574 | gfc_match_allocate, gfc_match_nullify, gfc_match_deallocate): | |
2575 | Add previously missing checks. | |
2576 | (gfc_match_return): Reformat error message. | |
2577 | * io.c (match_out_tag): New function. | |
2578 | (match_open_element, match_close_element, | |
2579 | match_file_element, match_dt_element): Call match_out_tag | |
2580 | instead of match_vtag where appropriate. | |
2581 | (match_io_iterator, match_io_element): Add missing check. | |
2582 | (match_io): Reformat error message. | |
2583 | (match_inquire_element): Call match_out_tag where appropriate. | |
2584 | ||
b38b6477 TS |
2585 | * parse.c (gfc_check_do_variable): Fix error locus. |
2586 | ||
d157d978 TS |
2587 | 2004-07-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2588 | ||
2589 | PR fortran/15129 | |
2590 | * trans-decl.c (gfc_build_function_decl): Create a new chardecl | |
2591 | for every assumed length character dummy argument. | |
2592 | ||
c5a41953 TS |
2593 | PR fortran/15140 |
2594 | * trans-decl.c (gfc_trans_deferred_vars): Remove bogus assertion. | |
0c0df4b3 TS |
2595 | |
2596 | PR fortran/13792 | |
2597 | * simplify.c (gfc_simplify_bound): Copy the bound expression. | |
2598 | ||
20c9dc8a TS |
2599 | 2004-07-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2600 | ||
769d99d9 | 2601 | PR fortran/15324 |
20c9dc8a TS |
2602 | * trans-array.c gfc_trans_g77_array, |
2603 | gfc_trans_dummy_array_bias): Don't call gfc_trans_string_init | |
2604 | for assumed length characters. | |
2605 | (gfc_conv_expr_descriptor): Set se->string_length if dealing | |
2606 | with a character expression. | |
2607 | (gfc_cvonv_array_parameter): Pass string length when passing | |
2608 | character array according to g77 conventions. | |
2609 | ||
597073ac PB |
2610 | 2004-07-12 Paul Brook <paul@codesourcery.com> |
2611 | ||
2612 | * expr.c (gfc_check_assign_symbol): Handle pointer assignments. | |
2613 | * trans-array.c (gfc_trans_auto_array_allocation): Remove | |
2614 | initialization code. | |
2615 | * trans-common.c (create_common): Use gfc_conv_initializer. | |
2616 | * trans-decl.c (gfc_get_symbol_decl): Use gfc_conv_initializer. | |
2617 | * trans-expr.c (gfc_conv_initializer): New function. | |
2618 | (gfc_conv_structure): Use it. | |
2619 | * trans.h (gfc_conv_initializer): Add prototype. | |
2620 | ||
682e69e1 PB |
2621 | 2004-07-11 Paul Brook <paul@codesourcery.com> |
2622 | ||
2623 | PR fortran/15986 | |
2624 | * parse.c (gfc_fixup_sibling_symbols): Also look for untyped | |
2625 | variables. | |
2626 | (parse_contained): Mark contained symbols as referenced. | |
2627 | ||
87bdc5f8 TS |
2628 | 2004-07-11 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2629 | ||
953e6630 | 2630 | PR fortran/16455 |
87bdc5f8 TS |
2631 | * module.c (gfc_dump_module, gfc_use_module): Print locus |
2632 | when opening of module file fails. | |
2633 | ||
cdde7b65 TS |
2634 | PR fortran/16404 |
2635 | * io.c (match_io): Flag 'WRITE(...), ...' as extension. | |
e08b5a75 TS |
2636 | |
2637 | PR fortran/16404 | |
2638 | * match.c (gfc_match_program): A program name is obligatory. | |
2639 | (gfc_match_return): RETURN in main program is an extension. | |
2640 | (gfc_match_block_data): A space is required before a block data | |
2641 | name. | |
88199e7c TS |
2642 | |
2643 | PR fortran/16433 | |
2644 | * primary.c (match_boz_constant): Call gfc_notify_std only if | |
2645 | we actually have a non-standard boz-literal-constant. | |
2646 | ||
f23c5627 TS |
2647 | PR fortran/15754 |
2648 | * expr.c (gfc_check_assign): Print ranks if incompatible. Issue | |
2649 | warning if assigning NULL(). | |
2650 | ||
9dcf6e73 JM |
2651 | 2004-07-11 Joseph S. Myers <jsm@polyomino.org.uk> |
2652 | ||
2653 | * f95-lang.c (set_block): Remove. | |
2654 | (gfc_clear_binding_stack): New. | |
2655 | (LANG_HOOKS_CLEAR_BINDING_STACK): Define. | |
2656 | (struct binding_level): Remove block_created_by_back_end. | |
2657 | (clear_binding_level): Likewise. | |
2658 | (poplevel): Don't handle block_created_by_back_end. | |
2659 | ||
9cbf8b41 TS |
2660 | 2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2661 | ||
2662 | * trans-decl.c (gfc_create_module_variable): Nothing to do if | |
2663 | symbol is in common, because we ... | |
2664 | (gfc_generate_module_vars): Call gfc_trans_common. | |
2665 | ||
331c72f3 PB |
2666 | 2004-07-10 Paul Brook <paul@codesourcery.com> |
2667 | ||
2668 | * trans-array.c (gfc_build_null_descriptor): New function. | |
2669 | (gfc_trans_static_array_pointer): Use it. | |
2670 | * trans-array.h (gfc_build_null_descriptor): Add prototype. | |
2671 | * trans-expr.c (gfc_conv_structure): Handle array pointers. | |
2672 | ||
53814b8f | 2673 | 2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
f676971a | 2674 | |
53814b8f TS |
2675 | PR fortran/16336 |
2676 | * decl.c (gfc_match_save): Use-associated common block | |
2677 | doesn't collide. | |
2678 | * gfortran.h (gfc_common_head): Add new field 'name'. | |
2679 | Fix typo in comment after #endif. | |
2680 | * match.c (gfc_get_common): Add new argument from_common, | |
2681 | mangle name if flag is set, fill in new field in structure | |
2682 | gfc_common_head. | |
2683 | (match_common): Set new arg in call to gfc_get_common, | |
2684 | use-associated common block doesn't collide. | |
2685 | * match.h (gfc_get_common): Adapt prototype. | |
2686 | * module.c (load_commons): Set new arg in call to | |
2687 | gfc_get_common. | |
2688 | * symbol.c (free_common_tree): New function. | |
2689 | (gfc_free_namespace): Call new function. | |
2690 | * trans-common.c (several functions): Remove argument | |
2691 | 'name', use name from gfc_common_head instead. | |
2692 | ||
7d76d73a TS |
2693 | 2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2694 | ||
2695 | * expr.c (gfc_check_pointer_assign): Verify that rank of the LHS | |
2696 | and RHS match. Return early if the RHS is NULL(). | |
2697 | ||
794ba78b TS |
2698 | PR fortran/16336 |
2699 | * match.c (match_common): Fix error reporting for used common. | |
2700 | ||
104b260c TS |
2701 | PR fortran/15969 |
2702 | * trans-expr.c (gfc_conv_structure): Handle initialization | |
2703 | of scalar pointer components. | |
2704 | ||
24727d92 TS |
2705 | * parse.c (decode_statement): Fix matching of BLOCK DATA. |
2706 | ||
77dc4103 TS |
2707 | * trans-decl.c (generate_local_decl): Remove workaround obsoleted |
2708 | by fix for PR 15481. | |
f676971a | 2709 | |
a8a6b603 TS |
2710 | 2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2711 | ||
2712 | * trans-common.c: Fix whitespace issues, make variable names | |
2713 | more readable. | |
2714 | (create_common): Additionally, make loop logic more obvious. | |
2715 | ||
2716 | 2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> | |
ad6e2a18 TS |
2717 | Paul Brook <paul@codesourcery.com> |
2718 | ||
2719 | PR fortran/13415 | |
2720 | * trans-common.c (calculate_length): Remove ... | |
2721 | (get_segment_info): Merge into here. Save field type. | |
2722 | (build_field): Use saved type. | |
2723 | (create_common, new_condition, new_segment, finish_equivalences): | |
2724 | Use new get_segment_info. | |
2725 | * trans-types.c: Update comment. | |
2726 | ||
8598a113 | 2727 | 2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
f676971a | 2728 | |
8598a113 TS |
2729 | PR fortran/14077 |
2730 | * moduele.c (mio_symbol): Don't I/O initial values unless | |
2731 | symbol is a parameter. | |
2732 | ||
4077d207 | 2733 | 2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
f676971a | 2734 | |
4077d207 TS |
2735 | PR fortran/13201 |
2736 | * resolve.c (resolve_symbol): Verify that the shape of a | |
2737 | parameter array is not only explicit, but also constant. | |
2738 | * array.c (gfc_is_compile_time_shape): New function. | |
2739 | * gfortran.h (gfc_is_compile_time_shape): Add prototype. | |
2740 | ||
51281118 TS |
2741 | 2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2742 | ||
2743 | PR fortran/15481 | |
2744 | PR fortran/13372 | |
2745 | PR fortran/13575 | |
2746 | PR fortran/15978 | |
2747 | * module.c (write_symbol, write_symtree): Remove workaround. | |
2748 | * primary.c (match_actual_arglist): Enhance comment. | |
2749 | (gfc_match_rvalue): Handle function call with first argument | |
2750 | a keyword argument correctly. | |
2751 | * resolve.c (resolve_symbol): Change call to | |
2752 | gfc_set_default_type to issue error if no implicit type | |
2753 | can be found. | |
2754 | * trans-decl.c (gfc_create_module_variable): Remove workaround. | |
f676971a | 2755 | |
60c9a35b PB |
2756 | 2004-07-08 Paul Brook <paul@codesourcery.com> |
2757 | ||
2758 | * intrinsic.c (add_sym_4s): New function. | |
2759 | (add_subroutines): Change gfc_add_sym_? to gfc_add_sym_?s. | |
2760 | ||
b41b2534 JB |
2761 | 2004-07-04 Janne Blomqvist <jblomqvi@cc.hut.fi> |
2762 | Paul Brook <paul@codesourcery.com> | |
2763 | ||
2764 | PR fortran/15280 | |
2765 | PR fortran/15665 | |
2766 | * gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_IARGC and | |
2767 | GFC_ISYM_COMMAND_ARGUMENT_COUNT. | |
2768 | * intrinsic.c (add_functions): Identify iargc. Add | |
2769 | command_argument_count. | |
2770 | (add_subroutines): Resolve getarg. Add get_command and | |
2771 | get_command_argument. | |
2772 | * intrinsic.h (gfc_resolve_getarg, gfc_resolve_get_command, | |
2773 | gfc_resolve_get_command_argument): Add prototypes. | |
2774 | * iresolve.c (gfc_resolve_getarg, gfc_resolve_get_command, | |
2775 | gfc_resolve_get_command_argument): New functions. | |
2776 | * trans-decl.c (gfor_fndecl_iargc): New variable. | |
2777 | (gfc_build_intrinsic_function_decls): Set it. | |
2778 | * trans-intrinsic.c (gfc_conv_intrinsic_iargc): New function. | |
2779 | (gfc_conv_intrinsic_function): Use it. | |
2780 | * trans.h (gfor_fndecl_iargc): Declare. | |
2781 | ||
e62be46e MK |
2782 | 2004-07-04 Matthias Klose <doko@debian.org> |
2783 | ||
2784 | * Make-lang.in: Generate and install gfortran man page. | |
2785 | * invoke.texi: Remove extra '@c man end'. | |
2786 | ||
8fff4fc1 RH |
2787 | 2004-07-04 Richard Henderson <rth@redhat.com> |
2788 | ||
2789 | * f95-lang.c (gfc_mark_addressable): Don't put_var_into_stack. | |
2790 | ||
1107b970 PB |
2791 | 2004-07-04 Paul Brook <paul@codesourcery.com> |
2792 | ||
2793 | * decl.c (gfc_match_implicit_range): Don't use typespec. | |
2794 | (gfc_match_implicit): Handle character selectors. | |
2795 | * gfortran.h (gfc_set_implicit): Remove prototype. | |
2796 | (gfc_add_new_implicit_range, gfc_merge_new_implicit): Update. | |
2797 | * parse.c (accept_statement): Don't call gfc_set_implicit. | |
2798 | * symbol.c (new_ts): Remove. | |
2799 | (gfc_set_implicit_none): Use same loop bounds as other functions. | |
2800 | (gfc_set_implicit): Remove. | |
2801 | (gfc_clear_new_implicit, gfc_add_new_implicit_range): Only set flags. | |
2802 | (gfc_merge_new_implicit): Combine with gfc_set_implicit. | |
2803 | ||
4025c040 RH |
2804 | 2004-06-30 Richard Henderson <rth@redhat.com> |
2805 | ||
276b3fab RH |
2806 | * match.c (var_element): Remove unused variable. |
2807 | ||
4025c040 RH |
2808 | * trans-decl.c (gfc_generate_function_code): Don't set |
2809 | x_whole_function_mode_p. | |
2810 | (gfc_generate_constructors): Likewise. | |
2811 | ||
6a0bec2c RH |
2812 | 2004-06-30 Richard Henderson <rth@redhat.com> |
2813 | ||
2814 | * trans-decl.c (gfc_generate_function_code): Don't set | |
2815 | immediate_size_expand. | |
2816 | (gfc_generate_constructors): Likewise. | |
2817 | ||
e5ddaa24 TS |
2818 | 2004-06-30 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2819 | ||
2820 | PR fortran/16161 | |
2821 | * decl.c (gfc_match_type_spec): Rename second argument to | |
2822 | 'implicit_flag', reverse meaning. Don't match_char_spec if | |
2823 | 'implicit_flag' is set. Rename to ... | |
2824 | (match_type_spec): ... this. | |
2825 | (gfc_match_implicit_none, match_implicit_range): Move here | |
2826 | from match.c. | |
2827 | (gfc_match_implicit): Move here from match.c, try to | |
2828 | match_char_len if match_implicit_range doesn't succeed for | |
2829 | CHARACTER implicits. Call renamed fucntion match_type_spec. | |
2830 | (gfc_match_data_decl, match_prefix): Call renamed function | |
2831 | match_type_spec. | |
2832 | * match.c (gfc_match_implicit_none, match_implicit_range, | |
2833 | gfc_match_implicit): Move to decl.c. | |
2834 | * match.h (gfc_match_implicit_none, gfc_match_implicit): | |
2835 | Move protoypes to section 'decl.c'. | |
2836 | (gfc_match_type_spec): Remove prototype. | |
2837 | ||
ef558756 TS |
2838 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2839 | ||
f676971a | 2840 | * decl.c, interface.c, symbol.c, trans-common.c: Add 2004 to |
ef558756 TS |
2841 | copyright years. |
2842 | ||
7ab92584 SB |
2843 | 2004-06-29 Steven Bosscher <stevenb@suse.de> |
2844 | ||
2845 | Make sure types in assignments are compatible. Mostly mechanical. | |
2846 | * trans-const.h (gfc_index_one_node): New define. | |
2847 | * trans-array.c (gfc_trans_allocate_array_storage, | |
2848 | gfc_trans_allocate_temp_array, gfc_trans_array_constructor_subarray, | |
2849 | gfc_trans_array_constructor_value, gfc_trans_array_constructor, | |
2850 | gfc_conv_array_ubound, gfc_conv_array_ref, | |
2851 | gfc_trans_scalarized_loop_end, gfc_conv_section_startstride, | |
2852 | gfc_conv_ss_startstride, gfc_conv_loop_setup, gfc_array_init_size, | |
2853 | gfc_trans_array_bounds, gfc_trans_dummy_array_bias, | |
2854 | gfc_conv_expr_descriptor, gfc_trans_deferred_array): Use the correct | |
2855 | types in assignments, conversions and conditionals for expressions. | |
2856 | * trans-expr.c (gfc_conv_expr_present, gfc_conv_substring, | |
2857 | gfc_conv_unary_op, gfc_conv_cst_int_power, gfc_conv_string_tmp, | |
2858 | gfc_conv_function_call, gfc_trans_pointer_assignment, | |
2859 | gfc_trans_scalar_assign): Likewise. | |
2860 | * trans-intrinsic.c (build_fixbound_expr, gfc_conv_intrinsic_bound, | |
2861 | gfc_conv_intrinsic_anyall, gfc_conv_intrinsic_count, | |
2862 | gfc_conv_intrinsic_minmaxloc, gfc_conv_intrinsic_btest, | |
2863 | gfc_conv_intrinsic_singlebitop, gfc_conv_intrinsic_ishft, | |
2864 | gfc_conv_intrinsic_ishftc, gfc_conv_intrinsic_strcmp, | |
2865 | gfc_conv_allocated, gfc_conv_associated, | |
2866 | gfc_conv_intrinsic_rrspacing, gfc_conv_intrinsic_trim): Likewise. | |
2867 | * trans-io.c (set_string): Likewise. | |
2868 | * trans-stmt.c (gfc_trans_do, gfc_trans_forall_loop, | |
2869 | gfc_do_allocate, generate_loop_for_temp_to_lhs, | |
2870 | generate_loop_for_rhs_to_temp, compute_inner_temp_size, | |
2871 | compute_overall_iter_number, gfc_trans_assign_need_temp, | |
2872 | gfc_trans_pointer_assign_need_temp, gfc_trans_forall_1, | |
2873 | gfc_evaluate_where_mask, gfc_trans_where_assign, | |
2874 | gfc_trans_where_2): Likewise. | |
2875 | * trans-types.c (gfc_get_character_type, gfc_build_array_type, | |
2876 | gfc_get_nodesc_array_type, gfc_get_array_type_bounds): Likewise. | |
2877 | ||
2878 | * trans.c (gfc_add_modify_expr): Add sanity check that types | |
2879 | for the lhs and rhs are the same for scalar assignments. | |
2880 | ||
fbc9b453 TS |
2881 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2882 | ||
2883 | * dump-parse-tree.c (show_common): New function. | |
2884 | (gfc_show_namespace): Show commons. | |
2885 | ||
9056bd70 TS |
2886 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2887 | Andrew Vaught <andyv@firstinter.net> | |
2888 | ||
2889 | PR fortran/13249 | |
2890 | PR fortran/15481 | |
ef558756 | 2891 | * decl.c (gfc_match_save): Adapt to new common structures, |
9056bd70 TS |
2892 | don't allow saving USE-associated common. |
2893 | * dump-parse-tree (gfc_show_attr): (saved_)common are not | |
2894 | symbol attributes any longer. | |
2895 | (gfc_show_symbol): Don't show old-style commons any longer. | |
2896 | (gfc_show_namespace): Adapt call to gfc_traverse_symtree to new | |
2897 | interface. | |
2898 | * gfortran.h (symbol_attribute): Remove common and saved_common | |
2899 | attributes. | |
2900 | (gfc_symbol): Remove common_head element. | |
2901 | (gfc_common_head): New struct. | |
2902 | (gfc_get_common_head): New macro. | |
2903 | (gfc_symtree): Add field 'common' to union. | |
2904 | (gfc_namespace): Add field 'common_root'; change type of field | |
2905 | 'blank_common' to blank_common. | |
2906 | (gfc_add_data): New prototype. | |
2907 | (gfc_traverse_symtree): Expect a symtree as first argument | |
2908 | instead of namespace. | |
2909 | * match.c (gfc_get_common): New function. | |
2910 | (match_common_name): Change to take char * as argument, adapt, | |
2911 | fix bug with empty name. | |
2912 | (gfc_match_common): Adapt to new data structures. Disallow | |
2913 | redeclaration of USE-associated COMMON-block. Fix bug with | |
2914 | empty common. | |
2915 | (var_element): Adapt to new common structures. | |
2916 | * match.h (gfc_get_common): Declare. | |
2917 | * module.c: Add 2004 to copyright years, add commons to module | |
2918 | file layout description. | |
2919 | (ab_attribute, attr_bits, mio_symbol_attributes): Remove code | |
2920 | for removed attributes. | |
2921 | (mio_symbol): Adapt to new way of storing common relations. | |
2922 | (load_commons): New function. | |
2923 | (read_module): Skip common list on first pass, load_commons at | |
2924 | second. | |
2925 | (write_commons): New function. | |
2926 | (write_module): Call write_commons(). | |
2927 | * symbol.c (gfc_add_saved_comon, gfc_add_common): Remove | |
2928 | functions related to removed attributes. | |
2929 | (gfc_add_data): New function. | |
2930 | (gfc_clear_attr): Don't set removed attributes. | |
2931 | (gfc_copy_attr): Don't copy removed attributes. | |
2932 | (traverse_symtree): Remove. | |
f676971a | 2933 | (gfc_traverse_symtree): Don't traverse symbol |
9056bd70 TS |
2934 | tree of the passed namespace, but require a symtree to be passed |
2935 | instead. Unify with traverse_symtree. | |
2936 | (gfc_traverse_ns): Call gfc_traverse_symtree according to new | |
2937 | interface. | |
2938 | (save_symbol): Remove setting of removed attribute. | |
2939 | * trans-common.c (gfc_sym_mangled_common_id): Change to | |
2940 | take 'char *' argument instead of 'gfc_symbol'. | |
2941 | (build_common_decl, new_segment, translate_common): Adapt to new | |
2942 | data structures, add new | |
2943 | argument name. | |
2944 | (create_common): Adapt to new data structures, add new | |
2945 | argument name. Fix typo in intialization of derived types. | |
2946 | (finish_equivalences): Add second argument in call to | |
2947 | create_common. | |
2948 | (named_common): take 'gfc_symtree' instead of 'gfc_symbol'. | |
2949 | (gfc_trans_common): Adapt to new data structures. | |
f676971a | 2950 | * trans-decl.c (gfc_create_module_variables): Remove test for |
e23667c6 | 2951 | removed attribute. |
9056bd70 | 2952 | |
50d78f96 TS |
2953 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2954 | ||
2955 | * io.c: Add 2004 to copyright years. | |
2956 | ||
c9543002 TS |
2957 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2958 | Andrew Vaught <andyv@firstinter.net> | |
2959 | ||
2960 | * gfortran.h (gfc_gsymbol): New typedef. | |
2961 | (gfc_gsym_root): New variable. | |
2962 | (gfc_get_gsymbol, gfc_find_gsym): New prototypes. | |
2963 | * parse.c (global_used): New function. | |
2964 | (parse_block_data): Check for double empty BLOCK DATA, | |
2965 | use global symbol table. | |
2966 | (parse_module): Use global symbol table. | |
2967 | (add_global_procedure, add_global_program): New functions. | |
2968 | (gfc_parse_file): Use global symbol table. | |
2969 | * symbol.c (gfc_gsym_root): New variable. | |
2970 | (gfc_find_gsym, gsym_compare, gfc_get_gsymbol): New | |
2971 | functions. | |
2972 | ||
78f2fb08 TS |
2973 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2974 | ||
2975 | * module.c (mio_gmp_real): Correct writing of negative numbers. | |
2976 | ||
2977 | 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> | |
e063a048 TS |
2978 | |
2979 | PR fortran/15963 | |
2980 | * expr.c (check_intrinsic_op): Allow comparison of characters. | |
2981 | Make logic easier. | |
2982 | ||
ddc9ce91 TS |
2983 | 2004-06-26 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
2984 | Andrew Vaught <andyv@firstinter.net> | |
2985 | ||
2986 | * decl.c (contained_procedure): New function. | |
2987 | (match_end): Verify correctness of END STATEMENT in | |
2988 | all cases. | |
2989 | ||
2990 | 2004-06-26 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> | |
2991 | Andrew Vaught <andyv@firstinter.net> | |
0ff0dfbf TS |
2992 | |
2993 | PR fortran/15190 | |
2994 | * decl.c (gfc_match_type_spec), io.c (match_io), parse.c | |
2995 | (decode_statement): Enforce required space in free-form. | |
2996 | ||
ddc9ce91 | 2997 | 2004-06-22 Richard Kenner <kenner@vlsi1.ultra.nyu.edu> |
44de5aeb RK |
2998 | |
2999 | * f95-lang.c (LANG_HOOKS_GIMPLE_BEFORE_INLINING): Deleted. | |
3000 | * trans-array.c (gfc_conv_descriptor_data): Add operand | |
3001 | for COMPONENT_REF. | |
3002 | (gfc_conv_descriptor_offset, gfc_conv_descriptor_dtype): Likewise. | |
3003 | (gfc_conv_descriptor_dimension, gfc_conv_descriptor_stride): Likewise. | |
3004 | (gfc_conv_descriptor_lbound, gfc_conv_descriptor_ubound): Likewise. | |
3005 | * trans-common.c (create_common): Likewise. | |
3006 | * trans-expr.c (gfc_conv_component_ref): Likewise. | |
3007 | * trans-io.c (set_parameter_value): Likewise. | |
3008 | (set_parameter_ref, set_string, set_flag, io_result): Likewise. | |
3009 | (transfer_expr): Likewise. | |
3010 | * trans-decl.c (gfc_trans_auto_character_variable): | |
3011 | Set up to get DECL_SIZE and DECL_SIZE_UNIT gimplified. | |
ddc9ce91 | 3012 | (gfc_gimplify_function): New function. |
44de5aeb RK |
3013 | (gfc_generate_function-code): Properly handle nested functions. |
3014 | * trans.c (gfc_build_array_ref): Add two new operands for ARRAY_REF. | |
3015 | ||
8750f9cd JB |
3016 | 2004-06-22 Janne Blomqvist <jblomqvi@cc.hut.fi> |
3017 | ||
3018 | PR fortran/15750 | |
3019 | * io.c (gfc_match_inquire): Bugfix for iolength related stuff. | |
3020 | (gfc_resolve_inquire): Resolve the iolength tag. Return | |
3021 | SUCCESS at end of function if no failure has occured. | |
3022 | * resolve.c (resolve_code): Resolve if iolength is encountered. | |
3023 | * trans-io.c: (ioparm_iolength, iocall_iolength, | |
3024 | iocall_iolength_done): New variables. | |
3025 | (last_dt): Add IOLENGTH. | |
3026 | (gfc_build_io_library_fndecls ): Set iolength related variables. | |
3027 | (gfc_trans_iolength): Implement. | |
3028 | (gfc_trans_dt_end): Treat iolength as a third form of data transfer. | |
3029 | ||
fa841200 TS |
3030 | 2004-06-21 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de |
3031 | ||
3032 | PR fortran/15511 | |
3033 | * scanner.c (load_line): Don't truncate preprocessor lines. | |
3034 | Reformat error message. | |
3035 | (preprocessor_line): Issue warning in case of malformed | |
f676971a | 3036 | preprocessor line. |
fa841200 | 3037 | |
f5e440e1 TS |
3038 | 2004-06-21 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3039 | ||
3040 | * resolve.c (resolve_symbol): Add comment in function body. | |
3041 | (check_data_variable): Change type of mark to ar_type, adapt code | |
3042 | accordingly. | |
3043 | ||
da4f9e3b TS |
3044 | 2004-06-21 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3045 | ||
3046 | * array.c (gfc_insert_constructor): Avoid redundant call to | |
3047 | mpz_comp. Add 2004 to copyright years. | |
f676971a | 3048 | |
b40410b9 JM |
3049 | 2004-06-21 Joseph S. Myers <jsm@polyomino.org.uk> |
3050 | ||
3051 | * trans.h (stmtblock_t): Change has_scope to unsigned int. | |
3052 | ||
160874e4 SK |
3053 | 2004-06-20 Steven G. Kargl <kargls@comcast.net> |
3054 | ||
3055 | * arith.c (gfc_range_check): correct complex underflow. | |
3056 | ||
6ef42154 TS |
3057 | 2004-06-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3058 | ||
3059 | PR fortran/15962 | |
3060 | * match.c (match_case_selector): Call gfc_match_init_expr | |
3061 | instead of gfc_match_expr. | |
3062 | * resolve.c (validate_case_label_expr): No need to check for | |
3063 | constant, since it wouldn't have been matched with the fix to | |
3064 | match.c. | |
3065 | ||
f51d8522 | 3066 | 2004-06-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
7031baf4 TS |
3067 | |
3068 | PR fortran/15211 | |
3069 | * trans-intrinsic.c (gfc_conv_intrinsic_len): Deal with arrays | |
f676971a | 3070 | of strings. |
7031baf4 | 3071 | |
ce738b86 TS |
3072 | 2004-06-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3073 | ||
3074 | PR fortran/15510 | |
3075 | * trans-deecl.c (generate_local_decl): Do not issue warning for | |
3076 | unused variables if they're use associated. | |
3077 | ||
3078 | 2004-06-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> | |
6615c446 | 3079 | Andrew Vaught <andyv@firstinter.net> |
f3207b37 TS |
3080 | |
3081 | PR fortran/14928 | |
3082 | * gfortran.h (gfc_check_f): Add new field f3ml. | |
3083 | * check.c (gfc_check_minloc_maxloc): Take argument list instead | |
3084 | of individual arguments, reorder if necessary. | |
3085 | * intrinsic.h (gfc_check_minloc_maxloc): ... adapt prototype. | |
3086 | * intrinsic.c (add_sym_3ml): New function. | |
3087 | (add_functions): Change to add_sym_3ml for MINLOC, MAXLOC. | |
f676971a | 3088 | (check_specific): Catch special case MINLOC, MAXLOC. |
f3207b37 | 3089 | |
6956a6f3 PB |
3090 | 2004-06-14 Paul Brook <paul@codesourcery.com> |
3091 | ||
3092 | * intrinsic.c (add_sym_2s): Use correct function types. | |
3093 | ||
fd528377 TS |
3094 | 2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3095 | ||
b3b65c9a | 3096 | * Make-lang.in (F95_OBJS, F95_PARSER_OBJS): Alphabetize. Move data.c |
fd528377 TS |
3097 | * data.c (gfc_get_section_index): Remove dependency on trans.h. |
3098 | ||
2bd74949 SK |
3099 | 2004-06-12 Steven G. Kargl <kargls@comcast.net> |
3100 | ||
3101 | * check.c (gfc_check_second_sub, gfc_check_irand, gfc_check_rand | |
3102 | gfc_check_srand, gfc_check_etime, gfc_check_etime_sub): New functions. | |
3103 | * gfortran.h (gfc_generic_isym_id): New symbols GFC_ISYM_ETIME, | |
3104 | GFC_ISYM_IRAND, GFC_ISYM_RAND, GFC_ISYM_SECOND. | |
3105 | * trans-intrinsic.c: Use symbols. | |
3106 | * intrinsic.c (add_sym_2s): New function. | |
3107 | * intrinsic.c: Add etime, dtime, irand, rand, second, srand. | |
3108 | * intrinsic.h: Function prototypes. | |
f676971a | 3109 | * iresolve.c (gfc_resolve_etime_sub, gfc_resolve_second_sub |
2bd74949 SK |
3110 | gfc_resolve_srand): New functions. |
3111 | ||
c52eae8d TS |
3112 | 2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3113 | ||
3114 | PR fortran/14957 | |
3115 | * decl.c (gfc_match_end): Require END {SUBROUTINE|FUNCTION} for | |
3116 | contained procedure. | |
f676971a | 3117 | |
662ef0f5 TS |
3118 | 2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3119 | ||
3120 | PR fortran/12841 | |
3121 | * interface.c (compare_parameter, compare_actual_formal): Don't | |
3122 | check types and array shapes for NULL() | |
3123 | * trans-expr.c (conv_function_call): No double indirection for | |
f676971a | 3124 | NULL() |
662ef0f5 | 3125 | |
293155b0 TM |
3126 | 2004-06-09 Toon Moene <toon@moene.indiv.nluug.nl> |
3127 | ||
3128 | * trans-expr.c (gfc_conv_cst_int_power): Compute | |
3129 | x**(-n) by converting it to (1/x)**n instead of | |
3130 | 1/x**n. | |
3131 | ||
62f1d470 TS |
3132 | 2004-06-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3133 | ||
3134 | PR fortran/13372 | |
3135 | * module.c (write_symbol, write_symtree): Don't write symbols | |
3136 | wrongly added to namespace. | |
3137 | * trans-decl.c (gfc_create_module_variable): Don't create a | |
3138 | backend decl for a symbol incorrectly added to namespace. | |
3139 | ||
a4ac5dd3 TS |
3140 | 2004-06-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3141 | ||
3142 | PR fortran/13201 | |
3143 | * resolve.c (resolve_symbol): Verify that parameter array has an | |
3144 | explicit shape. Fix typos and coding style issues in surrounding | |
3145 | lines. | |
3146 | ||
3147 | 2004-06-05 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> | |
e0f2a7c6 TS |
3148 | |
3149 | PR fortran/15478 | |
3150 | * gfortran.texi: The documentation doesn't contain infomration on | |
3151 | how to report bugs, and shouldn't, so remove the line which | |
3152 | says it does. | |
3153 | ||
f9fed73b TS |
3154 | 2004-06-05 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3155 | ||
f676971a | 3156 | * intrinsic.c (sort_actual): Keep track of type of missing |
f9fed73b TS |
3157 | arguments. (Missing from previous commit.) |
3158 | ||
1600fe22 TS |
3159 | 2004-06-03 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3160 | ||
3161 | * gfortran.h (gfc_actual_arglist): New field missing_arg_type. | |
3162 | * interface.c (compare_actual_formal): Keep type of omitted | |
3163 | optional arguments. | |
3164 | * trans-expr.c (gfc_conv_function_call): Add string length | |
3165 | argument for omitted string argument. | |
3166 | ||
3167 | 2004-06-03 Paul Brook <paul@codesourcery.com> | |
7c87eac6 PB |
3168 | |
3169 | * trans.c (gfc_finish_block, gfc_add_expr_to_block): Build statement | |
3170 | lists instead of compound expr chains. | |
3171 | (gfc_trans_code): Annotate statement lists. | |
3172 | ||
13413760 TS |
3173 | 2004-06-03 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3174 | ||
3175 | * trans-array.c: Fix spelling in comments. | |
3176 | ||
2fa54841 TS |
3177 | 2004-06-02 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3178 | ||
3179 | PR fortran/15557 | |
3180 | * data.c (assign_substring_data_value): New function. | |
3181 | (gfc_assign_data_value): Call the new function if we're dealing | |
3182 | with a substring LHS. | |
3183 | ||
ea0ece09 TS |
3184 | 2004-06-01 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3185 | ||
3186 | PR fortran/15477 | |
3187 | * gfortran.h (GFC_VERSION): Remove. | |
3188 | * gfortran.texi (version-gfortran): Remove, replace by version-GCC | |
3189 | where used. | |
3190 | ||
c3e8c6b8 TS |
3191 | 2004-05-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3192 | ||
3193 | * trans-types.c: Fix spelling & layout in comments. | |
3194 | ||
94716287 TS |
3195 | 2004-05-30 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3196 | ||
3197 | PR fortran/14067 | |
3198 | * trans-const.c (gfc_conv_string_init): Allow variable string | |
3199 | length lower than initialization string length. | |
3200 | ||
7b5b57b7 PB |
3201 | 2004-05-30 Paul Brook <paul@codesourcery.com> |
3202 | ||
3203 | PR fortran/15620 | |
3204 | * trans-decl.c (gfc_shadow_sym, gfc_restore_sym): New functions. | |
3205 | * trans-expr.c (gfc_trans_string_copy): New function. | |
3206 | (gfc_conv_statement_function): Use them. Create temp vars. Enforce | |
3207 | character lengths. | |
3208 | (gfc_conv_string_parameter): Use gfc_trans_string_copy. | |
3209 | * trans-stmt.c (gfc_trans_forall_1): Use gfc_{shadow,restore}_sym. | |
3210 | * trans.h (struct gfc_saved_var): Define. | |
3211 | (gfc_shadow_sym, gfc_restore_sym): Add prototypes. | |
3212 | ||
5f251c26 SK |
3213 | 2004-05-30 Steven G. Kargl <kargls@comcast.net> |
3214 | ||
3215 | * iresolve.c (gfc_resolve_random_number): Clean up conditional. | |
3216 | ||
e73c80ae SK |
3217 | 2004-05-29 Steven G. Kargl <kargls@comcast.net> |
3218 | ||
3219 | * simplify.c (gfc_simplify_log): Remove useless line of code. | |
3220 | ||
353c3b7e PB |
3221 | 2004-05-29 Paul Brook <paul@codesourcery.com> |
3222 | ||
3223 | * trans-common.c (find_equivalence): Find multiple rules. | |
3224 | ||
63645982 TS |
3225 | 2004-05-27 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> |
3226 | ||
3227 | * gfortran.h (gfc_current_locus, gfc_set_locus): Remove. | |
3228 | (gfc_current_locus): Declare new global variable. | |
3229 | * scanner.c (gfc_current_locus, gfc_set_locus): Remove. | |
3230 | (gfc_current_locus1): Rename ... | |
3231 | (gfc_current_locus): ... to this. | |
3232 | (gfc_at_eof, gfc_at_bol, gfc_at_eol, gfc_advance_line, next_char, | |
3233 | skip_fixed_comments, skip_free_comments, gfc_next_char_literal, | |
3234 | gfc_peek_char, gfc_gobble_whitespace, gfc_new_file): Use | |
3235 | gfc_current_locus instead of gfc_current_locus1, gfc_set_locus() | |
3236 | and gfc_current_locus(), respectively. | |
3237 | * array.c (match_subscript, gfc_match_array_ref, match_array_list, | |
3238 | match_array_cons_element, gfc_match_array_constructor): | |
3239 | Read/modify gfc_current_locus instead of calling gfc_set_locus() | |
3240 | and gfc_current_locus(). | |
3241 | * decl.c (gfc_match_null, variable_decl, gfc_match_kind_spec, | |
3242 | match_attr_spec, gfc_match_function_decl, gfc_match_end, | |
3243 | attr_decl1, gfc_match_save): Likewise. | |
3244 | * error.c (error_print, gfc_internal_error): Likewise. | |
3245 | * expr.c (gfc_int_expr, gfc_default_logical_kind): Likewise. | |
3246 | * interface.c (gfc_add_interface): Likewise. | |
3247 | * io.c (gfc_match_format, match_dt_format, match_dt_element, | |
3248 | match_io_iterator, match_io): Likewise. | |
3249 | * match.c (gfc_match_space, gfc_match_eos, | |
3250 | gfc_match_small_literal_int, gfc_match_st_label, | |
3251 | gfc_match_strings, gfc_match_name, gfc_match_iterator, | |
3252 | gfc_match_char, gfc_match, gfc_match_assignment, | |
3253 | gfc_match_pointer_assignment, gfc_match_if, gfc_match_do, | |
3254 | gfc_match_nullify, gfc_match_call, match_implicit_range, | |
3255 | gfc_match_implicit, gfc_match_data, match_case_selector, | |
3256 | gfc_match_case, match_forall_iterator): Likewise. | |
3257 | * matchexp.c (gfc_match_defined_op_name, next_operator, | |
3258 | match_level_1, match_mult_operand, match_ext_mult_operand, | |
3259 | match_add_operand, match_ext_add_operand, match_level_2, | |
3260 | match_level_3, match_level_4, match_and_operand, match_or_operand, | |
3261 | match_equiv_operand, match_level_5, gfc_match_expr): Likewise. | |
3262 | * module.c (gfc_match_use, mio_array_ref, mio_expr): Likewise. | |
3263 | * parse.c (match_word, decode_statement, next_free, next_fixed, | |
3264 | add_statement, verify_st_order, parse_if_block, gfc_parse_file): | |
3265 | Likewise. | |
3266 | * primary.c (match_digits, match_integer_constant, | |
3267 | match_boz_constant, match_real_constant, match_substring, | |
3268 | next_string_char, match_charkind_name, match_string_constant, | |
3269 | match_logical_constant, match_const_complex_part, | |
3270 | match_complex_constant, match_actual_arg, match_keyword_arg, | |
3271 | gfc_match_actual_arglist, gfc_match_structure_constructor, | |
3272 | gfc_match_rvalue, gfc_match_variable): Likewise. | |
3273 | * st.c (gfc_get_code): Likewise. | |
3274 | * symbol.c (check_conflict, check_used, check_done, | |
3275 | duplicate_attr, add_flavor, gfc_add_procedure, gfc_add_intent, | |
3276 | gfc_add_access, gfc_add_explicit_interface, gfc_add_type, | |
3277 | gfc_add_component, gfc_reference_st_label, gfc_new_symbol): Likewise. | |
3278 | ||
4eeaf81e RS |
3279 | 2004-05-26 Roger Sayle <roger@eyesopen.com> |
3280 | ||
3281 | * io.c (format_asterisk): Silence compiler warnings by correcting | |
3282 | the number of elements of a "locus" initializer. | |
3283 | ||
a2f29587 RS |
3284 | 2004-05-25 Roger Sayle <roger@eyesopen.com> |
3285 | ||
3286 | PR fortran/13912 | |
3287 | * matchexp.c: Allow unary operators after arithmetic operators | |
3288 | as a GNU extension. | |
3289 | (match_ext_mult_operand, match_ext_add_operand): New functions. | |
3290 | (match_mult_operand): Tweak to call match_ext_mult_operand. | |
3291 | (match_add_operand): Tweak to call match_ext_mult_operand. | |
3292 | (match_level_2): Rearrange to call match_ext_add_operand. | |
3293 | ||
45aae8f2 PB |
3294 | 2004-05-25 Paul Brook <paul@codesourcery.com> |
3295 | ||
3296 | * expr.c (check_inquiry): Remove bogus tests. | |
3297 | ||
40e929f3 PB |
3298 | 2004-05-23 Paul Brook <paul@codesourcery.com> |
3299 | ||
3300 | PR fortran/13773 | |
3301 | * expr.c (restricted_args): Remove redundant checks/argument. | |
3302 | (external_spec_function): Update to match. | |
3303 | (restricted_intrinsic): Rewrite. | |
3304 | ||
5291e69a PB |
3305 | 2004-05-23 Paul Brook <paul@codesourcery.com> |
3306 | Victor Leikehman <lei@haifasphere.co.il> | |
3307 | ||
3308 | * gfortran.h (struct gfc_symbol): Add equiv_built. | |
3309 | * trans-common.c: Change int to HOST_WIDE_INT. Capitalize error | |
3310 | messages. | |
3311 | (current_length): Remove. | |
3312 | (add_segments): New function. | |
3313 | (build_equiv_decl): Create initialized common blocks. | |
3314 | (build_common_decl): Always add decl to bindings. | |
3315 | (create_common): Create initializers. | |
3316 | (find_segment_info): Reformat to match coding conventions. | |
3317 | (new_condition): Use add_segments. | |
3318 | (add_condition, find_equivalence, add_equivalences): Move iteration | |
3319 | inside functions. Only process each segment once. | |
3320 | (new_segment, finish_equivalences, translate_common): Simplify. | |
3321 | ||
95d3f567 SK |
3322 | 2004-05-23 Steven G. Kargl <kargls@comcast.net> |
3323 | ||
3324 | * check.c (gfc_check_random_seed): Issue for too many arguments. | |
3325 | ||
c1c52409 PB |
3326 | 2004-05-22 Steven G. Kargl <kargls@comcast.net> |
3327 | ||
3328 | * intrinsic.c (add_subroutines): Use add_sym_3s for random_seed. | |
3329 | ||
3330 | 2004-05-22 Paul Brook <paul@codesourcery.com> | |
1854117e PB |
3331 | |
3332 | * dump-parse-tree.c (gfc_show_equiv): New function. | |
3333 | (gfc_show_namespace): Use it. | |
3334 | ||
b6720768 VL |
3335 | 2004-05-22 Victor Leikehman <lei@haifasphere.co.il> |
3336 | ||
3337 | PR fortran/13249 | |
3338 | * symbol.c (gfc_add_common): Disable checks to work around other more | |
3339 | fundamental inadequacies. | |
3340 | ||
8c1d6d62 | 3341 |