OSDN Git Service

2006-07-23 Steven Bosscher <steven@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / fortran / ChangeLog
1 2006-07-22  Steven Bosscher  <steven@gcc.gnu.org> 
2
3         PR fortran/28439
4         * trans-stmt.c (gfc_trans_arithmetic_if): Evaluate the condition once.
5
6 2006-07-16  Jakub Jelinek  <jakub@redhat.com>
7
8         PR fortran/28390
9         * trans-openmp.c (gfc_trans_omp_do): Look for LASTPRIVATE in
10         code->exp.omp_clauses rather than in the 3rd function argument.
11
12 2006-07-16  Paul Thomas  <pault@gcc.gnu.org>
13
14         PR fortran/28384
15         * trans-common.c (translate_common): If common_segment is NULL
16         emit error that common block does not exist.
17
18         PR fortran/20844
19         * io.c (check_io_constraints): It is an error if an ADVANCE
20         specifier appears without an explicit format.
21
22         PR fortran/28201
23         * resolve.c (resolve_generic_s): For a use_associated function,
24         do not search for an alternative symbol in the parent name
25         space.
26
27         PR fortran/20893
28         * resolve.c (resolve_elemental_actual): New function t combine
29         all the checks of elemental procedure actual arguments. In
30         addition, check of array valued optional args(this PR) has
31         been added.
32         (resolve_function, resolve_call): Remove parts that treated
33         elemental procedure actual arguments and call the above.
34
35 2006-07-14  Steven G. Kargl  <kargls@comcast.net>
36
37         * trans-expr.c (gfc_trans_string_copy): Evaluate the string lengths
38
39 006-07-13  Paul Thomas  <pault@gcc.gnu.org>
40
41         PR fortran/28353
42         * trans-expr.c (gfc_conv_aliased_arg): Missing formal arg means
43         that intent is INOUT (fixes regression).
44
45         PR fortran/25097
46         * check.c (check_present): The only permitted reference is a
47         full array reference.
48
49         PR fortran/20903
50         * decl.c (variable_decl): Add error if a derived type is not
51         from the current namespace if the namespace is an interface
52         body.
53
54 2006-07-12  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
55
56         PR fortran/28163
57         * trans-expr.c (gfc_trans_string_copy): Generate inline code
58         to perform string copying instead of calling a library function.
59         * trans-decl.c (gfc_build_intrinsic_function_decls): Don't build
60         decl for copy_string.
61         * trans.h (gfor_fndecl_copy_string): Remove prototype.
62
63 2006-07-11  Feng Wang  <fengwang@nudt.edu.cn>
64
65         PR fortran/28213
66         * trans-io.c (transfer_expr): Deal with Hollerith constants used in
67         I/O list.
68
69 2006-07-07  Kazu Hirata  <kazu@codesourcery.com>
70
71         * intrinsic.texi: Fix typos.
72
73 2006-07-07  Paul Thomas  <pault@gcc.gnu.org>
74
75         PR fortran/28237
76         PR fortran/23420
77         * io.c (resolve_tag): Any integer that is not an assigned
78         variable is an error.
79
80 2006-07-06  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
81
82         PR fortran/28129
83         * trans-array.c (gfc_trans_array_bound_check): Add a locus
84         argument, and use it in the error messages.
85         (gfc_conv_array_index_offset): Donc perform bounds checking on
86         the last dimension of assumed-size arrays.
87
88 2006-07-06  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
89
90         PR fortran/27874
91         * trans-stmt.c (compute_inner_temp_size): Don't perform bounds
92         checking when calculating the bounds of scalarization.
93
94 2006-07-05  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
95
96         PR fortran/20892
97         * interface.c (gfc_match_interface): Don't allow dummy procedures
98         to have a generic interface.
99
100 2006-07-04  Paul Thomas  <pault@gcc.gnu.org>
101
102         PR fortran/28174
103         * trans-array.c (gfc_conv_expr_descriptor): When building temp,
104         ensure that the substring reference uses a new charlen.
105         * trans-expr.c (gfc_conv_aliased_arg): Add the formal intent to
106         the argument list, lift the treatment of missing string lengths
107         from the above and implement the use of the intent.
108         (gfc_conv_function_call): Add the extra argument to the call to
109         the above.
110
111         PR fortran/28167
112         * trans-array.c (get_array_ctor_var_strlen): Treat a constant
113         substring reference.
114         * array.c (gfc_resolve_character_array_constructor): Remove 
115         static attribute and add the gfc_ prefix, make use of element
116         charlens for the expression and pick up constant string lengths
117         for expressions that are not themselves constant.
118         * gfortran.h : resolve_character_array_constructor prototype
119         added.
120         * resolve.c (gfc_resolve_expr): Call resolve_character_array_
121         constructor again after expanding the constructor, to ensure
122         that the character length is passed to the expression.
123
124 2006-07-04  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
125             Daniel Franke  <franke.daniel@gmail.com>
126
127         * intrinsic.c (add_subroutines): Add ITIME and IDATE.
128         * intrinsic.h (gfc_check_itime_idate,gfc_resolve_idate,
129         fc_resolve_itime): New protos.
130         * iresolve.c (gfc_resolve_itime, gfc_resolve_idate): New functions.
131         * check.c (gfc_check_itime_idate): New function.
132         * intrinsic.texi: Document the new intrinsics.
133
134 2006-07-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
135
136         * intrinsics/date_and_time.c (itime0,idate0,itime_i4,itime_i8,
137         idate_i4,idate_i8): New functions.
138
139
140 2006-07-03  Asher Langton  <langton2@llnl.gov>
141
142         * decl.c (match_old_style_init): Add data attribute to symbol.
143
144 2006-07-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
145
146         * iresolve.c (gfc_resolve_cpu_time, gfc_resolve_random_number):
147         Remove ATTRIBUTE_UNUSED for used argument.
148
149 2006-07-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
150
151         * intrinsic.texi: Document new intrinsics.
152
153 2006-07-01  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
154
155         PR fortran/19259
156         * parse.c (next_free): Error out on line starting with semicolon.
157         (next_fixed): Fix formatting.  Error out on line starting with
158         semicolon.
159
160 2006-06-30  Kazu Hirata  <kazu@codesourcery.com>
161
162         * check.c: Fix a comment typo.
163
164 2006-06-25  Paul Thomas  <pault@gcc.gnu.org>
165
166         PR fortran/25056
167         * interface.c (compare_actual_formal): Signal an error if the formal
168         argument is a pure procedure and the actual is not pure.
169
170         PR fortran/27554
171         * resolve.c (resolve_actual_arglist): If the type of procedure
172         passed as an actual argument is not already declared, see if it is
173         an intrinsic.
174
175         PR fortran/25073
176         * resolve.c (resolve_select): Use bits 1 and 2 of a new int to
177         keep track of  the appearance of constant logical case expressions.
178         Signal an error is either value appears more than once.
179
180         PR fortran/20874
181         * resolve.c (resolve_fl_procedure): Signal an error if an elemental
182         function is not scalar valued.
183
184         PR fortran/20867
185         * match.c (recursive_stmt_fcn): Perform implicit typing of variables.
186
187         PR fortran/22038
188         * match.c (match_forall_iterator): Mark new variables as
189         FL_UNKNOWN if the match fails.
190
191         PR fortran/28119
192         * match.c (gfc_match_forall): Remove extraneous call to
193         gfc_match_eos.
194
195         PR fortran/25072
196         * resolve.c (resolve_code, resolve_function): Rework
197         forall_flag scheme so that it is set and has a value of
198         2, when the code->expr (ie. the forall mask) is resolved.
199         This is used to change "block" to "mask" in the non-PURE
200         error message.
201
202 2006-06-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
203
204         PR fortran/28081
205         * resolve.c (resolve_substring): Don't issue out-of-bounds
206         error messages when the range has zero size.
207
208 2006-06-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
209
210         PR fortran/23862
211         * lang-specs.h (f95-cpp-input): Pass -ffree-form to f951 unless
212         -ffixed-form is explicitly specified.
213
214 2006-06-24  Paul Thomas  <pault@gcc.gnu.org>
215
216         PR fortran/28118
217         * trans-array.c (gfc_conv_expr_descriptor): When building temp,
218         use the substring reference to calculate the length if the
219         expression does not have a charlen.
220
221 2006-06-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
222
223         PR fortran/28094
224         * trans-intrinsic.c (gfc_conv_intrinsic_mod): Support cases where
225         there is no integer kind equal to the resulting real kind.
226         * intrinsic.c (add_functions): MODULO is not allowed as an actual
227         argument.
228
229 2006-06-23  Steven G. Kargl  <kargls@comcast.net>
230
231         PR fortran/27981
232         * match.c (gfc_match_if):  Handle errors in assignment in simple if.
233
234 2006-06-22  Asher Langton  <langton2@llnl.gov>
235
236         PR fortran/24748
237         * primary.c (gfc_match_rvalue): Don't call match_substring for
238         implicit non-character types.
239
240 2006-06-22  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
241
242         PR libfortran/26769
243         * iresolve.c (gfc_resolve_reshape): Call reshape_r4 and
244         reshape_r8 instead of reshape_4 and reshape_8.
245         (gfc_resolve_transpose): Likewise for transpose.
246
247 2006-06-21  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
248
249         * trans-expr.c (gfc_conv_missing_dummy, gfc_conv_unary_op,
250         gfc_conv_cst_int_power, gfc_conv_string_tmp,
251         gfc_conv_function_call): Replace calls to convert on constant
252         integer nodes by build_int_cst.
253         * trans-stmt.c (gfc_trans_do): Likewise.
254         * trans-io.c (set_internal_unit, transfer_namelist_element):
255         Likewise.
256         * trans-decl.c (build_entry_thunks): Likewise.
257
258 2006-06-20  Steven G. Kargl  <kargls@comcast.net>
259
260         * simplify.c (gfc_simplify_rrspacing): Initialize and clear mpfr_t
261         variable.
262
263 2006-06-20  Paul Thomas  <pault@gcc.gnu.org>
264
265         PR fortran/25049
266         PR fortran/25050
267         * check.c (non_init_transformational): New function.
268         (find_substring_ref): New function to signal use of disallowed
269         transformational intrinsic in an initialization expression.
270         (gfc_check_all_any): Call previous if initialization expr.
271         (gfc_check_count): The same.
272         (gfc_check_cshift): The same.
273         (gfc_check_dot_product): The same.
274         (gfc_check_eoshift): The same.
275         (gfc_check_minloc_maxloc): The same.
276         (gfc_check_minval_maxval): The same.
277         (gfc_check_gfc_check_product_sum): The same.
278         (gfc_check_pack): The same.
279         (gfc_check_spread): The same.
280         (gfc_check_transpose): The same.
281         (gfc_check_unpack): The same.
282
283         PR fortran/18769
284         *intrinsic.c (add_functions): Add gfc_simplify_transfer.
285         *intrinsic.h : Add prototype for gfc_simplify_transfer.
286         *simplify.c (gfc_simplify_transfer) : New function to act as
287         placeholder for eventual implementation.  Emit error for now.
288
289         PR fortran/16206
290         * expr.c (find_array_element): Eliminate condition on length of
291         offset. Add bounds checking. Rearrange exit. Return try and
292         put gfc_constructor result as an argument.
293         (find_array_section): New function.
294         (find_substring_ref): New function.
295         (simplify_const_ref): Add calls to previous.
296         (simplify_parameter_variable): Return on NULL expr.
297         (gfc_simplify_expr): Only call gfc_expand_constructor for full
298         arrays.
299
300         PR fortran/20876
301         * match.c (gfc_match_forall): Add missing locus to gfc_code.
302
303 2006-06-18  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
304
305         PR fortran/26801
306         * trans-intrinsic.c (gfc_conv_associated): Use pre and post blocks
307         of the scalarization expression.
308
309 2006-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
310
311         PR fortran/19310
312         PR fortran/19904
313         * arith.c (gfc_range_check): Return ARITH_OK if -fno-range-check. Add
314         return of ARITH_NAN, ARITH_UNDERFLOW, and ARITH_OVERFLOW.
315         (gfc_arith_divide): If -fno-range-check allow mpfr to divide by zero.
316         * gfortran.h (gfc_option_t): Add new flag.
317         * invoke.texi: Document new flag.
318         * lang.opt: Add option -frange-check.
319         * options.c (gfc_init_options): Initialize new flag.
320         (gfc_handle_options): Set flag if invoked.
321         * simplify.c (range_check): Add error messages for
322         overflow, underflow, and other errors.
323         * trans-const.c (gfc_conv_mpfr_to_tree): Build NaN and Inf from mpfr
324         result.
325
326 2006-06-17  Karl Berry  <karl@gnu.org>
327
328         * gfortran.texi (@dircategory): Use "Software development"
329         instead of "Programming", following the Free Software Directory.
330
331 2006-06-16  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
332
333         PR fortran/27965
334         * trans-array.c (gfc_conv_ss_startstride): Correct the runtime
335         conditions for bounds-checking. Check for nonzero stride.
336         Don't check the last dimension of assumed-size arrays. Fix the
337         dimension displayed in the error message.
338
339 2006-06-15  Thomas Koenig <Thomas.Koenig@online.de>
340
341         * trans-array.h (gfc_trans_create_temp_array):  Add bool
342         argument.
343         * trans-arrray.c (gfc_trans_create_temp_array): Add extra
344         argument "function" to show if we are translating a function.
345         If we are translating a function, perform checks whether
346         the size along any argument is negative.  In that case,
347         allocate size 0.
348         (gfc_trans_allocate_storage):  Add function argument (as
349         false) to gfc_trans_create_temp_array call.
350         * trans-expr.c (gfc_conv_function_call):  Add function
351         argument (as true) to gfc_trans_create_temp_array call.
352         * trans-stmt.c (gfc_conv_elemental_dependencies): Add
353         function argument (as false) to gfc_trans_create_temp_array
354         call.
355         * trans-intrinsic.c:  Likewise.
356
357 2006-06-10  Paul Thomas  <pault@gcc.gnu.org>
358
359         PR fortran/24558
360         PR fortran/20877
361         PR fortran/25047
362         * decl.c (get_proc_name): Add new argument to flag that a
363         module function entry is being treated. If true, correct
364         error condition, add symtree to module namespace and add
365         a module procedure.
366         (gfc_match_function_decl, gfc_match_entry,
367         gfc_match_subroutine): Use the new argument in calls to
368         get_proc_name.
369         * resolve.c (resolve_entries): ENTRY symbol reference to
370         to master entry namespace if a module function.
371         * trans-decl.c (gfc_create_module_variable): Return if
372         the symbol is an entry.
373         * trans-exp.c (gfc_conv_variable): Check that parent_decl
374         is not NULL.
375
376 2006-06-09  Jakub Jelinek  <jakub@redhat.com>
377
378         PR fortran/27916
379         * trans-openmp.c (gfc_omp_clause_default_ctor): New function.
380         * trans.h (gfc_omp_clause_default_ctor): New prototype.
381         * f95-lang.c (LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR): Define.
382
383 2006-06-08  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
384
385         PR fortran/27958
386         * trans-expr.c (gfc_conv_substring): If the substring start is
387         greater than its end, the length of the substring is zero, and
388         not negative.
389         (gfc_trans_string_copy): Don't generate a call to
390         _gfortran_copy_string when destination length is zero.
391
392 2006-06-08  Asher Langton  <langton2@llnl.gov>
393         
394         PR fortran/27786
395         * trans-array.c (gfc_conv_array_ref): Eliminate bounds checking
396         for assumed-size Cray pointees.
397
398 2006-06-08  Steven G. Kargl  <kargls@comcat.net>
399
400         * intrinsic.c (add_subroutine):  Make make_noreturn() conditional on
401         the appropriate symbol name.
402         
403 2006-06-07  Paul Thomas  <pault@gcc.gnu.org>
404
405         PR fortran/23091
406         * resolve.c (resolve_fl_variable): Error if an automatic
407         object has the SAVE attribute.
408
409         PR fortran/24168
410         * expr.c (simplify_intrinsic_op): Transfer the rank and
411         the locus to the simplified expression.
412
413         PR fortran/25090
414         PR fortran/25058
415         * gfortran.h : Add int entry_id to gfc_symbol.
416         * resolve.c : Add static variables current_entry_id and
417         specification_expr.
418         (resolve_variable): During code resolution, check if a
419         reference to a dummy variable in an executable expression
420         is preceded by its appearance as a parameter in an entry.
421         Likewise check its specification expressions.
422         (resolve_code): Update current_entry_id on EXEC_ENTRY.
423         (resolve_charlen, resolve_fl_variable): Set and reset
424         specifiaction_expr.
425         (is_non_constant_shape_array): Do not return on detection
426         of a variable but continue to resolve all the expressions.
427         (resolve_codes): set current_entry_id to an out of range
428         value.
429
430 2006-06-06  Mike Stump  <mrs@apple.com>
431
432         * Make-lang.in: Rename to htmldir to build_htmldir to avoid
433         installing during build.
434
435 2006-06-06  Paul Thomas  <pault@gcc.gnu.org>
436
437         PR fortran/27897
438         * match.c (gfc_match_common):  Fix code typo.  Remove
439         sym->name, since sym is NULL, and replace with name.
440
441 2006-06-05  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
442
443         PR libfortran/27895
444         * resolve.c (compute_last_value_for_triplet): New function.
445         (check_dimension): Correctly handle zero-sized array sections.
446         Add checking on last element of array sections.
447
448 2006-06-05  Steven G. Kargl  <kargls@comcast.net>
449
450         * data.c (gfc_assign_data_value):  Fix comment typo.  Remove
451         a spurious return.
452
453 2006-06-05  Paul Thomas  <pault@gcc.gnu.org>
454
455         PR fortran/14067
456         * data.c (create_character_intializer): Add warning message
457         for truncated string.
458
459         PR fortran/16943
460         * symbol.c : Include flags.h.
461         (gfc_add_type): If a procedure and types are the same do not
462         throw an error unless standard is less than gnu or pedantic.
463
464         PR fortran/20839
465         * parse.c (parse_do_block): Error if named block do construct
466         does not have a named enddo.
467
468         PR fortran/27655
469         * check.c (gfc_check_associated): Pick up EXPR_NULL for pointer
470         as well as target and put error return at end of function.
471
472 2006-06-03  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
473
474         * trans.c (gfc_msg_bounds, gfc_msg_fault, gfc_msg_wrong_return):
475         Add strings for common runtime error messages.
476         (gfc_trans_runtime_check): Add a locus argument, use a string
477         and not a string tree for the message.
478         * trans.h (gfc_trans_runtime_check): Change prototype accordingly.
479         (gfc_msg_bounds, gfc_msg_fault, gfc_msg_wrong_return): Add proto.
480         * trans-const.c (gfc_strconst_bounds, gfc_strconst_fault,
481         gfc_strconst_wrong_return, gfc_strconst_current_filename): Remove.
482         (gfc_init_constants): Likewise.
483         * trans-const.h: Likewise.
484         * trans-decl.c (gfc_build_builtin_function_decls): Call to
485         _gfortran_runtime_error has only one argument, the message string.
486         * trans-array.h (gfc_conv_array_ref): Add a symbol argument and a
487         locus.
488         * trans-array.c (gfc_trans_array_bound_check): Build precise
489         error messages.
490         (gfc_conv_array_ref): Use the new symbol argument and the locus
491         to build more precise error messages.
492         (gfc_conv_ss_startstride): More precise error messages.
493         * trans-expr.c (gfc_conv_variable): Give symbol reference and
494         locus to gfc_conv_array_ref.
495         (gfc_conv_function_call): Use the new prototype for
496         gfc_trans_runtime_check.
497         * trans-stmt.c (gfc_trans_goto): Build more precise error message.
498         * trans-io.c (set_string): Likewise.
499         * trans-intrinsic.c (gfc_conv_intrinsic_bound): Use new prototype
500         for gfc_trans_runtime_check.
501
502 2006-06-01  Thomas Koenig  <Thomas.Koenig@online.de>
503
504         PR fortran/27715
505         * arith.c:  Cast the characters from the strings to unsigned
506         char to avoid values less than 0 for extended ASCII.
507
508 2006-06-01  Per Bothner  <bothner@bothner.com>
509
510         * data.c (gfc_assign_data_value): Handle USE_MAPPED_LOCATION.
511         * scanner.c (gfc_gobble_whitespace): Likewise.
512
513 2006-06-01  Paul Thomas  <pault@gcc.gnu.org>
514
515         PR fortran/25098
516         PR fortran/25147
517         * interface.c (compare_parameter): Return 1 if the actual arg
518         is external and the formal is a procedure.
519         (compare_actual_formal): If the actual argument is a variable
520         and the formal a procedure, this an error.  If a gsymbol exists
521         for a procedure of the same name, this is not yet resolved and
522         the error is cleared.
523
524         * trans-intrinsic.c (gfc_conv_associated): Make provision for
525         zero array length or zero string length contingent on presence
526         of target, for consistency with standard.
527
528 2006-05-30  Asher Langton  <langton2@llnl.gov>
529
530         * symbol.c (check_conflict): Allow external, function, and
531         subroutine attributes with Cray pointees.
532         * trans-expr.c (gfc_conv_function_val): Translate Cray pointees
533         that point to procedures.
534         * gfortran.texi: Document new feature.
535
536 2006-05-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
537
538         PR fortran/27634
539         * io.c (check_format): Add error for missing period in format
540         specifier unless -std=legacy.
541         * gfortran.texi: Add description of expanded namelist read and
542         missing period in format extensions.
543
544 2006-05-29  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
545
546         PR fortran/19777
547         * trans-array.c (gfc_conv_array_ref): Perform out-of-bounds
548         checking for assumed-size arrrays for all but the last dimension.
549
550 2006-05-29  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
551
552         * invoke.texi: Change -fpackderived into -fpack-derived.
553
554 2006-05-29  Kazu Hirata  <kazu@codesourcery.com>
555
556         * options.c, primary.c, resolve.c, trans-common.c: Fix typos
557         in error messages.
558
559 2006-05-28  Kazu Hirata  <kazu@codesourcery.com>
560
561         * check.c, expr.c, resolve.c, trans-common.c,
562         trans-intrinsic.c, trans-stmt.c, trans-types.c: Fix comment typos.
563
564 2006-05-27  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
565
566         PR fortran/19777
567         * trans-array.c (gfc_conv_array_ref): Don't perform out-of-bounds
568         checking for assumed-size arrrays.
569
570 2006-05-27  Paul Thomas  <pault@gcc.gnu.org>
571
572         * trans-intrinsic.c (gfc_conv_associated): If pointer in first
573         arguments has zero array length of zero string length, return
574         false.
575
576 2006-05-26  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
577
578         PR fortran/27524
579         * trans-array.c (gfc_trans_dummy_array_bias): Don't use stride as
580         a temporary variable when -fbounds-check is enabled, since its
581         value will be needed later.
582
583 2006-05-26  Thomas Koenig  <Thomas.Koenig@online.de>
584
585         PR fortran/23151
586         * io.c (match_io):  print (1,*) is an error.
587
588 2006-05-26  Paul Thomas  <pault@gcc.gnu.org>
589
590         PR fortran/27709
591         * resolve.c (find_array_spec): Add gfc_symbol, derived, and
592         use to track repeated component references.
593
594         PR fortran/27155
595         PR fortran/27449
596         * trans-intrinsic.c (gfc_conv_intrinsic_array_transfer): Use
597         se->string_length throughout and use memcpy to populate the
598         expression returned to the scalarizer.
599         (gfc_size_in_bytes): New function.
600
601 2006-05-21  Paul Thomas  <pault@gcc.gnu.org>
602
603         PR fortran/27613
604         * primary.c (gfc_match_rvalue): Test if symbol represents a
605         direct recursive function reference.  Error if array valued,
606         go to function0 otherwise.
607
608 2006-05-21  Paul Thomas  <pault@gcc.gnu.org>
609
610         PR fortran/25746
611         * interface.c (gfc_extend_assign): Use new EXEC_ASSIGN_CALL.
612         * gfortran.h : Put EXEC_ASSIGN_CALL in enum.
613         * trans-stmt.c (gfc_conv_elemental_dependencies): New function.
614         (gfc_trans_call): Call it.  Add new boolian argument to flag
615         need for dependency checking. Assert intent OUT and IN for arg1
616         and arg2.
617         (gfc_trans_forall_1): Use new code EXEC_ASSIGN_CALL.
618         trans-stmt.h : Modify prototype of gfc_trans_call.
619         trans.c (gfc_trans_code): Add call for EXEC_ASSIGN_CALL.
620         st.c (gfc_free_statement): Free actual for EXEC_ASSIGN_CALL.
621         * dependency.c (gfc_check_fncall_dependency): Don't check other
622         against itself.
623
624         PR fortran/25090
625         * resolve.c : Remove resolving_index_expr.
626         (entry_parameter): Remove.
627         (gfc_resolve_expr, resolve_charlen, resolve_fl_variable): Lift
628         calls to entry_parameter and references to resolving_index_expr.
629
630         PR fortran/27584
631         * check.c (gfc_check_associated): Replace NULL assert with an
632         error message, since it is possible to generate bad code that
633         has us fall through to here..
634
635         PR fortran/19015
636         * iresolve.c (maxloc, minloc): If DIM is not present, pass the
637         rank of ARRAY as the shape of the result.  Otherwise, pass the
638         shape of ARRAY, less the dimension DIM.
639         (maxval, minval): The same, when DIM is present, otherwise no
640         change.
641
642 2006-05-19  H.J. Lu  <hongjiu.lu@intel.com>
643
644         PR fortran/27662
645         * trans-array.c (gfc_conv_expr_descriptor): Don't zero the
646         first stride to indicate a temporary.
647         * trans-expr.c (gfc_conv_function_call): Likewise.
648
649 2006-05-18  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
650             Feng Wang  <fengwang@nudt.edu.cn>
651
652         PR fortran/27552
653         * dump-parse-tree.c (gfc_show_expr): Deal with Hollerith constants.
654         * data.c (create_character_intializer): Set from_H flag if character is
655         initialized by Hollerith constant.
656
657 2006-05-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
658
659         PR fortran/26551
660         * resolve.c (resolve_call, resolve_function): Issue an error
661         if a function or subroutine call is recursive but the function or
662         subroutine wasn't declared as such.
663
664 2006-05-07  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
665
666         PR fortran/26551
667         * gfortran.dg/recursive_check_1.f: New test.
668
669
670 2006-05-17  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
671
672         PR fortran/27320
673         * dump-parse-tree.c (gfc_show_code_node): Try harder to find the
674         called procedure name.
675
676 2006-05-17  Jakub Jelinek  <jakub@redhat.com>
677
678         PR middle-end/27415
679         * trans-openmp.c (gfc_trans_omp_parallel_do,
680         gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare): Set
681         OMP_PARALLEL_COMBINED flag.
682
683 2006-05-16  H.J. Lu  <hongjiu.lu@intel.com>
684
685         PR driver/26885
686         * Make-lang.in (GFORTRAN_D_OBJS): Replace gcc.o with
687         $(GCC_OBJS).
688
689 2006-05-15  Paul Thomas  <pault@gcc.gnu.org>
690
691         PR fortran/25090
692         * resolve.c: Static resolving_index_expr initialized.
693         (entry_parameter): New function to emit errors for variables
694         that are not entry parameters.
695         (gfc_resolve_expr): Call entry_parameter, when resolving
696         variables, if the namespace has entries and resolving_index_expr
697         is set.
698         (resolve_charlen): Set resolving_index_expr before the call to
699         resolve_index_expr and reset it afterwards.
700         (resolve_fl_variable): The same before and after the call to
701         is_non_constant_shape_array, which ultimately makes a call to
702         gfc_resolve_expr.
703
704         PR fortran/25082
705         * resolve.c (resolve_code): Add error condition that the return
706         expression must be scalar.
707
708         PR fortran/27411
709         * matchexp.c (gfc_get_parentheses): New function.
710         (match_primary): Remove inline code and call above.
711         * gfortran.h: Provide prototype for gfc_get_parentheses.
712         * resolve.c (resolve_array_ref): Call the above, when start is a
713         derived type variable array reference.
714
715 2006-05-15  Jakub Jelinek  <jakub@redhat.com>
716
717         PR fortran/27446
718         * trans-openmp.c (gfc_trans_omp_array_reduction): Ensure
719         OMP_CLAUSE_REDUCTION_{INIT,MERGE} are set to BIND_EXPR.
720
721 2006-05-14  H.J. Lu  <hongjiu.lu@intel.com>
722
723         * Make-lang.in (fortran/options.o): Depend on $(TARGET_H).
724
725 2006-05-11  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
726
727         PR fortran/27553
728         * parse.c (next_free): Return instead of calling decode_statement
729         upon error.
730
731 2005-05-10  Thomas Koenig  <Thomas.Koenig@online.de>
732
733         PR fortran/27470
734         * trans-array.c(gfc_array_allocate):  If ref->next exists
735         that is if there is a statement like ALLOCATE(foo%bar(2)),
736         F95 rules require that bar should be a pointer.
737
738 2006-05-10  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
739
740         PR fortran/20460
741         * resolve.c (gfc_resolve_index): Make REAL array indices a
742         GFC_STD_LEGACY feature.
743
744 2006-05-10  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
745
746         PR fortran/24549
747         * parse.c (reject_statement): Clear gfc_new_block.
748
749 2006-05-09  Steven G. Kargl  <kargls@comcast.net>
750
751         * invoke.texi: Missed file in previous commit.  Update
752          description of -fall-intrinsics
753
754 2006-05-07  Steven Boscher  <steven@gcc.gnu.org>
755
756         PR fortran/27378
757         * parse.c (next_statement): Add check to avoid an ICE when
758         gfc_current_locus.lb is not set.
759
760 2006-05-07  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
761
762         PR fortran/27457
763         * match.c (match_case_eos): Error out on garbage following
764         CASE(...).
765
766 2006-05-07  Paul Thomas  <pault@gcc.gnu.org>
767
768         PR fortran/24813
769         * trans-array.c (get_array_ctor_strlen): Remove static attribute.
770         * trans.h: Add prototype for get_array_ctor_strlen.
771         * trans-intrinsic.c (gfc_conv_intrinsic_len): Switch on EXPR_ARRAY
772         and call get_array_ctor_strlen.
773
774 2006-05-05  Steven G. Kargl  <kargls@comcast.net>
775
776         * invoke.texi: Update description of -fall-intrinsics
777         * options.c (gfc_post_options): Disable -Wnonstd-intrinsics if
778         -fall-intrinsics is used.
779         (gfc_handle_option): Permit -Wno-nonstd-intrinsics.
780
781 2006-05-04  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
782
783         * simplify.c (ascii_table): Fix wrong entry.
784
785 2006-05-02  Steven G. Kargl  <kargls@comcast.net>
786
787         PR fortran/26896
788         * lang.opt: Fix -Wtab description
789
790         PR fortran/20248  
791         * lang.opt: New flag -fall-intrinsics.
792         * invoke.texi:  Document option.
793         * gfortran.h (options_t):  New member flag_all_intrinsics.
794         * options.c (gfc_init_options, gfc_handle_option): Set new option.
795         sort nearby misplaced options.
796         * intrinsic.c (add_sym, make_generic, make_alias):  Use it.
797  
798 2006-05-02 Paul Thomas <pault@gcc.gnu.org>
799
800         PR fortran/27269
801         * module.c: Add static flag in_load_equiv.
802         (mio_expr_ref): Return if no symtree and in_load_equiv.
803         (load_equiv): If any of the equivalence members have no symtree, free
804         the equivalence and the associated expressions.
805
806         PR fortran/27324
807         * trans-common.c (gfc_trans_common): Invert the order of calls to
808         finish equivalences and gfc_commit_symbols.
809
810 2006-04-29  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
811
812         PR fortran/25681
813         * simplify.c (simplify_len): Character variables with constant
814         length can be simplified.
815
816 2006-04-29  H.J. Lu  <hongjiu.lu@intel.com>
817
818         PR fortran/27351
819         * trans-array.c (gfc_conv_array_transpose): Move gcc_assert
820         before gfc_conv_expr_descriptor.
821
822 2006-04-23  Paul Thomas  <pault@gcc.gnu.org>
823
824         PR fortran/25099
825         * resolve.c (resolve_call): Check conformity of elemental
826         subroutine actual arguments.
827
828 2006-04-22  Jakub Jelinek  <jakub@redhat.com>
829
830         PR fortran/26769
831         * iresolve.c (gfc_resolve_reshape): Use reshape_r16 for real(16).
832         (gfc_resolve_transpose): Use transpose_r16 for real(16).
833
834 2006-04-21 Paul Thomas <pault@gcc.gnu.org>
835
836         PR fortran/27122
837         * resolve.c (resolve_function): Remove general restriction on auto
838         character length function interfaces.
839         (gfc_resolve_uops): Check restrictions on defined operator
840         procedures.
841         (resolve_types): Call the check for defined operators.
842
843         PR fortran/27113
844         * trans-array.c (gfc_trans_array_constructor_subarray): Remove
845         redundant gfc_todo_error.
846         (get_array_ctor_var_strlen): Remove typo in enum.
847
848 2006-04-18  Bernhard Fischer  <aldot@gcc.gnu.org>
849
850         * parse.c (next_free): Use consistent error string between
851         free-form and fixed-form for illegal statement label of zero.
852         (next_fixed): Use consistent warning string between free-form
853         and fixed-form for statement labels for empty statements.
854
855 2006-04-18  Steve Ellcey  <sje@cup.hp.com>
856
857         * trans-io.c (gfc_build_io_library_fndecls): Align pad.
858
859 2006-04-16  Thomas Koenig  <Thomas.Koenig@online.de>
860
861         PR fortran/26017
862         * trans-array.c(gfc_array_init_size):  Introduce or_expr
863         which is true if the size along any dimension
864         is negative.  Create a temporary variable with base
865         name size.  If or_expr is true, set the temporary to 0,
866         to the normal size otherwise.
867
868 2006-04-16  Paul Thomas  <pault@gcc.gnu.org>
869
870         PR fortran/26822
871         * intrinsic.c (add_functions): Mark LOGICAL as elemental.
872
873         PR fortran/26787
874         * expr.c (gfc_check_assign): Extend scope of error to include
875         assignments to a procedure in the main program or, from a
876         module or internal procedure that is not that represented by
877         the lhs symbol. Use VARIABLE rather than l-value in message.
878
879         PR fortran/27096
880         * trans-array.c (gfc_trans_deferred_array): If the backend_decl
881         is not a descriptor, dereference and then test and use the type.
882
883         PR fortran/25597
884         * trans-decl.c (gfc_trans_deferred_vars): Check if an array
885         result, is also automatic character length.  If so, process
886         the character length.
887
888         PR fortran/18003
889         PR fortran/25669
890         PR fortran/26834
891         * trans_intrinsic.c (gfc_walk_intrinsic_bound): Set
892         data.info.dimen for bound intrinsics.
893         * trans_array.c (gfc_conv_ss_startstride): Pick out LBOUND and
894         UBOUND intrinsics and supply their shape information to the ss
895         and the loop.
896
897         PR fortran/27124
898         * trans_expr.c (gfc_trans_function_call):  Add a new block, post,
899         in to which all the argument post blocks are put.  Add this block
900         to se->pre after a byref call or to se->post, otherwise.
901
902 2006-04-14  Roger Sayle  <roger@eyesopen.com>
903
904         * trans-io.c (set_string): Use fold_build2 and build_int_cst instead
905         of build2 and convert to construct "x < 0" rather than "x <= -1".
906
907 2006-04-13  Richard Henderson  <rth@redhat.com>
908
909         * trans-openmp.c (gfc_trans_omp_sections): Adjust for changed
910         number of operands to OMP_SECTIONS.
911
912 2006-04-08  Kazu Hirata  <kazu@codesourcery.com>
913
914         * gfortran.texi: Fix typos.  Follow spelling conventions.
915         * resolve.c, trans-expr.c, trans-stmt.c: Fix comment typos.
916         Follow spelling conventions.
917
918 2006-04-05  Roger Sayle  <roger@eyesopen.com>
919
920         * dependency.c (get_no_elements): Delete function.
921         (get_deps): Delete function.
922         (transform_sections): Delete function.
923         (gfc_check_section_vs_section): Significant rewrite.
924
925 2006-04-04  H.J. Lu  <hongjiu.lu@intel.com>
926
927         PR fortran/25619
928         * trans-array.c (gfc_conv_expr_descriptor): Only dereference
929         character pointer when copying temporary.
930
931         PR fortran/23634
932         * trans-array.c (gfc_conv_expr_descriptor): Properly copy
933         temporary character with non constant size.
934
935 2006-04-03  Paul Thomas  <pault@gcc.gnu.org>
936
937         PR fortran/26891
938         * trans.h: Prototype for gfc_conv_missing_dummy.
939         * trans-expr (gfc_conv_missing_dummy): New function
940         (gfc_conv_function_call): Call it and tidy up some of the code.
941         * trans-intrinsic (gfc_conv_intrinsic_function_args): The same.
942
943         PR fortran/26976
944         * array.c (gfc_array_dimen_size): If available, return shape[dimen].
945         * resolve.c (resolve_function): If available, use the argument
946         shape for the function expression.
947         * iresolve.c (gfc_resolve_transfer): Set shape[0] = size.
948
949 2006-04-02  Erik Edelmann  <eedelman@gcc.gnu.org>
950
951         * trans-array.c (gfc_trans_dealloc_allocated): Take a
952         tree representation of the array to be deallocated as argument
953         instead of its gfc_symbol.
954         (gfc_trans_deferred_array): Update call to
955         gfc_trans_dealloc_allocated.
956         * trans-array.h (gfc_trans_dealloc_allocated): Update
957         prototype.
958         * trans-expr.c (gfc_conv_function_call): Update call to
959         gfc_trans_dealloc_allocated, get indirect reference to dummy
960         arguments.
961
962 2006-04-01  Roger Sayle  <roger@eyesopen.com>
963
964         PR fortran/25270
965         * trans-array.c (gfc_trans_allocate_array_storage): In array index
966         calculations use gfc_index_zero_node and gfc_index_one_node instead
967         of integer_zero_node and integer_one_node respectively.
968         (gfc_conv_array_transpose): Likewise.
969         (gfc_conv_ss_startstride): Likewise.
970         (gfc_trans_dummy_array_bias): Likewise.
971
972 2006-04-01  Roger Sayle  <roger@eyesopen.com>
973
974         * dependency.c (gfc_is_inside_range): Delete.
975         (gfc_check_element_vs_section): Significant rewrite.
976
977 2006-04-01  Roger Sayle  <roger@eyesopen.com>
978
979         * dependency.c (gfc_dep_compare_expr): Strip parentheses and unary
980         plus operators when comparing expressions.  Handle comparisons of
981         the form "X+C vs. X", "X vs. X+C", "X-C vs. X" and "X vs. X-C" where
982         C is an integer constant.  Handle comparisons of the form "P+Q vs.
983         R+S" and "P-Q vs. R-S".  Handle comparisons of integral extensions
984         specially (increasing functions) so extend(A) > extend(B), when A>B.
985         (gfc_check_element_vs_element): Move test later, so that we ignore
986         the fact that "A < B" or "A > B" when A or B contains a forall index.
987
988 2006-03-31  Asher Langton  <langton2@llnl.gov>
989
990         PR fortran/25358
991         * expr.c (gfc_check_assign): Allow cray pointee to be assumes-size.
992         
993 2006-03-30  Paul Thomas <paulthomas2@wanadoo.fr>
994             Bud Davis  <bdavis9659@sbcglobal.net>
995
996         PR 21130
997         * module.c (load_needed): Traverse entire tree before returning.
998
999 2006-03-30  Roger Sayle  <roger@eyesopen.com>
1000
1001         PR middle-end/22375
1002         * trans.c (gfc_trans_runtime_check): Promote the arguments of
1003         __builtin_expect to the correct types, and the result back to
1004         boolean_type_node.
1005
1006 2006-03-29  Carlos O'Donell  <carlos@codesourcery.com>
1007
1008         * Make-lang.in: Rename docdir to gcc_docdir.
1009
1010 2006-03-28  Steven G. Kargl  <kargls@comcast.net>
1011
1012         * intrinsic.texi: s/floor/float in previous commit.
1013
1014 2006-03-28 Paul Thomas <pault@gcc.gnu.org>
1015
1016         PR fortran/26779
1017         * resolve.c (resolve_fl_procedure): Do not check the access of
1018         derived types for internal procedures.
1019
1020 2006-03-27  Jakub Jelinek  <jakub@redhat.com>
1021
1022         * io.c (check_io_constraints): Don't look at
1023         dt->advance->value.charater.string, unless it is a CHARACTER
1024         constant.
1025
1026         * f95-lang.c (gfc_get_alias_set): New function.
1027         (LANG_HOOKS_GET_ALIAS_SET): Define.
1028
1029 2006-03-25  Steven G. Kargl  <kargls@comcast.net>
1030
1031         PR fortran/26816
1032         * intrinsic.c (add_functions): Allow FLOAT to accept all integer kinds.
1033         * intrinsic.texi: Document FLOAT.
1034
1035 2006-03-25  Thomas Koenig  <Thomas.Koenig@online.de>
1036
1037         PR fortran/26769
1038         * iresolve.c (gfc_resolve_reshape):  Remove doubling of
1039         kind for complex. For real(kind=10), call reshape_r10.
1040         (gfc_resolve_transpose):  For real(kind=10), call
1041         transpose_r10.
1042
1043 2006-03-25  Roger Sayle  <roger@eyesopen.com>
1044
1045         * dependency.c (gfc_check_dependency): Improve handling of pointers;
1046         Two variables of different types can't have a dependency, and two
1047         variables with the same symbol are equal, even if pointers.
1048
1049 2006-03-24  Roger Sayle  <roger@eyesopen.com>
1050
1051         * gfortran.h (gfc_symbol): Add a new "forall_index" bit field.
1052         * match.c (match_forall_iterator): Set forall_index field on
1053         the iteration variable's symbol.
1054         * dependency.c (contains_forall_index_p): New function to
1055         traverse a gfc_expr to check whether it contains a variable
1056         with forall_index set in it's symbol.
1057         (gfc_check_element_vs_element): Return GFC_DEP_EQUAL for scalar
1058         constant expressions that don't variables used as FORALL indices.
1059
1060 2006-03-22  Volker Reichelt  <reichelt@igpm.rwth-aachen.de>
1061
1062         PR driver/22600
1063         * error.c (gfc_fatal_error): Return ICE_EXIT_CODE instead of 4.
1064
1065 2006-03-22  Thomas Koenig  <Thomas.Koenig@online.de>
1066
1067         PR fortran/19303
1068         * gfortran.h (gfc_option_t):  Add record_marker.
1069         * lang.opt:  Add -frecord-marker=4 and -frecord-marker=8.
1070         * trans-decl.c:  Add gfor_fndecl_set_record_marker.
1071         (gfc_build_builtin_function_decls): Set
1072         gfor_fndecl_set_record_marker.
1073         (gfc_generate_function_code):  If we are in the main program
1074         and -frecord-marker was provided, call set_record_marker.
1075         * options.c (gfc_handle_option):  Add handling for
1076         -frecord-marker=4 and -frecord-marker=8.
1077         * invoke.texi:  Document -frecord-marker.
1078
1079 2006-03-22  Paul Thomas  <pault@gcc.gnu.org>
1080
1081         PR fortran/17298
1082         * trans-intrinsic.c (gfc_conv_intrinsic_array_transfer): New
1083         function to implement array valued TRANSFER intrinsic.
1084         (gfc_conv_intrinsic_function): Call the new function if TRANSFER
1085         and non-null se->ss.
1086         (gfc_walk_intrinsic_function): Treat TRANSFER as one of the
1087         special cases by calling gfc_walk_intrinsic_libfunc directly.
1088
1089 2006-03-21  Toon Moene  <toon@moene.indiv.nluug.nl>
1090
1091         * options.c (gfc_init_options): Initialize
1092         flag_argument_noalias to 3.
1093
1094 2006-03-20  Thomas Koenig  <Thomas.Koenig@online.de>
1095
1096         PR fortran/20935
1097         * iresolve.c (gfc_resolve_maxloc):   If mask is scalar,
1098         prefix the function name with an "s".  If the mask is scalar
1099         or if its kind is smaller than gfc_default_logical_kind,
1100         coerce it to default kind.
1101         (gfc_resolve_maxval):  Likewise.
1102         (gfc_resolve_minloc):  Likewise.
1103         (gfc_resolve_minval):  Likewise.
1104         (gfc_resolve_product):  Likewise.
1105         (gfc_resolve_sum):  Likewise.
1106
1107 2006-03-19  Paul Thomas  <pault@gcc.gnu.org>
1108
1109         PR fortran/26741
1110         *expr.c (external_spec_function): Permit elemental functions.
1111
1112         PR fortran/26716
1113         *interface.c (compare_actual_formal): Detect call for procedure
1114         usage and require rank checking, in this case, for assumed shape
1115         and deferred shape arrays.
1116         (gfc_procedure_use): Revert to pre-PR25070 call to
1117         compare_actual_formal that does not require rank checking..
1118
1119 2006-03-16  Roger Sayle  <roger@eyesopen.com>
1120
1121         * gfortran.h (gfc_equiv_info): Add length field.
1122         * trans-common.c (copy_equiv_list_to_ns): Set the length field.
1123         * dependency.c (gfc_are_equivalenced_arrays): Use both the offset
1124         and length fields to determine whether the two equivalenced symbols
1125         overlap in memory.
1126
1127 2006-03-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1128
1129         PR fortran/19101
1130         * gfortran.h: Add warn_ampersand.
1131         * invoke.texi: Add documentation for new option.
1132         * lang.opt: Add Wampersand.
1133         * options.c (gfc_init_options): Initialize warn_ampersand.
1134         (gfc_post_options): Set the warn if pedantic.
1135         (set_Wall): Set warn_ampersand.
1136         (gfc_handle_option: Add Wampersand for itself, -std=f95, and -std=f2003.
1137         * scanner.c (gfc_next_char_literal): Add test for missing '&' in
1138         continued character constant and give warning if missing.
1139
1140 2006-03-14  Steven G. Kargl  <kargls@comcast.net>
1141
1142         PR 18537
1143         * gfortran.h: Wrap Copyright line.
1144         (gfc_option_t): add warn_tabs member.
1145         * lang.opt: Update Coyright year.  Add the Wtabs.
1146         * invoke.texi: Document -Wtabs.
1147         * scanner.c (gfc_gobble_whitespace): Use warn_tabs.  Add linenum to
1148         suppress multiple warnings.
1149         (load_line): Use warn_tabs.  Add linenum, current_line, seen_comment
1150         to suppress multiple warnings.
1151         * options.c (gfc_init_options): Initialize warn_tabs.
1152         (set_Wall): set warn_tabs for -Wall.
1153         (gfc_post_options): Adjust flag_tabs depending on -pedantic.
1154         (gfc_handle_option):  Process command-line option -W[no-]tabs
1155
1156 2006-03-13  Paul Thomas  <pault@gcc.gnu.org>
1157
1158         PR fortran/25378
1159         * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Set the initial position to zero and
1160         modify the condition for updating it, to implement the F2003 requirement for all(mask)
1161         is false.
1162
1163 2006-03-13  Jakub Jelinek  <jakub@redhat.com>
1164
1165         * trans-openmp.c (gfc_trans_omp_variable): Handle references
1166         to parent result.
1167         * trans-expr.c (gfc_conv_variable): Remove useless setting
1168         of parent_flag, formatting.
1169
1170         * trans-decl.c (gfc_get_fake_result_decl): Re-add setting of
1171         GFC_DECL_RESULT flag.
1172
1173 2003-03-11  Roger Sayle  <roger@eyesopen.com>
1174
1175         * dependency.c (gfc_dep_compare_expr) <EXPR_OP>: Allow unary and
1176         binary operators to compare equal if their operands are equal.
1177         <EXPR_FUNCTION>: Allow "constant" intrinsic conversion functions
1178         to compare equal, if their operands are equal.
1179
1180 2006-03-11  Erik Edelmann  <eedelman@gcc.gnu.org>
1181
1182         * symbol.c (check_conflict): Allow allocatable function results,
1183         except for elemental functions.
1184         * trans-array.c (gfc_trans_allocate_temp_array): Rename to ...
1185         (gfc_trans_create_temp_array): ... this, and add new argument
1186         callee_alloc.
1187         (gfc_trans_array_constructor, gfc_conv_loop_setup): Update call
1188         to gfc_trans_allocate_temp_array.
1189         * trans-array.h (gfc_trans_allocate_temp_array): Update prototype.
1190         * trans-expr.c (gfc_conv_function_call): Use new arg of
1191         gfc_trans_create_temp_array avoid pre-allocation of temporary
1192         result variables of pointer AND allocatable functions.
1193         (gfc_trans_arrayfunc_assign): Return NULL for allocatable
1194         functions.
1195         * resolve.c (resolve_symbol): Copy value of 'allocatable' attribute
1196         from sym->result to sym.
1197
1198 2006-03-09  Erik Edelmann  <eedelman@gcc.gnu.org>
1199
1200         * trans-expr.c (gfc_add_interface_mapping): Copy 'allocatable'
1201         attribute from sym to new_sym.  Call build_fold_indirect_ref()
1202         for allocatable arguments.
1203
1204 2006-03-09 Paul Thomas <pault@gcc.gnu.org>
1205
1206         PR fortran/26257
1207         * trans-array.c (gfc_conv_expr_descriptor): Exclude calculation of
1208         the offset and data when se->data_not_needed is set.
1209         * trans.h: Include the data_not_need bit in gfc_se.
1210         * trans-intrinsic.c (gfc_conv_intrinsic_size): Set it for SIZE.
1211
1212 2006-03-06  Paul Thomas  <pault@gcc.gnu.org>
1213             Erik Edelmann  <eedelman@gcc.gnu.org>
1214
1215         * trans-array.c (gfc_trans_dealloc_allocated): New function.
1216         (gfc_trans_deferred_array): Use it, instead of inline code.
1217         * trans-array.h: Prototype for gfc_trans_dealloc_allocated().
1218         * trans-expr.c (gfc_conv_function_call): Deallocate allocated
1219         ALLOCATABLE, INTENT(OUT) arguments upon procedure entry.
1220
1221 2006-03-06  Paul Thomas  <pault@gcc.gnu.org>
1222
1223         PR fortran/26107
1224         * resolve.c (resolve_function): Add name after test for pureness.
1225
1226         PR fortran/19546
1227         * trans-expr.c (gfc_conv_variable): Detect reference to parent result,
1228         store current_function_decl, replace with parent, whilst calls are
1229         made to gfc_get_fake_result_decl, and restore afterwards. Signal this
1230         to gfc_get_fake_result_decl with a new argument, parent_flag.
1231         * trans-stmt.c (gfc_trans_return): gfc_get_fake_result_decl 2nd arg
1232         is set to zero.
1233         * trans.h: Add parent_flag to gfc_get_fake_result_decl prototype.
1234         * trans-decl.c (gfc_get_fake_result_decl): On parent_flag, being set,
1235         add decl to parent function. Replace refs to current_fake_result_decl
1236         with refs to this_result_decl.
1237         (gfc_generate_function_code): Null parent_fake_result_decl before the
1238         translation of code for contained procedures. Set parent_flag to zero
1239         in call to gfc_get_fake_result_decl.
1240         * trans-intrinsic.c (gfc_conv_intrinsic_len): The same.
1241
1242 2006-03-05  Steven G. Kargl  <kargls@comcast.net>
1243
1244         * simplify.c (gfc_simplify_verify):  Fix return when SET=''.
1245
1246 2006-03-05  Erik Edelmann  <eedelman@gcc.gnu.org>
1247
1248         PR fortran/16136
1249         * symbol.c (conf_std): New macro.
1250         (check_conflict): Use it to allow ALLOCATABLE dummy
1251         arguments for F2003.
1252         * trans-expr.c (gfc_conv_function_call): Pass the
1253         address of the array descriptor when dummy argument is
1254         ALLOCATABLE.
1255         * interface.c (compare_allocatable): New function.
1256         (compare_actual_formal): Use it.
1257         * resolve.c (resolve_deallocate_expr,
1258         resolve_allocate_expr): Check that INTENT(IN) variables
1259         aren't (de)allocated.
1260         * gfortran.texi (Fortran 2003 status): List ALLOCATABLE
1261         dummy arguments as supported.
1262
1263 2006-03-03  Roger Sayle  <roger@eyesopen.com>
1264
1265         * dependency.c (gfc_check_element_vs_element): Revert last change.
1266
1267 2006-03-03  Roger Sayle  <roger@eyesopen.com>
1268
1269         * dependency.c (gfc_check_element_vs_element): Consider two
1270         unordered scalar subscripts as (potentially) equal.
1271
1272 2006-03-03  Roger Sayle  <roger@eyesopen.com>
1273
1274         * dependency.c (gfc_check_dependency): Call gfc_dep_resolver to
1275         check whether two array references have a dependency.
1276         (gfc_check_element_vs_element): Assume lref and rref must be
1277         REF_ARRAYs.  If gfc_dep_compare_expr returns -2, assume these
1278         references could potentially overlap.
1279         (gfc_dep_resolver): Whitespace and comment tweaks.  Assume a
1280         dependency if the references have different depths.  Rewrite
1281         final term to clarrify we only have a dependency for overlaps.
1282
1283 2006-03-03  Thomas Koenig  <Thomas.Koenig@online.de>
1284
1285         PR fortran/25031
1286         * trans-array.h:  Adjust gfc_array_allocate prototype.
1287         * trans-array.c (gfc_array_allocate):  Change type of
1288         gfc_array_allocatate to bool.  Function returns true if
1289         it operates on an array.  Change second argument to gfc_expr.
1290         Find last reference in chain.
1291         If the function operates on an allocatable array, emit call to
1292         allocate_array() or allocate64_array().
1293         * trans-stmt.c (gfc_trans_allocate):  Code to follow to last
1294         reference has been moved to gfc_array_allocate.
1295         * trans.h:  Add declaration for gfor_fndecl_allocate_array and
1296         gfor_fndecl_allocate64_array.
1297         (gfc_build_builtin_function_decls):  Add gfor_fndecl_allocate_array
1298         and gfor_fndecl_allocate64_array.
1299
1300 2006-03-01  Roger Sayle  <roger@eyesopen.com>
1301
1302         * trans-stmt.c (generate_loop_for_temp_to_lhs): Add an additional
1303         INVERT argument to invert the sense of the WHEREMASK argument.
1304         Remove unneeded code to AND together a list of masks.
1305         (generate_loop_for_rhs_to_temp): Likewise.
1306         (gfc_trans_assign_need_temp): Likewise.
1307         (gfc_trans_forall_1): Likewise.
1308         (gfc_evaluate_where_mask): Likewise, add a new INVERT argument
1309         to specify the sense of the MASK argument.
1310         (gfc_trans_where_assign): Likewise.
1311         (gfc_trans_where_2): Likewise.  Restructure code that decides
1312         whether we need to allocate zero, one or two temporary masks.
1313         If this is a top-level WHERE (i.e. the incoming MASK is NULL),
1314         we only need to allocate at most one temporary mask, and can
1315         invert it's sense to provide the complementary pending execution
1316         mask.  Only calculate the size of the required temporary arrays
1317         if we need any.
1318         (gfc_trans_where): Update call to gfc_trans_where_2.
1319
1320 2006-03-01  Paul Thomas  <pault@gcc.gnu.org>
1321
1322         * iresolve.c (gfc_resolve_dot_product):  Remove any difference in
1323         treatment of logical types.
1324         * trans-intrinsic.c (gfc_conv_intrinsic_dot_product):  New function. 
1325
1326         PR fortran/26393
1327         * trans-decl.c (gfc_get_symbol_decl): Extend condition that symbols
1328         must be referenced to include unreferenced symbols in an interface
1329         body. 
1330
1331         PR fortran/20938
1332         * trans-array.c (gfc_conv_resolve_dependencies): Add call to
1333         gfc_are_equivalenced_arrays.
1334         * symbol.c (gfc_free_equiv_infos, gfc_free_equiv_lists): New
1335         functions. (gfc_free_namespace): Call them.
1336         * trans-common.c (copy_equiv_list_to_ns): New function.
1337         (add_equivalences): Call it.
1338         * gfortran.h: Add equiv_lists to gfc_namespace and define
1339         gfc_equiv_list and gfc_equiv_info.
1340         * dependency.c (gfc_are_equivalenced_arrays): New function.
1341         (gfc_check_dependency): Call it.
1342         * dependency.h: Prototype for gfc_are_equivalenced_arrays.
1343
1344 2006-03-01  Roger Sayle  <roger@eyesopen.com>
1345
1346         * dependency.c (gfc_is_same_range): Compare the stride, lower and
1347         upper bounds when testing array reference ranges for equality.
1348         (gfc_check_dependency): Fix indentation whitespace.
1349         (gfc_check_element_vs_element): Likewise.
1350         (gfc_dep_resolver): Likewise.
1351
1352 2006-02-28  Thomas Koenig  <Thomas.Koenig@online.de>
1353
1354         * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc):
1355         If the mask expression exists and has rank 0, enclose the
1356         generated loop in an "if (mask)".  Put the default
1357         initialization into the else branch.
1358
1359 2006-02-25  Thomas Koenig  <Thomas.Koenig@online.de>
1360
1361         PR fortran/23092
1362         * trans-intrinsic.c (gfc_conv_intrinsic_arith):  If the
1363         mask expression exists and has rank 0, enclose the generated
1364         loop in an "if (mask)".
1365         * (gfc_conv_intrinsic_minmaxloc):  Likewise.
1366
1367 2006-02-24  Paul Thomas  <pault@gcc.gnu.org>
1368
1369         PR fortran/26409
1370         * resolve.c (resolve_contained_functions, resolve_types,
1371         gfc_resolve): Revert patch of 2006-02-19.
1372
1373 2006-02-24  Paul Thomas  <pault@gcc.gnu.org>
1374
1375         PR fortran/24519
1376         * dependency.c (gfc_is_same_range): Correct typo.
1377         (gfc_check_section_vs_section): Call gfc_is_same_range.
1378
1379         PR fortran/25395
1380         * trans-common.c (add_equivalences): Add a new flag that is set when
1381         an equivalence is seen that prevents more from being reset until the
1382         start of a new traversal of the list, thus ensuring completion of
1383         all the equivalences.
1384
1385 2006-02-23  Erik Edelmann  <eedelman@gcc.gnu.org>
1386
1387         * module.c (read_module): Remove redundant code lines.
1388
1389 2006-02-20 Rafael \81Ávila de Esp\81índola <rafael.espindola@gmail.com>
1390         * Make-lang.in (FORTRAN): Remove
1391         (.PHONY): Remove F95 and f95. Add fortran
1392
1393 2006-02-20  Roger Sayle  <roger@eyesopen.com>
1394
1395         * trans-stmt.c (gfc_trans_where_2): Avoid updating unused current
1396         execution mask for empty WHERE/ELSEWHERE clauses.  Don't allocate
1397         temporary mask arrays if they won't be used.
1398
1399 2006-02-20  Roger Sayle  <roger@eyesopen.com>
1400
1401         * trans-stmt.c (gfc_trans_where_assign): Remove code to handle
1402         traversing a linked list of MASKs.  The MASK is now always a
1403         single element requiring no ANDing during the assignment.
1404
1405 2006-02-19  Thomas Koenig  <Thomas.Koenig@online.de>
1406
1407         * gfortran.texi:  Document environment variables which
1408         influence runtime behavior.
1409
1410 2006-02-19  H.J. Lu  <hongjiu.lu@intel.com>
1411
1412         * resolve.c (resolve_contained_functions): Call resolve_entries
1413         first.
1414         (resolve_types): Remove calls to resolve_entries and
1415         resolve_contained_functions.
1416         (gfc_resolve): Call resolve_contained_functions.
1417
1418 2006-02-19  Erik Edelmann  <eedelman@gcc.gnu.org>
1419
1420         PR fortran/26201
1421         * intrinsic.c (gfc_convert_type_warn): Call
1422         gfc_intrinsic_symbol() on the newly created symbol.
1423
1424 2006-02-19  Paul Thomas  <pault@gcc.gnu.org>
1425
1426         PR fortran/25054
1427         * resolve.c (is_non_constant_shape_array): New function.
1428         (resolve_fl_variable): Remove code for the new function and call it.
1429         (resolve_fl_namelist): New function.  Add test for namelist array
1430         with non-constant shape, using is_non_constant_shape_array.
1431         (resolve_symbol): Remove code for resolve_fl_namelist and call it.
1432
1433         PR fortran/25089
1434         * match.c (match_namelist): Increment the refs field of an accepted
1435         namelist object symbol.
1436         * resolve.c (resolve_fl_namelist): Test namelist objects for a conflict
1437         with contained or module procedures.
1438
1439 2006-02-18  Roger Sayle  <roger@eyesopen.com>
1440
1441         * trans-stmt.c (struct temporary_list): Delete.
1442         (gfc_trans_where_2): Major reorganization.  Remove no longer needed
1443         TEMP argument.  Allocate and deallocate the control mask and
1444         pending control mask locally.
1445         (gfc_trans_forall_1): Delete TEMP local variable, and update
1446         call to gfc_trans_where_2.  No need to deallocate arrays after.
1447         (gfc_evaluate_where_mask): Major reorganization.  Change return
1448         type to void.  Pass in parent execution mask, MASK, and two
1449         already allocated mask arrays CMASK and PMASK.  On return
1450         CMASK := MASK & COND, PMASK := MASK & !COND.  MASK, CMASK and
1451         CMASK may all be NULL, or refer to the same temporary arrays.
1452         (gfc_trans_where): Update call to gfc_trans_where_2.  We no
1453         longer need a TEMP variable or to deallocate temporary arrays
1454         allocated by gfc_trans_where_2.
1455
1456 2006-02-18   Danny Smith  <dannysmith@users.sourceforeg.net>
1457
1458         * gfortran.h (gfc_add_attribute): Change uint to unsigned int.
1459         * symbol.c (gfc_add_attribute): Likewise for definition.
1460         * resolve.c (resolve_global_procedure): Likewise for variable 'type'.
1461
1462 2006-02-17  Richard Sandiford  <richard@codesourcery.com>
1463
1464         * trans-common.c: Include rtl.h earlier.
1465         * trans-decl.c: Likewise.
1466
1467 2006-02-16  Jakub Jelinek  <jakub@redhat.com>
1468
1469         PR fortran/26224
1470         * parse.c (parse_omp_do, parse_omp_structured_block): Call
1471         gfc_commit_symbols and gfc_warning_check.
1472
1473         * openmp.c (resolve_omp_clauses): Add a dummy case label to workaround
1474         PR middle-end/26316.
1475
1476 2006-02-16  Paul Thomas  <pault@gcc.gnu.org>
1477
1478         PR fortran/24557
1479         * trans-expr.c (gfc_add_interface_mapping): Use the actual argument
1480         for character(*) arrays, rather than casting to the type and kind
1481         parameters of the formal argument.
1482
1483 2006-02-15  Toon Moene  <toon@moene.indiv.nluug.nl>
1484
1485         PR fortran/26054
1486         * options.c: Do not warn for Fortran 2003 features by default.
1487
1488 2006-02-15  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
1489
1490         * check.c: Update copyright years.
1491         
1492         * check.c (gfc_check_minloc_maxloc, check_reduction): Don't call
1493         dim_range_check on not-present optional dim argument.
1494
1495 2006-02-15  Jakub Jelinek  <jakub@redhat.com>
1496
1497         PR libgomp/25938
1498         PR libgomp/25984
1499         * Make-lang.in (install-finclude-dir): New goal.
1500         (fortran.install-common): Depend on install-finclude-dir.
1501         * lang-specs.h: If not -nostdinc, add -I finclude.
1502
1503 2006-02-14  Thomas Koenig  <Thomas.Koenig@online.de>
1504
1505         PR fortran/25045
1506         * check.c (dim_check):  Perform all checks if dim is optional.
1507         (gfc_check_minloc_maxloc):  Use dim_check and dim_rank_check
1508         to check dim argument.
1509         (check_reduction):  Likewise.
1510
1511 2006-02-14  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
1512
1513         PR fortran/26277
1514         * io.c (match_ltag): Mark label as referenced.
1515
1516 2006-02-14  Jakub Jelinek  <jakub@redhat.com>
1517             Richard Henderson  <rth@redhat.com>
1518             Diego Novillo  <dnovillo@redhat.com>
1519
1520         * invoke.texi: Document -fopenmp.
1521         * gfortran.texi (Extensions): Document OpenMP.
1522
1523         Backport from gomp-20050608-branch
1524         * trans-openmp.c: Call build_omp_clause instead of
1525         make_node when creating OMP_CLAUSE_* trees.
1526         (gfc_trans_omp_reduction_list): Remove argument 'code'.
1527         Adjust all callers.
1528
1529         * trans.h (build4_v): Define.
1530         * trans-openmp.c: Call build4_v to create OMP_PARALLEL nodes.
1531         Call build3_v to create OMP_SECTIONS nodes.
1532
1533         PR fortran/25162
1534         * openmp.c (gfc_match_omp_variable_list): Call gfc_set_sym_referenced
1535         on all symbols added to the variable list.
1536
1537         * openmp.c (gfc_match_omp_clauses): Fix check for non-INTRINSIC
1538         procedure symbol in REDUCTION.
1539
1540         * trans-openmp.c (gfc_trans_omp_array_reduction): Use gfc_add
1541         for MINUS_EXPR OMP_CLAUSE_REDUCTION_CODE.
1542
1543         * trans-openmp.c (gfc_trans_omp_do): Add PBLOCK argument.  If PBLOCK
1544         is non-NULL, evaluate INIT/COND/INCR and chunk size expressions in
1545         that statement block.
1546         (gfc_trans_omp_parallel_do): Pass non-NULL PBLOCK to gfc_trans_omp_do
1547         for non-ordered non-static combined loops.
1548         (gfc_trans_omp_directive): Pass NULL PBLOCK to gfc_trans_omp_do.
1549
1550         * openmp.c: Include target.h and toplev.h.
1551         (gfc_match_omp_threadprivate): Emit diagnostic if target does
1552         not support TLS.
1553         * Make-lang.in (fortran/openmp.o): Add dependencies on
1554         target.h and toplev.h.
1555
1556         * trans-decl.c (gfc_get_fake_result_decl): Set GFC_DECL_RESULT.
1557         * trans-openmp.c (gfc_omp_privatize_by_reference): Make
1558         DECL_ARTIFICIAL vars predetermined shared except GFC_DECL_RESULT.
1559         (gfc_omp_disregard_value_expr): Handle GFC_DECL_RESULT.
1560         (gfc_trans_omp_variable): New function.
1561         (gfc_trans_omp_variable_list, gfc_trans_omp_reduction_list): Use it.
1562         * trans.h (GFC_DECL_RESULT): Define.
1563
1564         * trans-openmp.c (gfc_omp_firstprivatize_type_sizes): New function.
1565         * f95-lang.c (LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES): Define.
1566         * trans.h (gfc_omp_firstprivatize_type_sizes): New prototype.
1567
1568         * trans-openmp.c (gfc_omp_privatize_by_reference): Return
1569         true if a pointer has GFC_DECL_SAVED_DESCRIPTOR set.
1570         (gfc_trans_omp_array_reduction, gfc_trans_omp_reduction_list): New
1571         functions.
1572         (gfc_trans_omp_clauses): Add WHERE argument.  Call
1573         gfc_trans_omp_reduction_list rather than gfc_trans_omp_variable_list
1574         for reductions.
1575         (gfc_trans_omp_do, gfc_trans_omp_parallel, gfc_trans_omp_parallel_do,
1576         gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare,
1577         gfc_trans_omp_sections, gfc_trans_omp_single): Adjust
1578         gfc_trans_omp_clauses callers.
1579
1580         * openmp.c (omp_current_do_code): New var.
1581         (gfc_resolve_omp_do_blocks): New function.
1582         (gfc_resolve_omp_parallel_blocks): Call it.
1583         (gfc_resolve_do_iterator): Add CODE argument.  Don't propagate
1584         predetermination if argument is !$omp do or !$omp parallel do
1585         iteration variable.
1586         * resolve.c (resolve_code): Call gfc_resolve_omp_do_blocks
1587         for EXEC_OMP_DO.  Adjust gfc_resolve_do_iterator caller.
1588         * fortran.h (gfc_resolve_omp_do_blocks): New prototype.
1589         (gfc_resolve_do_iterator): Add CODE argument.
1590
1591         * trans.h (gfc_omp_predetermined_sharing,
1592         gfc_omp_disregard_value_expr, gfc_omp_private_debug_clause): New
1593         prototypes.
1594         (GFC_DECL_COMMON_OR_EQUIV, GFC_DECL_CRAY_POINTEE): Define.
1595         * trans-openmp.c (gfc_omp_predetermined_sharing,
1596         gfc_omp_disregard_value_expr, gfc_omp_private_debug_clause): New
1597         functions.
1598         * trans-common.c (build_equiv_decl, build_common_decl,
1599         create_common): Set GFC_DECL_COMMON_OR_EQUIV flag on the decls.
1600         * trans-decl.c (gfc_finish_cray_pointee): Set GFC_DECL_CRAY_POINTEE
1601         on the decl.
1602         * f95-lang.c (LANG_HOOKS_OMP_PREDETERMINED_SHARING,
1603         LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR,
1604         LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE): Define.
1605
1606         * openmp.c (resolve_omp_clauses): Remove extraneous comma.
1607
1608         * symbol.c (check_conflict): Add conflict between cray_pointee and
1609         threadprivate.
1610         * openmp.c (gfc_match_omp_threadprivate): Fail if
1611         gfc_add_threadprivate returned FAILURE.
1612         (resolve_omp_clauses): Diagnose Cray pointees in SHARED,
1613         {,FIRST,LAST}PRIVATE and REDUCTION clauses and Cray pointers in
1614         {FIRST,LAST}PRIVATE and REDUCTION clauses.
1615
1616         * resolve.c (omp_workshare_flag): New variable.
1617         (resolve_function): Diagnose use of non-ELEMENTAL user defined
1618         function in WORKSHARE construct.
1619         (resolve_code): Cleanup forall_save use.  Make sure omp_workshare_flag
1620         is set to correct value in different contexts.
1621
1622         * openmp.c (resolve_omp_clauses): Replace %s with '%s' when printing
1623         variable name.
1624         (resolve_omp_atomic): Likewise.
1625
1626         PR fortran/24493
1627         * scanner.c (skip_free_comments): Set at_bol at the beginning of the
1628         loop, not before it.
1629         (skip_fixed_comments): Handle ! comments in the middle of line here
1630         as well.
1631         (gfc_skip_comments): Use skip_fixed_comments for FIXED_FORM even if
1632         not at BOL.
1633         (gfc_next_char_literal): Fix expected canonicalized *$omp string.
1634
1635         * trans-openmp.c (gfc_trans_omp_do): Use make_node and explicit
1636         initialization to build OMP_FOR instead of build.
1637
1638         * trans-decl.c (gfc_gimplify_function): Invoke
1639         diagnose_omp_structured_block_errors.
1640
1641         * trans-openmp.c (gfc_trans_omp_master): Use OMP_MASTER.
1642         (gfc_trans_omp_ordered): Use OMP_ORDERED.
1643
1644         * gfortran.h (gfc_resolve_do_iterator, gfc_resolve_blocks,
1645         gfc_resolve_omp_parallel_blocks): New prototypes.
1646         * resolve.c (resolve_blocks): Renamed to...
1647         (gfc_resolve_blocks): ... this.  Remove static.
1648         (gfc_resolve_forall): Adjust caller.
1649         (resolve_code): Only call gfc_resolve_blocks if code->block != 0
1650         and not for EXEC_OMP_PARALLEL* directives.  Call
1651         gfc_resolve_omp_parallel_blocks for EXEC_OMP_PARALLEL* directives.
1652         Call gfc_resolve_do_iterator if resolved successfully EXEC_DO
1653         iterator.
1654         * openmp.c: Include pointer-set.h.
1655         (omp_current_ctx): New variable.
1656         (gfc_resolve_omp_parallel_blocks, gfc_resolve_do_iterator): New
1657         functions.
1658         * Make-lang.in (fortran/openmp.o): Depend on pointer-set.h.
1659
1660         * openmp.c (gfc_match_omp_clauses): For max/min/iand/ior/ieor,
1661         look up symbol if it exists, use its name instead and, if it is not
1662         INTRINSIC, issue diagnostics.
1663
1664         * parse.c (parse_omp_do): Handle implied end do properly.
1665         (parse_executable): If parse_omp_do returned ST_IMPLIED_ENDDO,
1666         return it instead of continuing.
1667
1668         * trans-openmp.c (gfc_trans_omp_critical): Update for changed
1669         operand numbering.
1670         (gfc_trans_omp_do, gfc_trans_omp_parallel, gfc_trans_omp_parallel_do,
1671         gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare,
1672         gfc_trans_omp_sections, gfc_trans_omp_single): Likewise.
1673
1674         * trans.h (gfc_omp_privatize_by_reference): New prototype.
1675         * f95-lang.c (LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE): Redefine
1676         to gfc_omp_privatize_by_reference.
1677         * trans-openmp.c (gfc_omp_privatize_by_reference): New function.
1678
1679         * trans-stmt.h (gfc_trans_omp_directive): Add comment.
1680
1681         * openmp.c (gfc_match_omp_variable_list): Add ALLOW_COMMON argument.
1682         Disallow COMMON matching if it is set.
1683         (gfc_match_omp_clauses, gfc_match_omp_flush): Adjust all callers.
1684         (resolve_omp_clauses): Show locus in error messages.  Check that
1685         variable types in reduction clauses are appropriate for reduction
1686         operators.
1687
1688         * resolve.c (resolve_symbol): Don't error if a threadprivate module
1689         variable isn't SAVEd.
1690
1691         * trans-openmp.c (gfc_trans_omp_do): Put count into BLOCK, not BODY.
1692         Fix typo in condition.  Fix DOVAR initialization.
1693
1694         * openmp.c (gfc_match_omp_clauses): Match min/iand/ior/ieor
1695         rather than .min. etc.
1696
1697         * trans-openmpc.c (omp_not_yet): Remove.
1698         (gfc_trans_omp_parallel_do): Keep listprivate clause on parallel.
1699         Force creation of BIND_EXPR around the workshare construct.
1700         (gfc_trans_omp_parallel_sections): Likewise.
1701         (gfc_trans_omp_parallel_workshare): Likewise.
1702
1703         * types.def (BT_I16, BT_FN_I16_VPTR_I16,
1704         BT_FN_BOOL_VPTR_I16_I16, BT_FN_I16_VPTR_I16_I16): Add.
1705
1706         * trans-openmp.c (gfc_trans_omp_clauses): Create OMP_CLAUSE_DEFAULT.
1707         (gfc_trans_omp_code): New function.
1708         (gfc_trans_omp_do): Use it, remove omp_not_yet uses.
1709         (gfc_trans_omp_parallel, gfc_trans_omp_single): Likewise.
1710         (gfc_trans_omp_sections): Likewise.  Only treat empty last section
1711         specially if lastprivate clause is present.
1712         * f95-lang.c (gfc_init_builtin_functions): Create BUILT_IN_TRAP
1713         builtin.
1714
1715         * trans-openmp.c (gfc_trans_omp_variable_list): Update for
1716         OMP_CLAUSE_DECL name change.
1717         (gfc_trans_omp_do): Likewise.
1718
1719         * trans-openmp.c (gfc_trans_omp_clauses): Create OMP_CLAUSE_REDUCTION
1720         clauses.
1721         (gfc_trans_omp_atomic): Build OMP_ATOMIC instead of expanding
1722         sync builtins directly.
1723         (gfc_trans_omp_single): Build OMP_SINGLE statement.
1724
1725         * trans-openmp.c (gfc_trans_add_clause): New.
1726         (gfc_trans_omp_variable_list): Take a tree code and build the clause
1727         node here.  Link it to the head of a list.
1728         (gfc_trans_omp_clauses): Update to match.
1729         (gfc_trans_omp_do): Use gfc_trans_add_clause.
1730
1731         * trans-openmp.c (gfc_trans_omp_clauses): Change second argument to
1732         gfc_omp_clauses *.  Use gfc_evaluate_now instead of creating
1733         temporaries by hand.
1734         (gfc_trans_omp_atomic, gfc_trans_omp_critical): Use buildN_v macros.
1735         (gfc_trans_omp_do): New function.
1736         (gfc_trans_omp_master): Dont' check for gfc_trans_code returning NULL.
1737         (gfc_trans_omp_parallel): Adjust gfc_trans_omp_clauses caller.
1738         Use buildN_v macros.
1739         (gfc_trans_omp_parallel_do, gfc_trans_omp_parallel_sections,
1740         gfc_trans_omp_parallel_workshare, gfc_trans_omp_sections,
1741         gfc_trans_omp_single, gfc_trans_omp_workshare): New functions.
1742         (gfc_trans_omp_directive): Use them.
1743         * parse.c (parse_omp_do): Allow new_st.op == EXEC_NOP.
1744         * openmp.c (resolve_omp_clauses): Check for list items present
1745         in multiple clauses.
1746         (resolve_omp_do): Check that iteration variable is not THREADPRIVATE
1747         and is not present in any clause variable lists other than PRIVATE
1748         or LASTPRIVATE.
1749
1750         * gfortran.h (symbol_attribute): Add threadprivate bit.
1751         (gfc_common_head): Add threadprivate member, change use_assoc
1752         and saved into char to save space.
1753         (gfc_add_threadprivate): New prototype.
1754         * symbol.c (check_conflict): Handle threadprivate.
1755         (gfc_add_threadprivate): New function.
1756         (gfc_copy_attr): Copy threadprivate.
1757         * trans-openmp.c (gfc_trans_omp_clauses): Avoid creating a temporary
1758         if IF or NUM_THREADS is constant.  Create OMP_CLAUSE_SCHEDULE and
1759         OMP_CLAUSE_ORDERED.
1760         * resolve.c (resolve_symbol): Complain if a THREADPRIVATE symbol
1761         outside a module and not in COMMON has is not SAVEd.
1762         (resolve_equivalence): Ensure THREADPRIVATE objects don't get
1763         EQUIVALENCEd.
1764         * trans-common.c: Include target.h and rtl.h.
1765         (build_common_decl): Set DECL_TLS_MODEL if THREADPRIVATE.
1766         * trans-decl.c: Include rtl.h.
1767         (gfc_finish_var_decl): Set DECL_TLS_MODEL if THREADPRIVATE.
1768         * dump-parse-tree.c (gfc_show_attr): Handle THREADPRIVATE.
1769         * Make-lang.in (fortran/trans-decl.o): Depend on $(RTL_H).
1770         (fortran/trans-common.o): Depend on $(RTL_H) and $(TARGET_H).
1771         * openmp.c (gfc_match_omp_variable_list): Ensure COMMON block
1772         is from current namespace.
1773         (gfc_match_omp_threadprivate): Rewrite.
1774         (resolve_omp_clauses): Check some clause restrictions.
1775         * module.c (ab_attribute): Add AB_THREADPRIVATE.
1776         (attr_bits): Add THREADPRIVATE.
1777         (mio_symbol_attribute, mio_symbol_attribute): Handle threadprivate.
1778         (load_commons, write_common, write_blank_common): Adjust for type
1779         change of saved, store/load threadprivate bit from the integer
1780         as well.
1781
1782         * types.def (BT_FN_UINT_UINT): New.
1783         (BT_FN_VOID_UINT_UINT): Remove.
1784
1785         * trans-openmp.c (gfc_trans_omp_clauses, gfc_trans_omp_barrier,
1786         gfc_trans_omp_critical, gfc_trans_omp_flush, gfc_trans_omp_master,
1787         gfc_trans_omp_ordered, gfc_trans_omp_parallel): New functions.
1788         (gfc_trans_omp_directive): Use them.
1789
1790         * openmp.c (expr_references_sym): Add SE argument, don't look
1791         into SE tree.
1792         (is_conversion): New function.
1793         (resolve_omp_atomic): Adjust expr_references_sym callers.  Handle
1794         promoted expressions.
1795         * trans-openmp.c (gfc_trans_omp_atomic): New function.
1796         (gfc_trans_omp_directive): Call it.
1797
1798         * f95-lang.c (builtin_type_for_size): New function.
1799         (gfc_init_builtin_functions): Initialize synchronization and
1800         OpenMP builtins.
1801         * types.def: New file.
1802         * Make-lang.in (f95-lang.o): Depend on $(BUILTINS_DEF) and
1803         fortran/types.def.
1804
1805         * trans-openmp.c: Rename GOMP_* tree codes into OMP_*.
1806
1807         * dump-parse-tree.c (show_symtree): Don't crash if ns->proc_name
1808         is NULL.
1809
1810         * dump-parse-tree.c (gfc_show_namelist, gfc_show_omp_node): New
1811         functions.
1812         (gfc_show_code_node): Call gfc_show_omp_node for EXEC_OMP_* nodes.
1813
1814         * parse.c (parse_omp_do): Call pop_state before next_statement.
1815         * openmp.c (expr_references_sym, resolve_omp_atomic, resolve_omp_do):
1816         New functions.
1817         (gfc_resolve_omp_directive): Call them.
1818         * match.c (match_exit_cycle): Issue error if EXIT or CYCLE statement
1819         leaves an OpenMP structured block or if EXIT terminates !$omp do
1820         loop.
1821
1822         * Make-lang.in (F95_PARSER_OBJS): Add fortran/openmp.o.
1823         (F95_OBJS): Add fortran/trans-openmp.o.
1824         (fortran/trans-openmp.o): Depend on $(GFORTRAN_TRANS_DEPS).
1825         * lang.opt: Add -fopenmp option.
1826         * options.c (gfc_init_options): Initialize it.
1827         (gfc_handle_option): Handle it.
1828         * gfortran.h (ST_OMP_ATOMIC, ST_OMP_BARRIER, ST_OMP_CRITICAL,
1829         ST_OMP_END_CRITICAL, ST_OMP_END_DO, ST_OMP_END_MASTER,
1830         ST_OMP_END_ORDERED, ST_OMP_END_PARALLEL, ST_OMP_END_PARALLEL_DO,
1831         ST_OMP_END_PARALLEL_SECTIONS, ST_OMP_END_PARALLEL_WORKSHARE,
1832         ST_OMP_END_SECTIONS, ST_OMP_END_SINGLE, ST_OMP_END_WORKSHARE,
1833         ST_OMP_DO, ST_OMP_FLUSH, ST_OMP_MASTER, ST_OMP_ORDERED,
1834         ST_OMP_PARALLEL, ST_OMP_PARALLEL_DO, ST_OMP_PARALLEL_SECTIONS,
1835         ST_OMP_PARALLEL_WORKSHARE, ST_OMP_SECTIONS, ST_OMP_SECTION,
1836         ST_OMP_SINGLE, ST_OMP_THREADPRIVATE, ST_OMP_WORKSHARE): New
1837         statement codes.
1838         (OMP_LIST_PRIVATE, OMP_LIST_FIRSTPRIVATE, OMP_LIST_LASTPRIVATE,
1839         OMP_LIST_COPYPRIVATE, OMP_LIST_SHARED, OMP_LIST_COPYIN,
1840         OMP_LIST_PLUS, OMP_LIST_REDUCTION_FIRST, OMP_LIST_MULT,
1841         OMP_LIST_SUB, OMP_LIST_AND, OMP_LIST_OR, OMP_LIST_EQV,
1842         OMP_LIST_NEQV, OMP_LIST_MAX, OMP_LIST_MIN, OMP_LIST_IAND,
1843         OMP_LIST_IOR, OMP_LIST_IEOR, OMP_LIST_REDUCTION_LAST, OMP_LIST_NUM):
1844         New OpenMP variable list types.
1845         (gfc_omp_clauses): New typedef.
1846         (gfc_get_omp_clauses): Define.
1847         (EXEC_OMP_CRITICAL, EXEC_OMP_DO, EXEC_OMP_FLUSH, EXEC_OMP_MASTER,
1848         EXEC_OMP_ORDERED, EXEC_OMP_PARALLEL, EXEC_OMP_PARALLEL_DO,
1849         EXEC_OMP_PARALLEL_SECTIONS, EXEC_OMP_PARALLEL_WORKSHARE,
1850         EXEC_OMP_SECTIONS, EXEC_OMP_SINGLE, EXEC_OMP_WORKSHARE,
1851         EXEC_OMP_ATOMIC, EXEC_OMP_BARRIER, EXEC_OMP_END_NOWAIT,
1852         EXEC_OMP_END_SINGLE): New OpenMP gfc_exec_op codes.
1853         (struct gfc_code): Add omp_clauses, omp_name, omp_namelist
1854         and omp_bool fields to ext union.
1855         (flag_openmp): Declare.
1856         (gfc_free_omp_clauses, gfc_resolve_omp_directive): New prototypes.
1857         * scanner.c (openmp_flag, openmp_locus): New variables.
1858         (skip_free_comments, skip_fixed_comments, gfc_next_char_literal):
1859         Handle OpenMP directive lines and conditional compilation magic
1860         comments.
1861         * parse.h (COMP_OMP_STRUCTURED_BLOCK): New compile state.
1862         * parse.c (decode_omp_directive, parse_omp_do, parse_omp_atomic,
1863         parse_omp_structured_block): New functions.
1864         (next_free, next_fixed): Parse OpenMP directives.
1865         (case_executable, case_exec_markers, case_decl): Add ST_OMP_*
1866         codes.
1867         (gfc_ascii_statement): Handle ST_OMP_* codes.
1868         (parse_executable): Rearrange the loop slightly, so that
1869         parse_omp_do can return next_statement.
1870         * match.h (gfc_match_omp_eos, gfc_match_omp_atomic,
1871         gfc_match_omp_barrier, gfc_match_omp_critical, gfc_match_omp_do,
1872         gfc_match_omp_flush, gfc_match_omp_master, gfc_match_omp_ordered,
1873         gfc_match_omp_parallel, gfc_match_omp_parallel_do,
1874         gfc_match_omp_parallel_sections, gfc_match_omp_parallel_workshare,
1875         gfc_match_omp_sections, gfc_match_omp_single,
1876         gfc_match_omp_threadprivate, gfc_match_omp_workshare,
1877         gfc_match_omp_end_nowait, gfc_match_omp_end_single): New prototypes.
1878         * resolve.c (resolve_blocks): Ignore EXEC_OMP_* block directives.
1879         (resolve_code): Call gfc_resolve_omp_directive on EXEC_OMP_*
1880         directives.
1881         * trans.c (gfc_trans_code): Call gfc_trans_omp_directive for
1882         EXEC_OMP_* directives.
1883         * st.c (gfc_free_statement): Handle EXEC_OMP_* statement freeing.
1884         * trans-stmt.h (gfc_trans_omp_directive): New prototype.
1885         * openmp.c: New file.
1886         * trans-openmp.c: New file.
1887
1888 2006-02-13  Andrew Pinski  <pinskia@physics.uc.edu>
1889             Jakub Jelinek  <jakub@redhat.com>
1890
1891         PR fortran/26246
1892         * trans-decl.c (gfc_get_symbol_decl, gfc_get_fake_result_decl): Use
1893         gfc_add_decl_to_function rather than gfc_finish_var_decl on length.
1894
1895 2006-02-13  Paul Thomas  <pault@gcc.gnu.org>
1896
1897         PR fortran/26074
1898         PR fortran/25103
1899         * resolve.c (resolve_symbol): Extend the requirement that module
1900         arrays have constant bounds to those in the main program.  At the
1901         same time simplify the array bounds, to avoiding trapping parameter
1902         array references, and exclude automatic character length from main
1903         and modules. Rearrange resolve_symbol and resolve_derived to put as
1904         each flavor together, as much as is possible and move all specific
1905         code for flavors FL_VARIABLE, FL_PROCEDURE and FL_PARAMETER into new
1906         functions.
1907         (resolve_fl_var_and_proc, resolve_fl_variable, resolve_fl_procedure):
1908         New functions to do work of resolve_symbol.
1909         (resolve_index_expr): New function that is called from resolved_symbol
1910         and is extracted from resolve_charlen.
1911         (resolve_charlen): Call this new function.
1912         (resolve_fl_derived): Renamed resolve_derived to be consistent with
1913         the naming of the new functions for the other flavours.  Change the
1914         charlen checking so that the style is consistent with other similar
1915         checks. Add the generation of the gfc_dt_list, removed from resolve_
1916         symbol.
1917
1918         PR fortran/20861
1919         * resolve.c (resolve_actual_arglist): Prevent internal procedures
1920         from being dummy arguments.
1921
1922         PR fortran/20871
1923         * resolve.c (resolve_actual_arglist): Prevent pure but non-intrinsic
1924         procedures from being dummy arguments.
1925
1926         PR fortran/25083
1927         * resolve.c (check_data_variable): Add test that data variable is in
1928         COMMON.
1929
1930         PR fortran/25088
1931         * resolve.c (resolve_call): Add test that the subroutine does not
1932         have a type.
1933
1934 2006-02-12  Erik Edelmann  <eedelman@gcc.gnu.org>
1935
1936         PR fortran/25806
1937         * trans-array.c (gfc_trans_allocate_array_storage): New argument
1938         dealloc; free the temporary only if dealloc is true.
1939         (gfc_trans_allocate_temp_array): New argument bool dealloc, to be
1940         passed onwards to gfc_trans_allocate_array_storage.
1941         (gfc_trans_array_constructor, gfc_conv_loop_setup): Update call to
1942         gfc_trans_allocate_temp_array.
1943         * trans-array.h (gfc_trans_allocate_temp_array): Update function
1944         prototype.
1945         * trans-expr.c (gfc_conv_function_call): Set new argument 'dealloc'
1946         to gfc_trans_allocate_temp_array to false in case of functions
1947         returning pointers.
1948         (gfc_trans_arrayfunc_assign): Return NULL for functions returning
1949         pointers.
1950
1951 2006-02-10  Steven G. Kargl  <kargls@comcast.net>
1952
1953         PR fortran/20858
1954         *decl.c (variable_decl): Improve error message.  Remove initialization
1955         typespec.  Wrap long line.
1956         *expr.c (gfc_check_pointer_assign): Permit checking of type, kind type,
1957         and rank.
1958         *simplify.c (gfc_simplify_null): Ensure type, kind type, and rank
1959         are set.
1960
1961
1962 2006-02-10  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
1963
1964         PR fortran/14771
1965         * arith.c (eval_intrinsic): Accept INTRINSIC_PARENTHESES.
1966         * expr.c (check_intrinsic_op): Likewise.
1967         * module.c (mio_expr): Likewise.
1968
1969 2006-02-09  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
1970
1971         * dump-parse-tree.c: Update copyright years.
1972         * matchexp.c: Likewise.
1973         * module.c: Likewise.
1974
1975         PR fortran/14771
1976         * gfortran.h (gfc_intrinsic_op): Add INTRINSIC_PARENTHESES.
1977         * dump-parse-tree (gfc_show_expr): Handle INTRINSIC_PARENTHESES.
1978         * expr.c (simplify_intrinsic_op): Treat INTRINSIC_PARENTHESES as
1979         if it were INTRINSIC_UPLUS.
1980         * resolve.c (resolve_operator): Handle INTRINSIC_PARENTHESES.
1981         * match.c (intrinsic_operators): Add INTRINSIC_PARENTHESES.
1982         * matchexp.c (match_primary): Record parentheses surrounding
1983         numeric expressions.
1984         * module.c (intrinsics): Add INTRINSIC_PARENTHESES for module
1985         dumping.
1986         * trans-expr.c (gfc_conv_expr_op): Handle INTRINSIC_PARENTHESES.
1987
1988 2006-02-09  Paul Thomas  <pault@gcc.gnu.org>
1989
1990         PR fortran/26038
1991         * trans-stmt.c (gfc_trans_allocate): Provide assumed character length
1992         scalar with missing backend_decl for the hidden dummy charlen.
1993
1994         PR fortran/25059
1995         * interface.c (gfc_extend_assign): Remove detection of non-PURE
1996         subroutine in assignment interface, with gfc_error, and put it in
1997         * resolve.c (resolve_code).
1998
1999         PR fortran/25070
2000         * interface.c (gfc_procedure_use): Flag rank checking for non-
2001         elemental, contained or interface procedures in call to
2002         (compare_actual_formal), where ranks are checked for assumed
2003         shape arrays..
2004
2005 2006-02-08  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
2006
2007         PR libfortran/25425
2008         * trans-decl.c (gfc_generate_function_code): Add new argument,
2009         pedantic, to set_std call.
2010
2011 2006-02-06  Thomas Koenig  <Thomas.Koenig@online.de>
2012
2013         PR libfortran/23815
2014         * gfortran.texi: Document the GFORTRAN_CONVERT_UNIT environment
2015         variable.
2016         * invoke.texi:  Mention the "Runtime" chapter.
2017         Document the -fconvert= option.
2018         * gfortran.h:  Add options_convert.
2019         * lang.opt:  Add fconvert=little-endian, fconvert=big-endian,
2020         fconvert=native and fconvert=swap.
2021         * trans-decl.c (top level):  Add gfor_fndecl_set_convert.
2022         (gfc_build_builtin_function_decls):  Set gfor_fndecl_set_convert.
2023         (gfc_generate_function_code):  If -fconvert was specified,
2024         and this is the main program, add a call to set_convert().
2025         * options.c:  Handle the -fconvert options.
2026
2027 2006-02-06  Roger Sayle  <roger@eyesopen.com>
2028
2029         * trans-stmt.c (gfc_evaluate_where_mask): Allow the NMASK argument
2030         to be NULL to indicate that the not mask isn't required.
2031         (gfc_trans_where_2): Remove PMASK argument.  Avoid calculating the
2032         pending mask for the last clause of a WHERE chain.  Update recursive
2033         call.
2034         (gfc_trans_forall_1): Update call to gfc_trans_where_2.
2035         (gfc_trans_where): Likewise.
2036
2037 2006-02-06  Jakub Jelinek  <jakub@redhat.com>
2038
2039         Backport from gomp-20050608-branch
2040         * trans-decl.c (create_function_arglist): Handle dummy functions.
2041
2042         * trans-decl.c (gfc_get_symbol_decl): Revert explicit setting of
2043         TYPE_SIZE_UNIT.
2044         (gfc_trans_vla_type_sizes): Also "gimplify"
2045         GFC_TYPE_ARRAY_DATAPTR_TYPE for GFC_DESCRIPTOR_TYPE_P types.
2046         * trans-array.c (gfc_trans_deferred_array): Call
2047         gfc_trans_vla_type_sizes.
2048
2049         * trans-decl.c (saved_function_decls, saved_parent_function_decls):
2050         Remove unnecessary initialization.
2051         (create_function_arglist): Make sure __result has complete type.
2052         (gfc_get_fake_result_decl): Change current_fake_result_decl into
2053         a tree chain.  For entry master, create a separate variable
2054         for each result name.  For BT_CHARACTER results, call
2055         gfc_finish_var_decl on length even if it has been already created,
2056         but not pushdecl'ed.
2057         (gfc_trans_vla_type_sizes): For function/entry result, adjust
2058         result value type, not the FUNCTION_TYPE.
2059         (gfc_generate_function_code): Adjust for current_fake_result_decl
2060         changes.
2061         (gfc_trans_deferred_vars): Likewise.  Call gfc_trans_vla_type_sizes
2062         even on result if it is assumed-length character.
2063
2064         * trans-decl.c (gfc_trans_dummy_character): Add SYM argument.
2065         Call gfc_trans_vla_type_sizes.
2066         (gfc_trans_auto_character_variable): Call gfc_trans_vla_type_sizes.
2067         (gfc_trans_vla_one_sizepos, gfc_trans_vla_type_sizes_1,
2068         gfc_trans_vla_type_sizes): New functions.
2069         (gfc_trans_deferred_vars): Adjust gfc_trans_dummy_character
2070         callers.  Call gfc_trans_vla_type_sizes on assumed-length
2071         character parameters.
2072         * trans-array.c (gfc_trans_array_bounds,
2073         gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias): Call
2074         gfc_trans_vla_type_sizes.
2075         * trans.h (gfc_trans_vla_type_sizes): New prototype.
2076
2077         * trans-decl.c (gfc_build_qualified_array): For non-assumed-size
2078         arrays without constant size, create also an index var for
2079         GFC_TYPE_ARRAY_SIZE (type).  If the type is incomplete, complete
2080         it as 0..size-1.
2081         (gfc_create_string_length): Don't call gfc_defer_symbol_init
2082         if just creating DECL_ARGUMENTS.
2083         (gfc_get_symbol_decl): Call gfc_finish_var_decl and
2084         gfc_defer_symbol_init even if ts.cl->backend_decl is already
2085         set to a VAR_DECL that doesn't have DECL_CONTEXT yet.
2086         (create_function_arglist): Rework, so that hidden length
2087         arguments for CHARACTER parameters are created together with
2088         the parameters.  Resolve ts.cl->backend_decl for CHARACTER
2089         parameters.  If the argument is a non-constant length array
2090         or CHARACTER, ensure PARM_DECL has different type than
2091         its DECL_ARG_TYPE.
2092         (generate_local_decl): Call gfc_get_symbol_decl even
2093         for non-referenced non-constant length CHARACTER parameters
2094         after optionally issuing warnings.
2095         * trans-array.c (gfc_trans_array_bounds): Set last stride
2096         to GFC_TYPE_ARRAY_SIZE (type) to initialize it as well.
2097         (gfc_trans_dummy_array_bias): Initialize GFC_TYPE_ARRAY_SIZE (type)
2098         variable as well.
2099
2100         * trans-expr.c (gfc_conv_expr_val): Fix comment typo.
2101
2102         * trans-stmt.c (gfc_trans_simple_do): Fix comment.
2103
2104 2006-02-04  Roger Sayle  <roger@eyesopen.com>
2105
2106         * dependency.c (gfc_check_dependency): Remove unused vars and nvars
2107         arguments.  Replace with an "identical" argument.  A full array
2108         reference to the same symbol is a dependency if identical is true.
2109         * dependency.h (gfc_check_dependency): Update prototype.
2110         * trans-array.h (gfc_check_dependency): Delete duplicate prototype.
2111         * trans-stmt.c: #include dependency.h for gfc_check_dependency.
2112         (gfc_trans_forall_1): Update calls to gfc_check_dependency.
2113         (gfc_trans_where_2): Likewise.  Remove unneeded variables.
2114         (gfc_trans_where_3): New function for simple non-dependent WHEREs.
2115         (gfc_trans_where): Call gfc_trans_where_3 to translate simple
2116         F90-style WHERE statements without internal dependencies.
2117         * Make-lang.in (trans-stmt.o): Depend upon dependency.h.
2118
2119 2006-02-05  H.J. Lu  <hongjiu.lu@intel.com>
2120
2121         PR fortran/26041
2122         PR fortran/26064
2123         * resolve.c (resolve_types): New function.
2124         (resolve_codes): Likewise.
2125         (gfc_resolve): Use them.
2126
2127 2006-02-05  Roger Sayle  <roger@eyesopen.com>
2128
2129         * trans-stmt.c (gfc_evaluate_where_mask): Use LOGICAL*1 for WHERE
2130         masks instead of LOGICAL*4.
2131
2132 2006-02-05  Jakub Jelinek  <jakub@redhat.com>
2133
2134         * resolve.c (resolve_symbol): Initialize constructor_expr to NULL.
2135
2136 2006-02-04  Thomas Koenig  <Thomas.Koenig@online.de>
2137
2138         PR fortran/25075
2139         check.c (identical_dimen_shape):  New function.
2140         (check_dot_product):  Use identical_dimen_shape() to check sizes
2141         for dot_product.
2142         (gfc_check_matmul):  Likewise.
2143         (gfc_check_merge):  Check conformance between tsource and fsource
2144         and between tsource and mask.
2145         (gfc_check_pack):  Check conformance between array and mask.
2146
2147 2006-02-03  Steven G. Kargl  <kargls@comcast>
2148             Paul Thomas  <pault@gcc.gnu.org>
2149
2150         PR fortran/20845
2151         * resolve.c (resolve_symbol): Default initialization of derived type
2152         component reguires the SAVE attribute.
2153
2154 2006-02-02  Steven G. Kargl  <kargls@comcast>
2155
2156         PR fortran/24958
2157         match.c (gfc_match_nullify):  Free the list from head not tail.
2158
2159         PR fortran/25072
2160         * match.c (match_forall_header): Fix internal error caused by bogus
2161         gfc_epxr pointers.
2162
2163
2164 2006-01-31  Thomas Koenig  <Thomas.Koenig@online.de>
2165
2166         PR fortran/26039
2167         expr.c (gfc_check_conformance):  Reorder error message
2168         to avoid plural.
2169         check.c(gfc_check_minloc_maxloc):  Call gfc_check_conformance
2170         for checking arguments array and mask.
2171         (check_reduction):  Likewise.
2172
2173 2006-01-30  Erik Edelmann  <eedelman@gcc.gnu.org>
2174
2175         PR fortran/24266
2176         * trans-io.c (set_internal_unit): Check the rank of the
2177         expression node itself instead of its symbol.
2178
2179 2006-01-29  Paul Thomas  <pault@gcc.gnu.org>
2180
2181         PR fortran/18578
2182         PR fortran/18579
2183         PR fortran/20857
2184         PR fortran/20885
2185         * interface.c (compare_actual_formal): Error for INTENT(OUT or INOUT)
2186         if actual argument is not a variable.
2187
2188 2006-01-28  Paul Thomas  <pault@gcc.gnu.org>
2189
2190         PR fortran/17911
2191         * expr.c (gfc_check_assign, gfc_check_pointer_assign): Emit error if
2192         the lvalue is a use associated procedure.
2193
2194         PR fortran/20895
2195         PR fortran/25030
2196         * expr.c (gfc_check_pointer_assign): Emit error if lvalue and rvalue
2197         character lengths are not the same.  Use gfc_dep_compare_expr for the
2198         comparison.
2199         * gfortran.h: Add prototype for gfc_dep_compare_expr.
2200         * dependency.h: Remove prototype for gfc_dep_compare_expr.
2201
2202 2006-01-27  Paul Thomas  <pault@gcc.gnu.org>
2203
2204         PR fortran/25964
2205         * resolve.c (resolve_function): Add GFC_ISYM_LOC to the list of
2206         generic_ids exempted from assumed size checking.
2207
2208 2006-01-27  Jakub Jelinek  <jakub@redhat.com>
2209
2210         PR fortran/25324
2211         * Make-lang.in (fortran/scanner.o): Depend on toplev.h.
2212         * lang.opt (fpreprocessed): New option.
2213         * scanner.c: Include toplev.h.
2214         (gfc_src_file, gfc_src_preprocessor_lines): New variables.
2215         (preprocessor_line): Unescape filename if there were any
2216         backslashes.
2217         (load_file): If initial and gfc_src_file is not NULL,
2218         use it rather than opening the file.  If gfc_src_preprocessor_lines
2219         has non-NULL elements, pass it to preprocessor_line.
2220         (unescape_filename, gfc_read_orig_filename): New functions.
2221         * gfortran.h (gfc_option_t): Add flag_preprocessed.
2222         (gfc_read_orig_filename): New prototype.
2223         * options.c (gfc_init_options): Clear flag_preprocessed.
2224         (gfc_post_options): If flag_preprocessed, call
2225         gfc_read_orig_filename.
2226         (gfc_handle_option): Handle OPT_fpreprocessed.
2227         * lang-specs.h: Pass -fpreprocessed to f951 if preprocessing
2228         sources.
2229
2230 2006-01-27  Erik Edelmann  <eedelman@gcc.gnu.org>
2231
2232         * symbol.c (free_old_symbol): Fix confusing comment, and add code
2233           to free old_symbol->formal.
2234
2235 2006-01-26  Paul Thomas  <pault@gcc.gnu.org>
2236
2237         PR fortran/25964
2238         * resolve.c (resolve_function): Exclude statement functions from
2239         global reference checking.
2240
2241         PR fortran/25084
2242         PR fortran/20852
2243         PR fortran/25085
2244         PR fortran/25086
2245         * resolve.c (resolve_function): Declare a gfc_symbol to replace the
2246         references through the symtree to the symbol associated with the
2247         function expresion. Give error on reference to an assumed character
2248         length function is defined in an interface or an external function
2249         that is not a dummy argument.
2250         (resolve_symbol): Give error if an assumed character length function
2251         is array-valued, pointer-valued, pure or recursive. Emit warning
2252         that character(*) value functions are obsolescent in F95.
2253
2254         PR fortran/25416
2255         * trans-expr.c (gfc_conv_function_call): The above patch to resolve.c
2256         prevents any assumed character length function call from getting here
2257         except intrinsics such as SPREAD. In this case, ensure that no
2258         segfault occurs from referencing non-existent charlen->length->
2259         expr_type and provide a backend_decl for the charlen from the charlen
2260         of the first actual argument.
2261
2262         Cure temp name confusion.
2263         * trans-expr.c (gfc_get_interface_mapping_array): Change name of
2264         temporary from "parm" to "ifm" to avoid clash with temp coming from
2265         trans-array.c.
2266
2267 2006-01-25  Erik Edelmann  <eedelman@gcc.gnu.org>
2268
2269         PR fortran/25716
2270         * symbol.c (free_old_symbol): New function.
2271         (gfc_commit_symbols): Use it.
2272         (gfc_commit_symbol): New function.
2273         (gfc_use_derived): Use it.
2274         * gfortran.h: Add prototype for gfc_commit_symbol.
2275         * intrinsic.c (gfc_find_function): Search in 'conversion'
2276         if not found in 'functions'.
2277         (gfc_convert_type_warn): Add a symtree to the new
2278         expression node, and commit the new symtree->n.sym.
2279         * resolve.c (gfc_resolve_index): Make sure typespec is
2280         properly initialized.
2281
2282 2006-01-23  Paul Thomas  <pault@gcc.gnu.org>
2283
2284         PR fortran/25901
2285         * decl.c (get_proc_name): Replace subroutine and function attributes
2286         in "already defined" test by the formal arglist pointer being non-NULL.
2287
2288         Fix regression in testing of admissability of attributes.
2289         * symbol.c (gfc_add_attribute): If the current_attr has non-zero
2290         intent, do not do the check for a dummy being used.
2291         * decl.c (attr_decl1): Add current_attr.intent as the third argument
2292         in the call to gfc_add_attribute.
2293         * gfortran.h: Add the third argument to the prototype for
2294         gfc_add_attribute.
2295
2296 2006-01-21  Joseph S. Myers  <joseph@codesourcery.com>
2297
2298         * gfortranspec.c (lang_specific_driver): Update copyright notice
2299         date.
2300
2301 2006-01-21  Paul Thomas  <pault@gcc.gnu.org>
2302
2303         PR fortran/25124
2304         PR fortran/25625
2305         * decl.c (get_proc_name): If there is an existing
2306         symbol in the encompassing namespace, call errors
2307         if it is a procedure of the same name or the kind
2308         field is set, indicating a type declaration.
2309
2310         PR fortran/20881
2311         PR fortran/23308
2312         PR fortran/25538
2313         PR fortran/25710
2314         * decl.c (add_global_entry): New function to check
2315         for existing global symbol with this name and to
2316         create new one if none exists.
2317         (gfc_match_entry): Call add_global_entry before
2318         matching argument lists for subroutine and function
2319         entries.
2320         * gfortran.h: Prototype for existing function,
2321         global_used.
2322         * resolve.c (resolve_global_procedure): New function
2323         to check global symbols for procedures.
2324         (resolve_call, resolve_function): Calls to this
2325         new function for non-contained and non-module
2326         procedures.
2327         * match.c (match_common): Add check for existing
2328         global symbol, creat one if none exists and emit
2329         error if there is a clash.
2330         * parse.c (global_used): Remove static and use the
2331         gsymbol name rather than the new_block name, so that
2332         the function can be called from resolve.c.
2333         (parse_block_data, parse_module, add_global_procedure):
2334         Improve checks for existing gsymbols.  Emit error if
2335         already defined or if references were to another type.
2336         Set defined flag.
2337
2338         PR fortran/PR24276
2339         * trans-expr.c (gfc_conv_aliased_arg): New function called by 
2340         gfc_conv_function_call that coverts an expression for an aliased
2341         component reference to a derived type array into a temporary array
2342         of the same type as the component.  The temporary is passed as an
2343         actual argument for the procedure call and is copied back to the
2344         derived type after the call.
2345         (is_aliased_array): New function that detects an array reference
2346         that is followed by a component reference.
2347         (gfc_conv_function_call): Detect an aliased actual argument with
2348         is_aliased_array and convert it to a temporary and back again
2349         using gfc_conv_aliased_arg.
2350
2351 2006-01-19  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
2352
2353         * gfortranspec.c: Update copyright years.
2354         * trans.c: Likewise.
2355         * trans-array.c: Likewise.
2356         * trans-array.h: Likewise.
2357         * trans-decl.c: Likewise.
2358         * trans-stmt.c: Likewise.
2359         * trans-stmt.h: Likewise.
2360         * trans-types.c: Likewise.
2361
2362 2006-01-18  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
2363
2364         PR fortran/18540
2365         PR fortran/18937
2366         * gfortran.h (BBT_HEADER): Move definition up.
2367         (gfc_st_label): Add BBT_HEADER, remove 'prev' and 'next'.
2368         * io.c (format_asterisk): Adapt initializer.
2369         * resolve.c (resolve_branch): Allow FORTRAN 66 cross-block GOTOs
2370         as extension.
2371         (warn_unused_label): Take gfc_st_label label as argument, adapt to
2372         new data structure.
2373         (gfc_resolve): Adapt call to warn_unused_label.
2374         * symbol.c (compare_st_labels): New function.
2375         (gfc_free_st_label, free_st_labels, gfc_get_st_label): Convert to
2376         using balanced binary tree.
2377         * decl.c (match_char_length, gfc_match_old_kind_spec): Do away
2378         with 'cnt'.
2379         (warn_unused_label): Adapt to binary tree.
2380         * match.c (gfc_match_small_literal_int): Only set cnt if non-NULL.
2381         * primary.c (match_kind_param): Do away with cnt.
2382
2383 2006-01-18  Paul Thomas  <pault@gcc.gnu.org>
2384
2385         PR fortran/20869
2386         PR fortran/20875
2387         PR fortran/25024
2388         * symbol.c (check_conflict): Add pointer valued elemental
2389         functions and internal procedures with the external attribute
2390         to the list of conflicts.
2391         (gfc_add_attribute): New catch-all function to perform the
2392         checking of symbol attributes for attribute declaration
2393         statements.
2394         * decl.c (attr_decl1): Call gfc_add_attribute for each of -
2395         (gfc_match_external, gfc_match_intent, gfc_match_intrinsic,
2396         gfc_match_pointer, gfc_match_dimension, gfc_match_target):
2397         Remove spurious calls to checks in symbol.c.  Set the
2398         attribute directly and use the call to attr_decl() for
2399         checking.
2400         * gfortran.h:  Add prototype for gfc_add_attribute.
2401
2402         PR fortran/25785
2403         * resolve.c (resolve_function): Exclude PRESENT from assumed size
2404         argument checking. Replace strcmp's with comparisons with generic
2405         codes.
2406
2407 2006-01-16  Rafael \81Ávila de Esp\81índola  <rafael.espindola@gmail.com>
2408
2409         * gfortranspec.c (lang_specific_spec_functions): Remove.
2410
2411 2006-01-16  Richard Guenther  <rguenther@suse.de>
2412
2413         * trans-stmt.c (gfc_trans_if_1): Use fold_buildN and build_int_cst.
2414         (gfc_trans_arithmetic_if): Likewise.
2415         (gfc_trans_simple_do): Likewise.
2416         (gfc_trans_do): Likewise.
2417         (gfc_trans_do_while): Likewise.
2418         (gfc_trans_logical_select): Likewise.
2419         (gfc_trans_forall_loop): Likewise.
2420         (generate_loop_for_temp_to_lhs): Likewise.
2421         (generate_loop_for_rhs_to_temp): Likewise.
2422         (gfc_trans_allocate): Likewise.
2423         * trans.c (gfc_add_expr_to_block): Do not fold expr again.
2424
2425 2006-01-16  Richard Guenther  <rguenther@suse.de>
2426
2427         * trans-expr.c (gfc_conv_function_call): Use fold_build2.
2428         * trans-stmt.c (gfc_trans_goto): Likewise.  Use build_int_cst.
2429         * trans.c (gfc_trans_runtime_check): Don't fold the condition
2430         again.
2431
2432 2006-01-13  Steven G. Kargl  <kargls@comcast.net>
2433
2434         PR fortran/25756
2435         * symbol.c (gfc_free_st_label): Give variable meaningful name. Remove
2436         unneeded parenthesis. Fix-up the head of the list (2 lines gleaned
2437         from g95).
2438
2439 2006-01-13  Diego Novillo  <dnovillo@redhat.com>
2440
2441         * trans.c (gfc_add_expr_to_block): Do not fold tcc_statement
2442         nodes.
2443
2444 2006-01-11  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
2445
2446         * parse.c (next_fixed): Remove superfluous string concatenation.
2447
2448 2006-01-11  Bernhard Fischer  <rep.nop@aon.at>
2449
2450         PR fortran/25486
2451         * scanner.c (load_line): use maxlen to determine the line-length used
2452         for padding lines in fixed form.
2453
2454 2006-01-11  Paul Thomas  <pault@gcc.gnu.org>
2455
2456         PR fortran/25730
2457         * trans-types.c (copy_dt_decls_ifequal): Copy backend decl for
2458         character lengths.
2459
2460 2006-01-09  Andrew Pinski  <pinskia@physics.uc.edu>
2461
2462         fortran/24936
2463         * trans-stmt.c (gfc_trans_pointer_assign_need_temp): Use fold_convert
2464         to avoid type mismatch.
2465
2466 2006-01-09  Andrew Pinski  <pinskia@physics.uc.edu>
2467
2468         PR fortran/21977
2469         * trans-decl.c (gfc_generate_function_code): Move the NULLing of
2470         current_fake_result_decl down to below generate_local_vars.
2471
2472 2006-01-09  Feng Wang  <fengwang@nudt.edu.cn>
2473
2474         PR fortran/12456
2475         * trans-expr.c (gfc_to_single_character): New function that converts
2476         string to single character if its length is 1.
2477         (gfc_build_compare_string):New function that compare string and handle
2478         single character specially.
2479         (gfc_conv_expr_op): Use gfc_build_compare_string.
2480         (gfc_trans_string_copy): Use gfc_to_single_character.
2481         * trans-intrinsic.c (gfc_conv_intrinsic_strcmp): Use
2482         gfc_build_compare_string.
2483         * trans.h (gfc_build_compare_string): Add prototype.
2484
2485 2006-01-09  Feng Wang  <fengwang@nudt.edu.cn>
2486
2487         * simplify.c (gfc_simplify_char): Use UCHAR_MAX instead of literal
2488         constant.
2489         (gfc_simplify_ichar): Get the result from unsinged char and in the
2490         range 0 to UCHAR_MAX instead of CHAR_MIN to CHAR_MAX.
2491
2492 2006-01-08  Erik Edelmann  <eedelman@gcc.gnu.org>
2493
2494         PR fortran/25093
2495         * resolve.c (resolve_fntype): Check that PUBLIC functions
2496         aren't of PRIVATE type.
2497
2498 2006-01-07  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
2499
2500         * decl.c (gfc_match_function_decl): Correctly error out in case of
2501         omitted function argument list.
2502
2503 2006-01-07  Paul Thomas  <pault@gcc.gnu.org>
2504
2505         PR fortran/22146
2506         * trans-array.c (gfc_reverse_ss): Remove static attribute.
2507         (gfc_walk_elemental_function_args): Replace gfc_expr * argument for
2508         the function call with the corresponding gfc_actual_arglist*.  Change
2509         code accordingly.
2510         (gfc_walk_function_expr): Call to gfc_walk_elemental_function_args
2511         now requires the actual argument list instead of the expression for
2512         the function call.
2513         * trans-array.h: Modify the prototype for gfc_walk_elemental_function_args
2514         and provide a prototype for gfc_reverse_ss.
2515         * trans-stmt.h (gfc_trans_call): Add the scalarization code for the case
2516         where an elemental subroutine has array valued actual arguments.
2517
2518         PR fortran/25029
2519         PR fortran/21256
2520         PR fortran/20868
2521         PR fortran/20870
2522         * resolve.c (check_assumed_size_reference): New function to check for upper
2523         bound in assumed size array references.
2524         (resolve_assumed_size_actual): New function to do a very restricted scan
2525         of actual argument expressions of those procedures for which incomplete
2526         assumed size array references are not allowed.
2527         (resolve_function, resolve_call): Switch off assumed size checking of
2528         actual arguments, except for elemental procedures and intrinsic
2529         inquiry functions, in some circumstances.
2530         (resolve_variable): Call check_assumed_size_reference.
2531
2532 2006-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2533
2534         PR fortran/24268
2535         * io.c (next_char_not_space): New function that returns the next
2536         character that is not white space.
2537         (format_lex): Use the new function to skip whitespace within
2538         a format string.
2539
2540 2006-01-05  Erik Edelmann  <eedelman@gcc.gnu.org>
2541
2542         PR fortran/23675
2543         * expr.c (gfc_expr_set_symbols_referenced): New function.
2544         * gfortran.h: Add a function prototype for it.
2545         * resolve.c (resolve_function): Use it for
2546         use associated character functions lengths.
2547         * expr.c, gfortran.h, resolve.c: Updated copyright years.
2548
2549 2006-01-03  Steven G. Kargl  <kargls@comcast.net>
2550
2551         PR fortran/25101
2552         * resolve.c (resolve_forall_iterators):  Check for scalar variables;
2553         Check stride is nonzero.
2554
2555 2006-01-02  Steven G. Kargl  <kargls@comcast.net>
2556
2557         PR fortran/24640
2558         * parse.c (next_free): Check for whitespace after the label.
2559         * match.c (gfc_match_small_literal_int): Initialize cnt variable.
2560
2561 2006-01-01  Steven G. Kargl  <kargls@comcast.net>
2562
2563         * ChangeLog: Split previous years into ...
2564         * ChangeLog-2002: here.
2565         * ChangeLog-2003: here.
2566         * ChangeLog-2004: here.
2567         * ChangeLog-2005: here.