OSDN Git Service

d78819f92e4e045dd37d40cead510983017d1b15
[pf3gnuchains/gcc-fork.git] / gcc / fortran / ChangeLog
1 2006-02-23  Erik Edelmann  <eedelman@gcc.gnu.org>
2
3         * module.c (read_module): Remove redundant code lines.
4
5 2006-02-20 Rafael \81Ávila de Esp\81índola <rafael.espindola@gmail.com>
6         * Make-lang.in (FORTRAN): Remove
7         (.PHONY): Remove F95 and f95. Add fortran
8
9 2006-02-20  Roger Sayle  <roger@eyesopen.com>
10
11         * trans-stmt.c (gfc_trans_where_2): Avoid updating unused current
12         execution mask for empty WHERE/ELSEWHERE clauses.  Don't allocate
13         temporary mask arrays if they won't be used.
14
15 2006-02-20  Roger Sayle  <roger@eyesopen.com>
16
17         * trans-stmt.c (gfc_trans_where_assign): Remove code to handle
18         traversing a linked list of MASKs.  The MASK is now always a
19         single element requiring no ANDing during the assignment.
20
21 2006-02-19  Thomas Koenig  <Thomas.Koenig@online.de>
22
23         * gfortran.texi:  Document environment variables which
24         influence runtime behavior.
25
26 2006-02-19  H.J. Lu  <hongjiu.lu@intel.com>
27
28         * resolve.c (resolve_contained_functions): Call resolve_entries
29         first.
30         (resolve_types): Remove calls to resolve_entries and
31         resolve_contained_functions.
32         (gfc_resolve): Call resolve_contained_functions.
33
34 2006-02-19  Erik Edelmann  <eedelman@gcc.gnu.org>
35
36         PR fortran/26201
37         * intrinsic.c (gfc_convert_type_warn): Call
38         gfc_intrinsic_symbol() on the newly created symbol.
39
40 2005-02-19  Paul Thomas  <pault@gcc.gnu.org>
41
42         PR fortran/25054
43         * resolve.c (is_non_constant_shape_array): New function.
44         (resolve_fl_variable): Remove code for the new function and call it.
45         (resolve_fl_namelist): New function.  Add test for namelist array
46         with non-constant shape, using is_non_constant_shape_array.
47         (resolve_symbol): Remove code for resolve_fl_namelist and call it.
48
49         PR fortran/25089
50         * match.c (match_namelist): Increment the refs field of an accepted
51         namelist object symbol.
52         * resolve.c (resolve_fl_namelist): Test namelist objects for a conflict
53         with contained or module procedures.
54
55 2006-02-18  Roger Sayle  <roger@eyesopen.com>
56
57         * trans-stmt.c (struct temporary_list): Delete.
58         (gfc_trans_where_2): Major reorganization.  Remove no longer needed
59         TEMP argument.  Allocate and deallocate the control mask and
60         pending control mask locally.
61         (gfc_trans_forall_1): Delete TEMP local variable, and update
62         call to gfc_trans_where_2.  No need to deallocate arrays after.
63         (gfc_evaluate_where_mask): Major reorganization.  Change return
64         type to void.  Pass in parent execution mask, MASK, and two
65         already allocated mask arrays CMASK and PMASK.  On return
66         CMASK := MASK & COND, PMASK := MASK & !COND.  MASK, CMASK and
67         CMASK may all be NULL, or refer to the same temporary arrays.
68         (gfc_trans_where): Update call to gfc_trans_where_2.  We no
69         longer need a TEMP variable or to deallocate temporary arrays
70         allocated by gfc_trans_where_2.
71
72 2006-02-18   Danny Smith  <dannysmith@users.sourceforeg.net>
73
74         * gfortran.h (gfc_add_attribute): Change uint to unsigned int.
75         * symbol.c (gfc_add_attribute): Likewise for definition.
76         * resolve.c (resolve_global_procedure): Likewise for variable 'type'.
77
78 2006-02-17  Richard Sandiford  <richard@codesourcery.com>
79
80         * trans-common.c: Include rtl.h earlier.
81         * trans-decl.c: Likewise.
82
83 2006-02-16  Jakub Jelinek  <jakub@redhat.com>
84
85         PR fortran/26224
86         * parse.c (parse_omp_do, parse_omp_structured_block): Call
87         gfc_commit_symbols and gfc_warning_check.
88
89         * openmp.c (resolve_omp_clauses): Add a dummy case label to workaround
90         PR middle-end/26316.
91
92 2005-02-16  Paul Thomas  <pault@gcc.gnu.org>
93
94         PR fortran/24557
95         * trans-expr.c (gfc_add_interface_mapping): Use the actual argument
96         for character(*) arrays, rather than casting to the type and kind
97         parameters of the formal argument.
98
99 2006-02-15  Toon Moene  <toon@moene.indiv.nluug.nl>
100
101         PR fortran/26054
102         * options.c: Do not warn for Fortran 2003 features by default.
103
104 2006-02-15  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
105
106         * check.c: Update copyright years.
107         
108         * check.c (gfc_check_minloc_maxloc, check_reduction): Don't call
109         dim_range_check on not-present optional dim argument.
110
111 2006-02-15  Jakub Jelinek  <jakub@redhat.com>
112
113         PR libgomp/25938
114         PR libgomp/25984
115         * Make-lang.in (install-finclude-dir): New goal.
116         (fortran.install-common): Depend on install-finclude-dir.
117         * lang-specs.h: If not -nostdinc, add -I finclude.
118
119 2006-02-14  Thomas Koenig  <Thomas.Koenig@online.de>
120
121         PR fortran/25045
122         * check.c (dim_check):  Perform all checks if dim is optional.
123         (gfc_check_minloc_maxloc):  Use dim_check and dim_rank_check
124         to check dim argument.
125         (check_reduction):  Likewise.
126
127 2006-02-14  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
128
129         PR fortran/26277
130         * io.c (match_ltag): Mark label as referenced.
131
132 2006-02-14  Jakub Jelinek  <jakub@redhat.com>
133             Richard Henderson  <rth@redhat.com>
134             Diego Novillo  <dnovillo@redhat.com>
135
136         * invoke.texi: Document -fopenmp.
137         * gfortran.texi (Extensions): Document OpenMP.
138
139         Backport from gomp-20050608-branch
140         * trans-openmp.c: Call build_omp_clause instead of
141         make_node when creating OMP_CLAUSE_* trees.
142         (gfc_trans_omp_reduction_list): Remove argument 'code'.
143         Adjust all callers.
144
145         * trans.h (build4_v): Define.
146         * trans-openmp.c: Call build4_v to create OMP_PARALLEL nodes.
147         Call build3_v to create OMP_SECTIONS nodes.
148
149         PR fortran/25162
150         * openmp.c (gfc_match_omp_variable_list): Call gfc_set_sym_referenced
151         on all symbols added to the variable list.
152
153         * openmp.c (gfc_match_omp_clauses): Fix check for non-INTRINSIC
154         procedure symbol in REDUCTION.
155
156         * trans-openmp.c (gfc_trans_omp_array_reduction): Use gfc_add
157         for MINUS_EXPR OMP_CLAUSE_REDUCTION_CODE.
158
159         * trans-openmp.c (gfc_trans_omp_do): Add PBLOCK argument.  If PBLOCK
160         is non-NULL, evaluate INIT/COND/INCR and chunk size expressions in
161         that statement block.
162         (gfc_trans_omp_parallel_do): Pass non-NULL PBLOCK to gfc_trans_omp_do
163         for non-ordered non-static combined loops.
164         (gfc_trans_omp_directive): Pass NULL PBLOCK to gfc_trans_omp_do.
165
166         * openmp.c: Include target.h and toplev.h.
167         (gfc_match_omp_threadprivate): Emit diagnostic if target does
168         not support TLS.
169         * Make-lang.in (fortran/openmp.o): Add dependencies on
170         target.h and toplev.h.
171
172         * trans-decl.c (gfc_get_fake_result_decl): Set GFC_DECL_RESULT.
173         * trans-openmp.c (gfc_omp_privatize_by_reference): Make
174         DECL_ARTIFICIAL vars predetermined shared except GFC_DECL_RESULT.
175         (gfc_omp_disregard_value_expr): Handle GFC_DECL_RESULT.
176         (gfc_trans_omp_variable): New function.
177         (gfc_trans_omp_variable_list, gfc_trans_omp_reduction_list): Use it.
178         * trans.h (GFC_DECL_RESULT): Define.
179
180         * trans-openmp.c (gfc_omp_firstprivatize_type_sizes): New function.
181         * f95-lang.c (LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES): Define.
182         * trans.h (gfc_omp_firstprivatize_type_sizes): New prototype.
183
184         * trans-openmp.c (gfc_omp_privatize_by_reference): Return
185         true if a pointer has GFC_DECL_SAVED_DESCRIPTOR set.
186         (gfc_trans_omp_array_reduction, gfc_trans_omp_reduction_list): New
187         functions.
188         (gfc_trans_omp_clauses): Add WHERE argument.  Call
189         gfc_trans_omp_reduction_list rather than gfc_trans_omp_variable_list
190         for reductions.
191         (gfc_trans_omp_do, gfc_trans_omp_parallel, gfc_trans_omp_parallel_do,
192         gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare,
193         gfc_trans_omp_sections, gfc_trans_omp_single): Adjust
194         gfc_trans_omp_clauses callers.
195
196         * openmp.c (omp_current_do_code): New var.
197         (gfc_resolve_omp_do_blocks): New function.
198         (gfc_resolve_omp_parallel_blocks): Call it.
199         (gfc_resolve_do_iterator): Add CODE argument.  Don't propagate
200         predetermination if argument is !$omp do or !$omp parallel do
201         iteration variable.
202         * resolve.c (resolve_code): Call gfc_resolve_omp_do_blocks
203         for EXEC_OMP_DO.  Adjust gfc_resolve_do_iterator caller.
204         * fortran.h (gfc_resolve_omp_do_blocks): New prototype.
205         (gfc_resolve_do_iterator): Add CODE argument.
206
207         * trans.h (gfc_omp_predetermined_sharing,
208         gfc_omp_disregard_value_expr, gfc_omp_private_debug_clause): New
209         prototypes.
210         (GFC_DECL_COMMON_OR_EQUIV, GFC_DECL_CRAY_POINTEE): Define.
211         * trans-openmp.c (gfc_omp_predetermined_sharing,
212         gfc_omp_disregard_value_expr, gfc_omp_private_debug_clause): New
213         functions.
214         * trans-common.c (build_equiv_decl, build_common_decl,
215         create_common): Set GFC_DECL_COMMON_OR_EQUIV flag on the decls.
216         * trans-decl.c (gfc_finish_cray_pointee): Set GFC_DECL_CRAY_POINTEE
217         on the decl.
218         * f95-lang.c (LANG_HOOKS_OMP_PREDETERMINED_SHARING,
219         LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR,
220         LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE): Define.
221
222         * openmp.c (resolve_omp_clauses): Remove extraneous comma.
223
224         * symbol.c (check_conflict): Add conflict between cray_pointee and
225         threadprivate.
226         * openmp.c (gfc_match_omp_threadprivate): Fail if
227         gfc_add_threadprivate returned FAILURE.
228         (resolve_omp_clauses): Diagnose Cray pointees in SHARED,
229         {,FIRST,LAST}PRIVATE and REDUCTION clauses and Cray pointers in
230         {FIRST,LAST}PRIVATE and REDUCTION clauses.
231
232         * resolve.c (omp_workshare_flag): New variable.
233         (resolve_function): Diagnose use of non-ELEMENTAL user defined
234         function in WORKSHARE construct.
235         (resolve_code): Cleanup forall_save use.  Make sure omp_workshare_flag
236         is set to correct value in different contexts.
237
238         * openmp.c (resolve_omp_clauses): Replace %s with '%s' when printing
239         variable name.
240         (resolve_omp_atomic): Likewise.
241
242         PR fortran/24493
243         * scanner.c (skip_free_comments): Set at_bol at the beginning of the
244         loop, not before it.
245         (skip_fixed_comments): Handle ! comments in the middle of line here
246         as well.
247         (gfc_skip_comments): Use skip_fixed_comments for FIXED_FORM even if
248         not at BOL.
249         (gfc_next_char_literal): Fix expected canonicalized *$omp string.
250
251         * trans-openmp.c (gfc_trans_omp_do): Use make_node and explicit
252         initialization to build OMP_FOR instead of build.
253
254         * trans-decl.c (gfc_gimplify_function): Invoke
255         diagnose_omp_structured_block_errors.
256
257         * trans-openmp.c (gfc_trans_omp_master): Use OMP_MASTER.
258         (gfc_trans_omp_ordered): Use OMP_ORDERED.
259
260         * gfortran.h (gfc_resolve_do_iterator, gfc_resolve_blocks,
261         gfc_resolve_omp_parallel_blocks): New prototypes.
262         * resolve.c (resolve_blocks): Renamed to...
263         (gfc_resolve_blocks): ... this.  Remove static.
264         (gfc_resolve_forall): Adjust caller.
265         (resolve_code): Only call gfc_resolve_blocks if code->block != 0
266         and not for EXEC_OMP_PARALLEL* directives.  Call
267         gfc_resolve_omp_parallel_blocks for EXEC_OMP_PARALLEL* directives.
268         Call gfc_resolve_do_iterator if resolved successfully EXEC_DO
269         iterator.
270         * openmp.c: Include pointer-set.h.
271         (omp_current_ctx): New variable.
272         (gfc_resolve_omp_parallel_blocks, gfc_resolve_do_iterator): New
273         functions.
274         * Make-lang.in (fortran/openmp.o): Depend on pointer-set.h.
275
276         * openmp.c (gfc_match_omp_clauses): For max/min/iand/ior/ieor,
277         look up symbol if it exists, use its name instead and, if it is not
278         INTRINSIC, issue diagnostics.
279
280         * parse.c (parse_omp_do): Handle implied end do properly.
281         (parse_executable): If parse_omp_do returned ST_IMPLIED_ENDDO,
282         return it instead of continuing.
283
284         * trans-openmp.c (gfc_trans_omp_critical): Update for changed
285         operand numbering.
286         (gfc_trans_omp_do, gfc_trans_omp_parallel, gfc_trans_omp_parallel_do,
287         gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare,
288         gfc_trans_omp_sections, gfc_trans_omp_single): Likewise.
289
290         * trans.h (gfc_omp_privatize_by_reference): New prototype.
291         * f95-lang.c (LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE): Redefine
292         to gfc_omp_privatize_by_reference.
293         * trans-openmp.c (gfc_omp_privatize_by_reference): New function.
294
295         * trans-stmt.h (gfc_trans_omp_directive): Add comment.
296
297         * openmp.c (gfc_match_omp_variable_list): Add ALLOW_COMMON argument.
298         Disallow COMMON matching if it is set.
299         (gfc_match_omp_clauses, gfc_match_omp_flush): Adjust all callers.
300         (resolve_omp_clauses): Show locus in error messages.  Check that
301         variable types in reduction clauses are appropriate for reduction
302         operators.
303
304         * resolve.c (resolve_symbol): Don't error if a threadprivate module
305         variable isn't SAVEd.
306
307         * trans-openmp.c (gfc_trans_omp_do): Put count into BLOCK, not BODY.
308         Fix typo in condition.  Fix DOVAR initialization.
309
310         * openmp.c (gfc_match_omp_clauses): Match min/iand/ior/ieor
311         rather than .min. etc.
312
313         * trans-openmpc.c (omp_not_yet): Remove.
314         (gfc_trans_omp_parallel_do): Keep listprivate clause on parallel.
315         Force creation of BIND_EXPR around the workshare construct.
316         (gfc_trans_omp_parallel_sections): Likewise.
317         (gfc_trans_omp_parallel_workshare): Likewise.
318
319         * types.def (BT_I16, BT_FN_I16_VPTR_I16,
320         BT_FN_BOOL_VPTR_I16_I16, BT_FN_I16_VPTR_I16_I16): Add.
321
322         * trans-openmp.c (gfc_trans_omp_clauses): Create OMP_CLAUSE_DEFAULT.
323         (gfc_trans_omp_code): New function.
324         (gfc_trans_omp_do): Use it, remove omp_not_yet uses.
325         (gfc_trans_omp_parallel, gfc_trans_omp_single): Likewise.
326         (gfc_trans_omp_sections): Likewise.  Only treat empty last section
327         specially if lastprivate clause is present.
328         * f95-lang.c (gfc_init_builtin_functions): Create BUILT_IN_TRAP
329         builtin.
330
331         * trans-openmp.c (gfc_trans_omp_variable_list): Update for
332         OMP_CLAUSE_DECL name change.
333         (gfc_trans_omp_do): Likewise.
334
335         * trans-openmp.c (gfc_trans_omp_clauses): Create OMP_CLAUSE_REDUCTION
336         clauses.
337         (gfc_trans_omp_atomic): Build OMP_ATOMIC instead of expanding
338         sync builtins directly.
339         (gfc_trans_omp_single): Build OMP_SINGLE statement.
340
341         * trans-openmp.c (gfc_trans_add_clause): New.
342         (gfc_trans_omp_variable_list): Take a tree code and build the clause
343         node here.  Link it to the head of a list.
344         (gfc_trans_omp_clauses): Update to match.
345         (gfc_trans_omp_do): Use gfc_trans_add_clause.
346
347         * trans-openmp.c (gfc_trans_omp_clauses): Change second argument to
348         gfc_omp_clauses *.  Use gfc_evaluate_now instead of creating
349         temporaries by hand.
350         (gfc_trans_omp_atomic, gfc_trans_omp_critical): Use buildN_v macros.
351         (gfc_trans_omp_do): New function.
352         (gfc_trans_omp_master): Dont' check for gfc_trans_code returning NULL.
353         (gfc_trans_omp_parallel): Adjust gfc_trans_omp_clauses caller.
354         Use buildN_v macros.
355         (gfc_trans_omp_parallel_do, gfc_trans_omp_parallel_sections,
356         gfc_trans_omp_parallel_workshare, gfc_trans_omp_sections,
357         gfc_trans_omp_single, gfc_trans_omp_workshare): New functions.
358         (gfc_trans_omp_directive): Use them.
359         * parse.c (parse_omp_do): Allow new_st.op == EXEC_NOP.
360         * openmp.c (resolve_omp_clauses): Check for list items present
361         in multiple clauses.
362         (resolve_omp_do): Check that iteration variable is not THREADPRIVATE
363         and is not present in any clause variable lists other than PRIVATE
364         or LASTPRIVATE.
365
366         * gfortran.h (symbol_attribute): Add threadprivate bit.
367         (gfc_common_head): Add threadprivate member, change use_assoc
368         and saved into char to save space.
369         (gfc_add_threadprivate): New prototype.
370         * symbol.c (check_conflict): Handle threadprivate.
371         (gfc_add_threadprivate): New function.
372         (gfc_copy_attr): Copy threadprivate.
373         * trans-openmp.c (gfc_trans_omp_clauses): Avoid creating a temporary
374         if IF or NUM_THREADS is constant.  Create OMP_CLAUSE_SCHEDULE and
375         OMP_CLAUSE_ORDERED.
376         * resolve.c (resolve_symbol): Complain if a THREADPRIVATE symbol
377         outside a module and not in COMMON has is not SAVEd.
378         (resolve_equivalence): Ensure THREADPRIVATE objects don't get
379         EQUIVALENCEd.
380         * trans-common.c: Include target.h and rtl.h.
381         (build_common_decl): Set DECL_TLS_MODEL if THREADPRIVATE.
382         * trans-decl.c: Include rtl.h.
383         (gfc_finish_var_decl): Set DECL_TLS_MODEL if THREADPRIVATE.
384         * dump-parse-tree.c (gfc_show_attr): Handle THREADPRIVATE.
385         * Make-lang.in (fortran/trans-decl.o): Depend on $(RTL_H).
386         (fortran/trans-common.o): Depend on $(RTL_H) and $(TARGET_H).
387         * openmp.c (gfc_match_omp_variable_list): Ensure COMMON block
388         is from current namespace.
389         (gfc_match_omp_threadprivate): Rewrite.
390         (resolve_omp_clauses): Check some clause restrictions.
391         * module.c (ab_attribute): Add AB_THREADPRIVATE.
392         (attr_bits): Add THREADPRIVATE.
393         (mio_symbol_attribute, mio_symbol_attribute): Handle threadprivate.
394         (load_commons, write_common, write_blank_common): Adjust for type
395         change of saved, store/load threadprivate bit from the integer
396         as well.
397
398         * types.def (BT_FN_UINT_UINT): New.
399         (BT_FN_VOID_UINT_UINT): Remove.
400
401         * trans-openmp.c (gfc_trans_omp_clauses, gfc_trans_omp_barrier,
402         gfc_trans_omp_critical, gfc_trans_omp_flush, gfc_trans_omp_master,
403         gfc_trans_omp_ordered, gfc_trans_omp_parallel): New functions.
404         (gfc_trans_omp_directive): Use them.
405
406         * openmp.c (expr_references_sym): Add SE argument, don't look
407         into SE tree.
408         (is_conversion): New function.
409         (resolve_omp_atomic): Adjust expr_references_sym callers.  Handle
410         promoted expressions.
411         * trans-openmp.c (gfc_trans_omp_atomic): New function.
412         (gfc_trans_omp_directive): Call it.
413
414         * f95-lang.c (builtin_type_for_size): New function.
415         (gfc_init_builtin_functions): Initialize synchronization and
416         OpenMP builtins.
417         * types.def: New file.
418         * Make-lang.in (f95-lang.o): Depend on $(BUILTINS_DEF) and
419         fortran/types.def.
420
421         * trans-openmp.c: Rename GOMP_* tree codes into OMP_*.
422
423         * dump-parse-tree.c (show_symtree): Don't crash if ns->proc_name
424         is NULL.
425
426         * dump-parse-tree.c (gfc_show_namelist, gfc_show_omp_node): New
427         functions.
428         (gfc_show_code_node): Call gfc_show_omp_node for EXEC_OMP_* nodes.
429
430         * parse.c (parse_omp_do): Call pop_state before next_statement.
431         * openmp.c (expr_references_sym, resolve_omp_atomic, resolve_omp_do):
432         New functions.
433         (gfc_resolve_omp_directive): Call them.
434         * match.c (match_exit_cycle): Issue error if EXIT or CYCLE statement
435         leaves an OpenMP structured block or if EXIT terminates !$omp do
436         loop.
437
438         * Make-lang.in (F95_PARSER_OBJS): Add fortran/openmp.o.
439         (F95_OBJS): Add fortran/trans-openmp.o.
440         (fortran/trans-openmp.o): Depend on $(GFORTRAN_TRANS_DEPS).
441         * lang.opt: Add -fopenmp option.
442         * options.c (gfc_init_options): Initialize it.
443         (gfc_handle_option): Handle it.
444         * gfortran.h (ST_OMP_ATOMIC, ST_OMP_BARRIER, ST_OMP_CRITICAL,
445         ST_OMP_END_CRITICAL, ST_OMP_END_DO, ST_OMP_END_MASTER,
446         ST_OMP_END_ORDERED, ST_OMP_END_PARALLEL, ST_OMP_END_PARALLEL_DO,
447         ST_OMP_END_PARALLEL_SECTIONS, ST_OMP_END_PARALLEL_WORKSHARE,
448         ST_OMP_END_SECTIONS, ST_OMP_END_SINGLE, ST_OMP_END_WORKSHARE,
449         ST_OMP_DO, ST_OMP_FLUSH, ST_OMP_MASTER, ST_OMP_ORDERED,
450         ST_OMP_PARALLEL, ST_OMP_PARALLEL_DO, ST_OMP_PARALLEL_SECTIONS,
451         ST_OMP_PARALLEL_WORKSHARE, ST_OMP_SECTIONS, ST_OMP_SECTION,
452         ST_OMP_SINGLE, ST_OMP_THREADPRIVATE, ST_OMP_WORKSHARE): New
453         statement codes.
454         (OMP_LIST_PRIVATE, OMP_LIST_FIRSTPRIVATE, OMP_LIST_LASTPRIVATE,
455         OMP_LIST_COPYPRIVATE, OMP_LIST_SHARED, OMP_LIST_COPYIN,
456         OMP_LIST_PLUS, OMP_LIST_REDUCTION_FIRST, OMP_LIST_MULT,
457         OMP_LIST_SUB, OMP_LIST_AND, OMP_LIST_OR, OMP_LIST_EQV,
458         OMP_LIST_NEQV, OMP_LIST_MAX, OMP_LIST_MIN, OMP_LIST_IAND,
459         OMP_LIST_IOR, OMP_LIST_IEOR, OMP_LIST_REDUCTION_LAST, OMP_LIST_NUM):
460         New OpenMP variable list types.
461         (gfc_omp_clauses): New typedef.
462         (gfc_get_omp_clauses): Define.
463         (EXEC_OMP_CRITICAL, EXEC_OMP_DO, EXEC_OMP_FLUSH, EXEC_OMP_MASTER,
464         EXEC_OMP_ORDERED, EXEC_OMP_PARALLEL, EXEC_OMP_PARALLEL_DO,
465         EXEC_OMP_PARALLEL_SECTIONS, EXEC_OMP_PARALLEL_WORKSHARE,
466         EXEC_OMP_SECTIONS, EXEC_OMP_SINGLE, EXEC_OMP_WORKSHARE,
467         EXEC_OMP_ATOMIC, EXEC_OMP_BARRIER, EXEC_OMP_END_NOWAIT,
468         EXEC_OMP_END_SINGLE): New OpenMP gfc_exec_op codes.
469         (struct gfc_code): Add omp_clauses, omp_name, omp_namelist
470         and omp_bool fields to ext union.
471         (flag_openmp): Declare.
472         (gfc_free_omp_clauses, gfc_resolve_omp_directive): New prototypes.
473         * scanner.c (openmp_flag, openmp_locus): New variables.
474         (skip_free_comments, skip_fixed_comments, gfc_next_char_literal):
475         Handle OpenMP directive lines and conditional compilation magic
476         comments.
477         * parse.h (COMP_OMP_STRUCTURED_BLOCK): New compile state.
478         * parse.c (decode_omp_directive, parse_omp_do, parse_omp_atomic,
479         parse_omp_structured_block): New functions.
480         (next_free, next_fixed): Parse OpenMP directives.
481         (case_executable, case_exec_markers, case_decl): Add ST_OMP_*
482         codes.
483         (gfc_ascii_statement): Handle ST_OMP_* codes.
484         (parse_executable): Rearrange the loop slightly, so that
485         parse_omp_do can return next_statement.
486         * match.h (gfc_match_omp_eos, gfc_match_omp_atomic,
487         gfc_match_omp_barrier, gfc_match_omp_critical, gfc_match_omp_do,
488         gfc_match_omp_flush, gfc_match_omp_master, gfc_match_omp_ordered,
489         gfc_match_omp_parallel, gfc_match_omp_parallel_do,
490         gfc_match_omp_parallel_sections, gfc_match_omp_parallel_workshare,
491         gfc_match_omp_sections, gfc_match_omp_single,
492         gfc_match_omp_threadprivate, gfc_match_omp_workshare,
493         gfc_match_omp_end_nowait, gfc_match_omp_end_single): New prototypes.
494         * resolve.c (resolve_blocks): Ignore EXEC_OMP_* block directives.
495         (resolve_code): Call gfc_resolve_omp_directive on EXEC_OMP_*
496         directives.
497         * trans.c (gfc_trans_code): Call gfc_trans_omp_directive for
498         EXEC_OMP_* directives.
499         * st.c (gfc_free_statement): Handle EXEC_OMP_* statement freeing.
500         * trans-stmt.h (gfc_trans_omp_directive): New prototype.
501         * openmp.c: New file.
502         * trans-openmp.c: New file.
503
504 2006-02-13  Andrew Pinski  <pinskia@physics.uc.edu>
505             Jakub Jelinek  <jakub@redhat.com>
506
507         PR fortran/26246
508         * trans-decl.c (gfc_get_symbol_decl, gfc_get_fake_result_decl): Use
509         gfc_add_decl_to_function rather than gfc_finish_var_decl on length.
510
511 2006-02-13  Paul Thomas  <pault@gcc.gnu.org>
512
513         PR fortran/26074
514         PR fortran/25103
515         * resolve.c (resolve_symbol): Extend the requirement that module
516         arrays have constant bounds to those in the main program.  At the
517         same time simplify the array bounds, to avoiding trapping parameter
518         array references, and exclude automatic character length from main
519         and modules. Rearrange resolve_symbol and resolve_derived to put as
520         each flavor together, as much as is possible and move all specific
521         code for flavors FL_VARIABLE, FL_PROCEDURE and FL_PARAMETER into new
522         functions.
523         (resolve_fl_var_and_proc, resolve_fl_variable, resolve_fl_procedure):
524         New functions to do work of resolve_symbol.
525         (resolve_index_expr): New function that is called from resolved_symbol
526         and is extracted from resolve_charlen.
527         (resolve_charlen): Call this new function.
528         (resolve_fl_derived): Renamed resolve_derived to be consistent with
529         the naming of the new functions for the other flavours.  Change the
530         charlen checking so that the style is consistent with other similar
531         checks. Add the generation of the gfc_dt_list, removed from resolve_
532         symbol.
533
534         PR fortran/20861
535         * resolve.c (resolve_actual_arglist): Prevent internal procedures
536         from being dummy arguments.
537
538         PR fortran/20871
539         * resolve.c (resolve_actual_arglist): Prevent pure but non-intrinsic
540         procedures from being dummy arguments.
541
542         PR fortran/25083
543         * resolve.c (check_data_variable): Add test that data variable is in
544         COMMON.
545
546         PR fortran/25088
547         * resolve.c (resolve_call): Add test that the subroutine does not
548         have a type.
549
550 2006-02-12  Erik Edelmann  <eedelman@gcc.gnu.org>
551
552         PR fortran/25806
553         * trans-array.c (gfc_trans_allocate_array_storage): New argument
554         dealloc; free the temporary only if dealloc is true.
555         (gfc_trans_allocate_temp_array): New argument bool dealloc, to be
556         passed onwards to gfc_trans_allocate_array_storage.
557         (gfc_trans_array_constructor, gfc_conv_loop_setup): Update call to
558         gfc_trans_allocate_temp_array.
559         * trans-array.h (gfc_trans_allocate_temp_array): Update function
560         prototype.
561         * trans-expr.c (gfc_conv_function_call): Set new argument 'dealloc'
562         to gfc_trans_allocate_temp_array to false in case of functions
563         returning pointers.
564         (gfc_trans_arrayfunc_assign): Return NULL for functions returning
565         pointers.
566
567 2006-02-10  Steven G. Kargl  <kargls@comcast.net>
568
569         PR fortran/20858
570         *decl.c (variable_decl): Improve error message.  Remove initialization
571         typespec.  Wrap long line.
572         *expr.c (gfc_check_pointer_assign): Permit checking of type, kind type,
573         and rank.
574         *simplify.c (gfc_simplify_null): Ensure type, kind type, and rank
575         are set.
576
577
578 2006-02-10  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
579
580         PR fortran/14771
581         * arith.c (eval_intrinsic): Accept INTRINSIC_PARENTHESES.
582         * expr.c (check_intrinsic_op): Likewise.
583         * module.c (mio_expr): Likewise.
584
585 2006-02-09  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
586
587         * dump-parse-tree.c: Update copyright years.
588         * matchexp.c: Likewise.
589         * module.c: Likewise.
590
591         PR fortran/14771
592         * gfortran.h (gfc_intrinsic_op): Add INTRINSIC_PARENTHESES.
593         * dump-parse-tree (gfc_show_expr): Handle INTRINSIC_PARENTHESES.
594         * expr.c (simplify_intrinsic_op): Treat INTRINSIC_PARENTHESES as
595         if it were INTRINSIC_UPLUS.
596         * resolve.c (resolve_operator): Handle INTRINSIC_PARENTHESES.
597         * match.c (intrinsic_operators): Add INTRINSIC_PARENTHESES.
598         * matchexp.c (match_primary): Record parentheses surrounding
599         numeric expressions.
600         * module.c (intrinsics): Add INTRINSIC_PARENTHESES for module
601         dumping.
602         * trans-expr.c (gfc_conv_expr_op): Handle INTRINSIC_PARENTHESES.
603
604 2006-02-09  Paul Thomas  <pault@gcc.gnu.org>
605
606         PR fortran/26038
607         * trans-stmt.c (gfc_trans_allocate): Provide assumed character length
608         scalar with missing backend_decl for the hidden dummy charlen.
609
610         PR fortran/25059
611         * interface.c (gfc_extend_assign): Remove detection of non-PURE
612         subroutine in assignment interface, with gfc_error, and put it in
613         * resolve.c (resolve_code).
614
615         PR fortran/25070
616         * interface.c (gfc_procedure_use): Flag rank checking for non-
617         elemental, contained or interface procedures in call to
618         (compare_actual_formal), where ranks are checked for assumed
619         shape arrays..
620
621 2006-02-08  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
622
623         PR libfortran/25425
624         * trans-decl.c (gfc_generate_function_code): Add new argument,
625         pedantic, to set_std call.
626
627 2005-02-06  Thomas Koenig  <Thomas.Koenig@online.de>
628
629         PR libfortran/23815
630         * gfortran.texi: Document the GFORTRAN_CONVERT_UNIT environment
631         variable.
632         * invoke.texi:  Mention the "Runtime" chapter.
633         Document the -fconvert= option.
634         * gfortran.h:  Add options_convert.
635         * lang.opt:  Add fconvert=little-endian, fconvert=big-endian,
636         fconvert=native and fconvert=swap.
637         * trans-decl.c (top level):  Add gfor_fndecl_set_convert.
638         (gfc_build_builtin_function_decls):  Set gfor_fndecl_set_convert.
639         (gfc_generate_function_code):  If -fconvert was specified,
640         and this is the main program, add a call to set_convert().
641         * options.c:  Handle the -fconvert options.
642
643 2006-02-06  Roger Sayle  <roger@eyesopen.com>
644
645         * trans-stmt.c (gfc_evaluate_where_mask): Allow the NMASK argument
646         to be NULL to indicate that the not mask isn't required.
647         (gfc_trans_where_2): Remove PMASK argument.  Avoid calculating the
648         pending mask for the last clause of a WHERE chain.  Update recursive
649         call.
650         (gfc_trans_forall_1): Update call to gfc_trans_where_2.
651         (gfc_trans_where): Likewise.
652
653 2006-02-06  Jakub Jelinek  <jakub@redhat.com>
654
655         Backport from gomp-20050608-branch
656         * trans-decl.c (create_function_arglist): Handle dummy functions.
657
658         * trans-decl.c (gfc_get_symbol_decl): Revert explicit setting of
659         TYPE_SIZE_UNIT.
660         (gfc_trans_vla_type_sizes): Also "gimplify"
661         GFC_TYPE_ARRAY_DATAPTR_TYPE for GFC_DESCRIPTOR_TYPE_P types.
662         * trans-array.c (gfc_trans_deferred_array): Call
663         gfc_trans_vla_type_sizes.
664
665         * trans-decl.c (saved_function_decls, saved_parent_function_decls):
666         Remove unnecessary initialization.
667         (create_function_arglist): Make sure __result has complete type.
668         (gfc_get_fake_result_decl): Change current_fake_result_decl into
669         a tree chain.  For entry master, create a separate variable
670         for each result name.  For BT_CHARACTER results, call
671         gfc_finish_var_decl on length even if it has been already created,
672         but not pushdecl'ed.
673         (gfc_trans_vla_type_sizes): For function/entry result, adjust
674         result value type, not the FUNCTION_TYPE.
675         (gfc_generate_function_code): Adjust for current_fake_result_decl
676         changes.
677         (gfc_trans_deferred_vars): Likewise.  Call gfc_trans_vla_type_sizes
678         even on result if it is assumed-length character.
679
680         * trans-decl.c (gfc_trans_dummy_character): Add SYM argument.
681         Call gfc_trans_vla_type_sizes.
682         (gfc_trans_auto_character_variable): Call gfc_trans_vla_type_sizes.
683         (gfc_trans_vla_one_sizepos, gfc_trans_vla_type_sizes_1,
684         gfc_trans_vla_type_sizes): New functions.
685         (gfc_trans_deferred_vars): Adjust gfc_trans_dummy_character
686         callers.  Call gfc_trans_vla_type_sizes on assumed-length
687         character parameters.
688         * trans-array.c (gfc_trans_array_bounds,
689         gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias): Call
690         gfc_trans_vla_type_sizes.
691         * trans.h (gfc_trans_vla_type_sizes): New prototype.
692
693         * trans-decl.c (gfc_build_qualified_array): For non-assumed-size
694         arrays without constant size, create also an index var for
695         GFC_TYPE_ARRAY_SIZE (type).  If the type is incomplete, complete
696         it as 0..size-1.
697         (gfc_create_string_length): Don't call gfc_defer_symbol_init
698         if just creating DECL_ARGUMENTS.
699         (gfc_get_symbol_decl): Call gfc_finish_var_decl and
700         gfc_defer_symbol_init even if ts.cl->backend_decl is already
701         set to a VAR_DECL that doesn't have DECL_CONTEXT yet.
702         (create_function_arglist): Rework, so that hidden length
703         arguments for CHARACTER parameters are created together with
704         the parameters.  Resolve ts.cl->backend_decl for CHARACTER
705         parameters.  If the argument is a non-constant length array
706         or CHARACTER, ensure PARM_DECL has different type than
707         its DECL_ARG_TYPE.
708         (generate_local_decl): Call gfc_get_symbol_decl even
709         for non-referenced non-constant length CHARACTER parameters
710         after optionally issuing warnings.
711         * trans-array.c (gfc_trans_array_bounds): Set last stride
712         to GFC_TYPE_ARRAY_SIZE (type) to initialize it as well.
713         (gfc_trans_dummy_array_bias): Initialize GFC_TYPE_ARRAY_SIZE (type)
714         variable as well.
715
716         * trans-expr.c (gfc_conv_expr_val): Fix comment typo.
717
718         * trans-stmt.c (gfc_trans_simple_do): Fix comment.
719
720 2006-02-04  Roger Sayle  <roger@eyesopen.com>
721
722         * dependency.c (gfc_check_dependency): Remove unused vars and nvars
723         arguments.  Replace with an "identical" argument.  A full array
724         reference to the same symbol is a dependency if identical is true.
725         * dependency.h (gfc_check_dependency): Update prototype.
726         * trans-array.h (gfc_check_dependency): Delete duplicate prototype.
727         * trans-stmt.c: #include dependency.h for gfc_check_dependency.
728         (gfc_trans_forall_1): Update calls to gfc_check_dependency.
729         (gfc_trans_where_2): Likewise.  Remove unneeded variables.
730         (gfc_trans_where_3): New function for simple non-dependent WHEREs.
731         (gfc_trans_where): Call gfc_trans_where_3 to translate simple
732         F90-style WHERE statements without internal dependencies.
733         * Make-lang.in (trans-stmt.o): Depend upon dependency.h.
734
735 2006-02-05  H.J. Lu  <hongjiu.lu@intel.com>
736
737         PR fortran/26041
738         PR fortran/26064
739         * resolve.c (resolve_types): New function.
740         (resolve_codes): Likewise.
741         (gfc_resolve): Use them.
742
743 2006-02-05  Roger Sayle  <roger@eyesopen.com>
744
745         * trans-stmt.c (gfc_evaluate_where_mask): Use LOGICAL*1 for WHERE
746         masks instead of LOGICAL*4.
747
748 2006-02-05  Jakub Jelinek  <jakub@redhat.com>
749
750         * resolve.c (resolve_symbol): Initialize constructor_expr to NULL.
751
752 2006-02-04  Thomas Koenig  <Thomas.Koenig@online.de>
753
754         PR fortran/25075
755         check.c (identical_dimen_shape):  New function.
756         (check_dot_product):  Use identical_dimen_shape() to check sizes
757         for dot_product.
758         (gfc_check_matmul):  Likewise.
759         (gfc_check_merge):  Check conformance between tsource and fsource
760         and between tsource and mask.
761         (gfc_check_pack):  Check conformance between array and mask.
762
763 2006-02-03  Steven G. Kargl  <kargls@comcast>
764             Paul Thomas  <pault@gcc.gnu.org>
765
766         PR fortran/20845
767         * resolve.c (resolve_symbol): Default initialization of derived type
768         component reguires the SAVE attribute.
769
770 2006-02-02  Steven G. Kargl  <kargls@comcast>
771
772         PR fortran/24958
773         match.c (gfc_match_nullify):  Free the list from head not tail.
774
775         PR fortran/25072
776         * match.c (match_forall_header): Fix internal error caused by bogus
777         gfc_epxr pointers.
778
779
780 2006-01-31  Thomas Koenig  <Thomas.Koenig@online.de>
781
782         PR fortran/26039
783         expr.c (gfc_check_conformance):  Reorder error message
784         to avoid plural.
785         check.c(gfc_check_minloc_maxloc):  Call gfc_check_conformance
786         for checking arguments array and mask.
787         (check_reduction):  Likewise.
788
789 2005-01-30  Erik Edelmann  <eedelman@gcc.gnu.org>
790
791         PR fortran/24266
792         * trans-io.c (set_internal_unit): Check the rank of the
793         expression node itself instead of its symbol.
794
795 2006-01-29  Paul Thomas  <pault@gcc.gnu.org>
796
797         PR fortran/18578
798         PR fortran/18579
799         PR fortran/20857
800         PR fortran/20885
801         * interface.c (compare_actual_formal): Error for INTENT(OUT or INOUT)
802         if actual argument is not a variable.
803
804 2006-01-28  Paul Thomas  <pault@gcc.gnu.org>
805
806         PR fortran/17911
807         * expr.c (gfc_check_assign, gfc_check_pointer_assign): Emit error if
808         the lvalue is a use associated procedure.
809
810         PR fortran/20895
811         PR fortran/25030
812         * expr.c (gfc_check_pointer_assign): Emit error if lvalue and rvalue
813         character lengths are not the same.  Use gfc_dep_compare_expr for the
814         comparison.
815         * gfortran.h: Add prototype for gfc_dep_compare_expr.
816         * dependency.h: Remove prototype for gfc_dep_compare_expr.
817
818 2005-01-27  Paul Thomas  <pault@gcc.gnu.org>
819
820         PR fortran/25964
821         * resolve.c (resolve_function): Add GFC_ISYM_LOC to the list of
822         generic_ids exempted from assumed size checking.
823
824 2006-01-27  Jakub Jelinek  <jakub@redhat.com>
825
826         PR fortran/25324
827         * Make-lang.in (fortran/scanner.o): Depend on toplev.h.
828         * lang.opt (fpreprocessed): New option.
829         * scanner.c: Include toplev.h.
830         (gfc_src_file, gfc_src_preprocessor_lines): New variables.
831         (preprocessor_line): Unescape filename if there were any
832         backslashes.
833         (load_file): If initial and gfc_src_file is not NULL,
834         use it rather than opening the file.  If gfc_src_preprocessor_lines
835         has non-NULL elements, pass it to preprocessor_line.
836         (unescape_filename, gfc_read_orig_filename): New functions.
837         * gfortran.h (gfc_option_t): Add flag_preprocessed.
838         (gfc_read_orig_filename): New prototype.
839         * options.c (gfc_init_options): Clear flag_preprocessed.
840         (gfc_post_options): If flag_preprocessed, call
841         gfc_read_orig_filename.
842         (gfc_handle_option): Handle OPT_fpreprocessed.
843         * lang-specs.h: Pass -fpreprocessed to f951 if preprocessing
844         sources.
845
846 2005-01-27  Erik Edelmann  <eedelman@gcc.gnu.org>
847
848         * symbol.c (free_old_symbol): Fix confusing comment, and add code
849           to free old_symbol->formal.
850
851 2005-01-26  Paul Thomas  <pault@gcc.gnu.org>
852
853         PR fortran/25964
854         * resolve.c (resolve_function): Exclude statement functions from
855         global reference checking.
856
857         PR fortran/25084
858         PR fortran/20852
859         PR fortran/25085
860         PR fortran/25086
861         * resolve.c (resolve_function): Declare a gfc_symbol to replace the
862         references through the symtree to the symbol associated with the
863         function expresion. Give error on reference to an assumed character
864         length function is defined in an interface or an external function
865         that is not a dummy argument.
866         (resolve_symbol): Give error if an assumed character length function
867         is array-valued, pointer-valued, pure or recursive. Emit warning
868         that character(*) value functions are obsolescent in F95.
869
870         PR fortran/25416
871         * trans-expr.c (gfc_conv_function_call): The above patch to resolve.c
872         prevents any assumed character length function call from getting here
873         except intrinsics such as SPREAD. In this case, ensure that no
874         segfault occurs from referencing non-existent charlen->length->
875         expr_type and provide a backend_decl for the charlen from the charlen
876         of the first actual argument.
877
878         Cure temp name confusion.
879         * trans-expr.c (gfc_get_interface_mapping_array): Change name of
880         temporary from "parm" to "ifm" to avoid clash with temp coming from
881         trans-array.c.
882
883 2005-01-25  Erik Edelmann  <eedelman@gcc.gnu.org>
884
885         PR fortran/25716
886         * symbol.c (free_old_symbol): New function.
887         (gfc_commit_symbols): Use it.
888         (gfc_commit_symbol): New function.
889         (gfc_use_derived): Use it.
890         * gfortran.h: Add prototype for gfc_commit_symbol.
891         * intrinsic.c (gfc_find_function): Search in 'conversion'
892         if not found in 'functions'.
893         (gfc_convert_type_warn): Add a symtree to the new
894         expression node, and commit the new symtree->n.sym.
895         * resolve.c (gfc_resolve_index): Make sure typespec is
896         properly initialized.
897
898 2005-01-23  Paul Thomas  <pault@gcc.gnu.org>
899
900         PR fortran/25901
901         * decl.c (get_proc_name): Replace subroutine and function attributes
902         in "already defined" test by the formal arglist pointer being non-NULL.
903
904         Fix regression in testing of admissability of attributes.
905         * symbol.c (gfc_add_attribute): If the current_attr has non-zero
906         intent, do not do the check for a dummy being used.
907         * decl.c (attr_decl1): Add current_attr.intent as the third argument
908         in the call to gfc_add_attribute.
909         * gfortran.h: Add the third argument to the prototype for
910         gfc_add_attribute.
911
912 2006-01-21  Joseph S. Myers  <joseph@codesourcery.com>
913
914         * gfortranspec.c (lang_specific_driver): Update copyright notice
915         date.
916
917 2005-01-21  Paul Thomas  <pault@gcc.gnu.org>
918
919         PR fortran/25124
920         PR fortran/25625
921         * decl.c (get_proc_name): If there is an existing
922         symbol in the encompassing namespace, call errors
923         if it is a procedure of the same name or the kind
924         field is set, indicating a type declaration.
925
926         PR fortran/20881
927         PR fortran/23308
928         PR fortran/25538
929         PR fortran/25710
930         * decl.c (add_global_entry): New function to check
931         for existing global symbol with this name and to
932         create new one if none exists.
933         (gfc_match_entry): Call add_global_entry before
934         matching argument lists for subroutine and function
935         entries.
936         * gfortran.h: Prototype for existing function,
937         global_used.
938         * resolve.c (resolve_global_procedure): New function
939         to check global symbols for procedures.
940         (resolve_call, resolve_function): Calls to this
941         new function for non-contained and non-module
942         procedures.
943         * match.c (match_common): Add check for existing
944         global symbol, creat one if none exists and emit
945         error if there is a clash.
946         * parse.c (global_used): Remove static and use the
947         gsymbol name rather than the new_block name, so that
948         the function can be called from resolve.c.
949         (parse_block_data, parse_module, add_global_procedure):
950         Improve checks for existing gsymbols.  Emit error if
951         already defined or if references were to another type.
952         Set defined flag.
953
954         PR fortran/PR24276
955         * trans-expr.c (gfc_conv_aliased_arg): New function called by 
956         gfc_conv_function_call that coverts an expression for an aliased
957         component reference to a derived type array into a temporary array
958         of the same type as the component.  The temporary is passed as an
959         actual argument for the procedure call and is copied back to the
960         derived type after the call.
961         (is_aliased_array): New function that detects an array reference
962         that is followed by a component reference.
963         (gfc_conv_function_call): Detect an aliased actual argument with
964         is_aliased_array and convert it to a temporary and back again
965         using gfc_conv_aliased_arg.
966
967 2006-01-19  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
968
969         * gfortranspec.c: Update copyright years.
970         * trans.c: Likewise.
971         * trans-array.c: Likewise.
972         * trans-array.h: Likewise.
973         * trans-decl.c: Likewise.
974         * trans-stmt.c: Likewise.
975         * trans-stmt.h: Likewise.
976         * trans-types.c: Likewise.
977
978 2006-01-18  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
979
980         PR fortran/18540
981         PR fortran/18937
982         * gfortran.h (BBT_HEADER): Move definition up.
983         (gfc_st_label): Add BBT_HEADER, remove 'prev' and 'next'.
984         * io.c (format_asterisk): Adapt initializer.
985         * resolve.c (resolve_branch): Allow FORTRAN 66 cross-block GOTOs
986         as extension.
987         (warn_unused_label): Take gfc_st_label label as argument, adapt to
988         new data structure.
989         (gfc_resolve): Adapt call to warn_unused_label.
990         * symbol.c (compare_st_labels): New function.
991         (gfc_free_st_label, free_st_labels, gfc_get_st_label): Convert to
992         using balanced binary tree.
993         * decl.c (match_char_length, gfc_match_old_kind_spec): Do away
994         with 'cnt'.
995         (warn_unused_label): Adapt to binary tree.
996         * match.c (gfc_match_small_literal_int): Only set cnt if non-NULL.
997         * primary.c (match_kind_param): Do away with cnt.
998
999 2006-01-18  Paul Thomas  <pault@gcc.gnu.org>
1000
1001         PR fortran/20869
1002         PR fortran/20875
1003         PR fortran/25024
1004         * symbol.c (check_conflict): Add pointer valued elemental
1005         functions and internal procedures with the external attribute
1006         to the list of conflicts.
1007         (gfc_add_attribute): New catch-all function to perform the
1008         checking of symbol attributes for attribute declaration
1009         statements.
1010         * decl.c (attr_decl1): Call gfc_add_attribute for each of -
1011         (gfc_match_external, gfc_match_intent, gfc_match_intrinsic,
1012         gfc_match_pointer, gfc_match_dimension, gfc_match_target):
1013         Remove spurious calls to checks in symbol.c.  Set the
1014         attribute directly and use the call to attr_decl() for
1015         checking.
1016         * gfortran.h:  Add prototype for gfc_add_attribute.
1017
1018         PR fortran/25785
1019         * resolve.c (resolve_function): Exclude PRESENT from assumed size
1020         argument checking. Replace strcmp's with comparisons with generic
1021         codes.
1022
1023 2006-01-16  Rafael \81Ávila de Esp\81índola  <rafael.espindola@gmail.com>
1024
1025         * gfortranspec.c (lang_specific_spec_functions): Remove.
1026
1027 2006-01-16  Richard Guenther  <rguenther@suse.de>
1028
1029         * trans-stmt.c (gfc_trans_if_1): Use fold_buildN and build_int_cst.
1030         (gfc_trans_arithmetic_if): Likewise.
1031         (gfc_trans_simple_do): Likewise.
1032         (gfc_trans_do): Likewise.
1033         (gfc_trans_do_while): Likewise.
1034         (gfc_trans_logical_select): Likewise.
1035         (gfc_trans_forall_loop): Likewise.
1036         (generate_loop_for_temp_to_lhs): Likewise.
1037         (generate_loop_for_rhs_to_temp): Likewise.
1038         (gfc_trans_allocate): Likewise.
1039         * trans.c (gfc_add_expr_to_block): Do not fold expr again.
1040
1041 2006-01-16  Richard Guenther  <rguenther@suse.de>
1042
1043         * trans-expr.c (gfc_conv_function_call): Use fold_build2.
1044         * trans-stmt.c (gfc_trans_goto): Likewise.  Use build_int_cst.
1045         * trans.c (gfc_trans_runtime_check): Don't fold the condition
1046         again.
1047
1048 2006-01-13  Steven G. Kargl  <kargls@comcast.net>
1049
1050         PR fortran/25756
1051         * symbol.c (gfc_free_st_label): Give variable meaningful name. Remove
1052         unneeded parenthesis. Fix-up the head of the list (2 lines gleaned
1053         from g95).
1054
1055 2006-01-13  Diego Novillo  <dnovillo@redhat.com>
1056
1057         * trans.c (gfc_add_expr_to_block): Do not fold tcc_statement
1058         nodes.
1059
1060 2006-01-11  Tobias Schl\81üter  <tobias.schlueter@physik.uni-muenchen.de>
1061
1062         * parse.c (next_fixed): Remove superfluous string concatenation.
1063
1064 2006-01-11  Bernhard Fischer  <rep.nop@aon.at>
1065
1066         PR fortran/25486
1067         * scanner.c (load_line): use maxlen to determine the line-length used
1068         for padding lines in fixed form.
1069
1070 2005-01-11  Paul Thomas  <pault@gcc.gnu.org>
1071
1072         PR fortran/25730
1073         * trans-types.c (copy_dt_decls_ifequal): Copy backend decl for
1074         character lengths.
1075
1076 2006-01-09  Andrew Pinski  <pinskia@physics.uc.edu>
1077
1078         fortran/24936
1079         * trans-stmt.c (gfc_trans_pointer_assign_need_temp): Use fold_convert
1080         to avoid type mismatch.
1081
1082 2006-01-09  Andrew Pinski  <pinskia@physics.uc.edu>
1083
1084         PR fortran/21977
1085         * trans-decl.c (gfc_generate_function_code): Move the NULLing of
1086         current_fake_result_decl down to below generate_local_vars.
1087
1088 2006-01-09  Feng Wang  <fengwang@nudt.edu.cn>
1089
1090         PR fortran/12456
1091         * trans-expr.c (gfc_to_single_character): New function that converts
1092         string to single character if its length is 1.
1093         (gfc_build_compare_string):New function that compare string and handle
1094         single character specially.
1095         (gfc_conv_expr_op): Use gfc_build_compare_string.
1096         (gfc_trans_string_copy): Use gfc_to_single_character.
1097         * trans-intrinsic.c (gfc_conv_intrinsic_strcmp): Use
1098         gfc_build_compare_string.
1099         * trans.h (gfc_build_compare_string): Add prototype.
1100
1101 2006-01-09  Feng Wang  <fengwang@nudt.edu.cn>
1102
1103         * simplify.c (gfc_simplify_char): Use UCHAR_MAX instead of literal
1104         constant.
1105         (gfc_simplify_ichar): Get the result from unsinged char and in the
1106         range 0 to UCHAR_MAX instead of CHAR_MIN to CHAR_MAX.
1107
1108 2005-01-08  Erik Edelmann  <eedelman@gcc.gnu.org>
1109
1110         PR fortran/25093
1111         * resolve.c (resolve_fntype): Check that PUBLIC functions
1112         aren't of PRIVATE type.
1113
1114 2005-01-07  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
1115
1116         * decl.c (gfc_match_function_decl): Correctly error out in case of
1117         omitted function argument list.
1118
1119 2006-01-07  Paul Thomas  <pault@gcc.gnu.org>
1120
1121         PR fortran/22146
1122         * trans-array.c (gfc_reverse_ss): Remove static attribute.
1123         (gfc_walk_elemental_function_args): Replace gfc_expr * argument for
1124         the function call with the corresponding gfc_actual_arglist*.  Change
1125         code accordingly.
1126         (gfc_walk_function_expr): Call to gfc_walk_elemental_function_args
1127         now requires the actual argument list instead of the expression for
1128         the function call.
1129         * trans-array.h: Modify the prototype for gfc_walk_elemental_function_args
1130         and provide a prototype for gfc_reverse_ss.
1131         * trans-stmt.h (gfc_trans_call): Add the scalarization code for the case
1132         where an elemental subroutine has array valued actual arguments.
1133
1134         PR fortran/25029
1135         PR fortran/21256
1136         PR fortran/20868
1137         PR fortran/20870
1138         * resolve.c (check_assumed_size_reference): New function to check for upper
1139         bound in assumed size array references.
1140         (resolve_assumed_size_actual): New function to do a very restricted scan
1141         of actual argument expressions of those procedures for which incomplete
1142         assumed size array references are not allowed.
1143         (resolve_function, resolve_call): Switch off assumed size checking of
1144         actual arguments, except for elemental procedures and intrinsic
1145         inquiry functions, in some circumstances.
1146         (resolve_variable): Call check_assumed_size_reference.
1147
1148 2006-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1149
1150         PR fortran/24268
1151         * io.c (next_char_not_space): New function that returns the next
1152         character that is not white space.
1153         (format_lex): Use the new function to skip whitespace within
1154         a format string.
1155
1156 2006-01-05  Erik Edelmann  <eedelman@gcc.gnu.org>
1157
1158         PR fortran/23675
1159         * expr.c (gfc_expr_set_symbols_referenced): New function.
1160         * gfortran.h: Add a function prototype for it.
1161         * resolve.c (resolve_function): Use it for
1162         use associated character functions lengths.
1163         * expr.c, gfortran.h, resolve.c: Updated copyright years.
1164
1165 2006-01-03  Steven G. Kargl  <kargls@comcast.net>
1166
1167         PR fortran/25101
1168         * resolve.c (resolve_forall_iterators):  Check for scalar variables;
1169         Check stride is nonzero.
1170
1171 2006-01-02  Steven G. Kargl  <kargls@comcast.net>
1172
1173         PR fortran/24640
1174         * parse.c (next_free): Check for whitespace after the label.
1175         * match.c (gfc_match_small_literal_int): Initialize cnt variable.
1176
1177 2006-01-01  Steven G. Kargl  <kargls@comcast.net>
1178
1179         * ChangeLog: Split previous years into ...
1180         * ChangeLog-2002: here.
1181         * ChangeLog-2003: here.
1182         * ChangeLog-2004: here.
1183         * ChangeLog-2005: here.