1. 06 Nov, 2011 1 commit
  2. 06 Jun, 2008 1 commit
    • c-cppbuiltin.c (c_cpp_builtins): Change _OPENMP value to 200805. · a68ab351
      	* c-cppbuiltin.c (c_cpp_builtins): Change _OPENMP value to
      	200805.
      	* langhooks.h (struct lang_hooks_for_decls): Add omp_finish_clause.
      	Add omp_private_outer_ref hook, add another argument to
      	omp_clause_default_ctor hook.
      	* langhooks-def.h (LANG_HOOKS_OMP_FINISH_CLAUSE): Define.
      	(LANG_HOOKS_OMP_PRIVATE_OUTER_REF): Define.
      	(LANG_HOOKS_OMP_CLAUSE_DEFAULT_CTOR): Change to
      	hook_tree_tree_tree_tree_null.
      	(LANG_HOOKS_DECLS): Add LANG_HOOKS_OMP_FINISH_CLAUSE and
      	LANG_HOOKS_OMP_PRIVATE_OUTER_REF.
      	* hooks.c (hook_tree_tree_tree_tree_null): New function.
      	* hooks.h (hook_tree_tree_tree_tree_null): New prototype.
      	* tree.def (OMP_TASK): New tree code.
      	* tree.h (OMP_TASK_COPYFN, OMP_TASK_ARG_SIZE, OMP_TASK_ARG_ALIGN,
      	OMP_CLAUSE_PRIVATE_OUTER_REF, OMP_CLAUSE_LASTPRIVATE_STMT,
      	OMP_CLAUSE_COLLAPSE_ITERVAR, OMP_CLAUSE_COLLAPSE_COUNT,
      	OMP_TASKREG_CHECK, OMP_TASKREG_BODY, OMP_TASKREG_CLAUSES,
      	OMP_TASKREG_FN, OMP_TASKREG_DATA_ARG, OMP_TASK_BODY,
      	OMP_TASK_CLAUSES, OMP_TASK_FN, OMP_TASK_DATA_ARG,
      	OMP_CLAUSE_COLLAPSE_EXPR): Define.
      	(enum omp_clause_default_kind): Add OMP_CLAUSE_DEFAULT_FIRSTPRIVATE.
      	(OMP_DIRECTIVE_P): Add OMP_TASK.
      	(OMP_CLAUSE_COLLAPSE, OMP_CLAUSE_UNTIED): New clause codes.
      	(OMP_CLAUSE_SCHEDULE_AUTO): New schedule kind.
      	* tree.c (omp_clause_code_name): Add OMP_CLAUSE_COLLAPSE
      	and OMP_CLAUSE_UNTIED entries.
      	(omp_clause_num_ops): Likewise.  Increase OMP_CLAUSE_LASTPRIVATE
      	num_ops to 2.
      	(walk_tree_1): Handle OMP_CLAUSE_COLLAPSE and OMP_CLAUSE_UNTIED.
      	Walk OMP_CLAUSE_LASTPRIVATE_STMT.
      	* tree-pretty-print.c (dump_omp_clause): Handle
      	OMP_CLAUSE_SCHEDULE_AUTO, OMP_CLAUSE_UNTIED, OMP_CLAUSE_COLLAPSE,
      	OMP_CLAUSE_DEFAULT_FIRSTPRIVATE.
      	(dump_generic_node): Handle OMP_TASK and collapsed OMP_FOR loops.
      	* c-omp.c (c_finish_omp_for): Allow pointer iterators.  Remove
      	warning about unsigned iterators.  Change decl/init/cond/incr
      	arguments to TREE_VECs, check arguments for all collapsed loops.
      	(c_finish_omp_taskwait): New function.
      	(c_split_parallel_clauses): Put OMP_CLAUSE_COLLAPSE clause to
      	ws_clauses.
      	* c-parser.c (c_parser_omp_for_loop): Parse collapsed loops.  Call
      	default_function_array_conversion on init.  Add par_clauses argument.
      	If decl is present in parallel's lastprivate clause, change it to
      	shared and add lastprivate clause for decl to OMP_FOR_CLAUSES.
      	Add clauses argument, on success set OMP_FOR_CLAUSES to it.  Look up
      	collapse count in clauses.
      	(c_parser_omp_for, c_parser_omp_parallel): Adjust
      	c_parser_omp_for_loop callers.
      	(OMP_FOR_CLAUSE_MASK): Add 1 << PRAGMA_OMP_CLAUSE_COLLAPSE.
      	(c_parser_pragma): Handle PRAGMA_OMP_TASKWAIT.
      	(c_parser_omp_clause_name): Handle collapse and untied clauses.
      	(c_parser_omp_clause_collapse, c_parser_omp_clause_untied): New
      	functions.
      	(c_parser_omp_clause_schedule): Handle schedule(auto).
      	Include correct location in the error message.
      	(c_parser_omp_all_clauses): Handle PRAGMA_OMP_CLAUSE_COLLAPSE
      	and PRAGMA_OMP_CLAUSE_UNTIED.
      	(OMP_TASK_CLAUSE_MASK): Define.
      	(c_parser_omp_task, c_parser_omp_taskwait): New functions.
      	(c_parser_omp_construct): Handle PRAGMA_OMP_TASK.
      	* tree-nested.c (convert_nonlocal_omp_clauses,
      	convert_local_omp_clauses): Handle OMP_CLAUSE_LASTPRIVATE_STMT,
      	OMP_CLAUSE_REDUCTION_INIT, OMP_CLAUSE_REDUCTION_MERGE,
      	OMP_CLAUSE_COLLAPSE and OMP_CLAUSE_UNTIED.
      	Don't handle TREE_STATIC or DECL_EXTERNAL VAR_DECLs in
      	OMP_CLAUSE_DECL.
      	(conver_nonlocal_reference, convert_local_reference,
      	convert_call_expr): Handle OMP_TASK the same as OMP_PARALLEL.  Use
      	OMP_TASKREG_* macros rather than OMP_PARALLEL_*.
      	(walk_omp_for): Adjust for OMP_FOR_{INIT,COND,INCR} changes.
      	* tree-gimple.c (is_gimple_stmt): Handle OMP_TASK.
      	* c-tree.h (c_begin_omp_task, c_finish_omp_task): New prototypes.
      	* c-pragma.h (PRAGMA_OMP_TASK, PRAGMA_OMP_TASKWAIT): New.
      	(PRAGMA_OMP_CLAUSE_COLLAPSE, PRAGMA_OMP_CLAUSE_UNTIED): New.
      	* c-typeck.c (c_begin_omp_task, c_finish_omp_task): New functions.
      	(c_finish_omp_clauses): Handle OMP_CLAUSE_COLLAPSE and
      	OMP_CLAUSE_UNTIED.
      	* c-pragma.c (init_pragma): Init omp task and omp taskwait pragmas.
      	* c-common.h (c_finish_omp_taskwait): New prototype.
      	* gimple-low.c (lower_stmt): Handle OMP_TASK.
      	* tree-parloops.c (create_parallel_loop): Create 1 entry
      	vectors for OMP_FOR_{INIT,COND,INCR}.
      	* tree-cfg.c (remove_useless_stmts_1): Handle OMP_* containers.
      	(make_edges): Handle OMP_TASK.
      	* tree-ssa-operands.c (get_expr_operands): Handle collapsed OMP_FOR
      	loops, adjust for OMP_FOR_{INIT,COND,INCR} changes.
      	* tree-inline.c (estimate_num_insns_1): Handle OMP_TASK.
      	* builtin-types.def (BT_PTR_ULONGLONG, BT_PTR_FN_VOID_PTR_PTR,
      	BT_FN_BOOL_ULONGLONGPTR_ULONGLONGPTR,
      	BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULLPTR_ULLPTR,
      	BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULL_ULLPTR_ULLPTR,
      	BT_FN_VOID_OMPFN_PTR_OMPCPYFN_LONG_LONG_BOOL_UINT): New.
      	* omp-builtins.def (BUILT_IN_GOMP_TASK, BUILT_IN_GOMP_TASKWAIT,
      	BUILT_IN_GOMP_LOOP_ULL_STATIC_START,
      	BUILT_IN_GOMP_LOOP_ULL_DYNAMIC_START,
      	BUILT_IN_GOMP_LOOP_ULL_GUIDED_START,
      	BUILT_IN_GOMP_LOOP_ULL_RUNTIME_START,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_STATIC_START,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_DYNAMIC_START,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_GUIDED_START,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_RUNTIME_START,
      	BUILT_IN_GOMP_LOOP_ULL_STATIC_NEXT,
      	BUILT_IN_GOMP_LOOP_ULL_DYNAMIC_NEXT,
      	BUILT_IN_GOMP_LOOP_ULL_GUIDED_NEXT,
      	BUILT_IN_GOMP_LOOP_ULL_RUNTIME_NEXT,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_STATIC_NEXT,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_DYNAMIC_NEXT,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_GUIDED_NEXT,
      	BUILT_IN_GOMP_LOOP_ULL_ORDERED_RUNTIME_NEXT): New builtins.
      	* gimplify.c (gimplify_omp_for): Allow pointer type for decl,
      	handle POINTER_PLUS_EXPR.  If loop counter has been replaced and
      	original iterator is present in lastprivate clause or if
      	collapse > 1, set OMP_CLAUSE_LASTPRIVATE_STMT.  Handle collapsed
      	OMP_FOR loops, adjust for OMP_FOR_{INIT,COND,INCR} changes.
      	(gimplify_expr): Handle OMP_SECTIONS_SWITCH and OMP_TASK.
      	(enum gimplify_omp_var_data): Add GOVD_PRIVATE_OUTER_REF.
      	(omp_notice_variable): Set GOVD_PRIVATE_OUTER_REF if needed,
      	if it is set, lookup var in outer contexts too.  Handle
      	OMP_CLAUSE_DEFAULT_FIRSTPRIVATE.  Handle vars that are supposed
      	to be implicitly determined firstprivate for task regions.
      	(gimplify_scan_omp_clauses): Set GOVD_PRIVATE_OUTER_REF if needed,
      	if it is set, lookup var in outer contexts too.  Set
      	OMP_CLAUSE_PRIVATE_OUTER_REF if GOVD_PRIVATE_OUTER_REF is set.
      	Handle OMP_CLAUSE_LASTPRIVATE_STMT, OMP_CLAUSE_COLLAPSE and
      	OMP_CLAUSE_UNTIED.  Take region_type as last argument
      	instead of in_parallel and in_combined_parallel.
      	(gimplify_omp_parallel, gimplify_omp_for, gimplify_omp_workshare):
      	Adjust callers.
      	(gimplify_adjust_omp_clauses_1): Set OMP_CLAUSE_PRIVATE_OUTER_REF if
      	GOVD_PRIVATE_OUTER_REF is set.  Call omp_finish_clause
      	langhook.
      	(new_omp_context): Set default_kind to
      	OMP_CLAUSE_DEFAULT_UNSPECIFIED for OMP_TASK regions.
      	(omp_region_type): New enum.
      	(struct gimplify_omp_ctx): Remove is_parallel and is_combined_parallel
      	fields, add region_type.
      	(new_omp_context): Take region_type as argument instead of is_parallel
      	and is_combined_parallel.
      	(gimple_add_tmp_var, omp_firstprivatize_variable, omp_notice_variable,
      	omp_is_private, omp_check_private): Adjust ctx->is_parallel and
      	ctx->is_combined_parallel checks.
      	(gimplify_omp_task): New function.
      	(gimplify_adjust_omp_clauses): Handle OMP_CLAUSE_COLLAPSE and
      	OMP_CLAUSE_UNTIED.
      	* omp-low.c (extract_omp_for_data): Use schedule(static)
      	for schedule(auto).  Handle pointer and unsigned iterators.
      	Compute fd->iter_type.  Handle POINTER_PLUS_EXPR increments.
      	Add loops argument.  Extract data for collapsed OMP_FOR loops.
      	(expand_parallel_call): Assert sched_kind isn't auto,
      	map runtime schedule to index 3.
      	(struct omp_for_data_loop): New type.
      	(struct omp_for_data): Remove v, n1, n2, step, cond_code fields.
      	Add loop, loops, collapse and iter_type fields.
      	(workshare_safe_to_combine_p): Disallow combined for if
      	iter_type is unsigned long long.  Don't combine collapse > 1 loops
      	unless all bounds and steps are constant.  Adjust extract_omp_for_data
      	caller.
      	(expand_omp_for_generic): Handle pointer, unsigned and long long
      	iterators.  Handle collapsed OMP_FOR loops.  Adjust
      	for struct omp_for_data changes.  If libgomp function doesn't return
      	boolean_type_node, add comparison of the return value with 0.
      	(expand_omp_for_static_nochunk, expand_omp_for_static_chunk): Handle
      	pointer, unsigned and long long iterators.  Adjust for struct
      	omp_for_data changes.
      	(expand_omp_for): Assert sched_kind isn't auto, map runtime schedule
      	to index 3.  Use GOMP_loop_ull*{start,next} if iter_type is
      	unsigned long long.  Allocate loops array, pass it to
      	extract_omp_for_data.  For collapse > 1 loops use always
      	expand_omp_for_generic.
      	(omp_context): Add sfield_map and srecord_type fields.
      	(is_task_ctx, lookup_sfield): New functions.
      	(use_pointer_for_field): Use is_task_ctx helper.  Change first
      	argument's type from const_tree to tree.  Clarify comment.
      	In OMP_TASK disallow copy-in/out sharing.
      	(build_sender_ref): Call lookup_sfield instead of lookup_field.
      	(install_var_field): Add mask argument.  Populate both record_type
      	and srecord_type if needed.
      	(delete_omp_context): Destroy sfield_map, clear DECL_ABSTRACT_ORIGIN
      	in srecord_type.
      	(fixup_child_record_type): Also remap FIELD_DECL's DECL_SIZE{,_UNIT}
      	and DECL_FIELD_OFFSET.
      	(scan_sharing_clauses): Adjust install_var_field callers.  For
      	firstprivate clauses on explicit tasks allocate the var by value in
      	record_type unconditionally, rather than by reference.
      	Handle OMP_CLAUSE_PRIVATE_OUTER_REF.  Scan OMP_CLAUSE_LASTPRIVATE_STMT.
      	Use is_taskreg_ctx instead of is_parallel_ctx.
      	Handle OMP_CLAUSE_COLLAPSE and OMP_CLAUSE_UNTIED.
      	(create_omp_child_function_name): Add task_copy argument, use
      	*_omp_cpyfn* names if it is true.
      	(create_omp_child_function): Add task_copy argument, if true create
      	*_omp_cpyfn* helper function.
      	(scan_omp_parallel): Adjust create_omp_child_function callers.
      	Rename parallel_nesting_level to taskreg_nesting_level.
      	(scan_omp_task): New function.
      	(lower_rec_input_clauses): Don't run constructors for firstprivate
      	explicit task vars which are initialized by *_omp_cpyfn*.  
      	Pass outer var ref to omp_clause_default_ctor hook if
      	OMP_CLAUSE_PRIVATE_OUTER_REF or OMP_CLAUSE_LASTPRIVATE.
      	Replace OMP_CLAUSE_REDUCTION_PLACEHOLDER decls in
      	OMP_CLAUSE_REDUCTION_INIT.
      	(lower_send_clauses): Clear DECL_ABSTRACT_ORIGIN if in task to
      	avoid duplicate setting of fields.  Handle
      	OMP_CLAUSE_PRIVATE_OUTER_REF.
      	(lower_send_shared_vars): Use srecord_type if non-NULL.  Don't
      	copy-out if TREE_READONLY, only copy-in.
      	(expand_task_copyfn): New function.
      	(expand_task_call): New function.
      	(struct omp_taskcopy_context): New type.
      	(task_copyfn_copy_decl, task_copyfn_remap_type, create_task_copyfn):
      	New functions.
      	(lower_omp_parallel): Rename to...
      	(lower_omp_taskreg): ... this.  Use OMP_TASKREG_* macros where needed.
      	Call create_task_copyfn if srecord_type is needed.  Adjust
      	sender_decl type.
      	(task_shared_vars): New variable.
      	(check_omp_nesting_restrictions): Warn if work-sharing,
      	barrier, master or ordered region is closely nested inside OMP_TASK.
      	Add warnings for barrier if closely nested inside of work-sharing,
      	ordered, or master region.
      	(scan_omp_1): Call check_omp_nesting_restrictions even for
      	GOMP_barrier calls.  Rename parallel_nesting_level to
      	taskreg_nesting_level.  Handle OMP_TASK.
      	(lower_lastprivate_clauses): Even if some lastprivate is found on a
      	work-sharing construct, continue looking for them on parent parallel
      	construct.
      	(lower_omp_for_lastprivate): Add lastprivate clauses
      	to the beginning of dlist rather than end.  Adjust for struct
      	omp_for_data changes.
      	(lower_omp_for): Add rec input clauses before OMP_FOR_PRE_BODY,
      	not after it.  Handle collapsed OMP_FOR loops, adjust for
      	OMP_FOR_{INIT,COND,INCR} changes, adjust extract_omp_for_data
      	caller.
      	(get_ws_args_for): Adjust extract_omp_for_data caller.
      	(scan_omp_for): Handle collapsed OMP_FOR
      	loops, adjust for OMP_FOR_{INIT,COND,INCR} changes.
      	(lower_omp_single_simple): If libgomp function doesn't return
      	boolean_type_node, add comparison of the return value with 0.
      	(diagnose_sb_1, diagnose_sb_2): Handle collapsed OMP_FOR
      	loops, adjust for OMP_FOR_{INIT,COND,INCR} changes.  Handle OMP_TASK.
      	(parallel_nesting_level): Rename to...
      	(taskreg_nesting_level): ... this.
      	(is_taskreg_ctx): New function.
      	(build_outer_var_ref, omp_copy_decl): Use is_taskreg_ctx instead
      	of is_parallel_ctx.
      	(execute_lower_omp): Rename parallel_nesting_level to
      	taskreg_nesting_level.
      	(expand_omp_parallel): Rename to...
      	(expand_omp_taskreg): ... this.  Use OMP_TASKREG_* macros where needed.
      	Call omp_task_call for OMP_TASK regions.
      	(expand_omp): Adjust caller, handle OMP_TASK.
      	(lower_omp_1): Adjust lower_omp_taskreg caller, handle OMP_TASK.
      
      	* bitmap.c (bitmap_default_obstack_depth): New variable.
      	(bitmap_obstack_initialize, bitmap_obstack_release): Do nothing
      	if argument is NULL and bitmap_default_obstack is already initialized.
      	* ipa-struct-reorg.c (do_reorg_1): Call bitmap_obstack_release
      	at the end.
      	* matrix-reorg.c (matrix_reorg): Likewise.
      cp/
      	* cp-tree.h (cxx_omp_finish_clause, cxx_omp_create_clause_info,
      	dependent_omp_for_p, begin_omp_task, finish_omp_task,
      	finish_omp_taskwait): New prototypes.
      	(cxx_omp_clause_default_ctor): Add outer argument.
      	(finish_omp_for): Add new clauses argument.
      	* cp-gimplify.c (cxx_omp_finish_clause): New function.
      	(cxx_omp_predetermined_sharing): Moved from semantics.c, rewritten.
      	(cxx_omp_clause_default_ctor): Add outer argument.
      	(cp_genericize_r): Walk OMP_CLAUSE_LASTPRIVATE_STMT.
      	* cp-objcp-common.h (LANG_HOOKS_OMP_FINISH_CLAUSE): Define.
      	* parser.c (cp_parser_omp_for_loop): Parse collapsed for loops.
      	Add par_clauses argument.  If decl is present in parallel's
      	lastprivate clause, change that clause to shared and add
      	a lastprivate clause for decl to OMP_FOR_CLAUSES.
      	Fix wording of error messages.  Adjust finish_omp_for caller.
      	Add clauses argument.  Parse loops with random access iterators.
      	(cp_parser_omp_clause_collapse, cp_parser_omp_clause_untied): New
      	functions.
      	(cp_parser_omp_for, cp_parser_omp_parallel): Adjust
      	cp_parser_omp_for_loop callers.
      	(cp_parser_omp_for_cond, cp_parser_omp_for_incr): New helper
      	functions.
      	(cp_parser_omp_clause_name): Handle collapse and untied
      	clauses.
      	(cp_parser_omp_clause_schedule): Handle auto schedule.
      	(cp_parser_omp_all_clauses): Handle PRAGMA_OMP_CLAUSE_COLLAPSE
      	and PRAGMA_OMP_CLAUSE_UNTIED.
      	(OMP_FOR_CLAUSE_MASK): Add PRAGMA_OMP_CLAUSE_COLLAPSE.
      	(OMP_TASK_CLAUSE_MASK): Define.
      	(cp_parser_omp_task, cp_parser_omp_taskwait): New functions.
      	(cp_parser_omp_construct): Handle PRAGMA_OMP_TASK.
      	(cp_parser_pragma): Handle PRAGMA_OMP_TASK and
      	PRAGMA_OMP_TASKWAIT.
      	* pt.c (tsubst_omp_clauses): Handle OMP_CLAUSE_COLLAPSE and
      	OMP_CLAUSE_UNTIED.  Handle OMP_CLAUSE_LASTPRIVATE_STMT.
      	(tsubst_omp_for_iterator): New function.
      	(dependent_omp_for_p): New function.
      	(tsubst_expr) <case OMP_FOR>: Use it.  Handle collapsed OMP_FOR
      	loops.  Adjust finish_omp_for caller.  Handle loops with random
      	access iterators.  Adjust for OMP_FOR_{INIT,COND,INCR} changes.
      	(tsubst_expr): Handle OMP_TASK.
      	* semantics.c (cxx_omp_create_clause_info): New function.
      	(finish_omp_clauses): Call it.  Handle OMP_CLAUSE_UNTIED and
      	OMP_CLAUSE_COLLAPSE.
      	(cxx_omp_predetermined_sharing): Removed.
      	* semantics.c (finish_omp_for): Allow pointer iterators.  Use
      	handle_omp_for_class_iterator and dependent_omp_for_p.  Handle
      	collapsed for loops.  Adjust c_finish_omp_for caller.  Add new
      	clauses argument.  Fix check for type dependent cond or incr.
      	Set OMP_FOR_CLAUSES to clauses.  Use cp_convert instead of
      	fold_convert to convert incr amount to difference_type.  Only
      	fold if not in template.  If decl is mentioned in lastprivate
      	clause, set OMP_CLAUSE_LASTPRIVATE_STMT.  Handle loops with random
      	access iterators.  Adjust for OMP_FOR_{INIT,COND,INCR}
      	changes.
      	(finish_omp_threadprivate): Allow static class members of the
      	current class.
      	(handle_omp_for_class_iterator, begin_omp_task, finish_omp_task,
      	finish_omp_taskwait): New functions.
      
      	* parser.c (cp_parser_binary_expression): Add prec argument.
      	(cp_parser_assignment_expression): Adjust caller.
      	* cp-tree.h (outer_curly_brace_block): New prototype.
      	* decl.c (outer_curly_brace_block): No longer static.
      fortran/
      	* scanner.c (skip_free_comments, skip_fixed_comments): Handle tabs.
      	* parse.c (next_free): Allow tab after !$omp.
      	(decode_omp_directive): Handle !$omp task, !$omp taskwait
      	and !$omp end task.
      	(case_executable): Add ST_OMP_TASKWAIT.
      	(case_exec_markers): Add ST_OMP_TASK.
      	(gfc_ascii_statement): Handle ST_OMP_TASK, ST_OMP_END_TASK and
      	ST_OMP_TASKWAIT.
      	(parse_omp_structured_block, parse_executable): Handle ST_OMP_TASK.
      	* gfortran.h (gfc_find_sym_in_expr): New prototype.
      	(gfc_statement): Add ST_OMP_TASK, ST_OMP_END_TASK and ST_OMP_TASKWAIT.
      	(gfc_omp_clauses): Add OMP_SCHED_AUTO to sched_kind,
      	OMP_DEFAULT_FIRSTPRIVATE to default_sharing.  Add collapse and
      	untied fields.
      	(gfc_exec_op): Add EXEC_OMP_TASK and EXEC_OMP_TASKWAIT.
      	* f95-lang.c (LANG_HOOKS_OMP_CLAUSE_COPY_CTOR,
      	LANG_HOOKS_OMP_CLAUSE_ASSIGN_OP, LANG_HOOKS_OMP_CLAUSE_DTOR,
      	LANG_HOOKS_OMP_PRIVATE_OUTER_REF): Define.
      	* trans.h (gfc_omp_clause_default_ctor): Add another argument.
      	(gfc_omp_clause_copy_ctor, gfc_omp_clause_assign_op,
      	gfc_omp_clause_dtor, gfc_omp_private_outer_ref): New prototypes.
      	* types.def (BT_ULONGLONG, BT_PTR_ULONGLONG,
      	BT_FN_BOOL_ULONGLONGPTR_ULONGLONGPTR,
      	BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULLPTR_ULLPTR,
      	BT_FN_BOOL_BOOL_ULL_ULL_ULL_ULL_ULLPTR_ULLPTR,
      	BT_FN_VOID_PTR_PTR, BT_PTR_FN_VOID_PTR_PTR,
      	BT_FN_VOID_OMPFN_PTR_OMPCPYFN_LONG_LONG_BOOL_UINT): New.
      	(BT_BOOL): Use integer type with BOOL_TYPE_SIZE rather
      	than boolean_type_node.
      	* dump-parse-tree.c (gfc_show_omp_node): Handle EXEC_OMP_TASK,
      	EXEC_OMP_TASKWAIT, OMP_SCHED_AUTO, OMP_DEFAULT_FIRSTPRIVATE,
      	untied and collapse clauses.
      	(gfc_show_code_node): Handle EXEC_OMP_TASK and EXEC_OMP_TASKWAIT.
      	* trans.c (gfc_trans_code): Handle EXEC_OMP_TASK and
      	EXEC_OMP_TASKWAIT.
      	* st.c (gfc_free_statement): Likewise.
      	* resolve.c (gfc_resolve_blocks, resolve_code): Likewise.
      	(find_sym_in_expr): Rename to...
      	(gfc_find_sym_in_expr): ... this.  No longer static.
      	(resolve_allocate_expr, resolve_ordinary_assign): Adjust caller.
      	* match.h (gfc_match_omp_task, gfc_match_omp_taskwait): New
      	prototypes.
      	* openmp.c (resolve_omp_clauses): Allow allocatable arrays in
      	firstprivate, lastprivate, reduction, copyprivate and copyin
      	clauses.
      	(omp_current_do_code): Made static.
      	(omp_current_do_collapse): New variable.
      	(gfc_resolve_omp_do_blocks): Compute omp_current_do_collapse,
      	clear omp_current_do_code and omp_current_do_collapse on return.
      	(gfc_resolve_do_iterator): Handle collapsed do loops.
      	(resolve_omp_do): Likewise, diagnose errorneous collapsed do loops.
      	(OMP_CLAUSE_COLLAPSE, OMP_CLAUSE_UNTIED): Define.
      	(gfc_match_omp_clauses): Handle default (firstprivate),
      	schedule (auto), untied and collapse (n) clauses.
      	(OMP_DO_CLAUSES): Add OMP_CLAUSE_COLLAPSE.
      	(OMP_TASK_CLAUSES): Define.
      	(gfc_match_omp_task, gfc_match_omp_taskwait): New functions.
      	* trans-openmp.c (gfc_omp_private_outer_ref): New function.
      	(gfc_omp_clause_default_ctor): Add outer argument.  For allocatable
      	arrays allocate them with the bounds of the outer var if outer
      	var is allocated.
      	(gfc_omp_clause_copy_ctor, gfc_omp_clause_assign_op,
      	gfc_omp_clause_dtor): New functions.
      	(gfc_trans_omp_array_reduction): If decl is allocatable array,
      	allocate it with outer var's bounds in OMP_CLAUSE_REDUCTION_INIT
      	and deallocate it in OMP_CLAUSE_REDUCTION_MERGE.
      	(gfc_omp_predetermined_sharing): Return OMP_CLAUSE_DEFAULT_SHARED
      	for assumed-size arrays.
      	(gfc_trans_omp_do): Add par_clauses argument.  If dovar is
      	present in lastprivate clause and do loop isn't simple,
      	set OMP_CLAUSE_LASTPRIVATE_STMT.  If dovar is present in
      	parallel's lastprivate clause, change it to shared and add
      	lastprivate clause to OMP_FOR_CLAUSES.  Handle collapsed do loops.
      	(gfc_trans_omp_directive): Adjust gfc_trans_omp_do callers.
      	(gfc_trans_omp_parallel_do): Likewise.  Move collapse clause to
      	OMP_FOR from OMP_PARALLEL.
      	(gfc_trans_omp_clauses): Handle OMP_SCHED_AUTO,
      	OMP_DEFAULT_FIRSTPRIVATE, untied and collapse clauses.
      	(gfc_trans_omp_task, gfc_trans_omp_taskwait): New functions.
      	(gfc_trans_omp_directive): Handle EXEC_OMP_TASK and
      	EXEC_OMP_TASKWAIT.
      gcc/testsuite/
      	* gcc.dg/gomp/collapse-1.c: New test.
      	* gcc.dg/gomp/nesting-1.c: New test.
      	* g++.dg/gomp/task-1.C: New test.
      	* g++.dg/gomp/predetermined-1.C: New test.
      	* g++.dg/gomp/tls-4.C: New test.
      	* gfortran.dg/gomp/collapse1.f90: New test.
      	* gfortran.dg/gomp/sharing-3.f90: New test.
      	* gcc.dg/gomp/pr27499.c (foo): Remove is unsigned dg-warning.
      	* g++.dg/gomp/pr27499.C (foo): Likewise.
      	* g++.dg/gomp/for-16.C (foo): Likewise.
      	* g++.dg/gomp/tls-3.C: Remove dg-error, add S::s definition.
      	* g++.dg/gomp/pr34607.C: Adjust dg-error location.
      	* g++.dg/gomp/for-16.C (foo): Add a new dg-error.
      	* gcc.dg/gomp/appendix-a/a.35.4.c: Add dg-warning.
      	* gcc.dg/gomp/appendix-a/a.35.6.c: Likewise.
      	* gfortran.dg/gomp/appendix-a/a.35.4.f90: Likewise.
      	* gfortran.dg/gomp/appendix-a/a.35.6.f90: Likewise.
      	* gfortran.dg/gomp/omp_parse1.f90: Remove !$omp tab test.
      	* gfortran.dg/gomp/appendix-a/a.33.4.f90: Remove dg-error
      	about allocatable array.
      	* gfortran.dg/gomp/reduction1.f90: Likewise.
      libgomp/
      	* configure.ac (LIBGOMP_GNU_SYMBOL_VERSIONING): New AC_DEFINE.
      	Substitute also OMP_*LOCK_25*.
      	* configure: Regenerated.
      	* config.h.in: Regenerated.
      	* Makefile.am (libgomp_la_SOURCES): Add loop_ull.c, iter_ull.c,
      	ptrlock.c and task.c.
      	* Makefile.in: Regenerated.
      	* testsuite/Makefile.in: Regenerated.
      	* task.c: New file.
      	* loop_ull.c: New file.
      	* iter_ull.c: New file.
      	* libgomp.h: Include ptrlock.h.
      	(enum gomp_task_kind): New type.
      	(struct gomp_team): Add task_lock, task_queue, task_count,
      	task_running_count, single_count fields.  Add
      	work_share_list_free_lock ifndef HAVE_SYNC_BUILTINS.
      	Remove work_share_lock, generation_mask,
      	oldest_live_gen, num_live_gen and init_work_shares fields, add
      	work work_share_list_alloc, work_share_list_free and work_share_chunk
      	fields.  Change work_shares from pointer to pointers into an array.
      	Change ordered_release field into gomp_sem_t ** from flexible array
      	member.  Add implicit_task and initial_work_shares fields.
      	Move close to the end of the struct.
      	(struct gomp_team_state): Add single_count, last_work_share,
      	active_level and level fields, remove work_share_generation.
      	(gomp_barrier_handle_tasks): New prototype.
      	(gomp_finish_task): New inline function.
      	(struct gomp_work_share): Move chunk_size, end, incr into
      	transparent union/struct, add chunk_size_ull, end_ll, incr_ll and
      	next_ll fields.  Reshuffle fields.  Add next_alloc,
      	next_ws, next_free and inline_ordered_team_ids fields, change
      	ordered_team_ids into pointer from flexible array member.
      	Add mode field.  Put lock and next into a different cache line
      	from most of the write-once fields.
      	(gomp_iter_ull_static_next, gomp_iter_ull_dynamic_next_locked,
      	gomp_iter_ull_guided_next_locked, gomp_iter_ull_dynamic_next,
      	gomp_iter_ull_guided_next): New prototypes.
      	(gomp_new_icv): New prototype.
      	(struct gomp_thread): Add thread_pool and task fields.
      	(struct gomp_thread_pool): New type.
      	(gomp_new_team): New prototype.
      	(gomp_team_start): Change type of last argument.
      	(gomp_new_work_share): Removed.
      	(gomp_init_work_share, gomp_fini_work_share): New prototypes.
      	(gomp_work_share_init_done): New static inline.
      	(gomp_throttled_spin_count_var, gomp_available_cpus,
      	gomp_managed_threads): New extern decls.
      	(gomp_init_task): New prototype.
      	(gomp_spin_count_var): New extern var decl.
      	(LIBGOMP_GNU_SYMBOL_VERSIONING): Undef if no visibility
      	or no alias support, or if not PIC.
      	(gomp_init_lock_30, gomp_destroy_lock_30, gomp_set_lock_30,
      	gomp_unset_lock_30, gomp_test_lock_30, gomp_init_nest_lock_30,
      	gomp_destroy_nest_lock_30, gomp_set_nest_lock_30,
      	gomp_unset_nest_lock_30, gomp_test_nest_lock_30, gomp_init_lock_25,
      	gomp_destroy_lock_25, gomp_set_lock_25, gomp_unset_lock_25,
      	gomp_test_lock_25, gomp_init_nest_lock_25, gomp_destroy_nest_lock_25,
      	gomp_set_nest_lock_25, gomp_unset_nest_lock_25,
      	gomp_test_nest_lock_25): New prototypes.
      	(omp_lock_symver, strong_alias): Define.
      	(gomp_remaining_threads_count, gomp_remaining_threads_lock): New
      	decls.
      	(gomp_end_task): New.
      	(struct gomp_task_icv, gomp_global_icv): New.
      	(gomp_thread_limit_var, gomp_max_active_levels_var): New.
      	(struct gomp_task): New.
      	(gomp_nthreads_var, gomp_dyn_var, gomp_nest_var,
      	gomp_run_sched_var, gomp_run_sched_chunk): Remove.
      	(gomp_icv): New.
      	(gomp_schedule_type): Reorder enum to match
      	omp_sched_t.
      	* team.c (struct gomp_thread_start_data): Add thread_pool and task
      	fields.
      	(gomp_thread_start): Add gomp_team_barrier_wait call.
      	For non-nested case remove clearing of docked thread thr fields.
      	Use pool fields instead of global gomp_* variables.  Use
      	gomp_barrier_wait_last when needed.  Initialize ts.active_level.
      	Create tasks for each member thread.
      	(free_team): Only destroy team barrier, task_lock here and free it.
      	(gomp_free_thread): Free last_team if non-NULL.
      	(gomp_team_end): Call gomp_team_barrier_wait instead of
      	gomp_barrier_wait.  For nested case call one extra
      	gomp_barrier_wait.  Move here some destruction from free_team.
      	Call free_team on pool->last_team if any, rather than freeing
      	current team.  Destroy work_share_list_free_lock ifndef
      	HAVE_SYNC_BUILTINS.
      	(gomp_new_icv): New function.
      	(gomp_threads, gomp_threads_size, gomp_threads_used,
      	gomp_threads_dock): Removed.
      	(gomp_thread_destructor): New variable.
      	(gomp_new_thread_pool, gomp_free_pool_helper, gomp_free_thread): New
      	functions.
      	(gomp_team_start): Create new pool if current thread doesn't have
      	one.  Use pool fields instead of global gomp_* variables. 
      	Initialize thread_pool field for new threads.  Clear single_count.
      	Change last argument from ws to team, don't create
      	new team, set ts.work_share to &team->work_shares[0] and clear
      	ts.last_work_share.  Don't clear ts.work_share_generation.
      	If number of threads changed, adjust atomically gomp_managed_threads.
      	Use gomp_init_task instead of gomp_new_task,
      	set thr->task to the corresponding implicit_task array entry.
      	Create tasks for each member thread.  Initialize ts.level.
      	(initialize_team): Call pthread_key_create on
      	gomp_thread_destructor.
      	(team_destructor): New function.
      	(new_team): Removed.
      	(gomp_new_team): New function.
      	(free_team): Free gomp_work_share blocks chained through next_alloc,
      	instead of freeing work_shares and destroying work_share_lock.
      	(gomp_team_end): Call gomp_fini_work_share.  If number of threads
      	changed, adjust atomically gomp_managed_threads.  Use gomp_end_task.
      	* barrier.c (GOMP_barrier): Call gomp_team_barrier_wait instead
      	of gomp_barrier_wait.
      	* single.c (GOMP_single_copy_start): Call gomp_team_barrier_wait
      	instead of gomp_barrier_wait.  Call gomp_work_share_init_done
      	if gomp_work_share_start returned true.  Don't unlock ws->lock.
      	(GOMP_single_copy_end): Call gomp_team_barrier_wait instead
      	of gomp_barrier_wait.
      	(GOMP_single_start): Rewritten if HAVE_SYNC_BUILTINS.  Call
      	gomp_work_share_init_done if gomp_work_share_start returned true.
      	Don't unlock ws->lock.
      	* work.c: Include stddef.h.
      	(free_work_share): Use work_share_list_free_lock instead
      	of atomic chaining ifndef HAVE_SYNC_BUILTINS.  Add team argument.
      	Call gomp_fini_work_share and then either free ws if orphaned, or
      	put it into work_share_list_free list of the current team.
      	(alloc_work_share, gomp_init_work_share, gomp_fini_work_share): New
      	functions.
      	(gomp_work_share_start, gomp_work_share_end,
      	gomp_work_share_end_nowait): Rewritten.
      	* omp_lib.f90.in Change some tabs to spaces to prevent warnings.
      	(openmp_version): Set to 200805.
      	(omp_sched_kind, omp_sched_static, omp_sched_dynamic,
      	omp_sched_guided, omp_sched_auto): New parameters.
      	(omp_set_schedule, omp_get_schedule, omp_get_thread_limit,
      	omp_set_max_active_levels, omp_get_max_active_levels,
      	omp_get_level, omp_get_ancestor_thread_num, omp_get_team_size,
      	omp_get_active_level): New interfaces.
      	* omp_lib.h.in (openmp_version): Set to 200805.
      	(omp_sched_kind, omp_sched_static, omp_sched_dynamic,
      	omp_sched_guided, omp_sched_auto): New parameters.
      	(omp_set_schedule, omp_get_schedule, omp_get_thread_limit,
      	omp_set_max_active_levels, omp_get_max_active_levels,
      	omp_get_level, omp_get_ancestor_thread_num, omp_get_team_size,
      	omp_get_active_level): New externals.
      	* loop.c: Include limits.h.
      	(GOMP_loop_runtime_next, GOMP_loop_ordered_runtime_next): Handle
      	GFS_AUTO.
      	(GOMP_loop_runtime_start, GOMP_loop_ordered_runtime_start):
      	Likewise.  Use gomp_icv.
      	(gomp_loop_static_start, gomp_loop_dynamic_start): Clear
      	ts.static_trip here.
      	(gomp_loop_static_start, gomp_loop_ordered_static_start): Call
      	gomp_work_share_init_done after gomp_loop_init.  Don't unlock ws->lock.
      	(gomp_loop_dynamic_start, gomp_loop_guided_start): Call
      	gomp_work_share_init_done after gomp_loop_init.  If HAVE_SYNC_BUILTINS,
      	don't unlock ws->lock, otherwise lock it.
      	(gomp_loop_ordered_dynamic_start, gomp_loop_ordered_guided_start): Call
      	gomp_work_share_init_done after gomp_loop_init.  Lock ws->lock.
      	(gomp_parallel_loop_start): Call gomp_new_team instead of
      	gomp_new_work_share.  Call gomp_loop_init on &team->work_shares[0].
      	Adjust gomp_team_start caller.  Pass 0 as second argument to
      	gomp_resolve_num_threads.
      	(gomp_loop_init): For GFS_DYNAMIC, multiply ws->chunk_size by incr.
      	If adding ws->chunk_size nthreads + 1 times after end won't
      	overflow, set ws->mode to 1.
      	* libgomp_g.h (GOMP_loop_ull_static_start, GOMP_loop_ull_dynamic_start,
      	GOMP_loop_ull_guided_start, GOMP_loop_ull_runtime_start,
      	GOMP_loop_ull_ordered_static_start,
      	GOMP_loop_ull_ordered_dynamic_start,
      	GOMP_loop_ull_ordered_guided_start,
      	GOMP_loop_ull_ordered_runtime_start, GOMP_loop_ull_static_next,
      	GOMP_loop_ull_dynamic_next, GOMP_loop_ull_guided_next,
      	GOMP_loop_ull_runtime_next, GOMP_loop_ull_ordered_static_next,
      	GOMP_loop_ull_ordered_dynamic_next, GOMP_loop_ull_ordered_guided_next,
      	GOMP_loop_ull_ordered_runtime_next, GOMP_task, GOMP_taskwait): New
      	prototypes.
      	* libgomp.map: Export lock routines also @@OMP_2.0.
      	(GOMP_loop_ordered_dynamic_first,
      	GOMP_loop_ordered_guided_first, GOMP_loop_ordered_runtime_first,
      	GOMP_loop_ordered_static_first): Remove.
      	(GOMP_loop_ull_dynamic_next, GOMP_loop_ull_dynamic_start,
      	GOMP_loop_ull_guided_next, GOMP_loop_ull_guided_start,
      	GOMP_loop_ull_ordered_dynamic_next,
      	GOMP_loop_ull_ordered_dynamic_start,
      	GOMP_loop_ull_ordered_guided_next,
      	GOMP_loop_ull_ordered_guided_start,
      	GOMP_loop_ull_ordered_runtime_next,
      	GOMP_loop_ull_ordered_runtime_start,
      	GOMP_loop_ull_ordered_static_next,
      	GOMP_loop_ull_ordered_static_start,
      	GOMP_loop_ull_runtime_next, GOMP_loop_ull_runtime_start,
      	GOMP_loop_ull_static_next, GOMP_loop_ull_static_start,
      	GOMP_task, GOMP_taskwait): Export @@GOMP_2.0.
      	(omp_set_schedule, omp_get_schedule,
      	omp_get_thread_limit, omp_set_max_active_levels,
      	omp_get_max_active_levels, omp_get_level,
      	omp_get_ancestor_thread_num, omp_get_team_size, omp_get_active_level,
      	omp_set_schedule_, omp_set_schedule_8_,
      	omp_get_schedule_, omp_get_schedule_8_, omp_get_thread_limit_,
      	omp_set_max_active_levels_, omp_set_max_active_levels_8_,
      	omp_get_max_active_levels_, omp_get_level_,
      	omp_get_ancestor_thread_num_, omp_get_ancestor_thread_num_8_,
      	omp_get_team_size_, omp_get_team_size_8_, omp_get_active_level_):
      	New exports @@OMP_3.0.
      	* omp.h.in (omp_sched_t): New type.
      	(omp_set_schedule, omp_get_schedule, omp_get_thread_limit,
      	omp_set_max_active_levels, omp_get_max_active_levels,
      	omp_get_level, omp_get_ancestor_thread_num, omp_get_team_size,
      	omp_get_active_level): New prototypes.
      	* env.c (gomp_spin_count_var, gomp_throttled_spin_count_var,
      	gomp_available_cpus, gomp_managed_threads, gomp_max_active_levels_var,
      	gomp_thread_limit_var, gomp_remaining_threads_count,
      	gomp_remaining_threads_lock): New variables.
      	(parse_spincount): New function.
      	(initialize_env): Call gomp_init_num_threads unconditionally.
      	Initialize gomp_available_cpus.  Call parse_spincount,
      	initialize gomp_{,throttled_}spin_count_var
      	depending on presence and value of OMP_WAIT_POLICY and
      	GOMP_SPINCOUNT env vars.  Handle GOMP_BLOCKTIME env var.
      	Handle OMP_WAIT_POLICY, OMP_MAX_ACTIVE_LEVELS,
      	OMP_THREAD_LIMIT, OMP_STACKSIZE env vars.  Handle unit specification
      	for GOMP_STACKSIZE.  Initialize gomp_remaining_threads_count and
      	gomp_remaining_threads_lock if needed.  Use gomp_global_icv.
      	(gomp_nthreads_var, gomp_dyn_var, gomp_nest_var,
      	gomp_run_sched_var, gomp_run_sched_chunk): Remove.
      	(gomp_global_icv): New.
      	(parse_schedule): Use it.  Parse "auto".
      	(omp_set_num_threads): Use gomp_icv.
      	(omp_set_dynamic, omp_get_dynamic, omp_set_nested, omp_get_nested):
      	Likewise.
      	(omp_get_max_threads): Move from parallel.c.
      	(omp_set_schedule, omp_get_schedule, omp_get_thread_limit,
      	omp_set_max_active_levels, omp_get_max_active_levels): New functions,
      	add ialias.
      	(parse_stacksize, parse_wait_policy): New functions.
      	* fortran.c: Rewrite lock wrappers, if symbol versioning provide
      	both wrappers for compatibility and new locks.
      	(omp_set_schedule, omp_get_schedule,
      	omp_get_thread_limit, omp_set_max_active_levels,
      	omp_get_max_active_levels, omp_get_level,
      	omp_get_ancestor_thread_num, omp_get_team_size,
      	omp_get_active_level): New ialias_redirect.
      	(omp_set_schedule_, omp_set_schedule_8_,
      	omp_get_schedule_, omp_get_schedule_8_, omp_get_thread_limit_,
      	omp_set_max_active_levels_, omp_set_max_active_levels_8_,
      	omp_get_max_active_levels_, omp_get_level_,
      	omp_get_ancestor_thread_num_, omp_get_ancestor_thread_num_8_,
      	omp_get_team_size_, omp_get_team_size_8_, omp_get_active_level_):
      	New functions.
      	* parallel.c: Include limits.h.
      	(gomp_resolve_num_threads): Add count argument.  Rewritten.
      	(GOMP_parallel_start): Call gomp_new_team and pass that as last
      	argument to gomp_team_start.  Pass 0 as second argument to
      	gomp_resolve_num_threads.
      	(GOMP_parallel_end): Decrease gomp_remaining_threads_count
      	if gomp_thread_limit_var != ULONG_MAX.
      	(omp_in_parallel): Implement using ts.active_level.
      	(omp_get_max_threads): Move to env.c.
      	(omp_get_level, omp_get_ancestor_thread_num,
      	omp_get_team_size, omp_get_active_level): New functions,
      	add ialias.
      	* sections.c (GOMP_sections_start): Call gomp_work_share_init_done
      	after gomp_sections_init.  If HAVE_SYNC_BUILTINS, call
      	gomp_iter_dynamic_next instead of the _locked variant and don't take
      	lock around it, otherwise acquire it before calling
      	gomp_iter_dynamic_next_locked.
      	(GOMP_sections_next): If HAVE_SYNC_BUILTINS, call
      	gomp_iter_dynamic_next instead of the _locked variant and don't take
      	lock around it.
      	(GOMP_parallel_sections_start): Call gomp_new_team instead of
      	gomp_new_work_share.  Call gomp_sections_init on &team->work_shares[0].
      	Adjust gomp_team_start caller.  Pass count as second argument to
      	gomp_resolve_num_threads, don't adjust num_threads after the call.
      	Use gomp_icv.
      	* iter.c (gomp_iter_dynamic_next_locked): Don't multiply
      	ws->chunk_size by incr.
      	(gomp_iter_dynamic_next): Likewise.  If ws->mode, use more efficient
      	code.
      	* libgomp_f.h.in (omp_lock_25_arg_t, omp_nest_lock_25_arg_t): New
      	types.
      	(omp_lock_25_arg, omp_nest_lock_25_arg): New macros.
      	(omp_check_defines): Check even the compat defines.
      	* config/linux/ptrlock.c: New file.
      	* config/linux/ptrlock.h: New file.
      	* config/linux/wait.h: New file.
      	* config/posix/ptrlock.c: New file.
      	* config/posix/ptrlock.h: New file.
      	* config/linux/bar.h (gomp_team_barrier_wait,
      	gomp_team_barrier_wait_end, gomp_team_barrier_wake): New prototypes.
      	(gomp_team_barrier_set_task_pending,
      	gomp_team_barrier_clear_task_pending,
      	gomp_team_barrier_set_waiting_for_tasks,
      	gomp_team_barrier_waiting_for_tasks,
      	gomp_team_barrier_done): New inlines.
      	(gomp_barrier_t): Rewritten.
      	(gomp_barrier_state_t): New typedef.
      	(gomp_barrier_init, gomp_barrier_reinit, gomp_barrier_destroy,
      	gomp_barrier_wait_start): Rewritten.
      	(gomp_barrier_wait_end): Change second argument to
      	gomp_barrier_state_t.
      	(gomp_barrier_last_thread, gomp_barrier_wait_last): New static
      	inlines.
      	* config/linux/bar.c: Include wait.h instead of libgomp.h and
      	futex.h.
      	(gomp_barrier_wait_end): Rewritten.
      	(gomp_team_barrier_wait, gomp_team_barrier_wait_end,
      	gomp_team_barrier_wake, gomp_barrier_wait_last): New functions.
      	* config/posix/bar.h (gomp_barrier_t): Add generation field.
      	(gomp_barrier_state_t): New typedef.
      	(gomp_team_barrier_wait,
      	gomp_team_barrier_wait_end, gomp_team_barrier_wake): New prototypes.
      	(gomp_barrier_wait_start): Or all but low 2 bits from generation
      	into the return value.  Return gomp_barrier_state_t.
      	(gomp_team_barrier_set_task_pending,
      	gomp_team_barrier_clear_task_pending,
      	gomp_team_barrier_set_waiting_for_tasks,
      	gomp_team_barrier_waiting_for_tasks,
      	gomp_team_barrier_done): New inlines.
      	(gomp_barrier_wait_end): Change second argument to
      	gomp_barrier_state_t.
      	(gomp_barrier_last_thread, gomp_barrier_wait_last): New static
      	inlines.
      	* config/posix/bar.c (gomp_barrier_init): Clear generation field.
      	(gomp_barrier_wait_end): Change second argument to
      	gomp_barrier_state_t. 
      	(gomp_team_barrier_wait, gomp_team_barrier_wait_end,
      	gomp_team_barrier_wake): New functions.
      	* config/linux/mutex.c: Include wait.h instead of libgomp.h and
      	futex.h.
      	(gomp_futex_wake, gomp_futex_wait): New variables.
      	(gomp_mutex_lock_slow): Call do_wait instead of futex_wait.
      	* config/linux/lock.c: Rewrite to make locks task owned,
      	for backwards compatibility provide the old entrypoints
      	if symbol versioning.  Include wait.h instead of libgomp.h and
      	futex.h.
      	(gomp_set_nest_lock_25): Call do_wait instead of futex_wait.
      	* config/posix95/lock.c: Rewrite to make locks task owned,
      	for backwards compatibility provide the old entrypoints
      	if symbol versioning.
      	* config/posix/lock.c: Rewrite to make locks task owned,
      	for backwards compatibility provide the old entrypoints
      	if symbol versioning.
      	* config/linux/proc.c (gomp_init_num_threads): Use gomp_global_icv.
      	(get_num_procs, gomp_dynamic_max_threads): Use gomp_icv.
      	* config/posix/proc.c, config/mingw32/proc.c: Similarly.
      	* config/linux/powerpc/futex.h (FUTEX_WAIT, FUTEX_WAKE): Remove.
      	(sys_futex0): Return error code.
      	(futex_wake, futex_wait): If ENOSYS was returned, clear
      	FUTEX_PRIVATE_FLAG in gomp_futex_wa{ke,it} and retry.
      	(cpu_relax, atomic_write_barrier): New static inlines.
      	* config/linux/alpha/futex.h (FUTEX_WAIT, FUTEX_WAKE): Remove.
      	(futex_wake, futex_wait): If ENOSYS was returned, clear
      	FUTEX_PRIVATE_FLAG in gomp_futex_wa{ke,it} and retry.
      	(cpu_relax, atomic_write_barrier): New static inlines.
      	* config/linux/x86/futex.h (FUTEX_WAIT, FUTEX_WAKE): Remove.
      	(sys_futex0): Return error code.
      	(futex_wake, futex_wait): If ENOSYS was returned, clear
      	FUTEX_PRIVATE_FLAG in gomp_futex_wa{ke,it} and retry.
      	(cpu_relax, atomic_write_barrier): New static inlines.
      	* config/linux/s390/futex.h (FUTEX_WAIT, FUTEX_WAKE): Remove.
      	(sys_futex0): Return error code.
      	(futex_wake, futex_wait): If ENOSYS was returned, clear
      	FUTEX_PRIVATE_FLAG in gomp_futex_wa{ke,it} and retry.
      	(cpu_relax, atomic_write_barrier): New static inlines.
      	* config/linux/ia64/futex.h (FUTEX_WAIT, FUTEX_WAKE): Remove.
      	(sys_futex0): Return error code.
      	(futex_wake, futex_wait): If ENOSYS was returned, clear
      	FUTEX_PRIVATE_FLAG in gomp_futex_wa{ke,it} and retry.
      	(cpu_relax, atomic_write_barrier): New static inlines.
      	* config/linux/sparc/futex.h (FUTEX_WAIT, FUTEX_WAKE): Remove.
      	(sys_futex0): Return error code.
      	(futex_wake, futex_wait): If ENOSYS was returned, clear
      	FUTEX_PRIVATE_FLAG in gomp_futex_wa{ke,it} and retry.
      	(cpu_relax, atomic_write_barrier): New static inlines.
      	* config/linux/sem.c: Include wait.h instead of libgomp.h and
      	futex.h.
      	(gomp_sem_wait_slow): Call do_wait instead of futex_wait.
      	* config/linux/affinity.c: Assume HAVE_SYNC_BUILTINS.
      	* config/linux/omp-lock.h (omp_lock_25_t, omp_nest_lock_25_t): New
      	types.
      	(omp_nest_lock_t): Change owner into void *, add lock field.
      	* config/posix95/omp-lock.h: Include semaphore.h.
      	(omp_lock_25_t, omp_nest_lock_25_t): New types.
      	(omp_lock_t): Use sem_t instead of mutex if semaphores
      	aren't broken.
      	(omp_nest_lock_t): Likewise.  Change owner to void *.
      	* config/posix/omp-lock.h: Include semaphore.h.
      	(omp_lock_25_t, omp_nest_lock_25_t): New types.
      	(omp_lock_t): Use sem_t instead of mutex if semaphores
      	aren't broken.
      	(omp_nest_lock_t): Likewise.  Add owner field.
      
      	* testsuite/libgomp.c/collapse-1.c: New test.
      	* testsuite/libgomp.c/collapse-2.c: New test.
      	* testsuite/libgomp.c/collapse-3.c: New test.
      	* testsuite/libgomp.c/icv-1.c: New test.
      	* testsuite/libgomp.c/icv-2.c: New test.
      	* testsuite/libgomp.c/lib-2.c: New test.
      	* testsuite/libgomp.c/lock-1.c: New test.
      	* testsuite/libgomp.c/lock-2.c: New test.
      	* testsuite/libgomp.c/lock-3.c: New test.
      	* testsuite/libgomp.c/loop-4.c: New test.
      	* testsuite/libgomp.c/loop-5.c: New test.
      	* testsuite/libgomp.c/loop-6.c: New test.
      	* testsuite/libgomp.c/loop-7.c: New test.
      	* testsuite/libgomp.c/loop-8.c: New test.
      	* testsuite/libgomp.c/loop-9.c: New test.
      	* testsuite/libgomp.c/nested-3.c: New test.
      	* testsuite/libgomp.c/nestedfn-6.c: New test.
      	* testsuite/libgomp.c/sort-1.c: New test.
      	* testsuite/libgomp.c/task-1.c: New test.
      	* testsuite/libgomp.c/task-2.c: New test.
      	* testsuite/libgomp.c/task-3.c: New test.
      	* testsuite/libgomp.c/task-4.c: New test.
      	* testsuite/libgomp.c++/c++.exp: Add libstdc++-v3 build includes
      	to C++ testsuite default compiler options.
      	* testsuite/libgomp.c++/collapse-1.C: New test.
      	* testsuite/libgomp.c++/collapse-2.C: New test.
      	* testsuite/libgomp.c++/ctor-10.C: New test.
      	* testsuite/libgomp.c++/for-1.C: New test.
      	* testsuite/libgomp.c++/for-2.C: New test.
      	* testsuite/libgomp.c++/for-3.C: New test.
      	* testsuite/libgomp.c++/for-4.C: New test.
      	* testsuite/libgomp.c++/for-5.C: New test.
      	* testsuite/libgomp.c++/loop-8.C: New test.
      	* testsuite/libgomp.c++/loop-9.C: New test.
      	* testsuite/libgomp.c++/loop-10.C: New test.
      	* testsuite/libgomp.c++/task-1.C: New test.
      	* testsuite/libgomp.c++/task-2.C: New test.
      	* testsuite/libgomp.c++/task-3.C: New test.
      	* testsuite/libgomp.c++/task-4.C: New test.
      	* testsuite/libgomp.c++/task-5.C: New test.
      	* testsuite/libgomp.c++/task-6.C: New test.
      	* testsuite/libgomp.fortran/allocatable1.f90: New test.
      	* testsuite/libgomp.fortran/allocatable2.f90: New test.
      	* testsuite/libgomp.fortran/allocatable3.f90: New test.
      	* testsuite/libgomp.fortran/allocatable4.f90: New test.
      	* testsuite/libgomp.fortran/collapse1.f90: New test.
      	* testsuite/libgomp.fortran/collapse2.f90: New test.
      	* testsuite/libgomp.fortran/collapse3.f90: New test.
      	* testsuite/libgomp.fortran/collapse4.f90: New test.
      	* testsuite/libgomp.fortran/lastprivate1.f90: New test.
      	* testsuite/libgomp.fortran/lastprivate2.f90: New test.
      	* testsuite/libgomp.fortran/lib4.f90: New test.
      	* testsuite/libgomp.fortran/lock-1.f90: New test.
      	* testsuite/libgomp.fortran/lock-2.f90: New test.
      	* testsuite/libgomp.fortran/nested1.f90: New test.
      	* testsuite/libgomp.fortran/nestedfn4.f90: New test.
      	* testsuite/libgomp.fortran/strassen.f90: New test.
      	* testsuite/libgomp.fortran/tabs1.f90: New test.
      	* testsuite/libgomp.fortran/tabs2.f: New test.
      	* testsuite/libgomp.fortran/task1.f90: New test.
      	* testsuite/libgomp.fortran/task2.f90: New test.
      	* testsuite/libgomp.fortran/vla4.f90: Add dg-warning.
      	* testsuite/libgomp.fortran/vla5.f90: Likewise.
      	* testsuite/libgomp.c/pr26943-2.c: Likewise.
      	* testsuite/libgomp.c/pr26943-3.c: Likewise.
      	* testsuite/libgomp.c/pr26943-4.c: Likewise.
      
      Co-Authored-By: Jakob Blomer <jakob.blomer@ira.uka.de>
      Co-Authored-By: Richard Henderson <rth@redhat.com>
      Co-Authored-By: Ulrich Drepper <drepper@redhat.com>
      
      From-SVN: r136433
      Jakub Jelinek committed
  3. 24 Feb, 2008 1 commit
    • arith.c: Update copyright years. · 835aac92
      * arith.c: Update copyright years.
      * arith.h: Likewise.
      * array.c: Likewise.
      * bbt.c: Likewise.
      * check.c: Likewise.
      * data.c: Likewise.
      * data.h: Likewise.
      * decl.c: Likewise.
      * dependency.c: Likewise.
      * dependency.h: Likewise.
      * dump-parse-tree.c: Likewise.
      * error.c: Likewise.
      * expr.c: Likewise.
      * gfc-internals.texi: Likewise.
      * gfortran.h: Likewise.
      * gfortran.texi: Likewise.
      * gfortranspec.c: Likewise.
      * interface.c: Likewise.
      * intrinsic.c: Likewise.
      * intrinsic.h: Likewise.
      * intrinsic.texi: Likewise.
      * invoke.texi: Likewise.
      * io.c: Likewise.
      * iresolve.c: Likewise.
      * iso-c-binding.def: Likewise.
      * iso-fortran-env.def: Likewise.
      * lang-specs.h: Likewise.
      * lang.opt: Likewise.
      * libgfortran.h: Likewise.
      * match.c: Likewise.
      * match.h: Likewise.
      * matchexp.c: Likewise.
      * misc.c: Likewise.
      * module.c: Likewise.
      * openmp.c: Likewise.
      * options.c: Likewise.
      * parse.c: Likewise.
      * parse.h: Likewise.
      * primary.c: Likewise.
      * resolve.c: Likewise.
      * scanner.c: Likewise.
      * simplify.c: Likewise.
      * st.c: Likewise.
      * symbol.c: Likewise.
      * target-memory.c: Likewise.
      * target-memory.h: Likewise.
      * trans-array.h: Likewise.
      * trans-const.h: Likewise.
      * trans-stmt.h: Likewise.
      * trans-types.c: Likewise.
      * trans-types.h: Likewise.
      * types.def: Likewise.
      
      From-SVN: r132600
      Tobias Schlüter committed
  4. 01 Aug, 2007 1 commit
    • arith.c: Change copyright header to refer to version 3 of the GNU General Public... · d234d788
      * arith.c: Change copyright header to refer to version 3 of the GNU General 
        Public License and to point readers at the COPYING3 file and the FSF's 
        license web page.
      * openmp.c, interface.c, intrinsic.c, trans-array.c, trans-expr.c, symbol.c, 
        iso-fortran-env.def, intrinsic.h, decl.c, trans-array.h, matchexp.c, 
        dump-parse-tree.c, trans-common.c, array.c, Make-lang.in, trans-openmp.c, 
        gfortran.h, error.c, iso-c-binding.def, lang.opt, data.c, trans-const.c, 
        trans-stmt.c, expr.c, trans-const.h, trans-stmt.h, module.c, trans.c, 
        scanner.c, trans-types.c, trans.h, gfortranspec.c, trans-types.h, 
        lang-specs.h, io.c, bbt.c, resolve.c, f95-lang.c, st.c, iresolve.c, match.c,
        trans-decl.c, trans-io.c, target-memory.c, match.h, target-memory.h, parse.c,
        arith.h, check.c, dependency.c, parse.h, types.def, convert.c, dependency.h,
        primary.c, trans-intrinsic.c, options.c, misc.c, simplify.c: Likewise.
      
      From-SVN: r127129
      Nick Clifton committed
  5. 17 Apr, 2007 1 commit
    • arith.h: Update copyright years. · 710a179f
      * arith.h: Update copyright years.
      * dependency.h: Likewise.
      * gfortran.h: Likewise.
      * lang-specs.h: Likewise.
      * parse.h: Likewise.
      * symbol.c: Likewise.
      * trans.h: Likewise.
      * trans.c: Likewise.
      * trans-array.c: Likewise.
      * trans-common.c: Likewise.
      * trans-const.h: Likewise.
      * trans-const.c: Likewise.
      * trans-decl.c: Likewise.
      * trans-expr.c: Likewise.
      * trans-io.c: Likewise.
      * trans-openmp.c: Likewise.
      * trans-types.h: Likewise.
      * types.def: Likewise.
      
      From-SVN: r123911
      Tobias Schlüter committed
  6. 10 Feb, 2007 1 commit
    • Makefile.in (libgcc-support, [...]): Add emutls.c. · 8893239d
      gcc/ChangeLog:
      * Makefile.in (libgcc-support, libgcc.mvars): Add emutls.c.
      * builtin-types.def (BT_WORD): Make unsigned.
      (BT_FN_VOID_PTR_WORD_WORD_PTR): New.
      * builtins.def (BUILT_IN_EMUTLS_GET_ADDRESS): New.
      (BUILT_IN_EMUTLS_REGISTER_COMMON): New.
      * c-decl.c (grokdeclarator): Don't error if !have_tls.
      * c-parser.c (c_parser_omp_threadprivate): Likewise.
      * dwarf2out.c (loc_descriptor_from_tree_1): Don't do anything for
      emulated tls.
      * expr.c (emutls_var_address): New.
      (expand_expr_real_1): Expand emulated tls.
      (expand_expr_addr_expr_1): Likewise.
      * libgcc-std.ver: Add __emutls_get_address, __emutls_register_common.
      * output.h (emutls_finish): Declare.
      * toplev.c (compile_file): Call it.
      * tree-ssa-address.c (gen_addr_rtx): Check for const-ness of the
      address before wrapping in CONST.
      * varasm.c (emutls_htab, emutls_object_type): New.
      (EMUTLS_VAR_PREFIX, EMUTLS_TMPL_PREFIX): New.
      (get_emutls_object_name, get_emutls_object_type): New.
      (get_emutls_init_templ_addr, emutls_decl): New.
      (emutls_common_1, emutls_finish): New.
      (assemble_variable): When emulating tls, swap decls; generate
      constructor for the emutls objects.
      (do_assemble_alias): When emulating tls, swap decl and target name.
      (default_encode_section_info): Don't add SYMBOL_FLAG_TLS_SHIFT
      for emulated tls.
      * varpool.c (decide_is_variable_needed): Look at force_output.
      Recurse for emulated tls.
      (cgraph_varpool_remove_unreferenced_decls): Remove checks redundant
      with decide_is_variable_needed.
      * emutls.c: New file.
      * config/sparc/sol2.h (ASM_DECLARE_OBJECT_NAME): Only emit
      tls_object for real tls.
      gcc/cp/ChangeLog:
      * decl.c (grokvardecl): Don't error if !have_tls.
      (grokdeclarator): Likewise.
      * parser.c (cp_parser_omp_threadprivate): Likewise.
      gcc/fortran/ChangeLog:
      * f95-lang.c (gfc_init_builtin_functions): Add __emutls_get_address
      and __emutls_register_common.
      * openmp.c (gfc_match_omp_threadprivate): Don't error if !have_tls.
      * trans-common.c (build_common_decl): Don't check have_tls.
      * trans-decl.c (gfc_finish_var_decl): Likewise.
      * types.def (BT_WORD, BT_FN_PTR_PTR): New.
      (BT_FN_VOID_PTR_WORD_WORD_PTR): New.
      gcc/testsuite/ChangeLog:
      * lib/target-supports.exp (check_effective_target_tls): Redefine
      to mean non-emulated tls.
      * gcc.dg/tls/alias-1.c: Remove tls requirement.
      * gcc.dg/tls/asm-1.c, gcc.dg/tls/debug-1.c, gcc.dg/tls/diag-1.c,
      gcc.dg/tls/diag-2.c, gcc.dg/tls/diag-3.c, gcc.dg/tls/diag-4.c,
      gcc.dg/tls/diag-5.c, gcc.dg/tls/init-1.c, gcc.dg/tls/nonpic-1.c,
      gcc.dg/tls/opt-10.c, gcc.dg/tls/opt-5.c, gcc.dg/tls/opt-6.c,
      gcc.dg/tls/opt-8.c, gcc.dg/tls/opt-9.c, gcc.dg/tls/pic-1.c,
      gcc.dg/tls/struct-1.c, gcc.dg/tls/trivial.c: Likewise.
      
      From-SVN: r121800
      Richard Henderson committed
  7. 09 Oct, 2006 1 commit
  8. 04 Oct, 2006 1 commit
    • Makefile.in (libgcc.mk, [...]): Add emutls.c. · e701a32a
      gcc/
              * Makefile.in (libgcc.mk, LIBGCC_DEPS): Add emutls.c.
              * builtin-types.def (BT_WORD): Make unsigned.
              (BT_FN_VOID_PTR_WORD_WORD_PTR): New.
              * builtins.def (BUILT_IN_EMUTLS_GET_ADDRESS): New.
              (BUILT_IN_EMUTLS_REGISTER_COMMON): New.
              * c-decl.c (grokdeclarator): Don't error if !have_tls.
              * c-parser.c (c_parser_omp_threadprivate): Likewise.
              * cgraph.c (decide_is_variable_needed): Look at force_output.
              Recurse for emulated tls.
              * cgraphunit.c (cgraph_varpool_remove_unreferenced_decls): Remove
              checks redundant with decide_is_variable_needed.
              (cgraph_build_static_cdtor): Do cgraph_varpool_assemble_pending_decls.
              * dwarf2out.c (loc_descriptor_from_tree_1): Don't do anything for
              emulated tls.
              * expr.c (emutls_var_address): New.
              (expand_expr_real_1): Expand emulated tls.
              (expand_expr_addr_expr_1): Likewise.
              * libgcc-std.ver: Add __emutls_get_address, __emutls_register_common.
              * output.h (emutls_finish): Declare.
              * toplev.c (compile_file): Call it.
              * tree-ssa-address.c (gen_addr_rtx): Check for const-ness of the
              address before wrapping in CONST.
              * varasm.c (emutls_htab, emutls_object_type): New.
              (EMUTLS_VAR_PREFIX, EMUTLS_TMPL_PREFIX): New.
              (get_emutls_object_name, get_emutls_object_type): New.
              (get_emutls_init_templ_addr, emutls_decl): New.
              (emutls_common_1, emutls_finish): New.
              (assemble_variable): When emulating tls, swap decls; generate
              constructor for the emutls objects.
              (do_assemble_alias): When emulating tls, swap decl and target name.
              (default_encode_section_info): Don't add SYMBOL_FLAG_TLS_SHIFT
              for emulated tls.
              * emutls.c: New file.
              * config/sparc/sol2.h (ASM_DECLARE_OBJECT_NAME): Only emit
              tls_object for real tls.
      
      gcc/cp/
              * decl.c (grokvardecl): Don't error if !have_tls.
              (grokdeclarator): Likewise.
              * parser.c (cp_parser_omp_threadprivate): Likewise.
      
      gcc/fortran/
              * f95-lang.c (gfc_init_builtin_functions): Add __emutls_get_address
              and __emutls_register_common.
              * openmp.c (gfc_match_omp_threadprivate): Don't error if !have_tls.
              * trans-common.c (build_common_decl): Don't check have_tls.
              * trans-decl.c (gfc_finish_var_decl): Likewise.
              * types.def (BT_WORD, BT_FN_PTR_PTR): New.
              (BT_FN_VOID_PTR_WORD_WORD_PTR): New.
      
      gcc/testsuite/
              * lib/target-supports.exp (check_effective_target_tls): Redefine
              to mean non-emulated tls.
              * gcc.dg/tls/alias-1.c: Remove tls requirement.
              * gcc.dg/tls/asm-1.c, gcc.dg/tls/debug-1.c, gcc.dg/tls/diag-1.c,
              gcc.dg/tls/diag-2.c, gcc.dg/tls/diag-3.c, gcc.dg/tls/diag-4.c,
              gcc.dg/tls/diag-5.c, gcc.dg/tls/init-1.c, gcc.dg/tls/nonpic-1.c,
              gcc.dg/tls/opt-10.c, gcc.dg/tls/opt-5.c, gcc.dg/tls/opt-6.c,
              gcc.dg/tls/opt-8.c, gcc.dg/tls/opt-9.c, gcc.dg/tls/pic-1.c,
              gcc.dg/tls/struct-1.c, gcc.dg/tls/trivial.c: Likewise.
      
      From-SVN: r117440
      Richard Henderson committed
  9. 14 Feb, 2006 1 commit
    • re PR fortran/25162 (Issue with OpenMP COPYIN and gfortran) · 6c7a4dfd
      gcc/fortran/
      2006-02-14  Jakub Jelinek  <jakub@redhat.com>
      	    Richard Henderson  <rth@redhat.com>
      	    Diego Novillo  <dnovillo@redhat.com>
      
      	* invoke.texi: Document -fopenmp.
      	* gfortran.texi (Extensions): Document OpenMP.
      
      	Backport from gomp-20050608-branch
      	* trans-openmp.c: Call build_omp_clause instead of
      	make_node when creating OMP_CLAUSE_* trees.
      	(gfc_trans_omp_reduction_list): Remove argument 'code'.
      	Adjust all callers.
      
      	* trans.h (build4_v): Define.
      	* trans-openmp.c: Call build4_v to create OMP_PARALLEL nodes.
      	Call build3_v to create OMP_SECTIONS nodes.
      
      	PR fortran/25162
      	* openmp.c (gfc_match_omp_variable_list): Call gfc_set_sym_referenced
      	on all symbols added to the variable list.
      
      	* openmp.c (gfc_match_omp_clauses): Fix check for non-INTRINSIC
      	procedure symbol in REDUCTION.
      
      	* trans-openmp.c (gfc_trans_omp_array_reduction): Use gfc_add
      	for MINUS_EXPR OMP_CLAUSE_REDUCTION_CODE.
      
      	* trans-openmp.c (gfc_trans_omp_do): Add PBLOCK argument.  If PBLOCK
      	is non-NULL, evaluate INIT/COND/INCR and chunk size expressions in
      	that statement block.
      	(gfc_trans_omp_parallel_do): Pass non-NULL PBLOCK to gfc_trans_omp_do
      	for non-ordered non-static combined loops.
      	(gfc_trans_omp_directive): Pass NULL PBLOCK to gfc_trans_omp_do.
      
      	* openmp.c: Include target.h and toplev.h.
      	(gfc_match_omp_threadprivate): Emit diagnostic if target does
      	not support TLS.
      	* Make-lang.in (fortran/openmp.o): Add dependencies on
      	target.h and toplev.h.
      
      	* trans-decl.c (gfc_get_fake_result_decl): Set GFC_DECL_RESULT.
      	* trans-openmp.c (gfc_omp_privatize_by_reference): Make
      	DECL_ARTIFICIAL vars predetermined shared except GFC_DECL_RESULT.
      	(gfc_omp_disregard_value_expr): Handle GFC_DECL_RESULT.
      	(gfc_trans_omp_variable): New function.
      	(gfc_trans_omp_variable_list, gfc_trans_omp_reduction_list): Use it.
      	* trans.h (GFC_DECL_RESULT): Define.
      
      	* trans-openmp.c (gfc_omp_firstprivatize_type_sizes): New function.
      	* f95-lang.c (LANG_HOOKS_OMP_FIRSTPRIVATIZE_TYPE_SIZES): Define.
      	* trans.h (gfc_omp_firstprivatize_type_sizes): New prototype.
      
      	* trans-openmp.c (gfc_omp_privatize_by_reference): Return
      	true if a pointer has GFC_DECL_SAVED_DESCRIPTOR set.
      	(gfc_trans_omp_array_reduction, gfc_trans_omp_reduction_list): New
      	functions.
      	(gfc_trans_omp_clauses): Add WHERE argument.  Call
      	gfc_trans_omp_reduction_list rather than gfc_trans_omp_variable_list
      	for reductions.
      	(gfc_trans_omp_do, gfc_trans_omp_parallel, gfc_trans_omp_parallel_do,
      	gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare,
      	gfc_trans_omp_sections, gfc_trans_omp_single): Adjust
      	gfc_trans_omp_clauses callers.
      
      	* openmp.c (omp_current_do_code): New var.
      	(gfc_resolve_omp_do_blocks): New function.
      	(gfc_resolve_omp_parallel_blocks): Call it.
      	(gfc_resolve_do_iterator): Add CODE argument.  Don't propagate
      	predetermination if argument is !$omp do or !$omp parallel do
      	iteration variable.
      	* resolve.c (resolve_code): Call gfc_resolve_omp_do_blocks
      	for EXEC_OMP_DO.  Adjust gfc_resolve_do_iterator caller.
      	* fortran.h (gfc_resolve_omp_do_blocks): New prototype.
      	(gfc_resolve_do_iterator): Add CODE argument.
      
      	* trans.h (gfc_omp_predetermined_sharing,
      	gfc_omp_disregard_value_expr, gfc_omp_private_debug_clause): New
      	prototypes.
      	(GFC_DECL_COMMON_OR_EQUIV, GFC_DECL_CRAY_POINTEE): Define.
      	* trans-openmp.c (gfc_omp_predetermined_sharing,
      	gfc_omp_disregard_value_expr, gfc_omp_private_debug_clause): New
      	functions.
      	* trans-common.c (build_equiv_decl, build_common_decl,
      	create_common): Set GFC_DECL_COMMON_OR_EQUIV flag on the decls.
      	* trans-decl.c (gfc_finish_cray_pointee): Set GFC_DECL_CRAY_POINTEE
      	on the decl.
      	* f95-lang.c (LANG_HOOKS_OMP_PREDETERMINED_SHARING,
      	LANG_HOOKS_OMP_DISREGARD_VALUE_EXPR,
      	LANG_HOOKS_OMP_PRIVATE_DEBUG_CLAUSE): Define.
      
      	* openmp.c (resolve_omp_clauses): Remove extraneous comma.
      
      	* symbol.c (check_conflict): Add conflict between cray_pointee and
      	threadprivate.
      	* openmp.c (gfc_match_omp_threadprivate): Fail if
      	gfc_add_threadprivate returned FAILURE.
      	(resolve_omp_clauses): Diagnose Cray pointees in SHARED,
      	{,FIRST,LAST}PRIVATE and REDUCTION clauses and Cray pointers in
      	{FIRST,LAST}PRIVATE and REDUCTION clauses.
      
      	* resolve.c (omp_workshare_flag): New variable.
      	(resolve_function): Diagnose use of non-ELEMENTAL user defined
      	function in WORKSHARE construct.
      	(resolve_code): Cleanup forall_save use.  Make sure omp_workshare_flag
      	is set to correct value in different contexts.
      
      	* openmp.c (resolve_omp_clauses): Replace %s with '%s' when printing
      	variable name.
      	(resolve_omp_atomic): Likewise.
      
      	PR fortran/24493
      	* scanner.c (skip_free_comments): Set at_bol at the beginning of the
      	loop, not before it.
      	(skip_fixed_comments): Handle ! comments in the middle of line here
      	as well.
      	(gfc_skip_comments): Use skip_fixed_comments for FIXED_FORM even if
      	not at BOL.
      	(gfc_next_char_literal): Fix expected canonicalized *$omp string.
      
      	* trans-openmp.c (gfc_trans_omp_do): Use make_node and explicit
      	initialization to build OMP_FOR instead of build.
      
      	* trans-decl.c (gfc_gimplify_function): Invoke
      	diagnose_omp_structured_block_errors.
      
      	* trans-openmp.c (gfc_trans_omp_master): Use OMP_MASTER.
      	(gfc_trans_omp_ordered): Use OMP_ORDERED.
      
      	* gfortran.h (gfc_resolve_do_iterator, gfc_resolve_blocks,
      	gfc_resolve_omp_parallel_blocks): New prototypes.
      	* resolve.c (resolve_blocks): Renamed to...
      	(gfc_resolve_blocks): ... this.  Remove static.
      	(gfc_resolve_forall): Adjust caller.
      	(resolve_code): Only call gfc_resolve_blocks if code->block != 0
      	and not for EXEC_OMP_PARALLEL* directives.  Call
      	gfc_resolve_omp_parallel_blocks for EXEC_OMP_PARALLEL* directives.
      	Call gfc_resolve_do_iterator if resolved successfully EXEC_DO
      	iterator.
      	* openmp.c: Include pointer-set.h.
      	(omp_current_ctx): New variable.
      	(gfc_resolve_omp_parallel_blocks, gfc_resolve_do_iterator): New
      	functions.
      	* Make-lang.in (fortran/openmp.o): Depend on pointer-set.h.
      
      	* openmp.c (gfc_match_omp_clauses): For max/min/iand/ior/ieor,
      	look up symbol if it exists, use its name instead and, if it is not
      	INTRINSIC, issue diagnostics.
      
      	* parse.c (parse_omp_do): Handle implied end do properly.
      	(parse_executable): If parse_omp_do returned ST_IMPLIED_ENDDO,
      	return it instead of continuing.
      
      	* trans-openmp.c (gfc_trans_omp_critical): Update for changed
      	operand numbering.
      	(gfc_trans_omp_do, gfc_trans_omp_parallel, gfc_trans_omp_parallel_do,
      	gfc_trans_omp_parallel_sections, gfc_trans_omp_parallel_workshare,
      	gfc_trans_omp_sections, gfc_trans_omp_single): Likewise.
      
      	* trans.h (gfc_omp_privatize_by_reference): New prototype.
      	* f95-lang.c (LANG_HOOKS_OMP_PRIVATIZE_BY_REFERENCE): Redefine
      	to gfc_omp_privatize_by_reference.
      	* trans-openmp.c (gfc_omp_privatize_by_reference): New function.
      
      	* trans-stmt.h (gfc_trans_omp_directive): Add comment.
      
      	* openmp.c (gfc_match_omp_variable_list): Add ALLOW_COMMON argument.
      	Disallow COMMON matching if it is set.
      	(gfc_match_omp_clauses, gfc_match_omp_flush): Adjust all callers.
      	(resolve_omp_clauses): Show locus in error messages.  Check that
      	variable types in reduction clauses are appropriate for reduction
      	operators.
      
      	* resolve.c (resolve_symbol): Don't error if a threadprivate module
      	variable isn't SAVEd.
      
      	* trans-openmp.c (gfc_trans_omp_do): Put count into BLOCK, not BODY.
      	Fix typo in condition.  Fix DOVAR initialization.
      
      	* openmp.c (gfc_match_omp_clauses): Match min/iand/ior/ieor
      	rather than .min. etc.
      
      	* trans-openmpc.c (omp_not_yet): Remove.
      	(gfc_trans_omp_parallel_do): Keep listprivate clause on parallel.
      	Force creation of BIND_EXPR around the workshare construct.
      	(gfc_trans_omp_parallel_sections): Likewise.
      	(gfc_trans_omp_parallel_workshare): Likewise.
      
      	* types.def (BT_I16, BT_FN_I16_VPTR_I16,
      	BT_FN_BOOL_VPTR_I16_I16, BT_FN_I16_VPTR_I16_I16): Add.
      
      	* trans-openmp.c (gfc_trans_omp_clauses): Create OMP_CLAUSE_DEFAULT.
      	(gfc_trans_omp_code): New function.
      	(gfc_trans_omp_do): Use it, remove omp_not_yet uses.
      	(gfc_trans_omp_parallel, gfc_trans_omp_single): Likewise.
      	(gfc_trans_omp_sections): Likewise.  Only treat empty last section
      	specially if lastprivate clause is present.
      	* f95-lang.c (gfc_init_builtin_functions): Create BUILT_IN_TRAP
      	builtin.
      
      	* trans-openmp.c (gfc_trans_omp_variable_list): Update for
      	OMP_CLAUSE_DECL name change.
      	(gfc_trans_omp_do): Likewise.
      
      	* trans-openmp.c (gfc_trans_omp_clauses): Create OMP_CLAUSE_REDUCTION
      	clauses.
      	(gfc_trans_omp_atomic): Build OMP_ATOMIC instead of expanding
      	sync builtins directly.
      	(gfc_trans_omp_single): Build OMP_SINGLE statement.
      
      	* trans-openmp.c (gfc_trans_add_clause): New.
      	(gfc_trans_omp_variable_list): Take a tree code and build the clause
      	node here.  Link it to the head of a list.
      	(gfc_trans_omp_clauses): Update to match.
      	(gfc_trans_omp_do): Use gfc_trans_add_clause.
      
      	* trans-openmp.c (gfc_trans_omp_clauses): Change second argument to
      	gfc_omp_clauses *.  Use gfc_evaluate_now instead of creating
      	temporaries by hand.
      	(gfc_trans_omp_atomic, gfc_trans_omp_critical): Use buildN_v macros.
      	(gfc_trans_omp_do): New function.
      	(gfc_trans_omp_master): Dont' check for gfc_trans_code returning NULL.
      	(gfc_trans_omp_parallel): Adjust gfc_trans_omp_clauses caller.
      	Use buildN_v macros.
      	(gfc_trans_omp_parallel_do, gfc_trans_omp_parallel_sections,
      	gfc_trans_omp_parallel_workshare, gfc_trans_omp_sections,
      	gfc_trans_omp_single, gfc_trans_omp_workshare): New functions.
      	(gfc_trans_omp_directive): Use them.
      	* parse.c (parse_omp_do): Allow new_st.op == EXEC_NOP.
      	* openmp.c (resolve_omp_clauses): Check for list items present
      	in multiple clauses.
      	(resolve_omp_do): Check that iteration variable is not THREADPRIVATE
      	and is not present in any clause variable lists other than PRIVATE
      	or LASTPRIVATE.
      
      	* gfortran.h (symbol_attribute): Add threadprivate bit.
      	(gfc_common_head): Add threadprivate member, change use_assoc
      	and saved into char to save space.
      	(gfc_add_threadprivate): New prototype.
      	* symbol.c (check_conflict): Handle threadprivate.
      	(gfc_add_threadprivate): New function.
      	(gfc_copy_attr): Copy threadprivate.
      	* trans-openmp.c (gfc_trans_omp_clauses): Avoid creating a temporary
      	if IF or NUM_THREADS is constant.  Create OMP_CLAUSE_SCHEDULE and
      	OMP_CLAUSE_ORDERED.
      	* resolve.c (resolve_symbol): Complain if a THREADPRIVATE symbol
      	outside a module and not in COMMON has is not SAVEd.
      	(resolve_equivalence): Ensure THREADPRIVATE objects don't get
      	EQUIVALENCEd.
      	* trans-common.c: Include target.h and rtl.h.
      	(build_common_decl): Set DECL_TLS_MODEL if THREADPRIVATE.
      	* trans-decl.c: Include rtl.h.
      	(gfc_finish_var_decl): Set DECL_TLS_MODEL if THREADPRIVATE.
      	* dump-parse-tree.c (gfc_show_attr): Handle THREADPRIVATE.
      	* Make-lang.in (fortran/trans-decl.o): Depend on $(RTL_H).
      	(fortran/trans-common.o): Depend on $(RTL_H) and $(TARGET_H).
      	* openmp.c (gfc_match_omp_variable_list): Ensure COMMON block
      	is from current namespace.
      	(gfc_match_omp_threadprivate): Rewrite.
      	(resolve_omp_clauses): Check some clause restrictions.
      	* module.c (ab_attribute): Add AB_THREADPRIVATE.
      	(attr_bits): Add THREADPRIVATE.
      	(mio_symbol_attribute, mio_symbol_attribute): Handle threadprivate.
      	(load_commons, write_common, write_blank_common): Adjust for type
      	change of saved, store/load threadprivate bit from the integer
      	as well.
      
      	* types.def (BT_FN_UINT_UINT): New.
      	(BT_FN_VOID_UINT_UINT): Remove.
      
      	* trans-openmp.c (gfc_trans_omp_clauses, gfc_trans_omp_barrier,
      	gfc_trans_omp_critical, gfc_trans_omp_flush, gfc_trans_omp_master,
      	gfc_trans_omp_ordered, gfc_trans_omp_parallel): New functions.
      	(gfc_trans_omp_directive): Use them.
      
      	* openmp.c (expr_references_sym): Add SE argument, don't look
      	into SE tree.
      	(is_conversion): New function.
      	(resolve_omp_atomic): Adjust expr_references_sym callers.  Handle
      	promoted expressions.
      	* trans-openmp.c (gfc_trans_omp_atomic): New function.
      	(gfc_trans_omp_directive): Call it.
      
      	* f95-lang.c (builtin_type_for_size): New function.
      	(gfc_init_builtin_functions): Initialize synchronization and
      	OpenMP builtins.
      	* types.def: New file.
      	* Make-lang.in (f95-lang.o): Depend on $(BUILTINS_DEF) and
      	fortran/types.def.
      
      	* trans-openmp.c: Rename GOMP_* tree codes into OMP_*.
      
      	* dump-parse-tree.c (show_symtree): Don't crash if ns->proc_name
      	is NULL.
      
      	* dump-parse-tree.c (gfc_show_namelist, gfc_show_omp_node): New
      	functions.
      	(gfc_show_code_node): Call gfc_show_omp_node for EXEC_OMP_* nodes.
      
      	* parse.c (parse_omp_do): Call pop_state before next_statement.
      	* openmp.c (expr_references_sym, resolve_omp_atomic, resolve_omp_do):
      	New functions.
      	(gfc_resolve_omp_directive): Call them.
      	* match.c (match_exit_cycle): Issue error if EXIT or CYCLE statement
      	leaves an OpenMP structured block or if EXIT terminates !$omp do
      	loop.
      
      	* Make-lang.in (F95_PARSER_OBJS): Add fortran/openmp.o.
      	(F95_OBJS): Add fortran/trans-openmp.o.
      	(fortran/trans-openmp.o): Depend on $(GFORTRAN_TRANS_DEPS).
      	* lang.opt: Add -fopenmp option.
      	* options.c (gfc_init_options): Initialize it.
      	(gfc_handle_option): Handle it.
      	* gfortran.h (ST_OMP_ATOMIC, ST_OMP_BARRIER, ST_OMP_CRITICAL,
      	ST_OMP_END_CRITICAL, ST_OMP_END_DO, ST_OMP_END_MASTER,
      	ST_OMP_END_ORDERED, ST_OMP_END_PARALLEL, ST_OMP_END_PARALLEL_DO,
      	ST_OMP_END_PARALLEL_SECTIONS, ST_OMP_END_PARALLEL_WORKSHARE,
      	ST_OMP_END_SECTIONS, ST_OMP_END_SINGLE, ST_OMP_END_WORKSHARE,
      	ST_OMP_DO, ST_OMP_FLUSH, ST_OMP_MASTER, ST_OMP_ORDERED,
      	ST_OMP_PARALLEL, ST_OMP_PARALLEL_DO, ST_OMP_PARALLEL_SECTIONS,
      	ST_OMP_PARALLEL_WORKSHARE, ST_OMP_SECTIONS, ST_OMP_SECTION,
      	ST_OMP_SINGLE, ST_OMP_THREADPRIVATE, ST_OMP_WORKSHARE): New
      	statement codes.
      	(OMP_LIST_PRIVATE, OMP_LIST_FIRSTPRIVATE, OMP_LIST_LASTPRIVATE,
      	OMP_LIST_COPYPRIVATE, OMP_LIST_SHARED, OMP_LIST_COPYIN,
      	OMP_LIST_PLUS, OMP_LIST_REDUCTION_FIRST, OMP_LIST_MULT,
      	OMP_LIST_SUB, OMP_LIST_AND, OMP_LIST_OR, OMP_LIST_EQV,
      	OMP_LIST_NEQV, OMP_LIST_MAX, OMP_LIST_MIN, OMP_LIST_IAND,
      	OMP_LIST_IOR, OMP_LIST_IEOR, OMP_LIST_REDUCTION_LAST, OMP_LIST_NUM):
      	New OpenMP variable list types.
      	(gfc_omp_clauses): New typedef.
      	(gfc_get_omp_clauses): Define.
      	(EXEC_OMP_CRITICAL, EXEC_OMP_DO, EXEC_OMP_FLUSH, EXEC_OMP_MASTER,
      	EXEC_OMP_ORDERED, EXEC_OMP_PARALLEL, EXEC_OMP_PARALLEL_DO,
      	EXEC_OMP_PARALLEL_SECTIONS, EXEC_OMP_PARALLEL_WORKSHARE,
      	EXEC_OMP_SECTIONS, EXEC_OMP_SINGLE, EXEC_OMP_WORKSHARE,
      	EXEC_OMP_ATOMIC, EXEC_OMP_BARRIER, EXEC_OMP_END_NOWAIT,
      	EXEC_OMP_END_SINGLE): New OpenMP gfc_exec_op codes.
      	(struct gfc_code): Add omp_clauses, omp_name, omp_namelist
      	and omp_bool fields to ext union.
      	(flag_openmp): Declare.
      	(gfc_free_omp_clauses, gfc_resolve_omp_directive): New prototypes.
      	* scanner.c (openmp_flag, openmp_locus): New variables.
      	(skip_free_comments, skip_fixed_comments, gfc_next_char_literal):
      	Handle OpenMP directive lines and conditional compilation magic
      	comments.
      	* parse.h (COMP_OMP_STRUCTURED_BLOCK): New compile state.
      	* parse.c (decode_omp_directive, parse_omp_do, parse_omp_atomic,
      	parse_omp_structured_block): New functions.
      	(next_free, next_fixed): Parse OpenMP directives.
      	(case_executable, case_exec_markers, case_decl): Add ST_OMP_*
      	codes.
      	(gfc_ascii_statement): Handle ST_OMP_* codes.
      	(parse_executable): Rearrange the loop slightly, so that
      	parse_omp_do can return next_statement.
      	* match.h (gfc_match_omp_eos, gfc_match_omp_atomic,
      	gfc_match_omp_barrier, gfc_match_omp_critical, gfc_match_omp_do,
      	gfc_match_omp_flush, gfc_match_omp_master, gfc_match_omp_ordered,
      	gfc_match_omp_parallel, gfc_match_omp_parallel_do,
      	gfc_match_omp_parallel_sections, gfc_match_omp_parallel_workshare,
      	gfc_match_omp_sections, gfc_match_omp_single,
      	gfc_match_omp_threadprivate, gfc_match_omp_workshare,
      	gfc_match_omp_end_nowait, gfc_match_omp_end_single): New prototypes.
      	* resolve.c (resolve_blocks): Ignore EXEC_OMP_* block directives.
      	(resolve_code): Call gfc_resolve_omp_directive on EXEC_OMP_*
      	directives.
      	* trans.c (gfc_trans_code): Call gfc_trans_omp_directive for
      	EXEC_OMP_* directives.
      	* st.c (gfc_free_statement): Handle EXEC_OMP_* statement freeing.
      	* trans-stmt.h (gfc_trans_omp_directive): New prototype.
      	* openmp.c: New file.
      	* trans-openmp.c: New file.
      
      gcc/testsuite/
      2006-02-14  Jakub Jelinek  <jakub@redhat.com>
      	    Diego Novillo  <dnovillo@redhat.com>
      	    Uros Bizjak  <uros@kss-loka.si>
      
      	* gfortran.dg/gomp: New directory.
      
      libgomp/
      2006-02-14  Jakub Jelinek  <jakub@redhat.com>
      
      	* testsuite/libgomp.fortran/vla7.f90: Add -w to options.
      	Remove tests for returning assumed character length arrays.
      
      Co-Authored-By: Diego Novillo <dnovillo@redhat.com>
      Co-Authored-By: Richard Henderson <rth@redhat.com>
      Co-Authored-By: Uros Bizjak <uros@kss-loka.si>
      
      From-SVN: r110984
      Jakub Jelinek committed