OSDN Git Service

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