2007-12-31 Paul Thomas
|
2007-12-31 Paul Thomas
|
|
|
PR fortran/34558
|
PR fortran/34558
|
* interface.c (gfc_compare_types): Prevent linked lists from
|
* interface.c (gfc_compare_types): Prevent linked lists from
|
putting this function into an endless recursive loop.
|
putting this function into an endless recursive loop.
|
|
|
2007-12-26 Daniel Franke
|
2007-12-26 Daniel Franke
|
|
|
PR fortran/34532
|
PR fortran/34532
|
* gfortran.texi: Fixed section about implicit conversion of
|
* gfortran.texi: Fixed section about implicit conversion of
|
logical and integer variables.
|
logical and integer variables.
|
|
|
2007-12-25 Tobias Burnus
|
2007-12-25 Tobias Burnus
|
|
|
PR fortran/34514
|
PR fortran/34514
|
* decl.c (attr_decl1): Reject specifying the DIMENSION for
|
* decl.c (attr_decl1): Reject specifying the DIMENSION for
|
already initialized variable.
|
already initialized variable.
|
(do_parm): Reject PARAMETER for already initialized variable.
|
(do_parm): Reject PARAMETER for already initialized variable.
|
|
|
2007-12-25 Daniel Franke
|
2007-12-25 Daniel Franke
|
|
|
PR fortran/34533
|
PR fortran/34533
|
* intrinsic.h (gfc_check_etime): Renamed to ...
|
* intrinsic.h (gfc_check_etime): Renamed to ...
|
(gfc_check_dtime_etime): ... this.
|
(gfc_check_dtime_etime): ... this.
|
(gfc_check_etime_sub): Renamed to ...
|
(gfc_check_etime_sub): Renamed to ...
|
(gfc_check_dtime_etime_sub): ... this.
|
(gfc_check_dtime_etime_sub): ... this.
|
(gfc_resolve_dtime_sub): New prototype.
|
(gfc_resolve_dtime_sub): New prototype.
|
* check.c (gfc_check_etime): Renamed to ...
|
* check.c (gfc_check_etime): Renamed to ...
|
(gfc_check_dtime_etime): ... this.
|
(gfc_check_dtime_etime): ... this.
|
(gfc_check_etime_sub): Renamed to ...
|
(gfc_check_etime_sub): Renamed to ...
|
(gfc_check_dtime_etime_sub): ... this.
|
(gfc_check_dtime_etime_sub): ... this.
|
* iresolve.c (gfc_resolve_dtime_sub): New implementation.
|
* iresolve.c (gfc_resolve_dtime_sub): New implementation.
|
* intrinsic.c (add_functions): Removed alias from ETIME to DTIME,
|
* intrinsic.c (add_functions): Removed alias from ETIME to DTIME,
|
added stand-alone intrinsic DTIME.
|
added stand-alone intrinsic DTIME.
|
(add_subroutines): Adjusted check and resolve function names for
|
(add_subroutines): Adjusted check and resolve function names for
|
DTIME and ETIME.
|
DTIME and ETIME.
|
* trans-intrinsic.c (gfc_conv_intrinsic_function): Added DTIME
|
* trans-intrinsic.c (gfc_conv_intrinsic_function): Added DTIME
|
to known functions in switch.
|
to known functions in switch.
|
* intrinsic.texi (DTIME): Added paragraph about thread-safety,
|
* intrinsic.texi (DTIME): Added paragraph about thread-safety,
|
fixed return value section.
|
fixed return value section.
|
(CPU_TIME): Clarified intent and added implementation notes.
|
(CPU_TIME): Clarified intent and added implementation notes.
|
|
|
2007-12-23 Tobias Burnus
|
2007-12-23 Tobias Burnus
|
|
|
PR fortran/34421
|
PR fortran/34421
|
* resolve.c (resolve_entries): Add standard error for functions
|
* resolve.c (resolve_entries): Add standard error for functions
|
returning characters with different length.
|
returning characters with different length.
|
|
|
2007-12-23 Daniel Franke
|
2007-12-23 Daniel Franke
|
|
|
PR fortran/34536
|
PR fortran/34536
|
* matchexp.c (match_ext_mult_operand): Print warning for unary
|
* matchexp.c (match_ext_mult_operand): Print warning for unary
|
operators following arithmetic ones by default.
|
operators following arithmetic ones by default.
|
(match_ext_add_operand): Likewise.
|
(match_ext_add_operand): Likewise.
|
|
|
2007-12-22 Daniel Franke
|
2007-12-22 Daniel Franke
|
|
|
PR fortran/34559
|
PR fortran/34559
|
* simplify.c (gfc_simplify_repeat): Added safeguard for empty
|
* simplify.c (gfc_simplify_repeat): Added safeguard for empty
|
string literals.
|
string literals.
|
|
|
2007-12-22 Thomas Koenig
|
2007-12-22 Thomas Koenig
|
|
|
PR fortran/34549
|
PR fortran/34549
|
* check.c (gfc_check_cshift): Add check that shift is
|
* check.c (gfc_check_cshift): Add check that shift is
|
type INTEGER.
|
type INTEGER.
|
|
|
2007-12-21 Jerry DeLisle
|
2007-12-21 Jerry DeLisle
|
|
|
PR fortran/34540
|
PR fortran/34540
|
* iresolve.c (gfc_resolve_cshift): Take optional dim path
|
* iresolve.c (gfc_resolve_cshift): Take optional dim path
|
only if the argument is an optional itself.
|
only if the argument is an optional itself.
|
* iresolve.c (gfc_resolve_eoshift): Same.
|
* iresolve.c (gfc_resolve_eoshift): Same.
|
|
|
2007-12-21 Paul Thomas
|
2007-12-21 Paul Thomas
|
|
|
PR fortran/34438
|
PR fortran/34438
|
* trans-decl.c (gfc_finish_var_decl): Do not mark derived types
|
* trans-decl.c (gfc_finish_var_decl): Do not mark derived types
|
with default initializers as TREE_STATIC unless they are in the
|
with default initializers as TREE_STATIC unless they are in the
|
main program scope.
|
main program scope.
|
(gfc_get_symbol_decl): Pass derived types with a default
|
(gfc_get_symbol_decl): Pass derived types with a default
|
initializer to gfc_defer_symbol_init.
|
initializer to gfc_defer_symbol_init.
|
(init_default_dt): Apply default initializer to a derived type.
|
(init_default_dt): Apply default initializer to a derived type.
|
(init_intent_out_dt): Call init_default_dt.
|
(init_intent_out_dt): Call init_default_dt.
|
(gfc_trans_deferred_vars): Ditto.
|
(gfc_trans_deferred_vars): Ditto.
|
|
|
* module.c (read_module): Check sym->module is there before
|
* module.c (read_module): Check sym->module is there before
|
using it in a string comparison.
|
using it in a string comparison.
|
|
|
2007-12-20 Tobias Burnus
|
2007-12-20 Tobias Burnus
|
|
|
PR fortran/34482
|
PR fortran/34482
|
* gfortran.texi (BOZ): Document behavior for complex
|
* gfortran.texi (BOZ): Document behavior for complex
|
numbers.
|
numbers.
|
* target-memory.h (gfc_convert_boz): Update prototype.
|
* target-memory.h (gfc_convert_boz): Update prototype.
|
* target-memory.c (gfc_convert_boz): Add error check
|
* target-memory.c (gfc_convert_boz): Add error check
|
and convert BOZ to smallest possible bit size.
|
and convert BOZ to smallest possible bit size.
|
* resolve.c (resolve_ordinary_assign): Check return value.
|
* resolve.c (resolve_ordinary_assign): Check return value.
|
* expr.c (gfc_check_assign): Ditto.
|
* expr.c (gfc_check_assign): Ditto.
|
* simplify.c (simplify_cmplx, gfc_simplify_dble,
|
* simplify.c (simplify_cmplx, gfc_simplify_dble,
|
gfc_simplify_float, gfc_simplify_real): Ditto.
|
gfc_simplify_float, gfc_simplify_real): Ditto.
|
|
|
2007-12-19 Jerry DeLisle
|
2007-12-19 Jerry DeLisle
|
|
|
PR fortran/34325
|
PR fortran/34325
|
* match.h: New function declaration.
|
* match.h: New function declaration.
|
* match.c (gfc_match_parens): New function to look for mismatched
|
* match.c (gfc_match_parens): New function to look for mismatched
|
parenthesis. (gfc_match_if): Use new function to catch missing '('.
|
parenthesis. (gfc_match_if): Use new function to catch missing '('.
|
|
|
2007-12-19 Daniel Franke
|
2007-12-19 Daniel Franke
|
|
|
PR fortran/34495
|
PR fortran/34495
|
* expr.c (check_init_expr): Check whether variables with flavor
|
* expr.c (check_init_expr): Check whether variables with flavor
|
FL_PARAMETER do have a value assigned. Added error messages where
|
FL_PARAMETER do have a value assigned. Added error messages where
|
appropriate.
|
appropriate.
|
* simplify.c (gfc_simplify_transfer): Added check if the MOLD
|
* simplify.c (gfc_simplify_transfer): Added check if the MOLD
|
argument is a constant if working with initialization
|
argument is a constant if working with initialization
|
expressions.
|
expressions.
|
|
|
2007-12-17 Tobias Burnus
|
2007-12-17 Tobias Burnus
|
|
|
* intrinsic.c (add_functions): Undo change; mark float and
|
* intrinsic.c (add_functions): Undo change; mark float and
|
sngl as STD_F77.
|
sngl as STD_F77.
|
* intrinsic.texi (FLOAT, SNGL): Change standard to F77 and later.
|
* intrinsic.texi (FLOAT, SNGL): Change standard to F77 and later.
|
* gfortran.texi (BOZ): Make note about FLOAT etc. clearer.
|
* gfortran.texi (BOZ): Make note about FLOAT etc. clearer.
|
|
|
2007-12-16 Tobias Burnus
|
2007-12-16 Tobias Burnus
|
|
|
PR fortran/34495
|
PR fortran/34495
|
* intrinsic.c (add_functions): Mark float and sngl as STD_GNU.
|
* intrinsic.c (add_functions): Mark float and sngl as STD_GNU.
|
(gfc_intrinsic_func_interface): Reject REAL, DBLE and CMPLX
|
(gfc_intrinsic_func_interface): Reject REAL, DBLE and CMPLX
|
in initialization expressions for -std=f95.
|
in initialization expressions for -std=f95.
|
|
|
2007-12-16 Thomas Koenig
|
2007-12-16 Thomas Koenig
|
|
|
PR fortran/34305
|
PR fortran/34305
|
* resolve.c (compare_bound): If either of the types of
|
* resolve.c (compare_bound): If either of the types of
|
the arguments isn't INTEGER, return CMP_UNKNOWN.
|
the arguments isn't INTEGER, return CMP_UNKNOWN.
|
|
|
2007-12-16 Tobias Burnus
|
2007-12-16 Tobias Burnus
|
|
|
PR fortran/34246
|
PR fortran/34246
|
* trans-types.c (gfc_init_types): Change build_type_variant
|
* trans-types.c (gfc_init_types): Change build_type_variant
|
to build_qualified_type.
|
to build_qualified_type.
|
(gfc_sym_type): Return gfc_character1_type_node for
|
(gfc_sym_type): Return gfc_character1_type_node for
|
character-returning bind(C) functions.
|
character-returning bind(C) functions.
|
* trans-expr.c (gfc_conv_function_call): Do not set
|
* trans-expr.c (gfc_conv_function_call): Do not set
|
se->string_length for character-returning bind(c) functions.
|
se->string_length for character-returning bind(c) functions.
|
(gfc_trans_string_copy,gfc_trans_scalar_assign):
|
(gfc_trans_string_copy,gfc_trans_scalar_assign):
|
Support also single characters.
|
Support also single characters.
|
|
|
2007-12-16 Bernhard Fischer
|
2007-12-16 Bernhard Fischer
|
|
|
* errors.c (gfc_notify_std): As originally stated but improperly
|
* errors.c (gfc_notify_std): As originally stated but improperly
|
changed, disregard warnings_are_errors for deciding which buffer
|
changed, disregard warnings_are_errors for deciding which buffer
|
to use for warnings.
|
to use for warnings.
|
|
|
2007-12-16 Paul Thomas
|
2007-12-16 Paul Thomas
|
|
|
PR fortran/31213
|
PR fortran/31213
|
PR fortran/33888
|
PR fortran/33888
|
PR fortran/33998
|
PR fortran/33998
|
* trans-array.c (gfc_trans_array_constructor_value): If the
|
* trans-array.c (gfc_trans_array_constructor_value): If the
|
iterator variable does not have a backend_decl, use a local
|
iterator variable does not have a backend_decl, use a local
|
temporary.
|
temporary.
|
(get_elemental_fcn_charlen): New function to map the character
|
(get_elemental_fcn_charlen): New function to map the character
|
length of an elemental function onto its actual arglist.
|
length of an elemental function onto its actual arglist.
|
(gfc_conv_expr_descriptor): Call the above so that the size of
|
(gfc_conv_expr_descriptor): Call the above so that the size of
|
the temporary can be evaluated.
|
the temporary can be evaluated.
|
* trans-expr.c : Include arith.h and change prototype of
|
* trans-expr.c : Include arith.h and change prototype of
|
gfc_apply_interface_mapping_to_expr to return void. Change all
|
gfc_apply_interface_mapping_to_expr to return void. Change all
|
references to gfc_apply_interface_mapping_to_expr accordingly.
|
references to gfc_apply_interface_mapping_to_expr accordingly.
|
(gfc_free_interface_mapping): Free the 'expr' field.
|
(gfc_free_interface_mapping): Free the 'expr' field.
|
(gfc_add_interface_mapping): Add an argument for the actual
|
(gfc_add_interface_mapping): Add an argument for the actual
|
argument expression. This is copied to the 'expr' field of the
|
argument expression. This is copied to the 'expr' field of the
|
mapping. Only stabilize the backend_decl if the se is present.
|
mapping. Only stabilize the backend_decl if the se is present.
|
Copy the character length expression and only add it's backend
|
Copy the character length expression and only add it's backend
|
declaration if se is present. Return without working on the
|
declaration if se is present. Return without working on the
|
backend declaration for the new symbol if se is not present.
|
backend declaration for the new symbol if se is not present.
|
(gfc_map_intrinsic_function) : To simplify intrinsics 'len',
|
(gfc_map_intrinsic_function) : To simplify intrinsics 'len',
|
'size', 'ubound' and 'lbound' and then to map the result.
|
'size', 'ubound' and 'lbound' and then to map the result.
|
(gfc_map_fcn_formal_to_actual): Performs the formal to actual
|
(gfc_map_fcn_formal_to_actual): Performs the formal to actual
|
mapping for the case of a function found in a specification
|
mapping for the case of a function found in a specification
|
expression in the interface being mapped.
|
expression in the interface being mapped.
|
(gfc_apply_interface_mapping_to_ref): Remove seen_result and
|
(gfc_apply_interface_mapping_to_ref): Remove seen_result and
|
all its references. Remove the inline simplification of LEN
|
all its references. Remove the inline simplification of LEN
|
and call gfc_map_intrinsic_function instead. Change the
|
and call gfc_map_intrinsic_function instead. Change the
|
order of mapping of the actual arguments and simplifying
|
order of mapping of the actual arguments and simplifying
|
intrinsic functions. Finally, if a function maps to an
|
intrinsic functions. Finally, if a function maps to an
|
actual argument, call gfc_map_fcn_formal_to_actual.
|
actual argument, call gfc_map_fcn_formal_to_actual.
|
(gfc_conv_function_call): Add 'e' to the call to
|
(gfc_conv_function_call): Add 'e' to the call to
|
gfc_add_interface_mapping.
|
gfc_add_interface_mapping.
|
* dump-parse-tree.c (gfc_show_symbol_n): New function for
|
* dump-parse-tree.c (gfc_show_symbol_n): New function for
|
diagnostic purposes.
|
diagnostic purposes.
|
* gfortran.h : Add prototype for gfc_show_symbol_n.
|
* gfortran.h : Add prototype for gfc_show_symbol_n.
|
* trans.h : Add 'expr' field to gfc_add_interface_mapping.
|
* trans.h : Add 'expr' field to gfc_add_interface_mapping.
|
Add 'expr' to prototype for gfc_show_symbol_n.
|
Add 'expr' to prototype for gfc_show_symbol_n.
|
* resolve.c (resolve_generic_f0): Set specific function as
|
* resolve.c (resolve_generic_f0): Set specific function as
|
referenced.
|
referenced.
|
|
|
2007-12-14 Tobias Burnus
|
2007-12-14 Tobias Burnus
|
|
|
PR fortran/34438
|
PR fortran/34438
|
* resolve.c (resolve_symbol): Do not emit public-variable-
|
* resolve.c (resolve_symbol): Do not emit public-variable-
|
of-private-derived-type error for non-module variables.
|
of-private-derived-type error for non-module variables.
|
|
|
2007-12-14 Tobias Burnus
|
2007-12-14 Tobias Burnus
|
|
|
PR fortran/34398
|
PR fortran/34398
|
* expr.c (gfc_check_assign): Add range checks for assignments of BOZs.
|
* expr.c (gfc_check_assign): Add range checks for assignments of BOZs.
|
* resolve.c (resolve_ordinary_assign): Ditto.
|
* resolve.c (resolve_ordinary_assign): Ditto.
|
* arith.c (gfc_range_check): Fix return value for complex numbers.
|
* arith.c (gfc_range_check): Fix return value for complex numbers.
|
|
|
2007-12-14 Daniel Franke
|
2007-12-14 Daniel Franke
|
|
|
PR fortran/34324
|
PR fortran/34324
|
* module.c (parse_atom): Fixed parsing of modules files whose
|
* module.c (parse_atom): Fixed parsing of modules files whose
|
lines are terminated by CRLF.
|
lines are terminated by CRLF.
|
|
|
2007-12-13 Anton Korobeynikov
|
2007-12-13 Anton Korobeynikov
|
|
|
* trans-decl.c (gfc_build_builtin_function_decls): Correct decl
|
* trans-decl.c (gfc_build_builtin_function_decls): Correct decl
|
construction for select_string() and internal_unpack()
|
construction for select_string() and internal_unpack()
|
|
|
2007-12-13 Duncan Sands
|
2007-12-13 Duncan Sands
|
Anton Korobeynikov
|
Anton Korobeynikov
|
|
|
* trans-expr.c (gfc_conv_structure): Make sure record constructors
|
* trans-expr.c (gfc_conv_structure): Make sure record constructors
|
for static variables are marked constant.
|
for static variables are marked constant.
|
|
|
2007-12-12 Tobias Burnus
|
2007-12-12 Tobias Burnus
|
|
|
PR fortran/34254
|
PR fortran/34254
|
* decl.c (match_char_kind): Support use-associated/imported
|
* decl.c (match_char_kind): Support use-associated/imported
|
kind parameters.
|
kind parameters.
|
(gfc_match_kind_spec): Support als BT_CHARACTER, when
|
(gfc_match_kind_spec): Support als BT_CHARACTER, when
|
re-scanning kind spec.
|
re-scanning kind spec.
|
|
|
2007-12-11 Aldy Hernandez
|
2007-12-11 Aldy Hernandez
|
|
|
* decl.c (add_global_entry): Make type unsigned.
|
* decl.c (add_global_entry): Make type unsigned.
|
|
|
2007-12-11 Bernhard Fischer
|
2007-12-11 Bernhard Fischer
|
|
|
* decl.c (match_prefix): Make seen_type a boolean.
|
* decl.c (match_prefix): Make seen_type a boolean.
|
(add_global_entry): Cache type distinction.
|
(add_global_entry): Cache type distinction.
|
* trans-decl.c: Whitespace cleanup.
|
* trans-decl.c: Whitespace cleanup.
|
|
|
2007-12-10 Tobias Burnus
|
2007-12-10 Tobias Burnus
|
|
|
PR fortran/34425
|
PR fortran/34425
|
* interface.c (get_expr_storage_size): Use signed integer when
|
* interface.c (get_expr_storage_size): Use signed integer when
|
obtaining the bounds.
|
obtaining the bounds.
|
|
|
2007-12-09 Jakub Jelinek
|
2007-12-09 Jakub Jelinek
|
|
|
PR fortran/22244
|
PR fortran/22244
|
* trans.h (struct array_descr_info): Forward declaration.
|
* trans.h (struct array_descr_info): Forward declaration.
|
(gfc_get_array_descr_info): New prototype.
|
(gfc_get_array_descr_info): New prototype.
|
(enum gfc_array_kind): New type.
|
(enum gfc_array_kind): New type.
|
(struct lang_type): Add akind field.
|
(struct lang_type): Add akind field.
|
(GFC_TYPE_ARRAY_AKIND): Define.
|
(GFC_TYPE_ARRAY_AKIND): Define.
|
* trans-types.c: Include dwarf2out.h.
|
* trans-types.c: Include dwarf2out.h.
|
(gfc_build_array_type): Add akind argument. Adjust
|
(gfc_build_array_type): Add akind argument. Adjust
|
gfc_get_array_type_bounds call.
|
gfc_get_array_type_bounds call.
|
(gfc_get_nodesc_array_type): Include proper debug info even for
|
(gfc_get_nodesc_array_type): Include proper debug info even for
|
assumed-size arrays.
|
assumed-size arrays.
|
(gfc_get_array_type_bounds): Add akind argument, set
|
(gfc_get_array_type_bounds): Add akind argument, set
|
GFC_TYPE_ARRAY_AKIND to it.
|
GFC_TYPE_ARRAY_AKIND to it.
|
(gfc_sym_type, gfc_get_derived_type): Adjust gfc_build_array_type
|
(gfc_sym_type, gfc_get_derived_type): Adjust gfc_build_array_type
|
callers.
|
callers.
|
(gfc_get_array_descr_info): New function.
|
(gfc_get_array_descr_info): New function.
|
* trans-array.c (gfc_trans_create_temp_array,
|
* trans-array.c (gfc_trans_create_temp_array,
|
gfc_conv_expr_descriptor): Adjust gfc_get_array_type_bounds
|
gfc_conv_expr_descriptor): Adjust gfc_get_array_type_bounds
|
callers.
|
callers.
|
* trans-stmt.c (gfc_trans_pointer_assign_need_temp): Likewise.
|
* trans-stmt.c (gfc_trans_pointer_assign_need_temp): Likewise.
|
* trans-types.h (gfc_get_array_type_bounds): Adjust prototype.
|
* trans-types.h (gfc_get_array_type_bounds): Adjust prototype.
|
* Make-lang.in (fortran/trans-types.o): Depend on dwarf2out.h.
|
* Make-lang.in (fortran/trans-types.o): Depend on dwarf2out.h.
|
* f95-lang.c (LANG_HOOKS_GET_ARRAY_DESCR_INFO): Define.
|
* f95-lang.c (LANG_HOOKS_GET_ARRAY_DESCR_INFO): Define.
|
|
|
2007-12-09 Paul Thomas
|
2007-12-09 Paul Thomas
|
|
|
PR fortran/32129
|
PR fortran/32129
|
* dump-parse-tree.c (gfc_show_expr_n): New function for
|
* dump-parse-tree.c (gfc_show_expr_n): New function for
|
debugging.
|
debugging.
|
* gfortran.h : Add prototype for gfc_show_expr_n.
|
* gfortran.h : Add prototype for gfc_show_expr_n.
|
* expr.c (simplify_constructor): Copy the constructor
|
* expr.c (simplify_constructor): Copy the constructor
|
expression and try to simplify that. If success, replace the
|
expression and try to simplify that. If success, replace the
|
original. Otherwise discard the copy, keep going through
|
original. Otherwise discard the copy, keep going through
|
the structure and return success.
|
the structure and return success.
|
|
|
PR fortran/31487
|
PR fortran/31487
|
* decl.c (build_struct): Pad out default initializers with
|
* decl.c (build_struct): Pad out default initializers with
|
spaces to the component character length.
|
spaces to the component character length.
|
|
|
2007-12-08 Tobias Burnus
|
2007-12-08 Tobias Burnus
|
|
|
PR fortran/34342
|
PR fortran/34342
|
PR fortran/34345
|
PR fortran/34345
|
PR fortran/18026
|
PR fortran/18026
|
PR fortran/29471
|
PR fortran/29471
|
* gfortran.texi (BOZ literal constants): Improve documentation
|
* gfortran.texi (BOZ literal constants): Improve documentation
|
and adapt for BOZ changes.
|
and adapt for BOZ changes.
|
* Make-lang.ini (resolve.o): Add target-memory.h dependency.
|
* Make-lang.ini (resolve.o): Add target-memory.h dependency.
|
* gfortran.h (gfc_expr): Add is_boz flag.
|
* gfortran.h (gfc_expr): Add is_boz flag.
|
* expr.c: Include target-memory.h.
|
* expr.c: Include target-memory.h.
|
(gfc_check_assign): Support transferring BOZ for real/cmlx.
|
(gfc_check_assign): Support transferring BOZ for real/cmlx.
|
* resolve.c: Include target-memory.h
|
* resolve.c: Include target-memory.h
|
(resolve_ordinary_assign): Support transferring BOZ for real/cmlx.
|
(resolve_ordinary_assign): Support transferring BOZ for real/cmlx.
|
* target-memory.c (gfc_convert_boz): New function.
|
* target-memory.c (gfc_convert_boz): New function.
|
* target-memory.c (gfc_convert_boz): Add prototype.
|
* target-memory.c (gfc_convert_boz): Add prototype.
|
* primary.c (match_boz_constant): Set is_boz, enable F95 error
|
* primary.c (match_boz_constant): Set is_boz, enable F95 error
|
also without -pedantic, and allow for Fortran 2003 BOZ.
|
also without -pedantic, and allow for Fortran 2003 BOZ.
|
(match_real_constant): Fix comment.
|
(match_real_constant): Fix comment.
|
* simplify.c (simplify_cmplx,gfc_simplify_dble,gfc_simplify_float,
|
* simplify.c (simplify_cmplx,gfc_simplify_dble,gfc_simplify_float,
|
gfc_simplify_real): Support Fortran 2003 BOZ.
|
gfc_simplify_real): Support Fortran 2003 BOZ.
|
|
|
2007-12-08 Jakub Jelinek
|
2007-12-08 Jakub Jelinek
|
|
|
PR fortran/34359
|
PR fortran/34359
|
* gfortran.h (gfc_file): Remove sibling and down fields.
|
* gfortran.h (gfc_file): Remove sibling and down fields.
|
* scanner.c (file_changes, file_changes_cur, file_changes_count,
|
* scanner.c (file_changes, file_changes_cur, file_changes_count,
|
file_changes_allocated): New variables.
|
file_changes_allocated): New variables.
|
(add_file_change, report_file_change): New functions.
|
(add_file_change, report_file_change): New functions.
|
(change_file): Remove.
|
(change_file): Remove.
|
(gfc_start_source_files, gfc_end_source_files): Call
|
(gfc_start_source_files, gfc_end_source_files): Call
|
report_file_change instead of change_file.
|
report_file_change instead of change_file.
|
(gfc_advance_line): Call report_file_change instead of change_file,
|
(gfc_advance_line): Call report_file_change instead of change_file,
|
call it even if lb->file == lb->next->file.
|
call it even if lb->file == lb->next->file.
|
(get_file): Revert last changes.
|
(get_file): Revert last changes.
|
(preprocessor_line): Call add_file_change when entering or leaving
|
(preprocessor_line): Call add_file_change when entering or leaving
|
a file.
|
a file.
|
(load_file): Likewise. Set file_change[...].lb for all newly added
|
(load_file): Likewise. Set file_change[...].lb for all newly added
|
file changes.
|
file changes.
|
|
|
2007-12-06 Tobias Burnus
|
2007-12-06 Tobias Burnus
|
|
|
PR fortran/34333
|
PR fortran/34333
|
* primary.c (match_boz_constant): Add gfc_notify_std diagnostics.
|
* primary.c (match_boz_constant): Add gfc_notify_std diagnostics.
|
|
|
2007-12-06 Paul Thomas
|
2007-12-06 Paul Thomas
|
|
|
PR fortran/34335
|
PR fortran/34335
|
* module.c (find_symbol): Do not return symtrees with unique
|
* module.c (find_symbol): Do not return symtrees with unique
|
names, which shows that they are private.
|
names, which shows that they are private.
|
|
|
2007-12-05 Jakub Jelinek
|
2007-12-05 Jakub Jelinek
|
|
|
PR debug/33739
|
PR debug/33739
|
* gfortran.h (gfc_file): Remove included_by field, add sibling and
|
* gfortran.h (gfc_file): Remove included_by field, add sibling and
|
down.
|
down.
|
(gfc_start_source_files, gfc_end_source_files): New prototypes.
|
(gfc_start_source_files, gfc_end_source_files): New prototypes.
|
* parse.c (gfc_parse_file): Call gfc_start_source_files and
|
* parse.c (gfc_parse_file): Call gfc_start_source_files and
|
gfc_end_source_files instead of calling the debugging hooks directly.
|
gfc_end_source_files instead of calling the debugging hooks directly.
|
* error.c (show_locus): Use up field instead of included_by.
|
* error.c (show_locus): Use up field instead of included_by.
|
* scanner.c (change_file, gfc_start_source_files,
|
* scanner.c (change_file, gfc_start_source_files,
|
gfc_end_source_files): New functions.
|
gfc_end_source_files): New functions.
|
(gfc_advance_line): Call change_file instead of calling debug hooks
|
(gfc_advance_line): Call change_file instead of calling debug hooks
|
directly.
|
directly.
|
(get_file): Set up rather than included_by. Initialize down and
|
(get_file): Set up rather than included_by. Initialize down and
|
sibling.
|
sibling.
|
(preprocessor_line, load_file): Don't set up field here.
|
(preprocessor_line, load_file): Don't set up field here.
|
|
|
2007-12-05 Tobias Burnus
|
2007-12-05 Tobias Burnus
|
|
|
PR fortran/34333
|
PR fortran/34333
|
* arith.h (gfc_compare_expr): Add operator argument, needed
|
* arith.h (gfc_compare_expr): Add operator argument, needed
|
for compare_real.
|
for compare_real.
|
* arith.c (gfc_arith_init_1): Use mpfr_min instead of mpfr_cmp/set
|
* arith.c (gfc_arith_init_1): Use mpfr_min instead of mpfr_cmp/set
|
to account for NaN.
|
to account for NaN.
|
(compare_real): New function, as mpfr_cmp but takes NaN into account.
|
(compare_real): New function, as mpfr_cmp but takes NaN into account.
|
(gfc_compare_expr): Use compare_real.
|
(gfc_compare_expr): Use compare_real.
|
(compare_complex): Take NaN into account.
|
(compare_complex): Take NaN into account.
|
(gfc_arith_eq,gfc_arith_ne,gfc_arith_gt,gfc_arith_ge,gfc_arith_lt,
|
(gfc_arith_eq,gfc_arith_ne,gfc_arith_gt,gfc_arith_ge,gfc_arith_lt,
|
gfc_arith_le): Pass operator to gfc_compare_expr.
|
gfc_arith_le): Pass operator to gfc_compare_expr.
|
* resolve.c (compare_cases,resolve_select): Pass operator
|
* resolve.c (compare_cases,resolve_select): Pass operator
|
to gfc_compare_expr.
|
to gfc_compare_expr.
|
* simplify.c (simplify_min_max): Take NaN into account.
|
* simplify.c (simplify_min_max): Take NaN into account.
|
|
|
2007-12-04 Tobias Burnus
|
2007-12-04 Tobias Burnus
|
|
|
PR fortran/34318
|
PR fortran/34318
|
* module.c (mio_gmp_real): Properly write NaN and Infinity.
|
* module.c (mio_gmp_real): Properly write NaN and Infinity.
|
|
|
2007-12-02 Tobias Burnus
|
2007-12-02 Tobias Burnus
|
|
|
PR fortran/34186
|
PR fortran/34186
|
* symbol.c (generate_isocbinding_symbol): Fix setting string length.
|
* symbol.c (generate_isocbinding_symbol): Fix setting string length.
|
|
|
2007-11-30 Tobias Burnus
|
2007-11-30 Tobias Burnus
|
|
|
PR fortran/34133
|
PR fortran/34133
|
* match.h: Add bool allow_binding_name to gfc_match_bind_c.
|
* match.h: Add bool allow_binding_name to gfc_match_bind_c.
|
* decl.c (match_attr_spec,gfc_match_bind_c_stmt,gfc_match_entry):
|
* decl.c (match_attr_spec,gfc_match_bind_c_stmt,gfc_match_entry):
|
Adjust accordingly.
|
Adjust accordingly.
|
(gfc_match_bind_c): Add allow_binding_name argument, reject
|
(gfc_match_bind_c): Add allow_binding_name argument, reject
|
binding name for dummy arguments.
|
binding name for dummy arguments.
|
(gfc_match_suffix,gfc_match_subroutine): Make use of
|
(gfc_match_suffix,gfc_match_subroutine): Make use of
|
allow_binding_name.
|
allow_binding_name.
|
|
|
2007-11-30 Tobias Burnus
|
2007-11-30 Tobias Burnus
|
|
|
PR fortran/34186
|
PR fortran/34186
|
* symbol.c (generate_isocbinding_symbol): Set string length.
|
* symbol.c (generate_isocbinding_symbol): Set string length.
|
* dump-parse-tree.c (gfc_show_attr): Show BIND(C) attribute.
|
* dump-parse-tree.c (gfc_show_attr): Show BIND(C) attribute.
|
* misc.c (gfc_basic_typename): Handle BT_VOID.
|
* misc.c (gfc_basic_typename): Handle BT_VOID.
|
|
|
2007-11-29 Steven G. Kargl
|
2007-11-29 Steven G. Kargl
|
|
|
PR fortran/34230
|
PR fortran/34230
|
* fortran/arith.c (gfc_check_real_range): Set intermediate values
|
* fortran/arith.c (gfc_check_real_range): Set intermediate values
|
to +-Inf and 0 when -fno-range-check is in effect.
|
to +-Inf and 0 when -fno-range-check is in effect.
|
* fortran/invoke.texi: Improve -fno-range-check description.
|
* fortran/invoke.texi: Improve -fno-range-check description.
|
|
|
PR fortran/34203
|
PR fortran/34203
|
* fortran/invoke.texi: Document the C escaped characters activated
|
* fortran/invoke.texi: Document the C escaped characters activated
|
by -fbackslash.
|
by -fbackslash.
|
|
|
2007-11-29 Tobias Burnus
|
2007-11-29 Tobias Burnus
|
|
|
PR fortran/34248
|
PR fortran/34248
|
* trans-decl.c (generate_dependency_declarations): Check
|
* trans-decl.c (generate_dependency_declarations): Check
|
for NULL pointers before accessing the string length.
|
for NULL pointers before accessing the string length.
|
|
|
2007-11-29 Tobias Burnus
|
2007-11-29 Tobias Burnus
|
|
|
PR fortran/34262
|
PR fortran/34262
|
* intrinsic.c (gfc_get_intrinsic_sub_symbol): Add comment.
|
* intrinsic.c (gfc_get_intrinsic_sub_symbol): Add comment.
|
(gfc_intrinsic_sub_interface): Copy elemental state if needed.
|
(gfc_intrinsic_sub_interface): Copy elemental state if needed.
|
* iresolve.c (gfc_resolve_mvbits): Mark procedure as elemental.
|
* iresolve.c (gfc_resolve_mvbits): Mark procedure as elemental.
|
|
|
2007-11-28 Jakub Jelinek
|
2007-11-28 Jakub Jelinek
|
|
|
* trans-expr.c (gfc_trans_string_copy): Convert both dest and
|
* trans-expr.c (gfc_trans_string_copy): Convert both dest and
|
src to void *.
|
src to void *.
|
|
|
PR fortran/34247
|
PR fortran/34247
|
* trans-openmp.c (gfc_omp_privatize_by_reference): For REFERENCE_TYPE
|
* trans-openmp.c (gfc_omp_privatize_by_reference): For REFERENCE_TYPE
|
pass by reference only PARM_DECLs or non-artificial decls.
|
pass by reference only PARM_DECLs or non-artificial decls.
|
|
|
2007-11-27 Jerry DeLisle
|
2007-11-27 Jerry DeLisle
|
|
|
PR fortran/32928
|
PR fortran/32928
|
* decl.c (match_data_constant): Use gfc_match_init_expr to match the
|
* decl.c (match_data_constant): Use gfc_match_init_expr to match the
|
array spec and set the initializer expression.
|
array spec and set the initializer expression.
|
|
|
2007-11-27 Jerry DeLisle
|
2007-11-27 Jerry DeLisle
|
|
|
PR fortran/34227
|
PR fortran/34227
|
* match.c (gfc_match_common): Add additional check for BLOCK DATA.
|
* match.c (gfc_match_common): Add additional check for BLOCK DATA.
|
|
|
2007-11-27 Paul Thomas
|
2007-11-27 Paul Thomas
|
|
|
PR fortran/29389
|
PR fortran/29389
|
*resolve.c (resolve_ordinary_assign): Use find_sym_in_expr to
|
*resolve.c (resolve_ordinary_assign): Use find_sym_in_expr to
|
test if a temporary should be written for a vector subscript
|
test if a temporary should be written for a vector subscript
|
on the lhs.
|
on the lhs.
|
|
|
PR fortran/33850
|
PR fortran/33850
|
* restore.c (pure_stmt_function): Add prototype and new
|
* restore.c (pure_stmt_function): Add prototype and new
|
function. Calls impure_stmt_fcn.
|
function. Calls impure_stmt_fcn.
|
(pure_function): Call it.
|
(pure_function): Call it.
|
(impure_stmt_fcn): New function.
|
(impure_stmt_fcn): New function.
|
|
|
* expr.c (gfc_traverse_expr): Call *func for all expression
|
* expr.c (gfc_traverse_expr): Call *func for all expression
|
types, not just variables. Add traversal of character lengths,
|
types, not just variables. Add traversal of character lengths,
|
iterators and component character lengths and arrayspecs.
|
iterators and component character lengths and arrayspecs.
|
(expr_set_symbols_referenced): Return false if not a variable.
|
(expr_set_symbols_referenced): Return false if not a variable.
|
* trans-stmt.c (forall_replace, forall_restore): Ditto.
|
* trans-stmt.c (forall_replace, forall_restore): Ditto.
|
* resolve.c (forall_index): Ditto.
|
* resolve.c (forall_index): Ditto.
|
(sym_in_expr): New function.
|
(sym_in_expr): New function.
|
(find_sym_in_expr): Rewrite to traverse expression calling
|
(find_sym_in_expr): Rewrite to traverse expression calling
|
sym_in_expr.
|
sym_in_expr.
|
*trans-decl.c (expr_decls): New function.
|
*trans-decl.c (expr_decls): New function.
|
(generate_expr_decls): Rewrite to traverse expression calling
|
(generate_expr_decls): Rewrite to traverse expression calling
|
expr_decls.
|
expr_decls.
|
*match.c (check_stmt_fcn): New function.
|
*match.c (check_stmt_fcn): New function.
|
(recursive_stmt_fcn): Rewrite to traverse expression calling
|
(recursive_stmt_fcn): Rewrite to traverse expression calling
|
check_stmt_fcn.
|
check_stmt_fcn.
|
|
|
2007-11-27 Paul Thomas
|
2007-11-27 Paul Thomas
|
|
|
PR fortran/33541
|
PR fortran/33541
|
*interface.c (compare_actual_formal): Exclude assumed size
|
*interface.c (compare_actual_formal): Exclude assumed size
|
arrays from the possibility of scalar to array mapping.
|
arrays from the possibility of scalar to array mapping.
|
* decl.c (get_proc_name): Fix whitespace problem.
|
* decl.c (get_proc_name): Fix whitespace problem.
|
|
|
PR fortran/34231
|
PR fortran/34231
|
* gfortran.h : Add 'use_rename' bit to symbol_attribute.
|
* gfortran.h : Add 'use_rename' bit to symbol_attribute.
|
* module.c : Add 'renamed' field to pointer_info.u.rsym.
|
* module.c : Add 'renamed' field to pointer_info.u.rsym.
|
(load_generic_interfaces): Add 'renamed' that is set after the
|
(load_generic_interfaces): Add 'renamed' that is set after the
|
number_use_names is called. This is used to set the attribute
|
number_use_names is called. This is used to set the attribute
|
use_rename, which, in its turn identifies those symbols that
|
use_rename, which, in its turn identifies those symbols that
|
have not been renamed.
|
have not been renamed.
|
(load_needed): If pointer_info.u.rsym->renamed is set, then
|
(load_needed): If pointer_info.u.rsym->renamed is set, then
|
set the use_rename attribute of the symbol.
|
set the use_rename attribute of the symbol.
|
(read_module): Correct an erroneous use of use_flag. Use the
|
(read_module): Correct an erroneous use of use_flag. Use the
|
renamed flag and the use_rename attribute to determine which
|
renamed flag and the use_rename attribute to determine which
|
symbols are not renamed.
|
symbols are not renamed.
|
|
|
2007-11-26 Steven G. Kargl
|
2007-11-26 Steven G. Kargl
|
|
|
PR fortran/34203
|
PR fortran/34203
|
* options.c: Change default behavior of backslash processing.
|
* options.c: Change default behavior of backslash processing.
|
* invoke.texi: Update documentation.
|
* invoke.texi: Update documentation.
|
|
|
2007-11-25 Jerry DeLisle
|
2007-11-25 Jerry DeLisle
|
|
|
PR fortran/33152
|
PR fortran/33152
|
* decl.c (add_init_expr_to_sym): Remove error message.
|
* decl.c (add_init_expr_to_sym): Remove error message.
|
* resolve.c (check_data_variable): Add new check for a data variable
|
* resolve.c (check_data_variable): Add new check for a data variable
|
that has an array spec, but no ref and issue an error.
|
that has an array spec, but no ref and issue an error.
|
* match.c (gfc_match_common): Remove error message.
|
* match.c (gfc_match_common): Remove error message.
|
|
|
2007-11-25 Tobias Burnus
|
2007-11-25 Tobias Burnus
|
|
|
PR fortran/34079
|
PR fortran/34079
|
* trans-types.c (gfc_return_by_reference,
|
* trans-types.c (gfc_return_by_reference,
|
gfc_get_function_type): Do not return result of
|
gfc_get_function_type): Do not return result of
|
character-returning bind(C) functions as argument.
|
character-returning bind(C) functions as argument.
|
* trans-expr.c (gfc_conv_function_call): Ditto.
|
* trans-expr.c (gfc_conv_function_call): Ditto.
|
|
|
2007-11-25 Jerry DeLisle
|
2007-11-25 Jerry DeLisle
|
|
|
PR fortran/34175
|
PR fortran/34175
|
* gfortran.texi: Document default forms assumed for various file
|
* gfortran.texi: Document default forms assumed for various file
|
extensions.
|
extensions.
|
|
|
2007-11-25 Paul Thomas
|
2007-11-25 Paul Thomas
|
|
|
PR fortran/33499
|
PR fortran/33499
|
* decl.c (get_proc_name): If ENTRY statement occurs before type
|
* decl.c (get_proc_name): If ENTRY statement occurs before type
|
specification, set the symbol untyped and ensure that it is in
|
specification, set the symbol untyped and ensure that it is in
|
the procedure namespace.
|
the procedure namespace.
|
|
|
2007-11-24 Paul Thomas
|
2007-11-24 Paul Thomas
|
|
|
PR fortran/33541
|
PR fortran/33541
|
* module.c (find_symtree_for_symbol): Move to new location.
|
* module.c (find_symtree_for_symbol): Move to new location.
|
(find_symbol): New function.
|
(find_symbol): New function.
|
(load_generic_interfaces): Rework completely so that symtrees
|
(load_generic_interfaces): Rework completely so that symtrees
|
have the local name and symbols have the use name. Renamed
|
have the local name and symbols have the use name. Renamed
|
generic interfaces exclude the use of the interface without an
|
generic interfaces exclude the use of the interface without an
|
ONLY clause (11.3.2).
|
ONLY clause (11.3.2).
|
(read_module): Implement 11.3.2 in the same way as for generic
|
(read_module): Implement 11.3.2 in the same way as for generic
|
interfaces.
|
interfaces.
|
|
|
2007-11-23 Christopher D. Rickett
|
2007-11-23 Christopher D. Rickett
|
|
|
* trans-common.c (build_common_decl): Fix the alignment for
|
* trans-common.c (build_common_decl): Fix the alignment for
|
BIND(C) common blocks.
|
BIND(C) common blocks.
|
|
|
2007-11-23 Jerry DeLisle
|
2007-11-23 Jerry DeLisle
|
|
|
PR fortran/34209
|
PR fortran/34209
|
* iresolve.c (gfc_resolve_nearest): If sign variable kind does not match
|
* iresolve.c (gfc_resolve_nearest): If sign variable kind does not match
|
kind of input variable, convert it to match.
|
kind of input variable, convert it to match.
|
|
|
PR fortran/33317
|
PR fortran/33317
|
* trans.h: Modify prototype for gfc_conv_missing_dummy.
|
* trans.h: Modify prototype for gfc_conv_missing_dummy.
|
* trans-expr.c (gfc_conv_missing_dummy): Modify to pass an integer kind
|
* trans-expr.c (gfc_conv_missing_dummy): Modify to pass an integer kind
|
parameter in. Set the type of the dummy to the kind given.
|
parameter in. Set the type of the dummy to the kind given.
|
(gfc_conv_function_call): Pass representation.length to
|
(gfc_conv_function_call): Pass representation.length to
|
gfc_conv_missing_dummy.
|
gfc_conv_missing_dummy.
|
* iresolve.c (gfc_resolve_cshift): Determine the correct kind to use and
|
* iresolve.c (gfc_resolve_cshift): Determine the correct kind to use and
|
if appropriate set representation.length to this kind value.
|
if appropriate set representation.length to this kind value.
|
(gfc_resolve_eoshift): Likewise.
|
(gfc_resolve_eoshift): Likewise.
|
* check.c (gfc_check_cshift): Enable dim_check to allow DIM as an
|
* check.c (gfc_check_cshift): Enable dim_check to allow DIM as an
|
optional argument. (gfc_check_eoshift): Likewise.
|
optional argument. (gfc_check_eoshift): Likewise.
|
* trans_intrinsic.c (gfc_conv_intrinsic_function_args): Update call to
|
* trans_intrinsic.c (gfc_conv_intrinsic_function_args): Update call to
|
gfc_conv_missing_dummy.
|
gfc_conv_missing_dummy.
|
|
|
2007-11-23 Tobias Burnus
|
2007-11-23 Tobias Burnus
|
|
|
PR fortran/34187
|
PR fortran/34187
|
* module.c (load_needed): Ensure binding_label is not lost.
|
* module.c (load_needed): Ensure binding_label is not lost.
|
|
|
* decl.c (set_binding_label,gfc_match_bind_c): Replace
|
* decl.c (set_binding_label,gfc_match_bind_c): Replace
|
strncpy by strcpy.
|
strncpy by strcpy.
|
|
|
2007-11-23 Tobias Burnus
|
2007-11-23 Tobias Burnus
|
Steven G. Kargl
|
Steven G. Kargl
|
|
|
PR fortran/34192
|
PR fortran/34192
|
* simplify.c (gfc_simplify_nearest): Fix NEAREST for
|
* simplify.c (gfc_simplify_nearest): Fix NEAREST for
|
subnormal numbers.
|
subnormal numbers.
|
|
|
2007-11-23 Aldy Hernandez
|
2007-11-23 Aldy Hernandez
|
|
|
* trans-expr.c (gfc_trans_string_copy): Use "void *" when building a
|
* trans-expr.c (gfc_trans_string_copy): Use "void *" when building a
|
memset.
|
memset.
|
|
|
2007-11-22 Tobias Burnus
|
2007-11-22 Tobias Burnus
|
|
|
* primary.c (gfc_match_structure_constructor): Allow
|
* primary.c (gfc_match_structure_constructor): Allow
|
constructor for types without components.
|
constructor for types without components.
|
|
|
2007-11-22 Tobias Burnus
|
2007-11-22 Tobias Burnus
|
|
|
PR fortran/34079
|
PR fortran/34079
|
* trans-expr.c (gfc_conv_function_call): Do not append
|
* trans-expr.c (gfc_conv_function_call): Do not append
|
string length arguments when calling bind(c) procedures.
|
string length arguments when calling bind(c) procedures.
|
* trans-decl.c (create_function_arglist): Do not append
|
* trans-decl.c (create_function_arglist): Do not append
|
string length arguments when declaring bind(c) procedures.
|
string length arguments when declaring bind(c) procedures.
|
|
|
2007-11-21 Francois-Xavier Coudert
|
2007-11-21 Francois-Xavier Coudert
|
|
|
PR fortran/34083
|
PR fortran/34083
|
* resolve.c (resolve_structure_cons): Also check for zero rank.
|
* resolve.c (resolve_structure_cons): Also check for zero rank.
|
|
|
2007-11-19 Jerry DeLisle
|
2007-11-19 Jerry DeLisle
|
|
|
PR fortran/33317
|
PR fortran/33317
|
* trans-expr.c (gfc_conv_missing_dummy): Revert.
|
* trans-expr.c (gfc_conv_missing_dummy): Revert.
|
* iresolve.c (gfc_resolve_cshift): Revert.
|
* iresolve.c (gfc_resolve_cshift): Revert.
|
(gfc_resolve_eoshift): Likewise.
|
(gfc_resolve_eoshift): Likewise.
|
* check.c (gfc_check_cshift): Revert.
|
* check.c (gfc_check_cshift): Revert.
|
(gfc_check_eoshift): Likewise.
|
(gfc_check_eoshift): Likewise.
|
|
|
2007-11-19 Tobias Burnus
|
2007-11-19 Tobias Burnus
|
|
|
PR fortran/34079
|
PR fortran/34079
|
* decl.c (gfc_match_entry): Support BIND(C).
|
* decl.c (gfc_match_entry): Support BIND(C).
|
(gfc_match_subroutine): Fix comment typo.
|
(gfc_match_subroutine): Fix comment typo.
|
|
|
2007-11-18 Jerry DeLisle
|
2007-11-18 Jerry DeLisle
|
|
|
PR fortran/33317
|
PR fortran/33317
|
* trans-expr.c (gfc_conv_missing_dummy): Set the type of the dummy
|
* trans-expr.c (gfc_conv_missing_dummy): Set the type of the dummy
|
argument to default integer if flagged to do so. Fix typo in comment.
|
argument to default integer if flagged to do so. Fix typo in comment.
|
* resolve.c (gfc_resolve_dim_arg): Whitespace cleanup.
|
* resolve.c (gfc_resolve_dim_arg): Whitespace cleanup.
|
* iresolve.c (gfc_resolve_cshift): Do not convert type, mark attribute
|
* iresolve.c (gfc_resolve_cshift): Do not convert type, mark attribute
|
for converting the DIM type appropriately in trans-expr.c.
|
for converting the DIM type appropriately in trans-expr.c.
|
(gfc_resolve_eoshift): Likewise.
|
(gfc_resolve_eoshift): Likewise.
|
* check.c (dim_check): Remove pre-existing dead code.
|
* check.c (dim_check): Remove pre-existing dead code.
|
(gfc_check_cshift): Enable dim_check to allow DIM as an optional.
|
(gfc_check_cshift): Enable dim_check to allow DIM as an optional.
|
(gfc_check_eoshift): Likewise.
|
(gfc_check_eoshift): Likewise.
|
* trans_intrinsic.c (gfc_conv_intrinsic_function_args): Fix whitespace.
|
* trans_intrinsic.c (gfc_conv_intrinsic_function_args): Fix whitespace.
|
|
|
2007-11-18 Paul Thomas
|
2007-11-18 Paul Thomas
|
|
|
PR fortran/31608
|
PR fortran/31608
|
* trans-array.c (gfc_conv_expr_descriptor): Remove exception
|
* trans-array.c (gfc_conv_expr_descriptor): Remove exception
|
for indirect references in the call to gfc_trans_scalar_assign.
|
for indirect references in the call to gfc_trans_scalar_assign.
|
* trans-expr.c (gfc_conv_string_parameter): Instead of asserting
|
* trans-expr.c (gfc_conv_string_parameter): Instead of asserting
|
that the expression is not an indirect reference, cast it to a
|
that the expression is not an indirect reference, cast it to a
|
pointer type of the length given by se->string_length.
|
pointer type of the length given by se->string_length.
|
|
|
2007-11-18 Tobias Burnus
|
2007-11-18 Tobias Burnus
|
|
|
PR fortran/34137
|
PR fortran/34137
|
* primary.c (match_variable): Reject non-result entry symbols.
|
* primary.c (match_variable): Reject non-result entry symbols.
|
* resolve.c (resolve_contained_fntype): Do not check entry master
|
* resolve.c (resolve_contained_fntype): Do not check entry master
|
functions.
|
functions.
|
|
|
2007-11-17 Francois-Xavier Coudert
|
2007-11-17 Francois-Xavier Coudert
|
|
|
* trans-types.c (gfc_init_types): Use wider buffer.
|
* trans-types.c (gfc_init_types): Use wider buffer.
|
|
|
2007-11-17 Francois-Xavier Coudert
|
2007-11-17 Francois-Xavier Coudert
|
|
|
* trans-types.c (gfc_init_types): Use Fortran-90-style type
|
* trans-types.c (gfc_init_types): Use Fortran-90-style type
|
names, with kinds.
|
names, with kinds.
|
|
|
2007-11-17 Tobias Burnus
|
2007-11-17 Tobias Burnus
|
|
|
PR fortran/34133
|
PR fortran/34133
|
* decl.c (gfc_match_suffix,gfc_match_subroutine): Disallow
|
* decl.c (gfc_match_suffix,gfc_match_subroutine): Disallow
|
bind(c) attribute for internal procedures.
|
bind(c) attribute for internal procedures.
|
|
|
2007-11-17 Francois-Xavier Coudert
|
2007-11-17 Francois-Xavier Coudert
|
|
|
PR fortran/25252
|
PR fortran/25252
|
* interface.c (gfc_current_interface_head,
|
* interface.c (gfc_current_interface_head,
|
gfc_set_current_interface_head): New functions.
|
gfc_set_current_interface_head): New functions.
|
* decl.c (gfc_match_modproc): Move check for syntax error earlier.
|
* decl.c (gfc_match_modproc): Move check for syntax error earlier.
|
On syntax error, restore previous state of the interface.
|
On syntax error, restore previous state of the interface.
|
* gfortran.h (gfc_current_interface_head,
|
* gfortran.h (gfc_current_interface_head,
|
gfc_set_current_interface_head): New prototypes.
|
gfc_set_current_interface_head): New prototypes.
|
|
|
2007-11-17 Francois-Xavier Coudert
|
2007-11-17 Francois-Xavier Coudert
|
|
|
PR fortran/30285
|
PR fortran/30285
|
* module.c (struct written_common, written_commons): New structure.
|
* module.c (struct written_common, written_commons): New structure.
|
(compare_written_commons, free_written_common, write_common_0):
|
(compare_written_commons, free_written_common, write_common_0):
|
New functions.
|
New functions.
|
(write_common): Call recursive function write_common_0.
|
(write_common): Call recursive function write_common_0.
|
|
|
2007-11-17 Francois-Xavier Coudert
|
2007-11-17 Francois-Xavier Coudert
|
|
|
PR fortran/34108
|
PR fortran/34108
|
* io.c (check_format_string): Only check character expressions.
|
* io.c (check_format_string): Only check character expressions.
|
(match_dt_format): Return MATCH_ERROR if that is what
|
(match_dt_format): Return MATCH_ERROR if that is what
|
gfc_match_st_label said.
|
gfc_match_st_label said.
|
|
|
2007-11-16 Francois-Xavier Coudert
|
2007-11-16 Francois-Xavier Coudert
|
|
|
PR fortran/33957
|
PR fortran/33957
|
* expr.c (check_inquiry): Don't call gfc_error now.
|
* expr.c (check_inquiry): Don't call gfc_error now.
|
|
|
2007-11-16 Francois-Xavier Coudert
|
2007-11-16 Francois-Xavier Coudert
|
|
|
PR fortran/33739
|
PR fortran/33739
|
PR fortran/34084
|
PR fortran/34084
|
* scanner.c (start_source_file, end_source_file,
|
* scanner.c (start_source_file, end_source_file,
|
exit_remaining_files, gfc_advance_line): Revert rev. 130016.
|
exit_remaining_files, gfc_advance_line): Revert rev. 130016.
|
|
|
2007-11-16 Paul Thomas
|
2007-11-16 Paul Thomas
|
|
|
PR fortran/34008
|
PR fortran/34008
|
* trans-stmt.c (gfc_conv_elemental_dependencies): Add check for
|
* trans-stmt.c (gfc_conv_elemental_dependencies): Add check for
|
INTENT_INOUT as well as INTENT_OUT.
|
INTENT_INOUT as well as INTENT_OUT.
|
(gfc_trans_call): Remove redundant gcc_asserts in dependency
|
(gfc_trans_call): Remove redundant gcc_asserts in dependency
|
check.
|
check.
|
|
|
2007-11-16 Paul Thomas
|
2007-11-16 Paul Thomas
|
|
|
PR fortran/33986
|
PR fortran/33986
|
* trans-array.c (gfc_conv_array_parameter ): Allow allocatable
|
* trans-array.c (gfc_conv_array_parameter ): Allow allocatable
|
function results.
|
function results.
|
|
|
2007-11-15 Tobias Burnus
|
2007-11-15 Tobias Burnus
|
|
|
PR fortran/33917
|
PR fortran/33917
|
* decl.c (match_procedure_decl): Pre-resolve interface.
|
* decl.c (match_procedure_decl): Pre-resolve interface.
|
* resolve.c (resolve_symbol): Reject interfaces later
|
* resolve.c (resolve_symbol): Reject interfaces later
|
declared in procedure statements.
|
declared in procedure statements.
|
|
|
2007-11-13 Jerry DeLisle
|
2007-11-13 Jerry DeLisle
|
|
|
PR fortran/33162
|
PR fortran/33162
|
* decl.c (match_procedure_decl): Remove TODO and allow intrinsics in
|
* decl.c (match_procedure_decl): Remove TODO and allow intrinsics in
|
PROCEDURE declarations. Set attr.untyped to allow the interface to be
|
PROCEDURE declarations. Set attr.untyped to allow the interface to be
|
resolved later where the symbol type will be set.
|
resolved later where the symbol type will be set.
|
* interface.c (compare_intr_interfaces): Remove static from pointer
|
* interface.c (compare_intr_interfaces): Remove static from pointer
|
declarations. Add type and kind checks for dummy function arguments.
|
declarations. Add type and kind checks for dummy function arguments.
|
(compare_actual_formal_intr): New function to compare an actual
|
(compare_actual_formal_intr): New function to compare an actual
|
argument with an intrinsic function. (gfc_procedures_use): Add check for
|
argument with an intrinsic function. (gfc_procedures_use): Add check for
|
interface that points to an intrinsic function, use the new function.
|
interface that points to an intrinsic function, use the new function.
|
* resolve.c (resolve_specific_f0): Resolve the intrinsic interface.
|
* resolve.c (resolve_specific_f0): Resolve the intrinsic interface.
|
(resolve_specific_s0): Ditto.
|
(resolve_specific_s0): Ditto.
|
|
|
2007-11-13 Paul Thomas
|
2007-11-13 Paul Thomas
|
|
|
PR fortran/34080
|
PR fortran/34080
|
* iresolve.c (gfc_resolve_transfer): Do not try to convert
|
* iresolve.c (gfc_resolve_transfer): Do not try to convert
|
to a constant MOLD expression, if it is an assumed size
|
to a constant MOLD expression, if it is an assumed size
|
dummy.
|
dummy.
|
|
|
2007-11-10 Francois-Xavier Coudert
|
2007-11-10 Francois-Xavier Coudert
|
|
|
* trans-common.c: Remove prototype for gfc_get_common.
|
* trans-common.c: Remove prototype for gfc_get_common.
|
|
|
2007-11-10 Francois-Xavier Coudert
|
2007-11-10 Francois-Xavier Coudert
|
|
|
PR fortran/33592
|
PR fortran/33592
|
* trans.c (gfc_call_realloc): Fix the logic and rename variables.
|
* trans.c (gfc_call_realloc): Fix the logic and rename variables.
|
|
|
2007-11-08 Francois-Xavier Coudert
|
2007-11-08 Francois-Xavier Coudert
|
|
|
PR fortran/33739
|
PR fortran/33739
|
* scanner.c (start_source_file, end_source_file,
|
* scanner.c (start_source_file, end_source_file,
|
exit_remaining_files): New functions.
|
exit_remaining_files): New functions.
|
(gfc_advance_line): Use the new functions.
|
(gfc_advance_line): Use the new functions.
|
|
|
2007-11-08 Francois-Xavier Coudert
|
2007-11-08 Francois-Xavier Coudert
|
|
|
PR fortran/34028
|
PR fortran/34028
|
* trans-intrinsic.c (gfc_conv_intrinsic_ishft): Use correct type.
|
* trans-intrinsic.c (gfc_conv_intrinsic_ishft): Use correct type.
|
|
|
2007-11-08 Tobias Burnus
|
2007-11-08 Tobias Burnus
|
|
|
PR fortran/33917
|
PR fortran/33917
|
* interface.c (check_sym_interfaces): Disallow PROCEDURE-declared
|
* interface.c (check_sym_interfaces): Disallow PROCEDURE-declared
|
procedures for MODULE PROCEDURE.
|
procedures for MODULE PROCEDURE.
|
* decl.c (match_procedure_in_interface): Do not mark as procedure.
|
* decl.c (match_procedure_in_interface): Do not mark as procedure.
|
|
|
2007-11-03 Francois-Xavier Coudert
|
2007-11-03 Francois-Xavier Coudert
|
|
|
PR fortran/33881
|
PR fortran/33881
|
* trans-array.c (gfc_conv_array_parameter): Evaluate
|
* trans-array.c (gfc_conv_array_parameter): Evaluate
|
se->string_length instead of the expr->ts.cl->backend_decl.
|
se->string_length instead of the expr->ts.cl->backend_decl.
|
|
|
2007-11-03 Francois-Xavier Coudert
|
2007-11-03 Francois-Xavier Coudert
|
|
|
* gfortran.h: Shorten comment.
|
* gfortran.h: Shorten comment.
|
* trans-types.c (gfc_get_function_type): Allow argument to have
|
* trans-types.c (gfc_get_function_type): Allow argument to have
|
flavor FL_PROGRAM.
|
flavor FL_PROGRAM.
|
* trans-decl.c (gfc_sym_mangled_function_id): Mangle main program
|
* trans-decl.c (gfc_sym_mangled_function_id): Mangle main program
|
name into MAIN__.
|
name into MAIN__.
|
(build_function_decl): Fix comment.
|
(build_function_decl): Fix comment.
|
* parse.c (main_program_symbol): Give the main program its proper
|
* parse.c (main_program_symbol): Give the main program its proper
|
name, if any. Set its flavor to FL_PROGRAM.
|
name, if any. Set its flavor to FL_PROGRAM.
|
(gfc_parse_file): Likewise.
|
(gfc_parse_file): Likewise.
|
|
|
2007-11-02 Francois-Xavier Coudert
|
2007-11-02 Francois-Xavier Coudert
|
|
|
* intrinsic.texi (ALLOCATED): Fix typo.
|
* intrinsic.texi (ALLOCATED): Fix typo.
|
|
|
2007-10-31 Tobias Burnus
|
2007-10-31 Tobias Burnus
|
|
|
PR fortran/33941
|
PR fortran/33941
|
* modules.c (intrinsics): Use only alphabetic names for
|
* modules.c (intrinsics): Use only alphabetic names for
|
intrinsic operators.
|
intrinsic operators.
|
|
|
2007-10-31 Jerry DeLisle
|
2007-10-31 Jerry DeLisle
|
|
|
PR fortran/33162
|
PR fortran/33162
|
* interface.c (compare_intr_interfaces): New function to check intrinsic
|
* interface.c (compare_intr_interfaces): New function to check intrinsic
|
function arguments against formal arguments. (compare_interfaces): Fix
|
function arguments against formal arguments. (compare_interfaces): Fix
|
logic in comparison of function and subroutine attributes.
|
logic in comparison of function and subroutine attributes.
|
(compare_parameter): Use new function for intrinsic as argument.
|
(compare_parameter): Use new function for intrinsic as argument.
|
* resolve.c (resolve_actual_arglist): Allow an intrinsic without
|
* resolve.c (resolve_actual_arglist): Allow an intrinsic without
|
function attribute to be checked further. Set function attribute if
|
function attribute to be checked further. Set function attribute if
|
intrinsic symbol is found, return FAILURE if not.
|
intrinsic symbol is found, return FAILURE if not.
|
|
|
2007-10-31 Paul Thomas
|
2007-10-31 Paul Thomas
|
|
|
PR fortran/33897
|
PR fortran/33897
|
* decl.c (gfc_match_entry): Do not make ENTRY name
|
* decl.c (gfc_match_entry): Do not make ENTRY name
|
global for contained procedures.
|
global for contained procedures.
|
* parse.c (gfc_fixup_sibling_symbols): Fix code for
|
* parse.c (gfc_fixup_sibling_symbols): Fix code for
|
determining whether a procedure is external.
|
determining whether a procedure is external.
|
|
|
2007-10-30 Francois-Xavier Coudert
|
2007-10-30 Francois-Xavier Coudert
|
|
|
PR fortran/33596
|
PR fortran/33596
|
* trans-intrinsic.c (gfc_conv_intrinsic_isnan): Strip NOP_EXPR
|
* trans-intrinsic.c (gfc_conv_intrinsic_isnan): Strip NOP_EXPR
|
from the result of build_call_expr.
|
from the result of build_call_expr.
|
|
|
2007-10-29 Paul Thomas
|
2007-10-29 Paul Thomas
|
|
|
PR fortran/31217
|
PR fortran/31217
|
PR fortran/33811
|
PR fortran/33811
|
PR fortran/33686
|
PR fortran/33686
|
|
|
* trans-array.c (gfc_conv_loop_setup): Send a complete type to
|
* trans-array.c (gfc_conv_loop_setup): Send a complete type to
|
gfc_trans_create_temp_array if the temporary is character.
|
gfc_trans_create_temp_array if the temporary is character.
|
* trans-stmt.c (gfc_trans_assign_need_temp): Do likewise for
|
* trans-stmt.c (gfc_trans_assign_need_temp): Do likewise for
|
allocate_temp_for_forall_nest.
|
allocate_temp_for_forall_nest.
|
(forall_replace): New function.
|
(forall_replace): New function.
|
(forall_replace_symtree): New function.
|
(forall_replace_symtree): New function.
|
(forall_restore): New function.
|
(forall_restore): New function.
|
(forall_restore_symtree): New function.
|
(forall_restore_symtree): New function.
|
(forall_make_variable_temp): New function.
|
(forall_make_variable_temp): New function.
|
(check_forall_dependencies): New function.
|
(check_forall_dependencies): New function.
|
(cleanup_forall_symtrees): New function.
|
(cleanup_forall_symtrees): New function.
|
gfc_trans_forall_1): Add and initialize pre and post blocks.
|
gfc_trans_forall_1): Add and initialize pre and post blocks.
|
Call check_forall_dependencies to check for all dependencies
|
Call check_forall_dependencies to check for all dependencies
|
and either trigger second forall block to copy temporary or
|
and either trigger second forall block to copy temporary or
|
copy lval, outside the forall construct and replace all
|
copy lval, outside the forall construct and replace all
|
dependent references. After assignment clean-up and coalesce
|
dependent references. After assignment clean-up and coalesce
|
the blocks at the end of the function.
|
the blocks at the end of the function.
|
* gfortran.h : Add prototypes for gfc_traverse_expr and
|
* gfortran.h : Add prototypes for gfc_traverse_expr and
|
find_forall_index.
|
find_forall_index.
|
expr.c (gfc_traverse_expr): New function to traverse expression
|
expr.c (gfc_traverse_expr): New function to traverse expression
|
and visit all subexpressions, under control of a logical flag,
|
and visit all subexpressions, under control of a logical flag,
|
a symbol and an integer pointer. The slave function is caller
|
a symbol and an integer pointer. The slave function is caller
|
defined and is only called on EXPR_VARIABLE.
|
defined and is only called on EXPR_VARIABLE.
|
(expr_set_symbols_referenced): Called by above to set symbols
|
(expr_set_symbols_referenced): Called by above to set symbols
|
referenced.
|
referenced.
|
(gfc_expr_set_symbols_referenced): Rework of this function to
|
(gfc_expr_set_symbols_referenced): Rework of this function to
|
use two new functions above.
|
use two new functions above.
|
* resolve.c (find_forall_index): Rework with gfc_traverse_expr,
|
* resolve.c (find_forall_index): Rework with gfc_traverse_expr,
|
using forall_index.
|
using forall_index.
|
(forall_index): New function used by previous.
|
(forall_index): New function used by previous.
|
* dependency.c (gfc_check_dependency): Use gfc_dep_resolver for
|
* dependency.c (gfc_check_dependency): Use gfc_dep_resolver for
|
all references, not just REF_ARRAY.
|
all references, not just REF_ARRAY.
|
(gfc_dep_resolver): Correct the logic for substrings so that
|
(gfc_dep_resolver): Correct the logic for substrings so that
|
overlapping arrays are handled correctly.
|
overlapping arrays are handled correctly.
|
|
|
2007-10-28 Tobias Schlüter
|
2007-10-28 Tobias Schlüter
|
|
|
PR fortran/32147
|
PR fortran/32147
|
* module.c (write_symbol): Fix whitespace.
|
* module.c (write_symbol): Fix whitespace.
|
(write_symbol0): Walk symtree from left-to-right instead
|
(write_symbol0): Walk symtree from left-to-right instead
|
breadth-first.
|
breadth-first.
|
(write_symbol1): Similarly change walk of pointer info tree.
|
(write_symbol1): Similarly change walk of pointer info tree.
|
(write_module): Insert linebreak.
|
(write_module): Insert linebreak.
|
* symbol.c (gfc_traverse_symtree): Change to left-to-right order.
|
* symbol.c (gfc_traverse_symtree): Change to left-to-right order.
|
(traverse_ns): Likewise.
|
(traverse_ns): Likewise.
|
|
|
2007-10-27 Jerry DeLisle
|
2007-10-27 Jerry DeLisle
|
|
|
PR fortran/31306
|
PR fortran/31306
|
* decl.c (char_len_param_value): Add check for conflicting attributes of
|
* decl.c (char_len_param_value): Add check for conflicting attributes of
|
function argument.
|
function argument.
|
|
|
2007-10-27 Tobias Burnus
|
2007-10-27 Tobias Burnus
|
|
|
PR fortran/33862
|
PR fortran/33862
|
* lang-specs.h: Support .ftn and .FTN extension, use CPP for .FOR.
|
* lang-specs.h: Support .ftn and .FTN extension, use CPP for .FOR.
|
* options.c (form_from_filename): Support .ftn extension.
|
* options.c (form_from_filename): Support .ftn extension.
|
* gfortran.texi: Document support of .for and .ftn file extension.
|
* gfortran.texi: Document support of .for and .ftn file extension.
|
|
|
2007-10-26 Jerry DeLisle
|
2007-10-26 Jerry DeLisle
|
|
|
PR fortran/33162
|
PR fortran/33162
|
* intrinsic.h: Add prototypes for four new functions, gfc_check_datan2,
|
* intrinsic.h: Add prototypes for four new functions, gfc_check_datan2,
|
gfc_check_dprod, gfc_check_fn_d, and gfc_check_x_yd.
|
gfc_check_dprod, gfc_check_fn_d, and gfc_check_x_yd.
|
* intrinsic.c (add_functions): Add double precision checks for dabs,
|
* intrinsic.c (add_functions): Add double precision checks for dabs,
|
dacos, dacosh, dasin, dasinh, datan, datanh, datan2, dbesj0, dbesj1,
|
dacos, dacosh, dasin, dasinh, datan, datanh, datan2, dbesj0, dbesj1,
|
dbesy0, dbesy1, dcos, dcosh, ddim, derf, derfc, dexp, dgamma,
|
dbesy0, dbesy1, dcos, dcosh, ddim, derf, derfc, dexp, dgamma,
|
dlgama, dlog, dlog10, dmod, dsign, dsin, dsinh, dsqrt, dtan, and dtanh.
|
dlgama, dlog, dlog10, dmod, dsign, dsin, dsinh, dsqrt, dtan, and dtanh.
|
Add real check dprod.
|
Add real check dprod.
|
* check.c (gfc_check_datan2): New function to check for double precision
|
* check.c (gfc_check_datan2): New function to check for double precision
|
argumants. (gfc_check_dprod, gfc_check_fn_d, and gfc_check_x_yd): Ditto.
|
argumants. (gfc_check_dprod, gfc_check_fn_d, and gfc_check_x_yd): Ditto.
|
|
|
2007-10-26 Jerry DeLisle
|
2007-10-26 Jerry DeLisle
|
|
|
* invoke.texi: Fix typo in -fmax-errors=.
|
* invoke.texi: Fix typo in -fmax-errors=.
|
|
|
2007-10-26 Francois-Xavier Coudert
|
2007-10-26 Francois-Xavier Coudert
|
|
|
PR fortran/29784
|
PR fortran/29784
|
* gfortran.texi: Document that there is no logical/integer
|
* gfortran.texi: Document that there is no logical/integer
|
conversion performed during I/O operations.
|
conversion performed during I/O operations.
|
|
|
2007-10-22 Jerry DeLisle
|
2007-10-22 Jerry DeLisle
|
|
|
PR fortran/33849
|
PR fortran/33849
|
* resolve.c (resolve_actual_arglist): Fix error message text.
|
* resolve.c (resolve_actual_arglist): Fix error message text.
|
|
|
2007-10-22 Steven G. Kargl
|
2007-10-22 Steven G. Kargl
|
|
|
PR fortran/31244
|
PR fortran/31244
|
* gfortran.h (gfc_data_value): Change repeat from unsigned int
|
* gfortran.h (gfc_data_value): Change repeat from unsigned int
|
to mpz_t.
|
to mpz_t.
|
* decl.c(top_val_list): Remove msg variable. Use mpz_t for
|
* decl.c(top_val_list): Remove msg variable. Use mpz_t for
|
repeat count.
|
repeat count.
|
* resolve.c (values): Change left from unsigned int to mpz_t.
|
* resolve.c (values): Change left from unsigned int to mpz_t.
|
(next_data_value): Change for mpz_t.
|
(next_data_value): Change for mpz_t.
|
(check_data_variable): Change ??? to FIXME in a comment. Use
|
(check_data_variable): Change ??? to FIXME in a comment. Use
|
"mpz_t left".
|
"mpz_t left".
|
(resolve_data ): Use "mpz_t left".
|
(resolve_data ): Use "mpz_t left".
|
|
|
2007-10-21 Paul Thomas
|
2007-10-21 Paul Thomas
|
|
|
PR fortran/33749
|
PR fortran/33749
|
* resolve.c (resolve_ordinary_assign): New function that takes
|
* resolve.c (resolve_ordinary_assign): New function that takes
|
the code to resolve an assignment from resolve_code. In
|
the code to resolve an assignment from resolve_code. In
|
addition, it makes a temporary of any vector index, on the
|
addition, it makes a temporary of any vector index, on the
|
lhs, using gfc_get_parentheses.
|
lhs, using gfc_get_parentheses.
|
(resolve_code): On EXEC_ASSIGN call the new function.
|
(resolve_code): On EXEC_ASSIGN call the new function.
|
|
|
2007-10-20 Tobias Burnus
|
2007-10-20 Tobias Burnus
|
|
|
PR fortran/33818
|
PR fortran/33818
|
* resolve.c (resolve_variable): Check that symbol is in the same
|
* resolve.c (resolve_variable): Check that symbol is in the same
|
namespace as the entry function.
|
namespace as the entry function.
|
|
|
2007-10-20 Paul Thomas
|
2007-10-20 Paul Thomas
|
FX Coudert
|
FX Coudert
|
|
|
PR fortran/31608
|
PR fortran/31608
|
* trans-array.c (gfc_conv_expr_descriptor): For all except
|
* trans-array.c (gfc_conv_expr_descriptor): For all except
|
indirect references, use gfc_trans_scalar_assign instead of
|
indirect references, use gfc_trans_scalar_assign instead of
|
gfc_add_modify_expr.
|
gfc_add_modify_expr.
|
* iresolve.c (check_charlen_present): Separate creation of cl
|
* iresolve.c (check_charlen_present): Separate creation of cl
|
if necessary and add code to treat an EXPR_ARRAY.
|
if necessary and add code to treat an EXPR_ARRAY.
|
(gfc_resolve_char_achar): New function.
|
(gfc_resolve_char_achar): New function.
|
(gfc_resolve_achar, gfc_resolve_char): Call it.
|
(gfc_resolve_achar, gfc_resolve_char): Call it.
|
(gfc_resolve_transfer): If the MOLD expression does not have a
|
(gfc_resolve_transfer): If the MOLD expression does not have a
|
character length expression, get it from a constant length.
|
character length expression, get it from a constant length.
|
|
|
2007-10-19 Jerry DeLisle
|
2007-10-19 Jerry DeLisle
|
|
|
PR fortran/33544
|
PR fortran/33544
|
* simplify.c (gfc_simplify_transfer): Only warn for short transfer when
|
* simplify.c (gfc_simplify_transfer): Only warn for short transfer when
|
-Wsurprising is given.
|
-Wsurprising is given.
|
* invoke.texi: Document revised behavior.
|
* invoke.texi: Document revised behavior.
|
|
|
2007-10-18 Jerry DeLisle
|
2007-10-18 Jerry DeLisle
|
|
|
PR fortran/33795
|
PR fortran/33795
|
* gfortran.texi: Document GFORTRAN_UNBUFFERED_PRECONNECTED
|
* gfortran.texi: Document GFORTRAN_UNBUFFERED_PRECONNECTED
|
environment variable. Delete mention of environment variable
|
environment variable. Delete mention of environment variable
|
GFORTRAN_UNBUFFERED_n.
|
GFORTRAN_UNBUFFERED_n.
|
|
|
2007-10-18 Paul Thomas
|
2007-10-18 Paul Thomas
|
|
|
PR fortran/33233
|
PR fortran/33233
|
* resolve.c (check_host_association): Check singly contained
|
* resolve.c (check_host_association): Check singly contained
|
namespaces and start search for symbol in current namespace.
|
namespaces and start search for symbol in current namespace.
|
|
|
2007-10-18 Paul Thomas
|
2007-10-18 Paul Thomas
|
Dominique d'Humières
|
Dominique d'Humières
|
|
|
PR fortran/33733
|
PR fortran/33733
|
* simplify.c (gfc_simplify_transfer): Return null if the source
|
* simplify.c (gfc_simplify_transfer): Return null if the source
|
expression is EXPR_FUNCTION.
|
expression is EXPR_FUNCTION.
|
|
|
2007-10-17 Christopher D. Rickett
|
2007-10-17 Christopher D. Rickett
|
|
|
PR fortran/33760
|
PR fortran/33760
|
* symbol.c (gen_special_c_interop_ptr): Remove code to create
|
* symbol.c (gen_special_c_interop_ptr): Remove code to create
|
constructor for c_null_ptr and c_null_funptr with value of 0.
|
constructor for c_null_ptr and c_null_funptr with value of 0.
|
* expr.c (check_init_expr): Prevent check on constructors for
|
* expr.c (check_init_expr): Prevent check on constructors for
|
iso_c_binding derived types.
|
iso_c_binding derived types.
|
* resolve.c (resolve_structure_cons): Verify that the user isn't
|
* resolve.c (resolve_structure_cons): Verify that the user isn't
|
trying to invoke a structure constructor for one of the
|
trying to invoke a structure constructor for one of the
|
iso_c_binding derived types.
|
iso_c_binding derived types.
|
|
|
2007-10-15 Christopher D. Rickett
|
2007-10-15 Christopher D. Rickett
|
|
|
PR fortran/32600
|
PR fortran/32600
|
* trans-expr.c (gfc_conv_function_call): Generate code to inline
|
* trans-expr.c (gfc_conv_function_call): Generate code to inline
|
c_associated.
|
c_associated.
|
* symbol.c (get_iso_c_sym): Preserve from_intmod and intmod_sym_id
|
* symbol.c (get_iso_c_sym): Preserve from_intmod and intmod_sym_id
|
attributes in the resolved symbol.
|
attributes in the resolved symbol.
|
* resolve.c (gfc_iso_c_sub_interface): Remove dead code.
|
* resolve.c (gfc_iso_c_sub_interface): Remove dead code.
|
|
|
2007-10-15 Jerry DeLisle
|
2007-10-15 Jerry DeLisle
|
|
|
PR fortran/33055
|
PR fortran/33055
|
* trans-io.c (create_dummy_iostat): New function to create a unique
|
* trans-io.c (create_dummy_iostat): New function to create a unique
|
dummy variable expression to use with IOSTAT.
|
dummy variable expression to use with IOSTAT.
|
(gfc_trans_inquire): Use the new function to pass unit number error info
|
(gfc_trans_inquire): Use the new function to pass unit number error info
|
to run-time library if a regular IOSTAT variable was not given.
|
to run-time library if a regular IOSTAT variable was not given.
|
|
|
2007-10-14 Tobias Burnus
|
2007-10-14 Tobias Burnus
|
|
|
PR fortran/33745
|
PR fortran/33745
|
* trans-array.c (gfc_conv_ss_startstride): Fix dimension check.
|
* trans-array.c (gfc_conv_ss_startstride): Fix dimension check.
|
(gfc_trans_array_bound_check, gfc_conv_array_ref,
|
(gfc_trans_array_bound_check, gfc_conv_array_ref,
|
gfc_conv_ss_startstride): Simplify error message.
|
gfc_conv_ss_startstride): Simplify error message.
|
* resolve.c (check_dimension): Fix dimension-type switch;
|
* resolve.c (check_dimension): Fix dimension-type switch;
|
improve error message.
|
improve error message.
|
|
|
2007-10-13 Tobias Schlüter
|
2007-10-13 Tobias Schlüter
|
Paul Thomas
|
Paul Thomas
|
|
|
PR fortran/33254
|
PR fortran/33254
|
PR fortran/33727
|
PR fortran/33727
|
* trans-array.c (get_array_ctor_var_strlen): Check upper bound for
|
* trans-array.c (get_array_ctor_var_strlen): Check upper bound for
|
constness instead of lower bound.
|
constness instead of lower bound.
|
(get_array_ctor_strlen): Add bounds-checking code.
|
(get_array_ctor_strlen): Add bounds-checking code.
|
|
|
2007-10-12 Paul Thomas
|
2007-10-12 Paul Thomas
|
|
|
PR fortran/33542
|
PR fortran/33542
|
* resolve.c (resolve_actual_arglist): If the actual argument is
|
* resolve.c (resolve_actual_arglist): If the actual argument is
|
ambiguous, then there is an error.
|
ambiguous, then there is an error.
|
|
|
2007-10-12 Paul Thomas
|
2007-10-12 Paul Thomas
|
|
|
PR fortran/33664
|
PR fortran/33664
|
* expr.c (gfc_specification_expr): If a function is not
|
* expr.c (gfc_specification_expr): If a function is not
|
external, intrinsic or pure is an error. Set the symbol pure
|
external, intrinsic or pure is an error. Set the symbol pure
|
to prevent repeat errors.
|
to prevent repeat errors.
|
|
|
2007-10-10 Francois-Xavier Coudert
|
2007-10-10 Francois-Xavier Coudert
|
|
|
PR fortran/33636
|
PR fortran/33636
|
* expr.c (find_array_section): Check for constructor constantness.
|
* expr.c (find_array_section): Check for constructor constantness.
|
|
|
2007-10-08 Tobias Schlüter
|
2007-10-08 Tobias Schlüter
|
|
|
PR fortran/33689
|
PR fortran/33689
|
* resolve.c (gfc_resolve_expr): Fix indentation.
|
* resolve.c (gfc_resolve_expr): Fix indentation.
|
(resolve_fl_variable_derived): Rename argument.
|
(resolve_fl_variable_derived): Rename argument.
|
(resolve_fl_variable): Fix case in message. Clarify logic.
|
(resolve_fl_variable): Fix case in message. Clarify logic.
|
Correctly simplify array bounds.
|
Correctly simplify array bounds.
|
|
|
2007-10-07 Thomas Koenig
|
2007-10-07 Thomas Koenig
|
|
|
PR libfortran/33683
|
PR libfortran/33683
|
* mathbuiltins.def (GAMMA): Change function name to
|
* mathbuiltins.def (GAMMA): Change function name to
|
"tgamma" instad of "gamma".
|
"tgamma" instad of "gamma".
|
|
|
2007-10-07 Tobias Schlüter
|
2007-10-07 Tobias Schlüter
|
|
|
PR fortran/20851
|
PR fortran/20851
|
* expr.c (check_inquiry): Typo fix in error message.
|
* expr.c (check_inquiry): Typo fix in error message.
|
(check_init_expr): Same * 3.
|
(check_init_expr): Same * 3.
|
(check_restricted): Verify that no dummy arguments appear in
|
(check_restricted): Verify that no dummy arguments appear in
|
restricted expressions in ELEMENTAL procedures.
|
restricted expressions in ELEMENTAL procedures.
|
* resolve.c (resolve_fl_variable): Exchange order of checks to
|
* resolve.c (resolve_fl_variable): Exchange order of checks to
|
avoid side-effect.
|
avoid side-effect.
|
|
|
2007-10-06 Jerry DeLisle
|
2007-10-06 Jerry DeLisle
|
|
|
PR fortran/33609
|
PR fortran/33609
|
* simplify.c (range_check): Return gfc_bad_expr if incoming expression
|
* simplify.c (range_check): Return gfc_bad_expr if incoming expression
|
is NULL.
|
is NULL.
|
|
|
2007-10-06 Tobias Schlüter
|
2007-10-06 Tobias Schlüter
|
|
|
* simplify.c (gfc_simplify_size): Fix typo.
|
* simplify.c (gfc_simplify_size): Fix typo.
|
|
|
2007-10-06 Tobias Schlüter
|
2007-10-06 Tobias Schlüter
|
|
|
PR fortran/25076
|
PR fortran/25076
|
* resolve.c (gfc_find_forall_index): Move towards top,
|
* resolve.c (gfc_find_forall_index): Move towards top,
|
renaming to ...
|
renaming to ...
|
(find_forall_index): ... this. Add check for NULL expr.
|
(find_forall_index): ... this. Add check for NULL expr.
|
(resolve_forall_iterators): Verify additional constraint.
|
(resolve_forall_iterators): Verify additional constraint.
|
(resolve_forall): Remove checks obsoleted by new code in
|
(resolve_forall): Remove checks obsoleted by new code in
|
resolve_forall_iterators.
|
resolve_forall_iterators.
|
|
|
2007-10-05 Francois-Xavier Coudert
|
2007-10-05 Francois-Xavier Coudert
|
|
|
* gfortran.h (gfc_get_data_variable, gfc_get_data_value,
|
* gfortran.h (gfc_get_data_variable, gfc_get_data_value,
|
gfc_get_data): Move to decl.c.
|
gfc_get_data): Move to decl.c.
|
(global_used): Rename into gfc_global_used.
|
(global_used): Rename into gfc_global_used.
|
(gfc_formalize_init_value, gfc_get_section_index,
|
(gfc_formalize_init_value, gfc_get_section_index,
|
gfc_assign_data_value, gfc_assign_data_value_range,
|
gfc_assign_data_value, gfc_assign_data_value_range,
|
gfc_advance_section): Move to data.h.
|
gfc_advance_section): Move to data.h.
|
(gfc_set_in_match_data): Remove.
|
(gfc_set_in_match_data): Remove.
|
* decl.c (gfc_get_data_variable, gfc_get_data_value,
|
* decl.c (gfc_get_data_variable, gfc_get_data_value,
|
gfc_get_data): Move here.
|
gfc_get_data): Move here.
|
(gfc_set_in_match_data): Rename into set_in_match_data.
|
(gfc_set_in_match_data): Rename into set_in_match_data.
|
(gfc_match_data): Likewise.
|
(gfc_match_data): Likewise.
|
(add_global_entry): Rename global_used into gfc_global_used.
|
(add_global_entry): Rename global_used into gfc_global_used.
|
* data.c: Include data.h.
|
* data.c: Include data.h.
|
* trans.h (gfc_todo_error): Remove.
|
* trans.h (gfc_todo_error): Remove.
|
* trans-array.c (gfc_trans_array_constructor,
|
* trans-array.c (gfc_trans_array_constructor,
|
gfc_conv_ss_startstride, gfc_conv_loop_setup): Change
|
gfc_conv_ss_startstride, gfc_conv_loop_setup): Change
|
gfc_todo_error into assertions.
|
gfc_todo_error into assertions.
|
* resolve.c (resolve_global_procedure): Rename global_used into
|
* resolve.c (resolve_global_procedure): Rename global_used into
|
gfc_global_used.
|
gfc_global_used.
|
* parse.c (gfc_global_used, parse_module, add_global_procedure,
|
* parse.c (gfc_global_used, parse_module, add_global_procedure,
|
add_global_program): Likewise.
|
add_global_program): Likewise.
|
* trans-intrinsic.c (gfc_walk_intrinsic_function): Rename
|
* trans-intrinsic.c (gfc_walk_intrinsic_function): Rename
|
global_used into gfc_global_used.
|
global_used into gfc_global_used.
|
* Make-lang.in: Add dependencies on fortran/data.h.
|
* Make-lang.in: Add dependencies on fortran/data.h.
|
* data.h: New file.
|
* data.h: New file.
|
|
|
2007-10-04 Francois-Xavier Coudert
|
2007-10-04 Francois-Xavier Coudert
|
|
|
PR fortran/33529
|
PR fortran/33529
|
* decl.c (match_char_kind): New function.
|
* decl.c (match_char_kind): New function.
|
(match_char_spec): Use match_char_kind.
|
(match_char_spec): Use match_char_kind.
|
|
|
2007-10-04 Francois-Xavier Coudert
|
2007-10-04 Francois-Xavier Coudert
|
|
|
PR fortran/33502
|
PR fortran/33502
|
* scanner.c (gfc_advance_line): Call debug_hooks->end_source_file
|
* scanner.c (gfc_advance_line): Call debug_hooks->end_source_file
|
and debug_hooks->start_source_file when appropriate, and set
|
and debug_hooks->start_source_file when appropriate, and set
|
dbg_emitted.
|
dbg_emitted.
|
(gfc_define_undef_line): New function.
|
(gfc_define_undef_line): New function.
|
(load_file): Don't error out on #define and #undef lines.
|
(load_file): Don't error out on #define and #undef lines.
|
* parse.c (next_statement): Call gfc_define_undef_line.
|
* parse.c (next_statement): Call gfc_define_undef_line.
|
(gfc_parse_file): Call debug_hooks->start_source_file and
|
(gfc_parse_file): Call debug_hooks->start_source_file and
|
debug_hooks->end_source_file for the main source file if
|
debug_hooks->end_source_file for the main source file if
|
required.
|
required.
|
* gfortran.h (gfc_linebuf): Add dbg_emitted field.
|
* gfortran.h (gfc_linebuf): Add dbg_emitted field.
|
(gfc_define_undef_line): New prototype.
|
(gfc_define_undef_line): New prototype.
|
|
|
2007-10-04 Tobias Schlüter
|
2007-10-04 Tobias Schlüter
|
|
|
PR fortran/33626
|
PR fortran/33626
|
* resolve.c (resolve_operator): Always copy the type for
|
* resolve.c (resolve_operator): Always copy the type for
|
expressions in parentheses.
|
expressions in parentheses.
|
|
|
2007-10-04 Paul Thomas
|
2007-10-04 Paul Thomas
|
|
|
PR fortran/33646
|
PR fortran/33646
|
PR fortran/33542
|
PR fortran/33542
|
* interface.c (check_interface1): Revert patch of 10-02.
|
* interface.c (check_interface1): Revert patch of 10-02.
|
|
|
2007-10-03 Francois-Xavier Coudert
|
2007-10-03 Francois-Xavier Coudert
|
|
|
PR fortran/26682
|
PR fortran/26682
|
* trans-decl.c (build_function_decl): Set "externally_visible"
|
* trans-decl.c (build_function_decl): Set "externally_visible"
|
attribute on the MAIN program decl.
|
attribute on the MAIN program decl.
|
|
|
2007-10-03 Tobias Schlüter
|
2007-10-03 Tobias Schlüter
|
|
|
PR fortran/33198
|
PR fortran/33198
|
* resolve.c (has_default_initializer): Move to top. Make bool.
|
* resolve.c (has_default_initializer): Move to top. Make bool.
|
(resolve_common_blocks): Simplify logic. Add case for derived
|
(resolve_common_blocks): Simplify logic. Add case for derived
|
type initialization.
|
type initialization.
|
(resolve_fl_variable_derived): Split out from ...
|
(resolve_fl_variable_derived): Split out from ...
|
(resolve_fl_variable): ... here, while adapting to new h_d_i
|
(resolve_fl_variable): ... here, while adapting to new h_d_i
|
interface.
|
interface.
|
|
|
2007-10-03 Francois-Xavier Coudert
|
2007-10-03 Francois-Xavier Coudert
|
|
|
PR fortran/26682
|
PR fortran/26682
|
* options.c (gfc_post_options): Issue an error when
|
* options.c (gfc_post_options): Issue an error when
|
-fwhole-program is used.
|
-fwhole-program is used.
|
|
|
2007-10-02 Paul Thomas
|
2007-10-02 Paul Thomas
|
|
|
PR fortran/33542
|
PR fortran/33542
|
* interface.c (check_interface1): Specific procedures are
|
* interface.c (check_interface1): Specific procedures are
|
always ambiguous if they have the same name.
|
always ambiguous if they have the same name.
|
|
|
2007-10-02 Paul Thomas
|
2007-10-02 Paul Thomas
|
|
|
PR fortran/33566
|
PR fortran/33566
|
* primary.c (gfc_match_rvalue): Make all expressions with array
|
* primary.c (gfc_match_rvalue): Make all expressions with array
|
references to structure parameters into variable expressions.
|
references to structure parameters into variable expressions.
|
|
|
2007-10-02 Paul Thomas
|
2007-10-02 Paul Thomas
|
|
|
PR fortran/33554
|
PR fortran/33554
|
* trans-decl.c (init_intent_out_dt): New function.
|
* trans-decl.c (init_intent_out_dt): New function.
|
(gfc_trans_deferred_vars): Remove the code for default
|
(gfc_trans_deferred_vars): Remove the code for default
|
initialization of INTENT(OUT) derived types and put it
|
initialization of INTENT(OUT) derived types and put it
|
in the new function. Call it earlier than before, so
|
in the new function. Call it earlier than before, so
|
that array offsets and lower bounds are available.
|
that array offsets and lower bounds are available.
|
|
|
2007-10-02 Paul Thomas
|
2007-10-02 Paul Thomas
|
|
|
PR fortran/33550
|
PR fortran/33550
|
* decl.c (get_proc_name): Return rc if rc is non-zero; ie. if
|
* decl.c (get_proc_name): Return rc if rc is non-zero; ie. if
|
the name is a reference to an ambiguous symbol.
|
the name is a reference to an ambiguous symbol.
|
|
|
2007-10-02 Paul Thomas
|
2007-10-02 Paul Thomas
|
|
|
PR fortran/31154
|
PR fortran/31154
|
PR fortran/31229
|
PR fortran/31229
|
PR fortran/33334
|
PR fortran/33334
|
* decl.c : Declare gfc_function_kind_locs and
|
* decl.c : Declare gfc_function_kind_locs and
|
gfc_function_type_locus.
|
gfc_function_type_locus.
|
(gfc_match_kind_spec): Add second argument kind_expr_only.
|
(gfc_match_kind_spec): Add second argument kind_expr_only.
|
Store locus before trying to match the expression. If the
|
Store locus before trying to match the expression. If the
|
current state corresponds to a function declaration and there
|
current state corresponds to a function declaration and there
|
is no match to the expression, read to the parenthesis, return
|
is no match to the expression, read to the parenthesis, return
|
kind = -1, dump the expression and return.
|
kind = -1, dump the expression and return.
|
(gfc_match_type_spec): Renamed from match_type_spec and all
|
(gfc_match_type_spec): Renamed from match_type_spec and all
|
references changed. If an interface or an external function,
|
references changed. If an interface or an external function,
|
store the locus, set kind = -1 and return. Otherwise, if kind
|
store the locus, set kind = -1 and return. Otherwise, if kind
|
is already = -1, use gfc_find_symbol to try to find a use
|
is already = -1, use gfc_find_symbol to try to find a use
|
associated or imported type.
|
associated or imported type.
|
match.h : Prototype for gfc_match_type_spec.
|
match.h : Prototype for gfc_match_type_spec.
|
* parse.c (match_deferred_characteristics): New function.
|
* parse.c (match_deferred_characteristics): New function.
|
(parse_spec): If in a function, statement is USE or IMPORT
|
(parse_spec): If in a function, statement is USE or IMPORT
|
or DERIVED_DECL and the function kind=-1, call
|
or DERIVED_DECL and the function kind=-1, call
|
match_deferred_characteristics. If kind=-1 at the end of the
|
match_deferred_characteristics. If kind=-1 at the end of the
|
specification expressions, this is an error.
|
specification expressions, this is an error.
|
* parse.h : Declare external gfc_function_kind_locs and
|
* parse.h : Declare external gfc_function_kind_locs and
|
gfc_function_type_locus.
|
gfc_function_type_locus.
|
|
|
2007-09-27 Kaveh R. Ghazi
|
2007-09-27 Kaveh R. Ghazi
|
|
|
* module.c (mio_expr): Avoid -Wcast-qual warning.
|
* module.c (mio_expr): Avoid -Wcast-qual warning.
|
|
|
2007-09-27 Tobias Schlüter
|
2007-09-27 Tobias Schlüter
|
|
|
* arith.c (reduce_binary_aa): Fix capitalization.
|
* arith.c (reduce_binary_aa): Fix capitalization.
|
* check.c (gfc_check_dot_product): Likewise.
|
* check.c (gfc_check_dot_product): Likewise.
|
(gfc_check_matmul): Likewise.
|
(gfc_check_matmul): Likewise.
|
* expr.c (gfc_check_conformance): Likewise.
|
* expr.c (gfc_check_conformance): Likewise.
|
(gfc_check_assign): Likewise.
|
(gfc_check_assign): Likewise.
|
(gfc_default_initializer): Simplify logic.
|
(gfc_default_initializer): Simplify logic.
|
* trans.c (gfc_msg_bounds): Make const.
|
* trans.c (gfc_msg_bounds): Make const.
|
(gfc_msg_fault): Likewise.
|
(gfc_msg_fault): Likewise.
|
(gfc_msg_wrong_return): Likewise.
|
(gfc_msg_wrong_return): Likewise.
|
* trans.h: Add const to corresponding extern declarations.
|
* trans.h: Add const to corresponding extern declarations.
|
|
|
2007-09-27 Paul Thomas
|
2007-09-27 Paul Thomas
|
|
|
PR fortran/33568
|
PR fortran/33568
|
* trans-intrinsic.c (gfc_conv_intrinsic_aint): Allow for the
|
* trans-intrinsic.c (gfc_conv_intrinsic_aint): Allow for the
|
possibility of the optional KIND argument by making arg
|
possibility of the optional KIND argument by making arg
|
an array, counting the number of arguments and using arg[0].
|
an array, counting the number of arguments and using arg[0].
|
|
|
2007-09-26 Francois-Xavier Coudert
|
2007-09-26 Francois-Xavier Coudert
|
|
|
PR fortran/30780
|
PR fortran/30780
|
* invoke.texi: Add note to -ffpe-trap option. Fix typos.
|
* invoke.texi: Add note to -ffpe-trap option. Fix typos.
|
|
|
2007-09-23 Tobias Schlüter
|
2007-09-23 Tobias Schlüter
|
|
|
PR fortran/33269
|
PR fortran/33269
|
* io.c (check_format_string): Move NULL and constant checks into
|
* io.c (check_format_string): Move NULL and constant checks into
|
this function.
|
this function.
|
(check_io_constraints): Call gfc_simplify_expr() before calling
|
(check_io_constraints): Call gfc_simplify_expr() before calling
|
check_format_string(). Remove NULL and constant checks.
|
check_format_string(). Remove NULL and constant checks.
|
|
|
2007-09-24 Francois-Xavier Coudert
|
2007-09-24 Francois-Xavier Coudert
|
|
|
PR fortran/33538
|
PR fortran/33538
|
* scanner.c, parse.c, gfortran.h: Revert revision 128671.
|
* scanner.c, parse.c, gfortran.h: Revert revision 128671.
|
|
|
2007-09-23 Francois-Xavier Coudert
|
2007-09-23 Francois-Xavier Coudert
|
|
|
PR fortran/33528
|
PR fortran/33528
|
* scanner.c (preprocessor_line): Call linemap_add when exiting
|
* scanner.c (preprocessor_line): Call linemap_add when exiting
|
a file.
|
a file.
|
(gfc_new_file): Adjust debug code for USE_MAPPED_LOCATION.
|
(gfc_new_file): Adjust debug code for USE_MAPPED_LOCATION.
|
|
|
2007-09-22 Francois-Xavier Coudert
|
2007-09-22 Francois-Xavier Coudert
|
|
|
PR fortran/33522
|
PR fortran/33522
|
* trans-types.c (gfc_get_desc_dim_type): Mark artificial
|
* trans-types.c (gfc_get_desc_dim_type): Mark artificial
|
variables with TREE_NO_WARNING.
|
variables with TREE_NO_WARNING.
|
(gfc_get_array_descriptor_base): Likewise.
|
(gfc_get_array_descriptor_base): Likewise.
|
|
|
2007-09-22 Paul Thomas
|
2007-09-22 Paul Thomas
|
|
|
PR fortran/33337
|
PR fortran/33337
|
PR fortran/33376
|
PR fortran/33376
|
* trans-decl.c (gfc_create_module_variable): Output
|
* trans-decl.c (gfc_create_module_variable): Output
|
derived type parameters.
|
derived type parameters.
|
* arith.c (gfc_parentheses): Return the argument if
|
* arith.c (gfc_parentheses): Return the argument if
|
it is a constant expression.
|
it is a constant expression.
|
* primary.c (gfc_match_rvalue): Remove the clearing of
|
* primary.c (gfc_match_rvalue): Remove the clearing of
|
the module name and the use_assoc attribute for derived
|
the module name and the use_assoc attribute for derived
|
type parameter expressions.
|
type parameter expressions.
|
|
|
2007-09-22 Francois-Xavier Coudert
|
2007-09-22 Francois-Xavier Coudert
|
|
|
PR fortran/33502
|
PR fortran/33502
|
* scanner.c (gfc_advance_line): Call debug_hooks->start_source_file
|
* scanner.c (gfc_advance_line): Call debug_hooks->start_source_file
|
and debug_hooks->end_source_file when entering and exiting
|
and debug_hooks->end_source_file when entering and exiting
|
included files.
|
included files.
|
(gfc_define_undef_line): New function.
|
(gfc_define_undef_line): New function.
|
(load_file): Ignore #define and #undef preprocessor lines
|
(load_file): Ignore #define and #undef preprocessor lines
|
while reading source files.
|
while reading source files.
|
* parse.c (next_statement): Handle #define and #undef
|
* parse.c (next_statement): Handle #define and #undef
|
preprocessor lines.
|
preprocessor lines.
|
(gfc_parse_file): Call debug_hooks->start_source_file and
|
(gfc_parse_file): Call debug_hooks->start_source_file and
|
debug_hooks->end_source_file for the main source file if
|
debug_hooks->end_source_file for the main source file if
|
requested by the debug format.
|
requested by the debug format.
|
* gfortran.h (gfc_define_undef_line): Add prototype.
|
* gfortran.h (gfc_define_undef_line): Add prototype.
|
|
|
2007-09-22 Tobias Burnus
|
2007-09-22 Tobias Burnus
|
|
|
PR fortran/33445
|
PR fortran/33445
|
* scanner.c (skip_free_comments): Warn if !$OMP& is used
|
* scanner.c (skip_free_comments): Warn if !$OMP& is used
|
if no OpenMP directive is to be continued.
|
if no OpenMP directive is to be continued.
|
|
|
2007-09-21 Paul Thomas
|
2007-09-21 Paul Thomas
|
|
|
*trans-expr.c (gfc_trans_pointer_assignment): Convert array
|
*trans-expr.c (gfc_trans_pointer_assignment): Convert array
|
descriptor for subref pointer assignements, rather than using
|
descriptor for subref pointer assignements, rather than using
|
the loop info version.
|
the loop info version.
|
|
|
2007-09-21 Tobias Burnus
|
2007-09-21 Tobias Burnus
|
|
|
PR fortran/33037
|
PR fortran/33037
|
* simplify.c (gfc_simplify_transfer): Warn if source size
|
* simplify.c (gfc_simplify_transfer): Warn if source size
|
is smaller than result size.
|
is smaller than result size.
|
|
|
2007-09-20 Asher Langton
|
2007-09-20 Asher Langton
|
|
|
PR fortran/20441
|
PR fortran/20441
|
* gfortran.h : Add init_local_* enums and init_flag_* flags to
|
* gfortran.h : Add init_local_* enums and init_flag_* flags to
|
gfc_option_t.
|
gfc_option_t.
|
* lang.opt: Add -finit-local-zero, -finit-real, -finit-integer,
|
* lang.opt: Add -finit-local-zero, -finit-real, -finit-integer,
|
-finit-character, and -finit-logical flags.
|
-finit-character, and -finit-logical flags.
|
* invoke.texi: Document new options.
|
* invoke.texi: Document new options.
|
* resolve.c (build_init_assign): New function.
|
* resolve.c (build_init_assign): New function.
|
(apply_init_assign): Move part of function into build_init_assign.
|
(apply_init_assign): Move part of function into build_init_assign.
|
(build_default_init_expr): Build local initializer (-finit-*).
|
(build_default_init_expr): Build local initializer (-finit-*).
|
(apply_default_init_local): Apply local initializer (-finit-*).
|
(apply_default_init_local): Apply local initializer (-finit-*).
|
(resolve_fl_variable): Try to add local initializer (-finit-*).
|
(resolve_fl_variable): Try to add local initializer (-finit-*).
|
* options.c (gfc_init_options, gfc_handle_option,
|
* options.c (gfc_init_options, gfc_handle_option,
|
gfc_post_options): Handle -finit-local-zero, -finit-real,
|
gfc_post_options): Handle -finit-local-zero, -finit-real,
|
-finit-integer, -finit-character, and -finit-logical flags.
|
-finit-integer, -finit-character, and -finit-logical flags.
|
|
|
2007-09-20 Francois-Xavier Coudert
|
2007-09-20 Francois-Xavier Coudert
|
|
|
PR fortran/33221
|
PR fortran/33221
|
* gfortran.h (symbol_attribute): Add zero_comp field.
|
* gfortran.h (symbol_attribute): Add zero_comp field.
|
* symbol.c (gfc_use_derived): Handle case of emtpy derived types.
|
* symbol.c (gfc_use_derived): Handle case of emtpy derived types.
|
* decl.c (gfc_match_data_decl): Likewise.
|
* decl.c (gfc_match_data_decl): Likewise.
|
(gfc_match_derived_decl): Likewise.
|
(gfc_match_derived_decl): Likewise.
|
* module.c (ab_attribute, attr_bits): Add AB_ZERO_COMP member.
|
* module.c (ab_attribute, attr_bits): Add AB_ZERO_COMP member.
|
(mio_symbol_attribute): Write and read AB_ZERO_COMP.
|
(mio_symbol_attribute): Write and read AB_ZERO_COMP.
|
* resolve.c (resolve_symbol): Handle case of emtpy derived types.
|
* resolve.c (resolve_symbol): Handle case of emtpy derived types.
|
* parse.c (parse_derived): Likewise.
|
* parse.c (parse_derived): Likewise.
|
|
|
2007-09-20 Francois-Xavier Coudert
|
2007-09-20 Francois-Xavier Coudert
|
|
|
PR fortran/33288
|
PR fortran/33288
|
* arith.c (reduce_unary, reduce_binary_ac, reduce_binary_ca,
|
* arith.c (reduce_unary, reduce_binary_ac, reduce_binary_ca,
|
reduce_binary_aa): Call ourselves recursively if an element of
|
reduce_binary_aa): Call ourselves recursively if an element of
|
the constructor is itself a constant array.
|
the constructor is itself a constant array.
|
|
|
2007-09-20 Tobias Schlüter
|
2007-09-20 Tobias Schlüter
|
|
|
* io.c (resolve_tag_format): New function using code split out
|
* io.c (resolve_tag_format): New function using code split out
|
and simplified from ...
|
and simplified from ...
|
(resolve_tag): ... this function. Simplify logic. Unify
|
(resolve_tag): ... this function. Simplify logic. Unify
|
IOSTAT, IOLENGTH and SIZE handling.
|
IOSTAT, IOLENGTH and SIZE handling.
|
|
|
2007-09-20 Christopher D. Rickett
|
2007-09-20 Christopher D. Rickett
|
|
|
PR fortran/33497
|
PR fortran/33497
|
* resolve.c (gfc_iso_c_func_interface): Use information from
|
* resolve.c (gfc_iso_c_func_interface): Use information from
|
subcomponent if applicable.
|
subcomponent if applicable.
|
|
|
2007-09-20 Tobias Burnus
|
2007-09-20 Tobias Burnus
|
|
|
PR fortran/33325
|
PR fortran/33325
|
* intrinsic.text: Add documentation of the intrinsic modules.
|
* intrinsic.text: Add documentation of the intrinsic modules.
|
* gfortran.texi: Link to intrinsic-modules section and to
|
* gfortran.texi: Link to intrinsic-modules section and to
|
the GOMP manual.
|
the GOMP manual.
|
|
|
2007-09-18 Francois-Xavier Coudert
|
2007-09-18 Francois-Xavier Coudert
|
|
|
PR fortran/31119
|
PR fortran/31119
|
* trans-array.c (gfc_conv_ss_startstride): Only perform bounds
|
* trans-array.c (gfc_conv_ss_startstride): Only perform bounds
|
checking for optional args when they are present.
|
checking for optional args when they are present.
|
|
|
2007-09-18 Tobias Burnus
|
2007-09-18 Tobias Burnus
|
|
|
PR fortran/33231
|
PR fortran/33231
|
* resolve.c (resolve_elemental_actual): Check for conformance
|
* resolve.c (resolve_elemental_actual): Check for conformance
|
of intent out/inout dummies.
|
of intent out/inout dummies.
|
|
|
2007-09-17 Tobias Burnus
|
2007-09-17 Tobias Burnus
|
|
|
PR fortran/33106
|
PR fortran/33106
|
* resolve.c (resolve_symbol): Reject public variable of
|
* resolve.c (resolve_symbol): Reject public variable of
|
private derived-types for Fortran 95.
|
private derived-types for Fortran 95.
|
|
|
2007-09-17 Tobias Burnus
|
2007-09-17 Tobias Burnus
|
|
|
* resolve.c (resolve_fl_procedure): Allow private dummies
|
* resolve.c (resolve_fl_procedure): Allow private dummies
|
for Fortran 2003.
|
for Fortran 2003.
|
|
|
2007-09-17 Francois-Xavier Coudert
|
2007-09-17 Francois-Xavier Coudert
|
|
|
* trans-types.c (gfc_get_desc_dim_type): Do not to try
|
* trans-types.c (gfc_get_desc_dim_type): Do not to try
|
emit debug info.
|
emit debug info.
|
(gfc_get_array_descriptor_base): Likewise.
|
(gfc_get_array_descriptor_base): Likewise.
|
(gfc_get_mixed_entry_union): Likewise
|
(gfc_get_mixed_entry_union): Likewise
|
(gfc_get_derived_type): Set decl location for fields and
|
(gfc_get_derived_type): Set decl location for fields and
|
derived type itself.
|
derived type itself.
|
|
|
2007-09-16 Paul Thomas
|
2007-09-16 Paul Thomas
|
|
|
PR fortran/29396
|
PR fortran/29396
|
PR fortran/29606
|
PR fortran/29606
|
PR fortran/30625
|
PR fortran/30625
|
PR fortran/30871
|
PR fortran/30871
|
* trans.h : Add extra argument to gfc_build_array_ref. Rename
|
* trans.h : Add extra argument to gfc_build_array_ref. Rename
|
gfc_conv_aliased_arg to gfc_conv_subref_array_arg. Move
|
gfc_conv_aliased_arg to gfc_conv_subref_array_arg. Move
|
prototype of is_aliased_array to gfortran.h and rename it
|
prototype of is_aliased_array to gfortran.h and rename it
|
gfc_is_subref_array. Add field span to lang_decl, add a new
|
gfc_is_subref_array. Add field span to lang_decl, add a new
|
decl lang specific flag accessed by GFC_DECL_SUBREF_ARRAY_P
|
decl lang specific flag accessed by GFC_DECL_SUBREF_ARRAY_P
|
and a new type flag GFC_DECL_SUBREF_ARRAY_P.
|
and a new type flag GFC_DECL_SUBREF_ARRAY_P.
|
* trans.c (gfc_build_array_ref): Add the new argument, decl.
|
* trans.c (gfc_build_array_ref): Add the new argument, decl.
|
If this is a subreference array pointer, use the lang_decl
|
If this is a subreference array pointer, use the lang_decl
|
field 'span' to calculate the offset in bytes and use pointer
|
field 'span' to calculate the offset in bytes and use pointer
|
arithmetic to address the element.
|
arithmetic to address the element.
|
* trans-array.c (gfc_conv_scalarized_array_ref,
|
* trans-array.c (gfc_conv_scalarized_array_ref,
|
gfc_conv_array_ref): Add the backend declaration as the third
|
gfc_conv_array_ref): Add the backend declaration as the third
|
field, if it is likely to be a subreference array pointer.
|
field, if it is likely to be a subreference array pointer.
|
(gfc_conv_descriptor_dimension, gfc_trans_array_ctor_element,
|
(gfc_conv_descriptor_dimension, gfc_trans_array_ctor_element,
|
gfc_trans_array_constructor_element, structure_alloc_comps,
|
gfc_trans_array_constructor_element, structure_alloc_comps,
|
gfc_conv_array_index_offset): For all other references to
|
gfc_conv_array_index_offset): For all other references to
|
gfc_build_array_ref, set the third argument to NULL.
|
gfc_build_array_ref, set the third argument to NULL.
|
(gfc_get_dataptr_offset): New function.
|
(gfc_get_dataptr_offset): New function.
|
(gfc_conv_expr_descriptor): If the rhs of a pointer assignment
|
(gfc_conv_expr_descriptor): If the rhs of a pointer assignment
|
is a subreference array, then calculate the offset to the
|
is a subreference array, then calculate the offset to the
|
subreference of the first element and set the descriptor data
|
subreference of the first element and set the descriptor data
|
pointer to this, using gfc_get_dataptr_offset.
|
pointer to this, using gfc_get_dataptr_offset.
|
trans-expr.c (gfc_get_expr_charlen): Use the expression for the
|
trans-expr.c (gfc_get_expr_charlen): Use the expression for the
|
character length for a character subreference.
|
character length for a character subreference.
|
(gfc_conv_substring, gfc_conv_subref_array_arg): Add NULL for
|
(gfc_conv_substring, gfc_conv_subref_array_arg): Add NULL for
|
third argument in call to gfc_build_array_ref.
|
third argument in call to gfc_build_array_ref.
|
(gfc_conv_aliased_arg): Rename to gfc_conv_subref_array_arg.
|
(gfc_conv_aliased_arg): Rename to gfc_conv_subref_array_arg.
|
(is_aliased_array): Remove.
|
(is_aliased_array): Remove.
|
(gfc_conv_function_call): Change reference to is_aliased_array
|
(gfc_conv_function_call): Change reference to is_aliased_array
|
to gfc_is_subref_array and reference to gfc_conv_aliased_arg to
|
to gfc_is_subref_array and reference to gfc_conv_aliased_arg to
|
gfc_conv_subref_array_arg.
|
gfc_conv_subref_array_arg.
|
(gfc_trans_pointer_assignment): Add the array element length to
|
(gfc_trans_pointer_assignment): Add the array element length to
|
the lang_decl 'span' field.
|
the lang_decl 'span' field.
|
* gfortran.h : Add subref_array_pointer to symbol_attribute and
|
* gfortran.h : Add subref_array_pointer to symbol_attribute and
|
add the prototype for gfc_is_subref_array.
|
add the prototype for gfc_is_subref_array.
|
* trans-stmt.c : Add NULL for third argument in all references
|
* trans-stmt.c : Add NULL for third argument in all references
|
to gfc_build_array_ref.
|
to gfc_build_array_ref.
|
* expr.c (gfc_is_subref_array): Renamed is_aliased_array.
|
* expr.c (gfc_is_subref_array): Renamed is_aliased_array.
|
If this is a subreference array pointer, return true.
|
If this is a subreference array pointer, return true.
|
(gfc_check_pointer_assign): If the rhs is a subreference array,
|
(gfc_check_pointer_assign): If the rhs is a subreference array,
|
set the lhs subreference_array_pointer attribute.
|
set the lhs subreference_array_pointer attribute.
|
* trans-decl.c (gfc_get_symbol_decl): Allocate the lang_decl
|
* trans-decl.c (gfc_get_symbol_decl): Allocate the lang_decl
|
field if the symbol is a subreference array pointer and set an
|
field if the symbol is a subreference array pointer and set an
|
initial value of zero for the 'span' field.
|
initial value of zero for the 'span' field.
|
* trans-io.c (set_internal_unit): Refer to is_subref_array and
|
* trans-io.c (set_internal_unit): Refer to is_subref_array and
|
gfc_conv_subref_array_arg.
|
gfc_conv_subref_array_arg.
|
(nml_get_addr_expr): Add NULL third argument to
|
(nml_get_addr_expr): Add NULL third argument to
|
gfc_build_array_ref.
|
gfc_build_array_ref.
|
(gfc_trans_transfer): Use the scalarizer for a subreference
|
(gfc_trans_transfer): Use the scalarizer for a subreference
|
array.
|
array.
|
|
|
2007-09-13 Thomas Koenig
|
2007-09-13 Thomas Koenig
|
|
|
* iresolve.c (resolve_mask_arg): If a mask is an array
|
* iresolve.c (resolve_mask_arg): If a mask is an array
|
expression, convert it to kind=1.
|
expression, convert it to kind=1.
|
|
|
2007-09-13 Tobias Burnus
|
2007-09-13 Tobias Burnus
|
|
|
PR fortran/33343
|
PR fortran/33343
|
* expr.c (gfc_check_conformance): Print ranks in the error message.
|
* expr.c (gfc_check_conformance): Print ranks in the error message.
|
* resolve.c (resolve_elemental_actual): Check also conformance of
|
* resolve.c (resolve_elemental_actual): Check also conformance of
|
the actual arguments for elemental functions.
|
the actual arguments for elemental functions.
|
|
|
2007-09-13 Tobias Burnus
|
2007-09-13 Tobias Burnus
|
|
|
* symbol.c (gfc_add_elemental,gfc_add_pure,gfc_add_recursive):
|
* symbol.c (gfc_add_elemental,gfc_add_pure,gfc_add_recursive):
|
Allow prefixes only to be specified once.
|
Allow prefixes only to be specified once.
|
|
|
2007-09-13 Tobias Burnus
|
2007-09-13 Tobias Burnus
|
|
|
PR fortran/33412
|
PR fortran/33412
|
* symbol.c (check_conflict): Add conflict of ELEMENTAL with Bind(C).
|
* symbol.c (check_conflict): Add conflict of ELEMENTAL with Bind(C).
|
|
|
2007-09-12 Tobias Burnus
|
2007-09-12 Tobias Burnus
|
|
|
PR fortran/33297
|
PR fortran/33297
|
* check.c (scalar_check): Move up in the file.
|
* check.c (scalar_check): Move up in the file.
|
(kind_check): Call scalar_check.
|
(kind_check): Call scalar_check.
|
(dim_check): If optional, do not call nonoptional_check; use
|
(dim_check): If optional, do not call nonoptional_check; use
|
bool for optional.
|
bool for optional.
|
(gfc_check_all_any,gfc_check_count,gfc_check_cshift,gfc_check_eoshift,
|
(gfc_check_all_any,gfc_check_count,gfc_check_cshift,gfc_check_eoshift,
|
gfc_check_lbound,gfc_check_minloc_maxloc,check_reduction,
|
gfc_check_lbound,gfc_check_minloc_maxloc,check_reduction,
|
gfc_check_spread,gfc_check_ubound): Use true/false instead of 0/1
|
gfc_check_spread,gfc_check_ubound): Use true/false instead of 0/1
|
for dim_check; honor changed meaning of optional.
|
for dim_check; honor changed meaning of optional.
|
(gfc_check_int): Replace checks by kind_check.
|
(gfc_check_int): Replace checks by kind_check.
|
(gfc_check_size): Replace checks by dim_check.
|
(gfc_check_size): Replace checks by dim_check.
|
|
|
2007-09-12 Tobias Burnus
|
2007-09-12 Tobias Burnus
|
|
|
PR fortran/33284
|
PR fortran/33284
|
PR fortran/33310
|
PR fortran/33310
|
* symbol.c (check_conflict): Add conflict between INTRINSIC and ENTRY
|
* symbol.c (check_conflict): Add conflict between INTRINSIC and ENTRY
|
and between BIND(C) and PARAMETER.
|
and between BIND(C) and PARAMETER.
|
|
|
2007-09-12 Tobias Burnus
|
2007-09-12 Tobias Burnus
|
|
|
* trans-expr.c (gfc_conv_initializer): Fix expr == NULL check.
|
* trans-expr.c (gfc_conv_initializer): Fix expr == NULL check.
|
|
|
2007-09-12 Jan Hubicka
|
2007-09-12 Jan Hubicka
|
|
|
* f95-lang.c (LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
|
* f95-lang.c (LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
|
|
|
2007-09-12 Christopher D. Rickett
|
2007-09-12 Christopher D. Rickett
|
|
|
PR fortran/33395
|
PR fortran/33395
|
* trans-expr.c (gfc_conv_initializer): Remove unnecessary test for
|
* trans-expr.c (gfc_conv_initializer): Remove unnecessary test for
|
intmod_sym_id and use derived symbol to set new kind of C_NULL_PTR
|
intmod_sym_id and use derived symbol to set new kind of C_NULL_PTR
|
and C_NULL_FUNPTR expressions.
|
and C_NULL_FUNPTR expressions.
|
|
|
2007-09-11 Christopher D. Rickett
|
2007-09-11 Christopher D. Rickett
|
|
|
PR fortran/33040
|
PR fortran/33040
|
* trans-expr.c (gfc_trans_structure_assign): Convert component
|
* trans-expr.c (gfc_trans_structure_assign): Convert component
|
C_NULL_PTR and C_NULL_FUNPTR component initializers to (void *).
|
C_NULL_PTR and C_NULL_FUNPTR component initializers to (void *).
|
* trans-types.c (gfc_get_derived_type): Create a backend_decl for
|
* trans-types.c (gfc_get_derived_type): Create a backend_decl for
|
the c_address field of C_PTR and C_FUNPTR and ensure initializer
|
the c_address field of C_PTR and C_FUNPTR and ensure initializer
|
is of proper type/kind for (void *).
|
is of proper type/kind for (void *).
|
|
|
2007-09-11 Jan Hubicka
|
2007-09-11 Jan Hubicka
|
|
|
* f95-lang.c (gfc_expand_function): Kill.
|
* f95-lang.c (gfc_expand_function): Kill.
|
(LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
|
(LANG_HOOKS_CALLGRAPH_EXPAND_FUNCTION): Kill.
|
|
|
2007-09-08 Tobias Burnus
|
2007-09-08 Tobias Burnus
|
|
|
PR fortran/31547
|
PR fortran/31547
|
* gfortran.texi: Document when CPP is called.
|
* gfortran.texi: Document when CPP is called.
|
|
|
* intrinsic.texi (IOR): Fix typos.
|
* intrinsic.texi (IOR): Fix typos.
|
|
|
2007-09-10 Paul Thomas
|
2007-09-10 Paul Thomas
|
|
|
PR fortran/33370
|
PR fortran/33370
|
* trans-expr.c (copyable_array_p): Add tests that expression
|
* trans-expr.c (copyable_array_p): Add tests that expression
|
is a variable, that it has no subreferences and that it is a
|
is a variable, that it has no subreferences and that it is a
|
full array.
|
full array.
|
(gfc_trans_assignment): Change conditions to suit modifications
|
(gfc_trans_assignment): Change conditions to suit modifications
|
to copyable_array_p.
|
to copyable_array_p.
|
|
|
2007-09-06 Tom Tromey
|
2007-09-06 Tom Tromey
|
|
|
* scanner.c (get_file): Update.
|
* scanner.c (get_file): Update.
|
(load_file): Update.
|
(load_file): Update.
|
(gfc_next_char_literal): Use gfc_linebuf_linenum.
|
(gfc_next_char_literal): Use gfc_linebuf_linenum.
|
* f95-lang.c (gfc_init): Update.
|
* f95-lang.c (gfc_init): Update.
|
* gfortran.h (gfc_linebuf_linenum): New macro.
|
* gfortran.h (gfc_linebuf_linenum): New macro.
|
|
|
2007-09-05 Sandra Loosemore
|
2007-09-05 Sandra Loosemore
|
|
|
* trans-decl.c (build_entry_thunks): Use set_cfun.
|
* trans-decl.c (build_entry_thunks): Use set_cfun.
|
(gfc_generate_function_code): Likewise.
|
(gfc_generate_function_code): Likewise.
|
|
|
2007-09-05 Paul Thomas
|
2007-09-05 Paul Thomas
|
|
|
PR fortran/31564
|
PR fortran/31564
|
* primary.c (gfc_match_rvalue): Make expressions that refer
|
* primary.c (gfc_match_rvalue): Make expressions that refer
|
to derived type parameters that have array references into
|
to derived type parameters that have array references into
|
variable expressions. Remove references to use association
|
variable expressions. Remove references to use association
|
from the symbol.
|
from the symbol.
|
|
|
PR fortran/33241
|
PR fortran/33241
|
* decl.c (add_init_expr_to_sym): Provide assumed character
|
* decl.c (add_init_expr_to_sym): Provide assumed character
|
length parameters with the length of the initialization
|
length parameters with the length of the initialization
|
expression, if a constant, or that of the first element of
|
expression, if a constant, or that of the first element of
|
an array.
|
an array.
|
|
|
2007-09-04 Janus Weil
|
2007-09-04 Janus Weil
|
Paul Thomas
|
Paul Thomas
|
|
|
* decl.c (match_procedure_decl,match_procedure_in_interface,
|
* decl.c (match_procedure_decl,match_procedure_in_interface,
|
gfc_match_procedure): Handle PROCEDURE statements.
|
gfc_match_procedure): Handle PROCEDURE statements.
|
* gfortran.h (struct gfc_symbol): New member "gfc_symbol *interface".
|
* gfortran.h (struct gfc_symbol): New member "gfc_symbol *interface".
|
(enum gfc_statement): New element "ST_PROCEDURE".
|
(enum gfc_statement): New element "ST_PROCEDURE".
|
(strcut symbol_attribute): New member "unsigned procedure".
|
(strcut symbol_attribute): New member "unsigned procedure".
|
* interface.c (check_interface0): Extended error checking.
|
* interface.c (check_interface0): Extended error checking.
|
* match.h: Add gfc_match_procedure prototype.
|
* match.h: Add gfc_match_procedure prototype.
|
* parse.c (decode_statement,next_statement,gfc_ascii_statement,
|
* parse.c (decode_statement,next_statement,gfc_ascii_statement,
|
parse_derived,parse_interface): Implement PROCEDURE statements.
|
parse_derived,parse_interface): Implement PROCEDURE statements.
|
* resolve.c (resolve_symbol): Ditto.
|
* resolve.c (resolve_symbol): Ditto.
|
* symbol.c (check_conflict): Ditto.
|
* symbol.c (check_conflict): Ditto.
|
(gfc_add_proc): New function for setting the procedure attribute.
|
(gfc_add_proc): New function for setting the procedure attribute.
|
(copy_formal_args): New function for copying formal argument lists.
|
(copy_formal_args): New function for copying formal argument lists.
|
|
|
2007-09-03 Daniel Jacobowitz
|
2007-09-03 Daniel Jacobowitz
|
|
|
* Make-lang.in (gfortranspec.o): Remove SHLIB_MULTILIB.
|
* Make-lang.in (gfortranspec.o): Remove SHLIB_MULTILIB.
|
|
|
2007-09-03 Kaveh R. Ghazi
|
2007-09-03 Kaveh R. Ghazi
|
|
|
* gfortranspec.c (lang_specific_driver): Use CONST_CAST2.
|
* gfortranspec.c (lang_specific_driver): Use CONST_CAST2.
|
* options.c (gfc_post_options): Supply a TYPE for CONST_CAST.
|
* options.c (gfc_post_options): Supply a TYPE for CONST_CAST.
|
* parse.c (parse_omp_structured_block): Likewise,
|
* parse.c (parse_omp_structured_block): Likewise,
|
* st.c (gfc_free_statement): Likewise,
|
* st.c (gfc_free_statement): Likewise,
|
|
|
2007-09-03 Francois-Xavier Coudert
|
2007-09-03 Francois-Xavier Coudert
|
|
|
PR fortran/31675
|
PR fortran/31675
|
* libgfortran.h: New file.
|
* libgfortran.h: New file.
|
* iso-fortran-env.def: Use macros in the new header instead of
|
* iso-fortran-env.def: Use macros in the new header instead of
|
hardcoded integer constants.
|
hardcoded integer constants.
|
* Make-lang.in (F95_PARSER_OBJS, GFORTRAN_TRANS_DEPS): Add
|
* Make-lang.in (F95_PARSER_OBJS, GFORTRAN_TRANS_DEPS): Add
|
fortran/libgfortran.h.
|
fortran/libgfortran.h.
|
* gfortran.h (GFC_STD_*, GFC_FPE_*, options_convert,
|
* gfortran.h (GFC_STD_*, GFC_FPE_*, options_convert,
|
ioerror_codes): Remove.
|
ioerror_codes): Remove.
|
* trans.c (ERROR_ALLOCATION): Remove.
|
* trans.c (ERROR_ALLOCATION): Remove.
|
(gfc_call_malloc, gfc_allocate_with_status,
|
(gfc_call_malloc, gfc_allocate_with_status,
|
gfc_allocate_array_with_status): Use LIBERROR_ALLOCATION.
|
gfc_allocate_array_with_status): Use LIBERROR_ALLOCATION.
|
* trans-types.h (GFC_DTYPE_*): Remove.
|
* trans-types.h (GFC_DTYPE_*): Remove.
|
* trans-decl.c (gfc_generate_function_code): Use
|
* trans-decl.c (gfc_generate_function_code): Use
|
GFC_CONVERT_NATIVE instead of CONVERT_NATIVE.
|
GFC_CONVERT_NATIVE instead of CONVERT_NATIVE.
|
* trans-io.c (set_parameter_value, set_parameter_ref): Use
|
* trans-io.c (set_parameter_value, set_parameter_ref): Use
|
LIBERROR_* macros instead of IOERROR_ macros.
|
LIBERROR_* macros instead of IOERROR_ macros.
|
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use
|
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use
|
LIBERROR_END and LIBERROR_EOR instead of hardcoded constants.
|
LIBERROR_END and LIBERROR_EOR instead of hardcoded constants.
|
* options.c (gfc_init_options): Use GFC_CONVERT_NATIVE instead of
|
* options.c (gfc_init_options): Use GFC_CONVERT_NATIVE instead of
|
CONVERT_NATIVE.
|
CONVERT_NATIVE.
|
(gfc_handle_option): Use GFC_CONVERT_* macros instead of CONVERT_*.
|
(gfc_handle_option): Use GFC_CONVERT_* macros instead of CONVERT_*.
|
|
|
2007-09-02 Steven G. Kargl
|
2007-09-02 Steven G. Kargl
|
|
|
* invoke.texi: Fix the -frange-checking option entry.
|
* invoke.texi: Fix the -frange-checking option entry.
|
|
|
2007-09-02 Roger Sayle
|
2007-09-02 Roger Sayle
|
|
|
* decl.c (match_string_p): New helper function to explicitly match
|
* decl.c (match_string_p): New helper function to explicitly match
|
a string of characters.
|
a string of characters.
|
(match_attr_spec): Remove no longer needed DECL_COLON from decl_types.
|
(match_attr_spec): Remove no longer needed DECL_COLON from decl_types.
|
Delete decls array and peek_char. Rewrite decl attribute parser to
|
Delete decls array and peek_char. Rewrite decl attribute parser to
|
avoid calling gfc_match_strings.
|
avoid calling gfc_match_strings.
|
* match.c (gfc_match_strings): Delete unused function.
|
* match.c (gfc_match_strings): Delete unused function.
|
* match.h (gfc_match_strings): Delete prototype.
|
* match.h (gfc_match_strings): Delete prototype.
|
|
|
2007-09-02 Tobias Schlüter
|
2007-09-02 Tobias Schlüter
|
|
|
* dump-parse-tree.c (show_char_const): New function.
|
* dump-parse-tree.c (show_char_const): New function.
|
(gfc_show_expr): Use it.
|
(gfc_show_expr): Use it.
|
* expr.c (find_substring_ref): Rework to not keep characters
|
* expr.c (find_substring_ref): Rework to not keep characters
|
dangling beyond end of string.
|
dangling beyond end of string.
|
|
|
2007-09-02 H.J. Lu
|
2007-09-02 H.J. Lu
|
|
|
PR fortran/33276
|
PR fortran/33276
|
* array.c (expand_iterator): Initialize frame.prev.
|
* array.c (expand_iterator): Initialize frame.prev.
|
|
|
2007-08-31 Tobias Burnus
|
2007-08-31 Tobias Burnus
|
|
|
PR fortran/33232
|
PR fortran/33232
|
* io.c (match_io): Also diagnose extra comma for READ.
|
* io.c (match_io): Also diagnose extra comma for READ.
|
|
|
2007-08-31 Joseph Myers
|
2007-08-31 Joseph Myers
|
|
|
* intrinsic.texi (LGAMMA): Remove empty @cindex line.
|
* intrinsic.texi (LGAMMA): Remove empty @cindex line.
|
|
|
2007-08-31 Paul Thomas
|
2007-08-31 Paul Thomas
|
|
|
PR fortran/31879
|
PR fortran/31879
|
PR fortran/31197
|
PR fortran/31197
|
PR fortran/31258
|
PR fortran/31258
|
PR fortran/32703
|
PR fortran/32703
|
* gfortran.h : Add prototype for gfc_resolve_substring_charlen.
|
* gfortran.h : Add prototype for gfc_resolve_substring_charlen.
|
* resolve.c (gfc_resolve_substring_charlen): New function.
|
* resolve.c (gfc_resolve_substring_charlen): New function.
|
(resolve_ref): Call gfc_resolve_substring_charlen.
|
(resolve_ref): Call gfc_resolve_substring_charlen.
|
(gfc_resolve_character_operator): New function.
|
(gfc_resolve_character_operator): New function.
|
(gfc_resolve_expr): Call the new functions in cases where the
|
(gfc_resolve_expr): Call the new functions in cases where the
|
character length is missing.
|
character length is missing.
|
* iresolve.c (cshift, eoshift, merge, pack, reshape, spread,
|
* iresolve.c (cshift, eoshift, merge, pack, reshape, spread,
|
transpose, unpack): Call gfc_resolve_substring_charlen for
|
transpose, unpack): Call gfc_resolve_substring_charlen for
|
source expressions that are character and have a reference.
|
source expressions that are character and have a reference.
|
* trans.h (gfc_trans_init_string_length) Change name to
|
* trans.h (gfc_trans_init_string_length) Change name to
|
gfc_conv_string_length; modify references in trans-expr.c,
|
gfc_conv_string_length; modify references in trans-expr.c,
|
trans-array.c and trans-decl.c.
|
trans-array.c and trans-decl.c.
|
* trans-expr.c (gfc_trans_string_length): Handle case of no
|
* trans-expr.c (gfc_trans_string_length): Handle case of no
|
backend_decl.
|
backend_decl.
|
(gfc_conv_aliased_arg): Remove code for treating substrings
|
(gfc_conv_aliased_arg): Remove code for treating substrings
|
and replace with call to gfc_trans_string_length.
|
and replace with call to gfc_trans_string_length.
|
* trans-array.c (gfc_conv_expr_descriptor): Remove code for
|
* trans-array.c (gfc_conv_expr_descriptor): Remove code for
|
treating strings and call gfc_trans_string_length instead.
|
treating strings and call gfc_trans_string_length instead.
|
|
|
2007-08-30 Tobias Burnus
|
2007-08-30 Tobias Burnus
|
|
|
PR fortran/33228
|
PR fortran/33228
|
* interface.c (check_interface0): Improve error for external procs.
|
* interface.c (check_interface0): Improve error for external procs.
|
(check_sym_interfaces): Fix checking of module procedures.
|
(check_sym_interfaces): Fix checking of module procedures.
|
|
|
2007-08-29 Francois-Xavier Coudert
|
2007-08-29 Francois-Xavier Coudert
|
|
|
PR fortran/32989
|
PR fortran/32989
|
* iresolve.c (gfc_resolve_getarg): Handle non-default integer
|
* iresolve.c (gfc_resolve_getarg): Handle non-default integer
|
kinds.
|
kinds.
|
* check.c (gfc_check_getarg): New function
|
* check.c (gfc_check_getarg): New function
|
* intrinsic.h: Add prototype for gfc_check_getarg.
|
* intrinsic.h: Add prototype for gfc_check_getarg.
|
* intrinsic.c (add_subroutines): Add reference to gfc_check_getarg.
|
* intrinsic.c (add_subroutines): Add reference to gfc_check_getarg.
|
* intrinsic.texi (GETARG): Adjust documentation.
|
* intrinsic.texi (GETARG): Adjust documentation.
|
|
|
2007-08-29 Francois-Xavier Coudert
|
2007-08-29 Francois-Xavier Coudert
|
Tobias Burnus
|
Tobias Burnus
|
|
|
PR fortran/33105
|
PR fortran/33105
|
* intrinsic.c (add_functions): Add IS_IOSTAT_END and
|
* intrinsic.c (add_functions): Add IS_IOSTAT_END and
|
IS_IOSTAT_EOR intrinsics.
|
IS_IOSTAT_EOR intrinsics.
|
* gfortran.h (gfc_isym_id): Add GFC_ISYM_IS_IOSTAT_END and
|
* gfortran.h (gfc_isym_id): Add GFC_ISYM_IS_IOSTAT_END and
|
GFC_ISYM_IS_IOSTAT_EOR.
|
GFC_ISYM_IS_IOSTAT_EOR.
|
* trans-intrinsic.c (gfc_conv_has_intvalue): New function.
|
* trans-intrinsic.c (gfc_conv_has_intvalue): New function.
|
(gfc_conv_intrinsic_function): Call gfc_conv_has_intvalue for
|
(gfc_conv_intrinsic_function): Call gfc_conv_has_intvalue for
|
GFC_ISYM_IS_IOSTAT_END and GFC_ISYM_IS_IOSTAT_EOR.
|
GFC_ISYM_IS_IOSTAT_END and GFC_ISYM_IS_IOSTAT_EOR.
|
* intrinsic.texi: Add IS_IOSTAT_END and IS_IOSTAT_EOR.
|
* intrinsic.texi: Add IS_IOSTAT_END and IS_IOSTAT_EOR.
|
|
|
2007-08-28 Christopher D. Rickett
|
2007-08-28 Christopher D. Rickett
|
|
|
PR fortran/33215
|
PR fortran/33215
|
* decl.c (build_sym): Pass number of identifiers on line to
|
* decl.c (build_sym): Pass number of identifiers on line to
|
set_binding_label.
|
set_binding_label.
|
(set_binding_label): Verify that only one identifier given if
|
(set_binding_label): Verify that only one identifier given if
|
NAME= specified, even if the given binding label has zero length.
|
NAME= specified, even if the given binding label has zero length.
|
(gfc_match_bind_c): Remove declaration for has_name_equals because
|
(gfc_match_bind_c): Remove declaration for has_name_equals because
|
it hides the static global one that is needed.
|
it hides the static global one that is needed.
|
|
|
2007-08-29 Francois-Xavier Coudert
|
2007-08-29 Francois-Xavier Coudert
|
|
|
* trans-array.c (gfc_grow_array): Use gfc_call_realloc.
|
* trans-array.c (gfc_grow_array): Use gfc_call_realloc.
|
(gfc_array_allocate): Use gfc_allocate_with_status and
|
(gfc_array_allocate): Use gfc_allocate_with_status and
|
gfc_allocate_array_with_status.
|
gfc_allocate_array_with_status.
|
(gfc_array_deallocate): Use gfc_deallocate_with_status.
|
(gfc_array_deallocate): Use gfc_deallocate_with_status.
|
(gfc_trans_dealloc_allocated): Use gfc_deallocate_with_status.
|
(gfc_trans_dealloc_allocated): Use gfc_deallocate_with_status.
|
* trans-stmt.c (gfc_trans_allocate): Use gfc_allocate_with_status.
|
* trans-stmt.c (gfc_trans_allocate): Use gfc_allocate_with_status.
|
(gfc_trans_deallocate): Use gfc_deallocate_with_status.
|
(gfc_trans_deallocate): Use gfc_deallocate_with_status.
|
* trans.c (gfc_allocate_with_status, gfc_allocate_array_with_status,
|
* trans.c (gfc_allocate_with_status, gfc_allocate_array_with_status,
|
gfc_deallocate_with_status, gfc_call_realloc): New functions.
|
gfc_deallocate_with_status, gfc_call_realloc): New functions.
|
* trans.h (gfc_allocate_with_status, gfc_allocate_array_with_status,
|
* trans.h (gfc_allocate_with_status, gfc_allocate_array_with_status,
|
gfc_deallocate_with_status, gfc_call_realloc): New prototypes.
|
gfc_deallocate_with_status, gfc_call_realloc): New prototypes.
|
(gfor_fndecl_internal_realloc, gfor_fndecl_allocate,
|
(gfor_fndecl_internal_realloc, gfor_fndecl_allocate,
|
gfor_fndecl_allocate_array, gfor_fndecl_deallocate): Remove.
|
gfor_fndecl_allocate_array, gfor_fndecl_deallocate): Remove.
|
* f95-lang.c (gfc_init_builtin_functions): Create decl for
|
* f95-lang.c (gfc_init_builtin_functions): Create decl for
|
BUILT_IN_REALLOC.
|
BUILT_IN_REALLOC.
|
* trans-decl.c (gfor_fndecl_internal_realloc,
|
* trans-decl.c (gfor_fndecl_internal_realloc,
|
gfor_fndecl_allocate, gfor_fndecl_allocate_array,
|
gfor_fndecl_allocate, gfor_fndecl_allocate_array,
|
gfor_fndecl_deallocate): Remove function decls.
|
gfor_fndecl_deallocate): Remove function decls.
|
(gfc_build_builtin_function_decls): Likewise.
|
(gfc_build_builtin_function_decls): Likewise.
|
|
|
2007-08-28 Jerry DeLisle
|
2007-08-28 Jerry DeLisle
|
|
|
PR fortran/33055
|
PR fortran/33055
|
Revert previous patch.
|
Revert previous patch.
|
|
|
2007-08-28 Jakub Jelinek
|
2007-08-28 Jakub Jelinek
|
|
|
PR fortran/22244
|
PR fortran/22244
|
* Make-lang.in (fortran/trans-types.o): Depend on $(FLAGS_H).
|
* Make-lang.in (fortran/trans-types.o): Depend on $(FLAGS_H).
|
* trans-types.c: Include flags.h.
|
* trans-types.c: Include flags.h.
|
(gfc_get_nodesc_array_type): Add TYPE_DECL TYPE_NAME with
|
(gfc_get_nodesc_array_type): Add TYPE_DECL TYPE_NAME with
|
correct bounds and dimensions for packed arrays.
|
correct bounds and dimensions for packed arrays.
|
|
|
2007-08-27 Tobias Burnus
|
2007-08-27 Tobias Burnus
|
|
|
* simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call.
|
* simplify.c (gfc_simplify_lgamma): Fix mpfr_lgamma call.
|
|
|
2007-08-26 Jerry DeLisle
|
2007-08-26 Jerry DeLisle
|
|
|
PR fortran/33055
|
PR fortran/33055
|
* trans-io.c (create_dummy_iostat): New function to create a unique
|
* trans-io.c (create_dummy_iostat): New function to create a unique
|
dummy variable expression to use with IOSTAT.
|
dummy variable expression to use with IOSTAT.
|
(gfc_trans_inquire): Use the new function to pass unit number error info
|
(gfc_trans_inquire): Use the new function to pass unit number error info
|
to run-time library if a regular IOSTAT variable was not given.
|
to run-time library if a regular IOSTAT variable was not given.
|
|
|
2007-08-26 H.J. Lu
|
2007-08-26 H.J. Lu
|
|
|
* gfortran.h (gfc_isym_id): Add GFC_ISYM_GAMMA and
|
* gfortran.h (gfc_isym_id): Add GFC_ISYM_GAMMA and
|
GFC_ISYM_LGAMMA.
|
GFC_ISYM_LGAMMA.
|
|
|
2007-08-26 Asher Langton
|
2007-08-26 Asher Langton
|
Tobias Burnus
|
Tobias Burnus
|
|
|
* gfortran.h (gfc_option_t): Add flag_recursive.
|
* gfortran.h (gfc_option_t): Add flag_recursive.
|
* lang.opt: Add -frecursive option and update -fopenmp.
|
* lang.opt: Add -frecursive option and update -fopenmp.
|
* invoke.texi (-frecursive): Document new option.
|
* invoke.texi (-frecursive): Document new option.
|
(-fopenmp,-fno-automatic,-fmax-stack-var-size): Update.
|
(-fopenmp,-fno-automatic,-fmax-stack-var-size): Update.
|
* options.c (gfc_init_options, gfc_post_options,
|
* options.c (gfc_init_options, gfc_post_options,
|
gfc_handle_option): Add -frecursive and modify -fopenmp.
|
gfc_handle_option): Add -frecursive and modify -fopenmp.
|
(gfc_post_options): Add warning for conflicting flags.
|
(gfc_post_options): Add warning for conflicting flags.
|
|
|
2007-08-26 Tobias Burnus
|
2007-08-26 Tobias Burnus
|
|
|
PR fortran/31298
|
PR fortran/31298
|
* module.c (mio_symbol_ref,mio_interface_rest): Return pointer_info.
|
* module.c (mio_symbol_ref,mio_interface_rest): Return pointer_info.
|
(load_operator_interfaces): Support multible loading of an operator.
|
(load_operator_interfaces): Support multible loading of an operator.
|
|
|
2007-08-26 Tobias Burnus
|
2007-08-26 Tobias Burnus
|
|
|
PR fortran/32985
|
PR fortran/32985
|
* match.c (gfc_match_common): Remove SEQUENCE diagnostics.
|
* match.c (gfc_match_common): Remove SEQUENCE diagnostics.
|
* resolve.c (resolve_common_blocks): Add SEQUENCE diagnostics;
|
* resolve.c (resolve_common_blocks): Add SEQUENCE diagnostics;
|
fix walking through the tree.
|
fix walking through the tree.
|
|
|
2007-08-26 Tobias Burnus
|
2007-08-26 Tobias Burnus
|
|
|
PR fortran/32980
|
PR fortran/32980
|
* intrinsic.h (gfc_simplify_gamma,gfc_simplify_lgamma,
|
* intrinsic.h (gfc_simplify_gamma,gfc_simplify_lgamma,
|
gfc_resolve_gamma,gfc_resolve_lgamma): New function declations.
|
gfc_resolve_gamma,gfc_resolve_lgamma): New function declations.
|
* mathbuiltins.def: Define GAMMA and LGAMMA.
|
* mathbuiltins.def: Define GAMMA and LGAMMA.
|
* intrinsic.c (add_functions): Add GAMMA, DGAMMA, LGAMMA, ALGAMA
|
* intrinsic.c (add_functions): Add GAMMA, DGAMMA, LGAMMA, ALGAMA
|
and DLGAMA.
|
and DLGAMA.
|
* simplify.c (gfc_simplify_gamma,gfc_simplify_lgamma): New functions.
|
* simplify.c (gfc_simplify_gamma,gfc_simplify_lgamma): New functions.
|
* iresolve.c (gfc_resolve_gamma,gfc_resolve_lgamma): New functions.
|
* iresolve.c (gfc_resolve_gamma,gfc_resolve_lgamma): New functions.
|
* intrinsic.texi: Add documentation for GAMMA and LGAMMA.
|
* intrinsic.texi: Add documentation for GAMMA and LGAMMA.
|
|
|
2007-08-26 Tobias Burnus
|
2007-08-26 Tobias Burnus
|
|
|
PR fortran/33188
|
PR fortran/33188
|
* parse.c (parse_derived): Support empty derived type
|
* parse.c (parse_derived): Support empty derived type
|
definitions for Fortran 2003.
|
definitions for Fortran 2003.
|
|
|
2007-08-25 Kaveh R. Ghazi
|
2007-08-25 Kaveh R. Ghazi
|
|
|
* trans-openmp.c (gfc_omp_privatize_by_reference): Constify.
|
* trans-openmp.c (gfc_omp_privatize_by_reference): Constify.
|
* trans.h (gfc_omp_privatize_by_reference): Likewise.
|
* trans.h (gfc_omp_privatize_by_reference): Likewise.
|
|
|
2007-08-24 Tobias Burnus
|
2007-08-24 Tobias Burnus
|
|
|
PR fortran/33178
|
PR fortran/33178
|
* intrinsic.c (gfc_intrinsic_func_interface): Fix initialization
|
* intrinsic.c (gfc_intrinsic_func_interface): Fix initialization
|
expression check.
|
expression check.
|
|
|
2007-08-24 Thomas Koenig
|
2007-08-24 Thomas Koenig
|
|
|
PR fortran/32972
|
PR fortran/32972
|
* iresolve.c: Don't convert array masks.
|
* iresolve.c: Don't convert array masks.
|
|
|
2007-08-24 Tobias Burnus
|
2007-08-24 Tobias Burnus
|
|
|
PR fortran/33139
|
PR fortran/33139
|
* trans-array.c (gfc_conv_expr_descriptor): Copy bounds for
|
* trans-array.c (gfc_conv_expr_descriptor): Copy bounds for
|
whole-array pointer assignments.
|
whole-array pointer assignments.
|
|
|
2007-08-23 Jakub Jelinek
|
2007-08-23 Jakub Jelinek
|
|
|
* decl.c (variable_decl): Don't share charlen structs if
|
* decl.c (variable_decl): Don't share charlen structs if
|
length == NULL.
|
length == NULL.
|
* trans-decl.c (create_function_arglist): Assert
|
* trans-decl.c (create_function_arglist): Assert
|
f->sym->ts.cl->backend_decl is NULL instead of unsharing
|
f->sym->ts.cl->backend_decl is NULL instead of unsharing
|
charlen struct here.
|
charlen struct here.
|
|
|
2007-08-23 Francois-Xavier Coudert
|
2007-08-23 Francois-Xavier Coudert
|
|
|
PR fortran/33095
|
PR fortran/33095
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmax): Remove
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmax): Remove
|
runtime error checking.
|
runtime error checking.
|
|
|
2007-08-22 Roger Sayle
|
2007-08-22 Roger Sayle
|
Tobias Schlüter
|
Tobias Schlüter
|
|
|
* match.c (intrinsic_operators): Delete.
|
* match.c (intrinsic_operators): Delete.
|
(gfc_match_intrinsic_op): Rewrite matcher to avoid calling
|
(gfc_match_intrinsic_op): Rewrite matcher to avoid calling
|
gfc_match_strings.
|
gfc_match_strings.
|
|
|
2007-08-22 Christopher D. Rickett
|
2007-08-22 Christopher D. Rickett
|
|
|
PR fortran/33020
|
PR fortran/33020
|
* resolve.c (gfc_iso_c_sub_interface): Remove setting of type and
|
* resolve.c (gfc_iso_c_sub_interface): Remove setting of type and
|
kind for optional SHAPE parameter of C_F_POINTER.
|
kind for optional SHAPE parameter of C_F_POINTER.
|
|
|
2007-08-22 Janus Weil
|
2007-08-22 Janus Weil
|
|
|
* decl.c (match_attr_spec): Pass on errors from gfc_match_bind_c.
|
* decl.c (match_attr_spec): Pass on errors from gfc_match_bind_c.
|
(gfc_match_bind_c): Bugfix in check for NAME= with abstract interfaces.
|
(gfc_match_bind_c): Bugfix in check for NAME= with abstract interfaces.
|
(gfc_match_mopdproc): Bugfix to reject module procedures in
|
(gfc_match_mopdproc): Bugfix to reject module procedures in
|
abstract interfaces.
|
abstract interfaces.
|
|
|
2007-08-22 Kai Tietz
|
2007-08-22 Kai Tietz
|
|
|
* f95-lang.c: (gfc_init_decl_processing): Choose sizetype by using
|
* f95-lang.c: (gfc_init_decl_processing): Choose sizetype by using
|
Pmode.
|
Pmode.
|
|
|
2007-08-21 Paul Brook
|
2007-08-21 Paul Brook
|
Nathan Sidwell
|
Nathan Sidwell
|
Mark Mitchell
|
Mark Mitchell
|
Joseph Myers
|
Joseph Myers
|
|
|
* gfortranspec.c (lang_specific_driver): Use pkgversion_string.
|
* gfortranspec.c (lang_specific_driver): Use pkgversion_string.
|
* Make-lang.in (gfortran.pod): Define BUGURL.
|
* Make-lang.in (gfortran.pod): Define BUGURL.
|
* invoke.texi: Use BUGURL for bug-reporting instructions.
|
* invoke.texi: Use BUGURL for bug-reporting instructions.
|
|
|
2007-08-19 Roger Sayle
|
2007-08-19 Roger Sayle
|
|
|
* match.c (intrinsic_operators): Make static.
|
* match.c (intrinsic_operators): Make static.
|
(gfc_op2string): New function for converting a gfc_intrinsic_op to
|
(gfc_op2string): New function for converting a gfc_intrinsic_op to
|
to a "const char*", replacing the macro of the same name.
|
to a "const char*", replacing the macro of the same name.
|
* gfortran.h (intrinsic_operators): Delete prototype.
|
* gfortran.h (intrinsic_operators): Delete prototype.
|
(gfc_op2string): Replace macro with function prototype.
|
(gfc_op2string): Replace macro with function prototype.
|
|
|
2007-08-18 Tobias Burnus
|
2007-08-18 Tobias Burnus
|
|
|
* gfortran.h (gfc_is_intrinsic_typename): Add declaration.
|
* gfortran.h (gfc_is_intrinsic_typename): Add declaration.
|
* symbol.c (gfc_is_intrinsic_typename): New function.
|
* symbol.c (gfc_is_intrinsic_typename): New function.
|
* parse.c (decode_statement): Check for space in ABSTRACT INTERFACE.
|
* parse.c (decode_statement): Check for space in ABSTRACT INTERFACE.
|
(parse_interface): Use gfc_is_intrinsic_typename.
|
(parse_interface): Use gfc_is_intrinsic_typename.
|
* decl.c (gfc_match_derived_decl): Ditto.
|
* decl.c (gfc_match_derived_decl): Ditto.
|
* module.c (gfc_match_use): Use gcc_unreachable() for
|
* module.c (gfc_match_use): Use gcc_unreachable() for
|
INTERFACE_ABSTRACT in switch().
|
INTERFACE_ABSTRACT in switch().
|
|
|
2007-08-18 Roger Sayle
|
2007-08-18 Roger Sayle
|
|
|
* primary.c (match_logical_constant_string): New function to match
|
* primary.c (match_logical_constant_string): New function to match
|
a ".true." or a ".false.".
|
a ".true." or a ".false.".
|
(match_logical_constant): Use it instead of gfc_match_strings.
|
(match_logical_constant): Use it instead of gfc_match_strings.
|
|
|
2007-08-18 Paul Thomas
|
2007-08-18 Paul Thomas
|
Janus Weil
|
Janus Weil
|
|
|
* interface.c (gfc_match_interface,gfc_match_abstract_interface,
|
* interface.c (gfc_match_interface,gfc_match_abstract_interface,
|
gfc_match_end_interface,gfc_add_interface): Add abstract interface.
|
gfc_match_end_interface,gfc_add_interface): Add abstract interface.
|
* dump-parse-tree.c (gfc_show_attr): Ditto.
|
* dump-parse-tree.c (gfc_show_attr): Ditto.
|
* gfortran.h (interface_type,symbol_attribute): Ditto.
|
* gfortran.h (interface_type,symbol_attribute): Ditto.
|
* module.c (gfc_match_use,ab_attribute,attr_bits,
|
* module.c (gfc_match_use,ab_attribute,attr_bits,
|
mio_symbol_attribute): Ditto.
|
mio_symbol_attribute): Ditto.
|
* resolve.c (resolve_function): Ditto.
|
* resolve.c (resolve_function): Ditto.
|
* match.h: Ditto.
|
* match.h: Ditto.
|
* parse.c (decode_statement): Ditto.
|
* parse.c (decode_statement): Ditto.
|
(parse_interface): Ditto, check for C1203 (name of abstract interface
|
(parse_interface): Ditto, check for C1203 (name of abstract interface
|
cannot be the same as an intrinsic type).
|
cannot be the same as an intrinsic type).
|
* decl.c (gfc_match_bind_c): Check for NAME= with abstract interfaces.
|
* decl.c (gfc_match_bind_c): Check for NAME= with abstract interfaces.
|
(access_attr_decl): Handle Abstract interfaces.
|
(access_attr_decl): Handle Abstract interfaces.
|
|
|
2007-08-18 Paul Thomas
|
2007-08-18 Paul Thomas
|
|
|
PR fortran/32881
|
PR fortran/32881
|
* expr.c (gfc_check_pointer_assign): If the rhs is the
|
* expr.c (gfc_check_pointer_assign): If the rhs is the
|
initialization expression for the rhs, there is no error.
|
initialization expression for the rhs, there is no error.
|
|
|
2007-08-18 Paul Thomas
|
2007-08-18 Paul Thomas
|
|
|
PR fortran/32875
|
PR fortran/32875
|
* trans-array.c (get_array_ctor_strlen): Set the character
|
* trans-array.c (get_array_ctor_strlen): Set the character
|
length of a zero length array to zero.
|
length of a zero length array to zero.
|
|
|
2007-08-16 Tobias Burnus
|
2007-08-16 Tobias Burnus
|
|
|
PR fortran/33072
|
PR fortran/33072
|
* module.c (gfc_match_use): Mark user operators as such.
|
* module.c (gfc_match_use): Mark user operators as such.
|
(find_use_name_n): Distinguish between operators and other symbols.
|
(find_use_name_n): Distinguish between operators and other symbols.
|
(find_use_name,number_use_names,mio_namelist,
|
(find_use_name,number_use_names,mio_namelist,
|
load_operator_interfaces,load_generic_interfaces,read_module,
|
load_operator_interfaces,load_generic_interfaces,read_module,
|
write_generic): Update find_use_name_n calls.
|
write_generic): Update find_use_name_n calls.
|
|
|
2007-08-15 Francois-Xavier Coudert
|
2007-08-15 Francois-Xavier Coudert
|
|
|
PR fortran/29459
|
PR fortran/29459
|
* trans.c (gfc_create_var_np): Do not emit warnings for
|
* trans.c (gfc_create_var_np): Do not emit warnings for
|
anonymous variables.
|
anonymous variables.
|
|
|
2007-08-15 Francois-Xavier Coudert
|
2007-08-15 Francois-Xavier Coudert
|
|
|
PR fortran/33066
|
PR fortran/33066
|
* decl.c (gfc_get_type_attr_spec): Fix whitespace.
|
* decl.c (gfc_get_type_attr_spec): Fix whitespace.
|
(gfc_match_derived_decl): Fix logic.
|
(gfc_match_derived_decl): Fix logic.
|
|
|
2007-08-14 Francois-Xavier Coudert
|
2007-08-14 Francois-Xavier Coudert
|
|
|
PR fortran/33073
|
PR fortran/33073
|
* trans-intrinsic.c (build_fixbound_expr): Convert to result type
|
* trans-intrinsic.c (build_fixbound_expr): Convert to result type
|
in all cases.
|
in all cases.
|
|
|
2007-08-14 Francois-Xavier Coudert
|
2007-08-14 Francois-Xavier Coudert
|
|
|
PR fortran/32594
|
PR fortran/32594
|
* trans-expr.c (gfc_conv_substring_expr): Only call
|
* trans-expr.c (gfc_conv_substring_expr): Only call
|
gfc_conv_substring if expr->ref is not NULL.
|
gfc_conv_substring if expr->ref is not NULL.
|
* expr.c (gfc_is_constant_expr): If e->ref is NULL, the substring
|
* expr.c (gfc_is_constant_expr): If e->ref is NULL, the substring
|
expression might be a constant.
|
expression might be a constant.
|
(gfc_simplify_expr): Handle missing start and end, as well as
|
(gfc_simplify_expr): Handle missing start and end, as well as
|
missing ref.
|
missing ref.
|
|
|
2007-08-13 Paul Thomas
|
2007-08-13 Paul Thomas
|
|
|
PR fortran/32926
|
PR fortran/32926
|
* match.c (gfc_match_call): Do not create a new symtree in the
|
* match.c (gfc_match_call): Do not create a new symtree in the
|
case where the existing symbol is external and not referenced.
|
case where the existing symbol is external and not referenced.
|
|
|
2007-08-13 Paul Thomas
|
2007-08-13 Paul Thomas
|
|
|
PR fortran/32827
|
PR fortran/32827
|
* decl.c (variable_decl): Check for an imported symbol
|
* decl.c (variable_decl): Check for an imported symbol
|
by looking for its symtree and testing for the imported
|
by looking for its symtree and testing for the imported
|
attribute.
|
attribute.
|
(gfc_match_import): Remove change of symbol's namespace
|
(gfc_match_import): Remove change of symbol's namespace
|
and set the attribute imported instead.
|
and set the attribute imported instead.
|
* symbol.c (gfc_get_sym_tree): It is not an error if a
|
* symbol.c (gfc_get_sym_tree): It is not an error if a
|
symbol is imported.
|
symbol is imported.
|
* gfortran.h : Add the 'imported' to symbol_attribute.
|
* gfortran.h : Add the 'imported' to symbol_attribute.
|
|
|
2007-08-13 Paul Thomas
|
2007-08-13 Paul Thomas
|
|
|
PR fortran/32962
|
PR fortran/32962
|
* trans-array.c (gfc_conv_array_transpose): Set the offset
|
* trans-array.c (gfc_conv_array_transpose): Set the offset
|
of the destination to zero if the loop is zero based.
|
of the destination to zero if the loop is zero based.
|
|
|
2007-08-12 Francois-Xavier Coudert
|
2007-08-12 Francois-Xavier Coudert
|
|
|
PR fortran/29600
|
PR fortran/29600
|
* intrinsic.c (add_functions): Add optional KIND argument to ACHAR.
|
* intrinsic.c (add_functions): Add optional KIND argument to ACHAR.
|
* iresolve.c (gfc_resolve_achar): Handle the KIND argument.
|
* iresolve.c (gfc_resolve_achar): Handle the KIND argument.
|
* check.c (gfc_check_achar): Check for the optional KIND argument.
|
* check.c (gfc_check_achar): Check for the optional KIND argument.
|
* simplify.c (gfc_simplify_achar): Use KIND argument.
|
* simplify.c (gfc_simplify_achar): Use KIND argument.
|
* intrinsic.h (gfc_check_achar, gfc_simplify_achar,
|
* intrinsic.h (gfc_check_achar, gfc_simplify_achar,
|
gfc_resolve_achar): Adjust prototypes.
|
gfc_resolve_achar): Adjust prototypes.
|
|
|
2007-08-12 Francois-Xavier Coudert
|
2007-08-12 Francois-Xavier Coudert
|
|
|
PR fortran/30964
|
PR fortran/30964
|
PR fortran/33054
|
PR fortran/33054
|
* trans-expr.c (gfc_conv_function_call): When no formal argument
|
* trans-expr.c (gfc_conv_function_call): When no formal argument
|
list is available, we still substitute missing optional arguments.
|
list is available, we still substitute missing optional arguments.
|
* check.c (gfc_check_random_seed): Correct the check on the
|
* check.c (gfc_check_random_seed): Correct the check on the
|
number of arguments to RANDOM_SEED.
|
number of arguments to RANDOM_SEED.
|
* intrinsic.c (add_subroutines): Add a resolution function to
|
* intrinsic.c (add_subroutines): Add a resolution function to
|
RANDOM_SEED.
|
RANDOM_SEED.
|
* iresolve.c (gfc_resolve_random_seed): New function.
|
* iresolve.c (gfc_resolve_random_seed): New function.
|
* intrinsic.h (gfc_resolve_random_seed): New prototype.
|
* intrinsic.h (gfc_resolve_random_seed): New prototype.
|
|
|
2007-08-12 Francois-Xavier Coudert
|
2007-08-12 Francois-Xavier Coudert
|
|
|
PR fortran/32860
|
PR fortran/32860
|
* error.c (error_uinteger): New function.
|
* error.c (error_uinteger): New function.
|
(error_integer): Call error_uinteger.
|
(error_integer): Call error_uinteger.
|
(error_print): Handle %u, %lu, %li and %ld format specifiers.
|
(error_print): Handle %u, %lu, %li and %ld format specifiers.
|
* interface.c (compare_actual_formal): Use the new %lu specifier.
|
* interface.c (compare_actual_formal): Use the new %lu specifier.
|
|
|
2007-08-12 Francois-Xavier Coudert
|
2007-08-12 Francois-Xavier Coudert
|
|
|
PR fortran/31629
|
PR fortran/31629
|
* lang.opt (-fmodule-private): New option.
|
* lang.opt (-fmodule-private): New option.
|
* gfortran.h (gfc_option_t): Add flag_module_private member.
|
* gfortran.h (gfc_option_t): Add flag_module_private member.
|
* invoke.texi (-fmodule-private): Document the new option.
|
* invoke.texi (-fmodule-private): Document the new option.
|
* module.c (gfc_check_access): Allow the -fmodule-private option
|
* module.c (gfc_check_access): Allow the -fmodule-private option
|
to modify the default behaviour.
|
to modify the default behaviour.
|
* options.c (gfc_init_options): Initialize flag_module_private.
|
* options.c (gfc_init_options): Initialize flag_module_private.
|
(gfc_handle_option): Handle -fmodule-private.
|
(gfc_handle_option): Handle -fmodule-private.
|
|
|
2007-08-12 Francois-Xavier Coudert
|
2007-08-12 Francois-Xavier Coudert
|
|
|
PR fortran/29600
|
PR fortran/29600
|
* intrinsic.c (add_functions): Add KIND arguments to COUNT,
|
* intrinsic.c (add_functions): Add KIND arguments to COUNT,
|
IACHAR, ICHAR, INDEX, LBOUND, LEN, LEN_TRIM, SCAN, SIZE, UBOUND
|
IACHAR, ICHAR, INDEX, LBOUND, LEN, LEN_TRIM, SCAN, SIZE, UBOUND
|
and VERIFY.
|
and VERIFY.
|
* iresolve.c (gfc_resolve_count): Add kind argument.
|
* iresolve.c (gfc_resolve_count): Add kind argument.
|
(gfc_resolve_iachar): New function.
|
(gfc_resolve_iachar): New function.
|
(gfc_resolve_ichar): Add kind argument.
|
(gfc_resolve_ichar): Add kind argument.
|
(gfc_resolve_index_func): Likewise.
|
(gfc_resolve_index_func): Likewise.
|
(gfc_resolve_lbound): Likewise.
|
(gfc_resolve_lbound): Likewise.
|
(gfc_resolve_len): Likewise.
|
(gfc_resolve_len): Likewise.
|
(gfc_resolve_len_trim): Likewise.
|
(gfc_resolve_len_trim): Likewise.
|
(gfc_resolve_scan): Likewise.
|
(gfc_resolve_scan): Likewise.
|
(gfc_resolve_size): New function.
|
(gfc_resolve_size): New function.
|
(gfc_resolve_ubound): Add kind argument.
|
(gfc_resolve_ubound): Add kind argument.
|
(gfc_resolve_verify): Likewise.
|
(gfc_resolve_verify): Likewise.
|
* trans-decl.c (gfc_get_extern_function_decl): Allow specific
|
* trans-decl.c (gfc_get_extern_function_decl): Allow specific
|
intrinsics to have 4 arguments.
|
intrinsics to have 4 arguments.
|
* check.c (gfc_check_count): Add kind argument.
|
* check.c (gfc_check_count): Add kind argument.
|
(gfc_check_ichar_iachar): Likewise.
|
(gfc_check_ichar_iachar): Likewise.
|
(gfc_check_index): Likewise.
|
(gfc_check_index): Likewise.
|
(gfc_check_lbound): Likewise.
|
(gfc_check_lbound): Likewise.
|
(gfc_check_len_lentrim): New function.
|
(gfc_check_len_lentrim): New function.
|
(gfc_check_scan): Add kind argument.
|
(gfc_check_scan): Add kind argument.
|
(gfc_check_size): Likewise.
|
(gfc_check_size): Likewise.
|
(gfc_check_ubound): Likewise.
|
(gfc_check_ubound): Likewise.
|
(gfc_check_verify): Likewise.
|
(gfc_check_verify): Likewise.
|
* intrinsic.texi: Update documentation for COUNT, IACHAR, ICHAR,
|
* intrinsic.texi: Update documentation for COUNT, IACHAR, ICHAR,
|
INDEX, LBOUND, LEN, LEN_TRIM, SCAN, SIZE, UBOUND and VERIFY.
|
INDEX, LBOUND, LEN, LEN_TRIM, SCAN, SIZE, UBOUND and VERIFY.
|
* simplify.c (get_kind): Whitespace fix.
|
* simplify.c (get_kind): Whitespace fix.
|
(int_expr_with_kind): New function.
|
(int_expr_with_kind): New function.
|
(gfc_simplify_iachar): Add kind argument.
|
(gfc_simplify_iachar): Add kind argument.
|
(gfc_simplify_iachar): Likewise.
|
(gfc_simplify_iachar): Likewise.
|
(gfc_simplify_ichar): Likewise.
|
(gfc_simplify_ichar): Likewise.
|
(gfc_simplify_index): Likewise.
|
(gfc_simplify_index): Likewise.
|
(simplify_bound_dim): Likewise.
|
(simplify_bound_dim): Likewise.
|
(simplify_bound): Likewise.
|
(simplify_bound): Likewise.
|
(gfc_simplify_lbound): Likewise.
|
(gfc_simplify_lbound): Likewise.
|
(gfc_simplify_len): Likewise.
|
(gfc_simplify_len): Likewise.
|
(gfc_simplify_len_trim): Likewise.
|
(gfc_simplify_len_trim): Likewise.
|
(gfc_simplify_scan): Likewise.
|
(gfc_simplify_scan): Likewise.
|
(gfc_simplify_shape): Pass NULL as kind argument to gfc_simplify_size.
|
(gfc_simplify_shape): Pass NULL as kind argument to gfc_simplify_size.
|
(gfc_simplify_size): Add kind argument.
|
(gfc_simplify_size): Add kind argument.
|
(gfc_simplify_ubound): Likewise.
|
(gfc_simplify_ubound): Likewise.
|
(gfc_simplify_verify): Likewise.
|
(gfc_simplify_verify): Likewise.
|
* intrinsic.h: Update prototypes and add new ones.
|
* intrinsic.h: Update prototypes and add new ones.
|
* trans-intrinsic.c (gfc_conv_intrinsic_index): Rename into
|
* trans-intrinsic.c (gfc_conv_intrinsic_index): Rename into
|
gfc_conv_intrinsic_index_scan_verify.
|
gfc_conv_intrinsic_index_scan_verify.
|
(gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify): Remove.
|
(gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify): Remove.
|
(gfc_conv_intrinsic_function): Call
|
(gfc_conv_intrinsic_function): Call
|
gfc_conv_intrinsic_index_scan_verify to translate the INDEX,
|
gfc_conv_intrinsic_index_scan_verify to translate the INDEX,
|
SCAN and VERIFY intrinsics.
|
SCAN and VERIFY intrinsics.
|
|
|
2007-08-11 Francois-Xavier Coudert
|
2007-08-11 Francois-Xavier Coudert
|
|
|
PR fortran/31189
|
PR fortran/31189
|
* invoke.texi (-fbacktrace): Document the new behaviour.
|
* invoke.texi (-fbacktrace): Document the new behaviour.
|
|
|
2007-08-11 Francois-Xavier Coudert
|
2007-08-11 Francois-Xavier Coudert
|
|
|
PR fortran/32937
|
PR fortran/32937
|
* trans-array.c (gfc_conv_expr_descriptor): Use
|
* trans-array.c (gfc_conv_expr_descriptor): Use
|
gfc_conv_const_charlen to generate backend_decl of right type.
|
gfc_conv_const_charlen to generate backend_decl of right type.
|
* trans-expr.c (gfc_conv_expr_op): Use correct return type.
|
* trans-expr.c (gfc_conv_expr_op): Use correct return type.
|
(gfc_build_compare_string): Use int type instead of default
|
(gfc_build_compare_string): Use int type instead of default
|
integer kind for single character comparison.
|
integer kind for single character comparison.
|
(gfc_conv_aliased_arg): Give backend_decl the right type.
|
(gfc_conv_aliased_arg): Give backend_decl the right type.
|
* trans-decl.c (gfc_build_intrinsic_function_decls): Make
|
* trans-decl.c (gfc_build_intrinsic_function_decls): Make
|
compare_string return an int.
|
compare_string return an int.
|
|
|
2007-08-11 Ian Lance Taylor
|
2007-08-11 Ian Lance Taylor
|
|
|
* f95-lang.c (gfc_get_alias_set): Change return type to
|
* f95-lang.c (gfc_get_alias_set): Change return type to
|
alias_set_type.
|
alias_set_type.
|
|
|
2007-08-10 Francois-Xavier Coudert
|
2007-08-10 Francois-Xavier Coudert
|
|
|
PR fortran/31270
|
PR fortran/31270
|
* trans.c (gfc_trans_runtime_check): Reorder arguments and
|
* trans.c (gfc_trans_runtime_check): Reorder arguments and
|
add extra variable arguments. Hand them to the library function.
|
add extra variable arguments. Hand them to the library function.
|
* trans.h (gfc_trans_runtime_check): Update prototype.
|
* trans.h (gfc_trans_runtime_check): Update prototype.
|
* trans-array.c (gfc_trans_array_bound_check): Issue more
|
* trans-array.c (gfc_trans_array_bound_check): Issue more
|
detailled error messages.
|
detailled error messages.
|
(gfc_conv_array_ref): Likewise.
|
(gfc_conv_array_ref): Likewise.
|
(gfc_conv_ss_startstride): Likewise.
|
(gfc_conv_ss_startstride): Likewise.
|
(gfc_trans_dummy_array_bias): Reorder arguments to
|
(gfc_trans_dummy_array_bias): Reorder arguments to
|
gfc_trans_runtime_check.
|
gfc_trans_runtime_check.
|
* trans-expr.c (gfc_conv_substring): Issue more detailled
|
* trans-expr.c (gfc_conv_substring): Issue more detailled
|
error messages.
|
error messages.
|
(gfc_conv_function_call): Reorder arguments to gfc_trans_runtime_check.
|
(gfc_conv_function_call): Reorder arguments to gfc_trans_runtime_check.
|
* trans-stmt.c (gfc_trans_goto): Likewise.
|
* trans-stmt.c (gfc_trans_goto): Likewise.
|
* trans-io.c (set_string): Reorder arguments to
|
* trans-io.c (set_string): Reorder arguments to
|
gfc_trans_runtime_check and issue a more detailled error message.
|
gfc_trans_runtime_check and issue a more detailled error message.
|
* trans-decl.c (gfc_build_builtin_function_decls): Make
|
* trans-decl.c (gfc_build_builtin_function_decls): Make
|
runtime_error and runtime_error_at handle a variable number of
|
runtime_error and runtime_error_at handle a variable number of
|
arguments.
|
arguments.
|
* trans-intrinsic.c (gfc_conv_intrinsic_bound): Reorder arguments
|
* trans-intrinsic.c (gfc_conv_intrinsic_bound): Reorder arguments
|
to gfc_trans_runtime_check.
|
to gfc_trans_runtime_check.
|
(gfc_conv_intrinsic_minmax): Likewise.
|
(gfc_conv_intrinsic_minmax): Likewise.
|
(gfc_conv_intrinsic_repeat): Issue more detailled error messages.
|
(gfc_conv_intrinsic_repeat): Issue more detailled error messages.
|
|
|
2007-08-10 Kaveh R. Ghazi
|
2007-08-10 Kaveh R. Ghazi
|
|
|
* gfortranspec.c (lang_specific_driver): Use CONST_CAST.
|
* gfortranspec.c (lang_specific_driver): Use CONST_CAST.
|
* options.c (gfc_post_options): Likewise.
|
* options.c (gfc_post_options): Likewise.
|
* parse.c (parse_omp_structured_block): Likewise.
|
* parse.c (parse_omp_structured_block): Likewise.
|
* st.c (gfc_free_statement): Likewise.
|
* st.c (gfc_free_statement): Likewise.
|
|
|
2007-08-10 Francois-Xavier Coudert
|
2007-08-10 Francois-Xavier Coudert
|
|
|
PR fortran/32933
|
PR fortran/32933
|
* trans-decl.c (gfc_build_builtin_function_decls): Change
|
* trans-decl.c (gfc_build_builtin_function_decls): Change
|
prototype for associated.
|
prototype for associated.
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmax): Convert the
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmax): Convert the
|
result of __builtin_isnan into a boolean.
|
result of __builtin_isnan into a boolean.
|
(gfc_conv_intrinsic_strcmp): Cleanup.
|
(gfc_conv_intrinsic_strcmp): Cleanup.
|
(gfc_conv_associated): Convert the result of the associated
|
(gfc_conv_associated): Convert the result of the associated
|
function into a boolean.
|
function into a boolean.
|
|
|
2007-08-09 Tobias Burnus
|
2007-08-09 Tobias Burnus
|
|
|
PR fortran/32987
|
PR fortran/32987
|
* io.c (format_token): Add FMT_ERROR.
|
* io.c (format_token): Add FMT_ERROR.
|
(next_char_not_space): Print error/warning when
|
(next_char_not_space): Print error/warning when
|
'\t' are used in format specifications.
|
'\t' are used in format specifications.
|
(format_lex): Propagate error.
|
(format_lex): Propagate error.
|
(check_format): Ditto.
|
(check_format): Ditto.
|
|
|
2007-08-09 Tobias Burnus
|
2007-08-09 Tobias Burnus
|
|
|
PR fortran/33001
|
PR fortran/33001
|
* arith.c (arith_error): Point in the error message
|
* arith.c (arith_error): Point in the error message
|
to -fno-range-check.
|
to -fno-range-check.
|
|
|
2007-08-09 Francois-Xavier Coudert
|
2007-08-09 Francois-Xavier Coudert
|
|
|
PR fortran/32902
|
PR fortran/32902
|
* intrinsic.texi (SIZEOF): Add mention to C_SIZE_T.
|
* intrinsic.texi (SIZEOF): Add mention to C_SIZE_T.
|
|
|
2007-08-06 Christopher D. Rickett
|
2007-08-06 Christopher D. Rickett
|
|
|
PR fortran/32732
|
PR fortran/32732
|
* trans-expr.c (gfc_conv_scalar_char_value): Convert the tree and
|
* trans-expr.c (gfc_conv_scalar_char_value): Convert the tree and
|
actual arg expressions for scalar characters passed by-value to
|
actual arg expressions for scalar characters passed by-value to
|
bind(c) routines.
|
bind(c) routines.
|
(gfc_conv_function_call): Call gfc_conv_scalar_char_value.
|
(gfc_conv_function_call): Call gfc_conv_scalar_char_value.
|
* trans.h: Add prototype for gfc_conv_scalar_char_value.
|
* trans.h: Add prototype for gfc_conv_scalar_char_value.
|
* trans-decl.c (generate_local_decl): Convert by-value character
|
* trans-decl.c (generate_local_decl): Convert by-value character
|
dummy args of bind(c) procedures using
|
dummy args of bind(c) procedures using
|
gfc_conv_scalar_char_value.
|
gfc_conv_scalar_char_value.
|
|
|
2007-08-06 Francois-Xavier Coudert
|
2007-08-06 Francois-Xavier Coudert
|
|
|
PR fortran/30947
|
PR fortran/30947
|
* iresolve.c (gfc_resolve_alarm_sub): Suffix the subroutine name
|
* iresolve.c (gfc_resolve_alarm_sub): Suffix the subroutine name
|
with the kind of the STATUS argument.
|
with the kind of the STATUS argument.
|
|
|
2007-08-06 Francois-Xavier Coudert
|
2007-08-06 Francois-Xavier Coudert
|
|
|
PR fortran/30948
|
PR fortran/30948
|
* intrinsic.c (add_functions): Fix name of argument to CHDIR.
|
* intrinsic.c (add_functions): Fix name of argument to CHDIR.
|
|
|
2007-08-06 Francois-Xavier Coudert
|
2007-08-06 Francois-Xavier Coudert
|
|
|
PR fortran/30933
|
PR fortran/30933
|
* iresolve.c (gfc_resolve_exit): Convert argument to default
|
* iresolve.c (gfc_resolve_exit): Convert argument to default
|
integer kind.
|
integer kind.
|
|
|
2007-08-06 Daniel Franke
|
2007-08-06 Daniel Franke
|
|
|
* resolve.c (derived_pointer): Removed, replaced callers by access
|
* resolve.c (derived_pointer): Removed, replaced callers by access
|
to appropiate attribute bit.
|
to appropiate attribute bit.
|
(derived_inaccessable): Shortcut recursion depth.
|
(derived_inaccessable): Shortcut recursion depth.
|
(resolve_fl_namelist): Fixed checks for private components in namelists.
|
(resolve_fl_namelist): Fixed checks for private components in namelists.
|
|
|
2007-08-06 Francois-Xavier Coudert
|
2007-08-06 Francois-Xavier Coudert
|
|
|
PR fortran/29828
|
PR fortran/29828
|
* trans.h (gfor_fndecl_string_minmax): New prototype.
|
* trans.h (gfor_fndecl_string_minmax): New prototype.
|
* trans-decl.c (gfor_fndecl_string_minmax): New variable.
|
* trans-decl.c (gfor_fndecl_string_minmax): New variable.
|
(gfc_build_intrinsic_function_decls): Create gfor_fndecl_string_minmax.
|
(gfc_build_intrinsic_function_decls): Create gfor_fndecl_string_minmax.
|
* check.c (gfc_check_min_max): Allow for character arguments.
|
* check.c (gfc_check_min_max): Allow for character arguments.
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmax_char): New function.
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmax_char): New function.
|
(gfc_conv_intrinsic_function): Add special case for MIN and MAX
|
(gfc_conv_intrinsic_function): Add special case for MIN and MAX
|
intrinsics with character arguments.
|
intrinsics with character arguments.
|
* simplify.c (simplify_min_max): Add simplification for character
|
* simplify.c (simplify_min_max): Add simplification for character
|
arguments.
|
arguments.
|
|
|
2007-08-06 Francois-Xavier Coudert
|
2007-08-06 Francois-Xavier Coudert
|
|
|
PR fortran/31612
|
PR fortran/31612
|
* invoke.texi: Adjust documentation for option -fsyntax-only.
|
* invoke.texi: Adjust documentation for option -fsyntax-only.
|
|
|
2007-08-05 Francois-Xavier Coudert
|
2007-08-05 Francois-Xavier Coudert
|
Tobias Burnus
|
Tobias Burnus
|
|
|
PR fortran/32979
|
PR fortran/32979
|
* intrinsic.h (gfc_check_isnan): Add prototype.
|
* intrinsic.h (gfc_check_isnan): Add prototype.
|
* gfortran.h (gfc_isym_id): Add GFC_ISYM_ISNAN.
|
* gfortran.h (gfc_isym_id): Add GFC_ISYM_ISNAN.
|
* intrinsic.c (add_functions): Add ISNAN intrinsic.
|
* intrinsic.c (add_functions): Add ISNAN intrinsic.
|
* check.c (gfc_check_isnan): New function.
|
* check.c (gfc_check_isnan): New function.
|
* trans-intrinsic.c (gfc_conv_intrinsic_isnan): New function.
|
* trans-intrinsic.c (gfc_conv_intrinsic_isnan): New function.
|
(gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_isnan
|
(gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_isnan
|
to translate ISNAN.
|
to translate ISNAN.
|
* intrinsic.texi: Document ISNAN.
|
* intrinsic.texi: Document ISNAN.
|
|
|
2007-08-04 Paul Thomas
|
2007-08-04 Paul Thomas
|
|
|
PR fortran/31214
|
PR fortran/31214
|
* symbol.c (get_unique_symtree): Moved from module.c.
|
* symbol.c (get_unique_symtree): Moved from module.c.
|
* module.c (get_unique_symtree): Moved to symbol.c.
|
* module.c (get_unique_symtree): Moved to symbol.c.
|
* decl.c (get_proc_name): Transfer the typespec from the local
|
* decl.c (get_proc_name): Transfer the typespec from the local
|
symbol to the module symbol, in the case that an entry is also
|
symbol to the module symbol, in the case that an entry is also
|
a module procedure. Ensure the local symbol is cleaned up by
|
a module procedure. Ensure the local symbol is cleaned up by
|
pointing to it with a unique symtree.
|
pointing to it with a unique symtree.
|
|
|
* dump_parse_tree (gfc_show_code_node): Add EXEC_ASSIGN_CALL.
|
* dump_parse_tree (gfc_show_code_node): Add EXEC_ASSIGN_CALL.
|
|
|
2007-08-04 Steven G. Kargl
|
2007-08-04 Steven G. Kargl
|
|
|
PR fortran/32969
|
PR fortran/32969
|
* iresolve.c (gfc_resolve_rrspacing): Convert argument(s) to
|
* iresolve.c (gfc_resolve_rrspacing): Convert argument(s) to
|
expected KIND.
|
expected KIND.
|
(gfc_resolve_scale): Ditto.
|
(gfc_resolve_scale): Ditto.
|
(gfc_resolve_set_exponent): Ditto.
|
(gfc_resolve_set_exponent): Ditto.
|
(gfc_resolve_spacing): Ditto.
|
(gfc_resolve_spacing): Ditto.
|
|
|
PR fortran/32968
|
PR fortran/32968
|
* trans-intrinsic.c (gfc_conv_intrinsic_si_kind,
|
* trans-intrinsic.c (gfc_conv_intrinsic_si_kind,
|
gfc_conv_intrinsic_sr_kind): Convert the argument(s) to the
|
gfc_conv_intrinsic_sr_kind): Convert the argument(s) to the
|
expected KIND, and fold the result to the expected KIND.
|
expected KIND, and fold the result to the expected KIND.
|
|
|
2007-08-03 Francois-Xavier Coudert
|
2007-08-03 Francois-Xavier Coudert
|
|
|
PR fortran/31202
|
PR fortran/31202
|
* f95-lang.c (gfc_init_builtin_functions): Defin builtins for
|
* f95-lang.c (gfc_init_builtin_functions): Defin builtins for
|
lround{f,,l} and llround{f,,l}.
|
lround{f,,l} and llround{f,,l}.
|
* trans-intrinsic.c (build_fix_expr): Generate calls to the
|
* trans-intrinsic.c (build_fix_expr): Generate calls to the
|
{l,}round{f,,l} functions.
|
{l,}round{f,,l} functions.
|
|
|
2007-08-01 Thomas Koenig
|
2007-08-01 Thomas Koenig
|
|
|
PR libfortran/32954
|
PR libfortran/32954
|
* intrinsic.c (resolve_mask_arg): New function.
|
* intrinsic.c (resolve_mask_arg): New function.
|
(gfc_resolve_maxloc): Use resolve_mask_arg for mask resolution.
|
(gfc_resolve_maxloc): Use resolve_mask_arg for mask resolution.
|
(gfc_resolve_maxval): Likewise.
|
(gfc_resolve_maxval): Likewise.
|
(gfc_resolve_minloc): Likewise.
|
(gfc_resolve_minloc): Likewise.
|
(gfc_resolve_minval): Likewise.
|
(gfc_resolve_minval): Likewise.
|
(gfc_resolve_pack): Likewise.
|
(gfc_resolve_pack): Likewise.
|
(gfc_resolve_product): Likewise.
|
(gfc_resolve_product): Likewise.
|
(gfc_resolve_sum): Likewise.
|
(gfc_resolve_sum): Likewise.
|
(gfc_resolve_unpack): Likewise.
|
(gfc_resolve_unpack): Likewise.
|
|
|
2007-08-01 Tobias Burnus
|
2007-08-01 Tobias Burnus
|
|
|
PR fortran/32936
|
PR fortran/32936
|
* match.c (gfc_match_allocate): Better check that STAT is
|
* match.c (gfc_match_allocate): Better check that STAT is
|
a variable.
|
a variable.
|
|
|
* check.c (gfc_check_allocated): Reorder checks to improve
|
* check.c (gfc_check_allocated): Reorder checks to improve
|
error message.
|
error message.
|
|
|
2007-08-01 Nick Clifton
|
2007-08-01 Nick Clifton
|
|
|
* arith.c: Change copyright header to refer to version 3 of the
|
* arith.c: Change copyright header to refer to version 3 of the
|
GNU General Public License and to point readers at the COPYING3
|
GNU General Public License and to point readers at the COPYING3
|
file and the FSF's license web page.
|
file and the FSF's license web page.
|
* openmp.c, interface.c, intrinsic.c, trans-array.c, trans-expr.c,
|
* 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,
|
symbol.c, iso-fortran-env.def, intrinsic.h, decl.c, trans-array.h,
|
matchexp.c, dump-parse-tree.c, trans-common.c, array.c,
|
matchexp.c, dump-parse-tree.c, trans-common.c, array.c,
|
Make-lang.in, trans-openmp.c, gfortran.h, error.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,
|
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,
|
expr.c, trans-const.h, trans-stmt.h, module.c, trans.c, scanner.c,
|
trans-types.c, trans.h, gfortranspec.c, trans-types.h,
|
trans-types.c, trans.h, gfortranspec.c, trans-types.h,
|
lang-specs.h, io.c, bbt.c, resolve.c, f95-lang.c, st.c,
|
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,
|
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,
|
match.h, target-memory.h, parse.c, arith.h, check.c, dependency.c,
|
parse.h, types.def, convert.c, dependency.h, primary.c,
|
parse.h, types.def, convert.c, dependency.h, primary.c,
|
trans-intrinsic.c, options.c, misc.c, simplify.c: Likewise.
|
trans-intrinsic.c, options.c, misc.c, simplify.c: Likewise.
|
|
|
2007-08-01 Daniel Franke
|
2007-08-01 Daniel Franke
|
|
|
* trans-decl.c (generate_local_decl): Emit warning on unused parameter
|
* trans-decl.c (generate_local_decl): Emit warning on unused parameter
|
on "-Wall -Wextra" or "-Wunused-parameter" but not on "-Wall", changed
|
on "-Wall -Wextra" or "-Wunused-parameter" but not on "-Wall", changed
|
messages that start with lower case to upper case.
|
messages that start with lower case to upper case.
|
* invoke.texi (-Wparameter-unused): Document differences between gcc
|
* invoke.texi (-Wparameter-unused): Document differences between gcc
|
and gfortran regarding this option.
|
and gfortran regarding this option.
|
|
|
2007-08-01 Daniel Franke
|
2007-08-01 Daniel Franke
|
|
|
PR fortran/32945
|
PR fortran/32945
|
* expr.c (check_specification_function): Skip check if no symtree
|
* expr.c (check_specification_function): Skip check if no symtree
|
is available.
|
is available.
|
|
|
2007-08-01 Paul Thomas
|
2007-08-01 Paul Thomas
|
|
|
PR fortran/31609
|
PR fortran/31609
|
* resolve.c (resolve_entries): Entries declared to be module
|
* resolve.c (resolve_entries): Entries declared to be module
|
procedures must point to the function namespace.
|
procedures must point to the function namespace.
|
|
|
2007-07-31 Francois-Xavier Coudert
|
2007-07-31 Francois-Xavier Coudert
|
|
|
PR fortran/32938
|
PR fortran/32938
|
* trans-stmt.c (gfc_trans_return): Convert to correct type.
|
* trans-stmt.c (gfc_trans_return): Convert to correct type.
|
|
|
2007-07-31 Steven G. Kargl
|
2007-07-31 Steven G. Kargl
|
|
|
PR fortran/32942
|
PR fortran/32942
|
* trans-intrinsic.c (gfc_conv_intrinsic_exponent): Convert to correct
|
* trans-intrinsic.c (gfc_conv_intrinsic_exponent): Convert to correct
|
type.
|
type.
|
|
|
2007-07-29 Jerry DeLisle
|
2007-07-29 Jerry DeLisle
|
|
|
* invoke.texi: Document -fsign-zero flag.
|
* invoke.texi: Document -fsign-zero flag.
|
|
|
2007-07-29 Paul Thomas
|
2007-07-29 Paul Thomas
|
|
|
PR fortran/31211
|
PR fortran/31211
|
* trans-expr.c (gfc_conv_expr_reference): Add block for case of
|
* trans-expr.c (gfc_conv_expr_reference): Add block for case of
|
scalar pointer functions so that NULL result is correctly
|
scalar pointer functions so that NULL result is correctly
|
handled.
|
handled.
|
|
|
PR fortran/32682
|
PR fortran/32682
|
* trans-array.c (gfc_trans_array_constructor): On detecting a
|
* trans-array.c (gfc_trans_array_constructor): On detecting a
|
multi-dimensional parameter array, set the loop limits.
|
multi-dimensional parameter array, set the loop limits.
|
|
|
2007-07-29 Daniel Franke
|
2007-07-29 Daniel Franke
|
|
|
PR fortran/32906
|
PR fortran/32906
|
* resolve.c (resolve_fl_parameter): Check for constant shape arrays,
|
* resolve.c (resolve_fl_parameter): Check for constant shape arrays,
|
adjusted error message.
|
adjusted error message.
|
|
|
2007-07-29 Daniel Franke
|
2007-07-29 Daniel Franke
|
|
|
* invoke.texi: Removed -w from option summary.
|
* invoke.texi: Removed -w from option summary.
|
|
|
2007-07-29 Daniel Franke
|
2007-07-29 Daniel Franke
|
|
|
PR fortran/32879
|
PR fortran/32879
|
* intrinsic.texi (IRAND, RAND, RANDOM_NUMBER): Document algorithm
|
* intrinsic.texi (IRAND, RAND, RANDOM_NUMBER): Document algorithm
|
used for random number generator.
|
used for random number generator.
|
|
|
2007-07-28 Kazu Hirata
|
2007-07-28 Kazu Hirata
|
|
|
* gfortran.h, interface.c, resolve.c, symbol.c: Fix comment
|
* gfortran.h, interface.c, resolve.c, symbol.c: Fix comment
|
typos.
|
typos.
|
* intrinsic.texi, invoke.texi: Fix typos.
|
* intrinsic.texi, invoke.texi: Fix typos.
|
|
|
2007-07-28 Jerry DeLisle
|
2007-07-28 Jerry DeLisle
|
|
|
PR fortran/31609
|
PR fortran/31609
|
* resolve.c (generic_sym): Check for a same symbol and if so, return to
|
* resolve.c (generic_sym): Check for a same symbol and if so, return to
|
avoid infinite recursion.
|
avoid infinite recursion.
|
|
|
2007-07-28 Daniel Franke
|
2007-07-28 Daniel Franke
|
|
|
PR fortran/31818
|
PR fortran/31818
|
PR fortran/32876
|
PR fortran/32876
|
PR fortran/32905
|
PR fortran/32905
|
* gfortran.h (symbol_attribute): Added bits for pointer_comp,
|
* gfortran.h (symbol_attribute): Added bits for pointer_comp,
|
private_comp.
|
private_comp.
|
* parse.c (parse_derived): Set pointer_comp/private_comp bits if
|
* parse.c (parse_derived): Set pointer_comp/private_comp bits if
|
the derived type ultimately contains pointer components or private
|
the derived type ultimately contains pointer components or private
|
components.
|
components.
|
* module.c (ab_attribute): New values AB_POINTER_COMP, AB_PRIVATE_COMP.
|
* module.c (ab_attribute): New values AB_POINTER_COMP, AB_PRIVATE_COMP.
|
(attr_bits): Added names for new ab_attributes.
|
(attr_bits): Added names for new ab_attributes.
|
(mio_symbol_attribute): Save/restore new attribute bits in modules.
|
(mio_symbol_attribute): Save/restore new attribute bits in modules.
|
* match.c (gfc_match_namelist): Removed check for namelist objects
|
* match.c (gfc_match_namelist): Removed check for namelist objects
|
of assumed shape.
|
of assumed shape.
|
* resolve.c (resolve_fl_namelist): Added check for pointer or
|
* resolve.c (resolve_fl_namelist): Added check for pointer or
|
private components in nested types. Added check for namelist objects
|
private components in nested types. Added check for namelist objects
|
of assumed shape.
|
of assumed shape.
|
|
|
2007-07-28 Paul Thomas
|
2007-07-28 Paul Thomas
|
|
|
PR fortran/32880
|
PR fortran/32880
|
* trans-expr.c (gfc_trans_scalar_assign): Revert to fixed order
|
* trans-expr.c (gfc_trans_scalar_assign): Revert to fixed order
|
for lse and rse pre expressions, for derived types with
|
for lse and rse pre expressions, for derived types with
|
allocatable components. Instead, assign the lhs to a temporary
|
allocatable components. Instead, assign the lhs to a temporary
|
and deallocate after the assignment.
|
and deallocate after the assignment.
|
|
|
2007-07-28 Janne Blomqvist
|
2007-07-28 Janne Blomqvist
|
|
|
PR fortran/32909
|
PR fortran/32909
|
* trans-stmt.c (gfc_trans_character_select): Replace occurrences
|
* trans-stmt.c (gfc_trans_character_select): Replace occurrences
|
of gfc_c_int_type_node with integer_type_node.
|
of gfc_c_int_type_node with integer_type_node.
|
* trans-decl.c (gfc_build_intrinsic_function_decls): Likewise.
|
* trans-decl.c (gfc_build_intrinsic_function_decls): Likewise.
|
(gfc_build_builtin_function_decls): Likewise.
|
(gfc_build_builtin_function_decls): Likewise.
|
(gfc_generate_function_code): Likewise.
|
(gfc_generate_function_code): Likewise.
|
* trans-io.c (gfc_build_io_library_fndecls): Likewise.
|
* trans-io.c (gfc_build_io_library_fndecls): Likewise.
|
|
|
2007-07-27 Janne Blomqvist
|
2007-07-27 Janne Blomqvist
|
|
|
* trans-decl.c (gfc_build_builtin_function_decls): Use existing
|
* trans-decl.c (gfc_build_builtin_function_decls): Use existing
|
gfc_array_index_type rather than creating another typenode for
|
gfc_array_index_type rather than creating another typenode for
|
gfc_index_integer_kind.
|
gfc_index_integer_kind.
|
|
|
2007-07-27 Janne Blomqvist
|
2007-07-27 Janne Blomqvist
|
|
|
* trans-io.c (gfc_build_io_library_fndecls): Change to use
|
* trans-io.c (gfc_build_io_library_fndecls): Change to use
|
gfc_array_index_type for array descriptor triplets instead of
|
gfc_array_index_type for array descriptor triplets instead of
|
gfc_int4_type_node.
|
gfc_int4_type_node.
|
|
|
2007-07-26 Steven G. Kargl
|
2007-07-26 Steven G. Kargl
|
|
|
PR fortran/32899
|
PR fortran/32899
|
* resolve.c (resolve_operator): Add INTRINSIC_EQ_OS comparison.
|
* resolve.c (resolve_operator): Add INTRINSIC_EQ_OS comparison.
|
|
|
2007-07-27 Jerry DeLisle
|
2007-07-27 Jerry DeLisle
|
Daniel Franke
|
Daniel Franke
|
|
|
PR fortran/32760
|
PR fortran/32760
|
* primary.c (match_variable): Do not call gfc_add_flavor if symbol has
|
* primary.c (match_variable): Do not call gfc_add_flavor if symbol has
|
attribute of ACCESS_PUBLIC or ACCESS_PRIVATE already marked.
|
attribute of ACCESS_PUBLIC or ACCESS_PRIVATE already marked.
|
|
|
2007-07-27 Francois-Xavier Coudert
|
2007-07-27 Francois-Xavier Coudert
|
|
|
PR fortran/32035
|
PR fortran/32035
|
* trans-stmt.c (gfc_trans_character_select): Replace the
|
* trans-stmt.c (gfc_trans_character_select): Replace the
|
mechanism with labels by a SWITCH_EXPR.
|
mechanism with labels by a SWITCH_EXPR.
|
* trans-decl.c (gfc_build_builtin_function_decls): Change
|
* trans-decl.c (gfc_build_builtin_function_decls): Change
|
return type for select_string.
|
return type for select_string.
|
|
|
2007-07-27 Paul Thomas
|
2007-07-27 Paul Thomas
|
|
|
PR fortran/32903
|
PR fortran/32903
|
* trans-decl.c (gfc_trans_deferred_vars): Set intent(out)
|
* trans-decl.c (gfc_trans_deferred_vars): Set intent(out)
|
derived types as referenced, if they have the the default
|
derived types as referenced, if they have the the default
|
initializer set.
|
initializer set.
|
|
|
2007-07-25 Kaveh R. Ghazi
|
2007-07-25 Kaveh R. Ghazi
|
|
|
* gfortran.h (generate_isocbinding_symbol): Constify.
|
* gfortran.h (generate_isocbinding_symbol): Constify.
|
* symbol.c (gen_special_c_interop_ptr, gen_cptr_param,
|
* symbol.c (gen_special_c_interop_ptr, gen_cptr_param,
|
generate_isocbinding_symbol): Likewise.
|
generate_isocbinding_symbol): Likewise.
|
|
|
2007-07-24 Paul Thomas
|
2007-07-24 Paul Thomas
|
|
|
PR fortran/31205
|
PR fortran/31205
|
PR fortran/32842
|
PR fortran/32842
|
* trans-expr.c (gfc_conv_function_call): Remove the default
|
* trans-expr.c (gfc_conv_function_call): Remove the default
|
initialization of intent(out) derived types.
|
initialization of intent(out) derived types.
|
* symbol.c (gfc_lval_expr_from_sym): New function.
|
* symbol.c (gfc_lval_expr_from_sym): New function.
|
* matchexp.c (gfc_get_parentheses): Return argument, if it is
|
* matchexp.c (gfc_get_parentheses): Return argument, if it is
|
character and posseses a ref.
|
character and posseses a ref.
|
* gfortran.h : Add prototype for gfc_lval_expr_from_sym.
|
* gfortran.h : Add prototype for gfc_lval_expr_from_sym.
|
* resolve.c (has_default_initializer): Move higher up in file.
|
* resolve.c (has_default_initializer): Move higher up in file.
|
(resolve_code): On detecting an interface assignment, check
|
(resolve_code): On detecting an interface assignment, check
|
if the rhs and the lhs are the same symbol. If this is so,
|
if the rhs and the lhs are the same symbol. If this is so,
|
enclose the rhs in parenetheses to generate a temporary and
|
enclose the rhs in parenetheses to generate a temporary and
|
prevent any possible aliasing.
|
prevent any possible aliasing.
|
(apply_default_init): Remove code making the lval and call
|
(apply_default_init): Remove code making the lval and call
|
gfc_lval_expr_from_sym instead.
|
gfc_lval_expr_from_sym instead.
|
(resolve_operator): Give a parentheses expression a type-
|
(resolve_operator): Give a parentheses expression a type-
|
spec if it has no type.
|
spec if it has no type.
|
* trans-decl.c (gfc_trans_deferred_vars): Apply the a default
|
* trans-decl.c (gfc_trans_deferred_vars): Apply the a default
|
initializer, if any, to an intent(out) derived type, using
|
initializer, if any, to an intent(out) derived type, using
|
gfc_lval_expr_from_sym and gfc_trans_assignment. Check if
|
gfc_lval_expr_from_sym and gfc_trans_assignment. Check if
|
the dummy is present.
|
the dummy is present.
|
|
|
2007-07-24 Daniel Franke
|
2007-07-24 Daniel Franke
|
|
|
PR fortran/32867
|
PR fortran/32867
|
* expr.c (check_init_expr): Simplify matched functions.
|
* expr.c (check_init_expr): Simplify matched functions.
|
|
|
2007-07-24 Daniel Franke
|
2007-07-24 Daniel Franke
|
|
|
PR fortran/32778
|
PR fortran/32778
|
* intrinsic.c (add_sym): Do not exclude any symbols, even if not part
|
* intrinsic.c (add_sym): Do not exclude any symbols, even if not part
|
of the selected standard.
|
of the selected standard.
|
(make generic): Likewise.
|
(make generic): Likewise.
|
(make alias): Likewise, set standard the alias belongs to.
|
(make alias): Likewise, set standard the alias belongs to.
|
(add_subroutines): Call make_noreturn unconditionally.
|
(add_subroutines): Call make_noreturn unconditionally.
|
(check_intrinsic_standard): Change return value to try.
|
(check_intrinsic_standard): Change return value to try.
|
(gfc_intrinsic_func_interface): Check return value of above function.
|
(gfc_intrinsic_func_interface): Check return value of above function.
|
(gfc_intrinsic_sub_interface): Likewise.
|
(gfc_intrinsic_sub_interface): Likewise.
|
|
|
2007-07-24 Thomas Koenig
|
2007-07-24 Thomas Koenig
|
|
|
PR fortran/30814
|
PR fortran/30814
|
* trans-decl.c (generate_function_code): Add argument
|
* trans-decl.c (generate_function_code): Add argument
|
for flag_bounds_check to the array for set_options.
|
for flag_bounds_check to the array for set_options.
|
* invoke.texi (-fbounds-check): Document new libarary run-time
|
* invoke.texi (-fbounds-check): Document new libarary run-time
|
behaviour.
|
behaviour.
|
|
|
2007-07-23 Daniel Franke
|
2007-07-23 Daniel Franke
|
|
|
PR fortran/25104
|
PR fortran/25104
|
PR fortran/31639
|
PR fortran/31639
|
* expr.c (check_transformational): Reject valid transformational
|
* expr.c (check_transformational): Reject valid transformational
|
intrinsics to avoid ICE.
|
intrinsics to avoid ICE.
|
(check_inquiry): Report error for assumed character lengths for
|
(check_inquiry): Report error for assumed character lengths for
|
all supported standards.
|
all supported standards.
|
(check_init_expr): Whitespace fix.
|
(check_init_expr): Whitespace fix.
|
|
|
2007-07-23 Christopher D. Rickett
|
2007-07-23 Christopher D. Rickett
|
|
|
PR fortran/32797
|
PR fortran/32797
|
PR fortran/32800
|
PR fortran/32800
|
* decl.c (verify_bind_c_sym): Use the result symbol for functions
|
* decl.c (verify_bind_c_sym): Use the result symbol for functions
|
with a result clause. Warn if implicitly typed. Verify the type
|
with a result clause. Warn if implicitly typed. Verify the type
|
and rank of the SHAPE argument, if given.
|
and rank of the SHAPE argument, if given.
|
* resolve.c (gfc_iso_c_sub_interface): Use gfc_procedure_use to
|
* resolve.c (gfc_iso_c_sub_interface): Use gfc_procedure_use to
|
check the actual args against the formal, sorting them if
|
check the actual args against the formal, sorting them if
|
necessary.
|
necessary.
|
* symbol.c (gen_shape_param): Initialize type of SHAPE param to
|
* symbol.c (gen_shape_param): Initialize type of SHAPE param to
|
BT_VOID.
|
BT_VOID.
|
|
|
2007-07-23 Christopher D. Rickett
|
2007-07-23 Christopher D. Rickett
|
|
|
PR fortran/32732
|
PR fortran/32732
|
* trans-decl.c (generate_local_decl): Convert the TREE_TYPE for by
|
* trans-decl.c (generate_local_decl): Convert the TREE_TYPE for by
|
value character dummy args of BIND(C) procedures.
|
value character dummy args of BIND(C) procedures.
|
* trans-expr.c (gfc_conv_variable): Do not build address
|
* trans-expr.c (gfc_conv_variable): Do not build address
|
expression for BT_CHARACTER dummy args.
|
expression for BT_CHARACTER dummy args.
|
|
|
2007-07-23 Christopher D. Rickett
|
2007-07-23 Christopher D. Rickett
|
Tobias Burnus
|
Tobias Burnus
|
|
|
PR fortran/32600
|
PR fortran/32600
|
* trans-expr.c (gfc_conv_function_call): Handle c_funloc.
|
* trans-expr.c (gfc_conv_function_call): Handle c_funloc.
|
* trans-types.c: Add pfunc_type_node.
|
* trans-types.c: Add pfunc_type_node.
|
(gfc_init_types,gfc_typenode_for_spec): Use it.
|
(gfc_init_types,gfc_typenode_for_spec): Use it.
|
* resolve.c (gfc_iso_c_func_interface): Fix whitespace and
|
* resolve.c (gfc_iso_c_func_interface): Fix whitespace and
|
improve error message.
|
improve error message.
|
|
|
2007-07-22 Daniel Franke
|
2007-07-22 Daniel Franke
|
|
|
PR fortran/32710
|
PR fortran/32710
|
* parse.c (gfc_fixup_sibling_symbols): No replacement of symbols if
|
* parse.c (gfc_fixup_sibling_symbols): No replacement of symbols if
|
the current is a namelist.
|
the current is a namelist.
|
|
|
2007-07-22 Daniel Franke
|
2007-07-22 Daniel Franke
|
|
|
PR fortran/29962
|
PR fortran/29962
|
PR fortran/31253
|
PR fortran/31253
|
PR fortran/31265
|
PR fortran/31265
|
PR fortran/31639
|
PR fortran/31639
|
* gfortran.h (gfc_intrinsic_sym): Changed members elemental, pure,
|
* gfortran.h (gfc_intrinsic_sym): Changed members elemental, pure,
|
generic, specific, actual_ok, noreturn into bits of a bitfield,
|
generic, specific, actual_ok, noreturn into bits of a bitfield,
|
added bits for inquiry, transformational, conversion.
|
added bits for inquiry, transformational, conversion.
|
* check.c (non_init_transformational): Removed, removed all callers.
|
* check.c (non_init_transformational): Removed, removed all callers.
|
* intrinsic.c (enum class): New.
|
* intrinsic.c (enum class): New.
|
(add_sym*): Replaced argument elemetal by enum class. Changed all
|
(add_sym*): Replaced argument elemetal by enum class. Changed all
|
callers.
|
callers.
|
(add_functions): Assign appropriate classes to intrinsic functions.
|
(add_functions): Assign appropriate classes to intrinsic functions.
|
(add_subroutines): Assign appropriate classes to intrinsic subroutines.
|
(add_subroutines): Assign appropriate classes to intrinsic subroutines.
|
(add_conv): Set conversion attribute.
|
(add_conv): Set conversion attribute.
|
(gfc_init_expr_extensions): Removed, removed all callers.
|
(gfc_init_expr_extensions): Removed, removed all callers.
|
(gfc_intrinsic_func_interface): Reimplemented check for non-standard
|
(gfc_intrinsic_func_interface): Reimplemented check for non-standard
|
initializatione expressions.
|
initializatione expressions.
|
* expr.c (check_specification_function): New.
|
* expr.c (check_specification_function): New.
|
(gfc_is_constant_expr): Added check for specification functions.
|
(gfc_is_constant_expr): Added check for specification functions.
|
(check_init_expr_arguments): New.
|
(check_init_expr_arguments): New.
|
(check_inquiry): Changed return value to MATCH, added checks for
|
(check_inquiry): Changed return value to MATCH, added checks for
|
inquiry functions defined by F2003.
|
inquiry functions defined by F2003.
|
(check_transformational): New.
|
(check_transformational): New.
|
(check_null): New.
|
(check_null): New.
|
(check_elemental): New.
|
(check_elemental): New.
|
(check_conversion): New.
|
(check_conversion): New.
|
(check_init_expr): Call new check functions, add more specific error
|
(check_init_expr): Call new check functions, add more specific error
|
messages.
|
messages.
|
|
|
2007-07-21 Christopher D. Rickett
|
2007-07-21 Christopher D. Rickett
|
|
|
PR fortran/32627
|
PR fortran/32627
|
* resolve.c (set_name_and_label): Set kind number for character
|
* resolve.c (set_name_and_label): Set kind number for character
|
version of c_f_pointer.
|
version of c_f_pointer.
|
(gfc_iso_c_sub_interface): Set the kind of the SHAPE formal arg to
|
(gfc_iso_c_sub_interface): Set the kind of the SHAPE formal arg to
|
that of the actual SHAPE arg.
|
that of the actual SHAPE arg.
|
* symbol.c (gen_shape_param): Initialize kind for SHAPE arg.
|
* symbol.c (gen_shape_param): Initialize kind for SHAPE arg.
|
|
|
2007-07-21 Christopher D. Rickett
|
2007-07-21 Christopher D. Rickett
|
|
|
PR fortran/32801
|
PR fortran/32801
|
* symbol.c (generate_isocbinding_symbol): Remove unnecessary
|
* symbol.c (generate_isocbinding_symbol): Remove unnecessary
|
conditional.
|
conditional.
|
|
|
PR fortran/32804
|
PR fortran/32804
|
* resolve.c (gfc_iso_c_func_interface): Reject assumed-shape and
|
* resolve.c (gfc_iso_c_func_interface): Reject assumed-shape and
|
deferred-shape arrays as args to C_LOC. Fix bug in testing
|
deferred-shape arrays as args to C_LOC. Fix bug in testing
|
character args to C_LOC.
|
character args to C_LOC.
|
|
|
2007-07-21 Lee Millward
|
2007-07-21 Lee Millward
|
|
|
PR fortran/32823
|
PR fortran/32823
|
* trans-intrinsic.c (gfc_conv_intrinsic_int): Evaluate all
|
* trans-intrinsic.c (gfc_conv_intrinsic_int): Evaluate all
|
arguments passed, not just the first one. Adjust code to
|
arguments passed, not just the first one. Adjust code to
|
refer to "args[0]" instead of "arg" as a result.
|
refer to "args[0]" instead of "arg" as a result.
|
|
|
2007-07-19 Christopher D. Rickett
|
2007-07-19 Christopher D. Rickett
|
|
|
PR fortran/32600
|
PR fortran/32600
|
* trans-expr.c (gfc_conv_function_call): Inline C_LOC.
|
* trans-expr.c (gfc_conv_function_call): Inline C_LOC.
|
|
|
2007-07-18 Christopher D. Rickett
|
2007-07-18 Christopher D. Rickett
|
|
|
PR fortran/32801
|
PR fortran/32801
|
* symbol.c (generate_isocbinding_symbol): Fix bug where
|
* symbol.c (generate_isocbinding_symbol): Fix bug where
|
ISOCBINDING_FUNPTR was generated for C_LOC instead of the needed
|
ISOCBINDING_FUNPTR was generated for C_LOC instead of the needed
|
ISOCBINDING_PTR.
|
ISOCBINDING_PTR.
|
|
|
2007-07-17 Janus Weil
|
2007-07-17 Janus Weil
|
|
|
PR fortran/32535
|
PR fortran/32535
|
* resolve.c (resolve_fl_namelist): Check for namelist private
|
* resolve.c (resolve_fl_namelist): Check for namelist private
|
components in contained subprograms.
|
components in contained subprograms.
|
|
|
2007-07-17 Paul Thomas
|
2007-07-17 Paul Thomas
|
|
|
PR fortran/31320
|
PR fortran/31320
|
PR fortran/32665
|
PR fortran/32665
|
* trans-expr.c (gfc_trans_subcomponent_assign): Ensure that
|
* trans-expr.c (gfc_trans_subcomponent_assign): Ensure that
|
renormalization unity base is done independently of existing
|
renormalization unity base is done independently of existing
|
lbound value.
|
lbound value.
|
(gfc_trans_scalar_assign): If rhs is not a variable, put
|
(gfc_trans_scalar_assign): If rhs is not a variable, put
|
lse->pre after rse->pre to ensure that de-allocation of lhs
|
lse->pre after rse->pre to ensure that de-allocation of lhs
|
occurs after evaluation of rhs.
|
occurs after evaluation of rhs.
|
|
|
2007-07-16 Lee Millward
|
2007-07-16 Lee Millward
|
|
|
PR fortran/32222
|
PR fortran/32222
|
PR fortran/32238
|
PR fortran/32238
|
PR fortran/32242
|
PR fortran/32242
|
* trans-intrinsic.c (gfc_conv_intrinsic_function_args): Adjust
|
* trans-intrinsic.c (gfc_conv_intrinsic_function_args): Adjust
|
to operate on a stack allocated array for the intrinsic arguments
|
to operate on a stack allocated array for the intrinsic arguments
|
instead of creating a TREE_LIST. Add two new parameters for the
|
instead of creating a TREE_LIST. Add two new parameters for the
|
array and the number of elements. Update all callers to allocate
|
array and the number of elements. Update all callers to allocate
|
an array of the correct length to pass in. Update comment.
|
an array of the correct length to pass in. Update comment.
|
(gfc_intrinsic_argument_list_length): New function.
|
(gfc_intrinsic_argument_list_length): New function.
|
(gfc_conv_intrinsic_conversion): Call it.
|
(gfc_conv_intrinsic_conversion): Call it.
|
(gfc_conv_intrinsic_mnimax): Likewise.
|
(gfc_conv_intrinsic_mnimax): Likewise.
|
(gfc_conv_intrinsic_merge): Likewise.
|
(gfc_conv_intrinsic_merge): Likewise.
|
(gfc_conv_intrinsic_lib_function): Call it. Use new CALL_EXPR
|
(gfc_conv_intrinsic_lib_function): Call it. Use new CALL_EXPR
|
constructors.
|
constructors.
|
(gfc_conv_intrinsic_cmplx): Likewise.
|
(gfc_conv_intrinsic_cmplx): Likewise.
|
(gfc_conv_intrinsic_ctime): Likewise.
|
(gfc_conv_intrinsic_ctime): Likewise.
|
(gfc_covn_intrinsic_fdate): Likewise.
|
(gfc_covn_intrinsic_fdate): Likewise.
|
(gfc_conv_intrinsic_ttynam): Likewise.
|
(gfc_conv_intrinsic_ttynam): Likewise.
|
(gfc_conv_intrinsic_ishftc): Likewise.
|
(gfc_conv_intrinsic_ishftc): Likewise.
|
(gfc_conv_intrinsic_index): Likewise.
|
(gfc_conv_intrinsic_index): Likewise.
|
(gfc_conv_intrinsic_scan): Likewise.
|
(gfc_conv_intrinsic_scan): Likewise.
|
(gfc_conv_intrinsic_verify): Likewise.
|
(gfc_conv_intrinsic_verify): Likewise.
|
(gfc_conv_intrinsic_trim): Likewise.
|
(gfc_conv_intrinsic_trim): Likewise.
|
(gfc_conv_intrinsic_aint): Use new CALL_EXPR constructors.
|
(gfc_conv_intrinsic_aint): Use new CALL_EXPR constructors.
|
(gfc_conv_intrinsic_exponent): Likewise.
|
(gfc_conv_intrinsic_exponent): Likewise.
|
(gfc_conv_intrinsic_bound): Likewise.
|
(gfc_conv_intrinsic_bound): Likewise.
|
(gfc_conv_intrinsic_abs): Likewise.
|
(gfc_conv_intrinsic_abs): Likewise.
|
(gfc_conv_intrinsic_mod): Likewise.
|
(gfc_conv_intrinsic_mod): Likewise.
|
(gfc_conv_intrinsic_sign): Likewise.
|
(gfc_conv_intrinsic_sign): Likewise.
|
(gfc_conv_intrinsic_len): Likewise.
|
(gfc_conv_intrinsic_len): Likewise.
|
(gfc_conv_intrinsic_adjust): Likewise.
|
(gfc_conv_intrinsic_adjust): Likewise.
|
(gfc_conv_intrinsic_si_kind): Likewise.
|
(gfc_conv_intrinsic_si_kind): Likewise.
|
|
|
2007-07-16 Janne Blomqvist
|
2007-07-16 Janne Blomqvist
|
|
|
PR fortran/32748
|
PR fortran/32748
|
* trans-decl.c (gfc_build_builtin_function_decls): Remove
|
* trans-decl.c (gfc_build_builtin_function_decls): Remove
|
DECL_IS_MALLOC attribute from internal_realloc, thus reverting
|
DECL_IS_MALLOC attribute from internal_realloc, thus reverting
|
part of my 2007-07-03 patch.
|
part of my 2007-07-03 patch.
|
|
|
2007-07-15 Jerry DeLisle
|
2007-07-15 Jerry DeLisle
|
Francois-Xavier Coudert
|
Francois-Xavier Coudert
|
|
|
PR fortran/32611
|
PR fortran/32611
|
* gfortran.h (gfc_option_t): Add flag_sign_zero field.
|
* gfortran.h (gfc_option_t): Add flag_sign_zero field.
|
* lang.opt (-fsign-zero): New option.
|
* lang.opt (-fsign-zero): New option.
|
* trans.h: Rename gfor_fndecl_set_std into gfor_fndecl_set_options.
|
* trans.h: Rename gfor_fndecl_set_std into gfor_fndecl_set_options.
|
* trans-decl.c (gfc_build_builtin_function_decls): Build the function
|
* trans-decl.c (gfc_build_builtin_function_decls): Build the function
|
declaration to pass an array containing the options to be used by the
|
declaration to pass an array containing the options to be used by the
|
runtime library. (gfc_generate_function_code): Build an array that
|
runtime library. (gfc_generate_function_code): Build an array that
|
contains option values to be passed to the runtime library and the call
|
contains option values to be passed to the runtime library and the call
|
to the function.
|
to the function.
|
* options.c (gfc_init_options): Initialize the flag_sign_zero field.
|
* options.c (gfc_init_options): Initialize the flag_sign_zero field.
|
(gfc_handle_option): Handle the -fsign-zero option.
|
(gfc_handle_option): Handle the -fsign-zero option.
|
|
|
2007-07-15 Francois-Xavier Coudert
|
2007-07-15 Francois-Xavier Coudert
|
|
|
PR fortran/32036
|
PR fortran/32036
|
* trans-array.c (gfc_conv_array_ref): Only evaluate index once.
|
* trans-array.c (gfc_conv_array_ref): Only evaluate index once.
|
|
|
2007-07-15 Francois-Xavier Coudert
|
2007-07-15 Francois-Xavier Coudert
|
|
|
PR fortran/32357
|
PR fortran/32357
|
* iresolve.c (gfc_resolve_mvbits): Convert FROMPOS, LEN and TOPOS
|
* iresolve.c (gfc_resolve_mvbits): Convert FROMPOS, LEN and TOPOS
|
to C int.
|
to C int.
|
|
|
2007-07-14 Thomas Koenig
|
2007-07-14 Thomas Koenig
|
|
|
PR libfortran/32731
|
PR libfortran/32731
|
* iresolve.c(gfc_resolve_pack): A scalar mask has
|
* iresolve.c(gfc_resolve_pack): A scalar mask has
|
to be kind=4, an array mask with kind<4 is converted
|
to be kind=4, an array mask with kind<4 is converted
|
to gfc_default_logical_kind automatically.
|
to gfc_default_logical_kind automatically.
|
(gfc_resolve_unpack): Convert mask to gfc_default_lotical_kind
|
(gfc_resolve_unpack): Convert mask to gfc_default_lotical_kind
|
if it has a kind<4.
|
if it has a kind<4.
|
|
|
2007-07-14 Paul Thomas
|
2007-07-14 Paul Thomas
|
|
|
PR fortran/32724
|
PR fortran/32724
|
* parse.c (parse_spec): Emit error on unexpected statement
|
* parse.c (parse_spec): Emit error on unexpected statement
|
function.
|
function.
|
|
|
2007-07-13 Daniel Franke
|
2007-07-13 Daniel Franke
|
|
|
* invoke.texi: Unified upper- and lower-case in menus.
|
* invoke.texi: Unified upper- and lower-case in menus.
|
(-w, -W): Removed, documented by gcc.
|
(-w, -W): Removed, documented by gcc.
|
* intrinsic.texi: Unified Class-section entries, added
|
* intrinsic.texi: Unified Class-section entries, added
|
subroutine/function warning where appropiate.
|
subroutine/function warning where appropiate.
|
|
|
2007-07-12 Daniel Franke
|
2007-07-12 Daniel Franke
|
|
|
PR fortran/31639
|
PR fortran/31639
|
* decl.c (gfc_match_suffix): Removed surplus general error that hides
|
* decl.c (gfc_match_suffix): Removed surplus general error that hides
|
a more specific message.
|
a more specific message.
|
* resolve.c (resolve_fl_variable): Reject illegal initializiers only
|
* resolve.c (resolve_fl_variable): Reject illegal initializiers only
|
if not already done.
|
if not already done.
|
(resolve_fl_procedure): Added check for initializers of functions.
|
(resolve_fl_procedure): Added check for initializers of functions.
|
|
|
2007-07-12 Daniel Franke
|
2007-07-12 Daniel Franke
|
|
|
PR fortran/32704
|
PR fortran/32704
|
* invoke.texi (-static-libgfortran): Document new option.
|
* invoke.texi (-static-libgfortran): Document new option.
|
|
|
2007-07-12 Paul Thomas
|
2007-07-12 Paul Thomas
|
|
|
PR fortran/32634
|
PR fortran/32634
|
PR fortran/32727
|
PR fortran/32727
|
* module.c (write_generic): Restore patch of 2007-07-10 and use
|
* module.c (write_generic): Restore patch of 2007-07-10 and use
|
symbol name if there are no use names.
|
symbol name if there are no use names.
|
|
|
2007-07-12 Christopher D. Rickett
|
2007-07-12 Christopher D. Rickett
|
|
|
PR fortran/32599
|
PR fortran/32599
|
* decl.c (verify_c_interop_param): Require character string dummy
|
* decl.c (verify_c_interop_param): Require character string dummy
|
args to BIND(C) procedures to have length 1.
|
args to BIND(C) procedures to have length 1.
|
* resolve.c (resolve_fl_procedure): Modify parameter checking for
|
* resolve.c (resolve_fl_procedure): Modify parameter checking for
|
BIND(C) procedures.
|
BIND(C) procedures.
|
|
|
PR fortran/32601
|
PR fortran/32601
|
* resolve.c (gfc_iso_c_func_interface): Verify that a valid
|
* resolve.c (gfc_iso_c_func_interface): Verify that a valid
|
expression is given as an argument to C_LOC and C_ASSOCIATED.
|
expression is given as an argument to C_LOC and C_ASSOCIATED.
|
* trans-io.c (transfer_expr): Add argument for code block. Add
|
* trans-io.c (transfer_expr): Add argument for code block. Add
|
standards check to determine if an error message should be
|
standards check to determine if an error message should be
|
reported for printing C_PTR or C_FUNPTR.
|
reported for printing C_PTR or C_FUNPTR.
|
(transfer_array_component): Update arguments to transfer_expr.
|
(transfer_array_component): Update arguments to transfer_expr.
|
(gfc_trans_transfer): Ditto.
|
(gfc_trans_transfer): Ditto.
|
|
|
* symbol.c (gen_cptr_param): Fix whitespace.
|
* symbol.c (gen_cptr_param): Fix whitespace.
|
|
|
2007-07-12 Jakub Jelinek
|
2007-07-12 Jakub Jelinek
|
|
|
PR fortran/32550
|
PR fortran/32550
|
* trans.h (GFC_POINTER_TYPE_P): Define.
|
* trans.h (GFC_POINTER_TYPE_P): Define.
|
* trans-types.c (gfc_sym_type): Set it for types on attr->sym.pointer.
|
* trans-types.c (gfc_sym_type): Set it for types on attr->sym.pointer.
|
* trans-openmp.c (gfc_omp_privatize_by_reference): Return false
|
* trans-openmp.c (gfc_omp_privatize_by_reference): Return false
|
if GFC_POINTER_TYPE_P is set on the type.
|
if GFC_POINTER_TYPE_P is set on the type.
|
|
|
2007-07-12 Richard Guenther
|
2007-07-12 Richard Guenther
|
|
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Convert
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Convert
|
arguments to gfc_charlen_type_node.
|
arguments to gfc_charlen_type_node.
|
* trans-io.c (gfc_convert_array_to_string): Convert type
|
* trans-io.c (gfc_convert_array_to_string): Convert type
|
size to gfc_array_index_type.
|
size to gfc_array_index_type.
|
|
|
2007-07-12 Daniel Franke
|
2007-07-12 Daniel Franke
|
|
|
PR fortran/32634
|
PR fortran/32634
|
PR fortran/32727
|
PR fortran/32727
|
* module.c: Reverted Paul's patch from 2007-07-10.
|
* module.c: Reverted Paul's patch from 2007-07-10.
|
|
|
2007-07-11 Richard Guenther
|
2007-07-11 Richard Guenther
|
|
|
* trans-array.c (gfc_conv_array_parameter): Use correct
|
* trans-array.c (gfc_conv_array_parameter): Use correct
|
types for comparison.
|
types for comparison.
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Use
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Use
|
correct types for POINTER_PLUS_EXPR.
|
correct types for POINTER_PLUS_EXPR.
|
* trans-stmt.c (gfc_trans_forall_loop): Use correct type
|
* trans-stmt.c (gfc_trans_forall_loop): Use correct type
|
for integer one constant.
|
for integer one constant.
|
|
|
2007-07-10 Paul Thomas
|
2007-07-10 Paul Thomas
|
|
|
PR fortran/32157
|
PR fortran/32157
|
* resolve.c (is_external_proc): New function. Adds test that
|
* resolve.c (is_external_proc): New function. Adds test that
|
the symbol is not an intrinsic procedure.
|
the symbol is not an intrinsic procedure.
|
* (resolve_function, resolve_call): Replace logical statements
|
* (resolve_function, resolve_call): Replace logical statements
|
with call to is_external_proc.
|
with call to is_external_proc.
|
|
|
PR fortran/32689
|
PR fortran/32689
|
* simplify.c (gfc_simplify_transfer): If mold has rank, the
|
* simplify.c (gfc_simplify_transfer): If mold has rank, the
|
result is an array.
|
result is an array.
|
|
|
PR fortran/32634
|
PR fortran/32634
|
* module.c (write_generic): Write the local name of the
|
* module.c (write_generic): Write the local name of the
|
interface.
|
interface.
|
|
|
2007-07-09 Francois-Xavier Coudert
|
2007-07-09 Francois-Xavier Coudert
|
|
|
PR fortran/29459
|
PR fortran/29459
|
* trans-array.c (gfc_trans_array_constructor): Mark offset field
|
* trans-array.c (gfc_trans_array_constructor): Mark offset field
|
with TREE_NO_WARNING.
|
with TREE_NO_WARNING.
|
* trans-decl.c (gfc_build_qualified_array): Mark lbound, ubound,
|
* trans-decl.c (gfc_build_qualified_array): Mark lbound, ubound,
|
stride and size variables with TREE_NO_WARNING.
|
stride and size variables with TREE_NO_WARNING.
|
|
|
2007-07-09 Steven G. Kargl
|
2007-07-09 Steven G. Kargl
|
|
|
* trans-decl.c (set_tree_decl_type_code): Remove function.
|
* trans-decl.c (set_tree_decl_type_code): Remove function.
|
(generate_local_decl): Remove reference to set_tree_decl_type_code.
|
(generate_local_decl): Remove reference to set_tree_decl_type_code.
|
|
|
2007-07-09 Daniel Franke
|
2007-07-09 Daniel Franke
|
|
|
PR fortran/31129
|
PR fortran/31129
|
* trans-decl.c (generate_local_decl) Emit a warning if an unused
|
* trans-decl.c (generate_local_decl) Emit a warning if an unused
|
parameter is found.
|
parameter is found.
|
|
|
2007-07-08 Daniel Franke
|
2007-07-08 Daniel Franke
|
|
|
PR fortran/29876
|
PR fortran/29876
|
* module.c (gfc_match_use): Do not set an non-existant
|
* module.c (gfc_match_use): Do not set an non-existant
|
intrinsic operator if a user-defined operator is found.
|
intrinsic operator if a user-defined operator is found.
|
|
|
2007-07-08 Daniel Franke
|
2007-07-08 Daniel Franke
|
|
|
PR fortran/24784
|
PR fortran/24784
|
PR fortran/28004
|
PR fortran/28004
|
* trans-decl.c (generate_local_decl): Adjusted warning on unused
|
* trans-decl.c (generate_local_decl): Adjusted warning on unused
|
dummy arguments, tell middle-end not to emit additional warnings.
|
dummy arguments, tell middle-end not to emit additional warnings.
|
|
|
2007-07-08 Daniel Franke
|
2007-07-08 Daniel Franke
|
Tobias Schlüter
|
Tobias Schlüter
|
|
|
PR fortran/17711
|
PR fortran/17711
|
* gfortran.h (gfc_intrinsic_op): Added INTRINSIC_EQ_OS,
|
* gfortran.h (gfc_intrinsic_op): Added INTRINSIC_EQ_OS,
|
INTRINSIC_NE_OS, INTRINSIC_GT_OS, INTRINSIC_GE_OS,
|
INTRINSIC_NE_OS, INTRINSIC_GT_OS, INTRINSIC_GE_OS,
|
INTRINSIC_LT_OS and INTRINSIC_LE_OS.
|
INTRINSIC_LT_OS and INTRINSIC_LE_OS.
|
* arith.c (eval_intrinsic, eval_type_intrinsic0): Likewise.
|
* arith.c (eval_intrinsic, eval_type_intrinsic0): Likewise.
|
* arith.h (gfc_eq, gfc_ne, gfc_gt, gfc_ge, gfc_lt, gfc_le):
|
* arith.h (gfc_eq, gfc_ne, gfc_gt, gfc_ge, gfc_lt, gfc_le):
|
Added gfc_intrinsic_op as third argument type.
|
Added gfc_intrinsic_op as third argument type.
|
* dump-parse-tree.c (gfc_show_expr): Account for new enum values.
|
* dump-parse-tree.c (gfc_show_expr): Account for new enum values.
|
* expr.c (simplify_intrinsic_op, check_intrinsic_op): Likewise.
|
* expr.c (simplify_intrinsic_op, check_intrinsic_op): Likewise.
|
* interface.c (check_operator_interface): Likewise.
|
* interface.c (check_operator_interface): Likewise.
|
(gfc_check_interfaces): Added cross-checks for FORTRAN 77 and
|
(gfc_check_interfaces): Added cross-checks for FORTRAN 77 and
|
Fortran 90 style operators using new enum values.
|
Fortran 90 style operators using new enum values.
|
(gfc_extend_expr): Likewise.
|
(gfc_extend_expr): Likewise.
|
(gfc_add_interface): Likewise.
|
(gfc_add_interface): Likewise.
|
* match.c (intrinsic_operators): Distinguish FORTRAN 77 style
|
* match.c (intrinsic_operators): Distinguish FORTRAN 77 style
|
operators from Fortran 90 style operators using new enum values.
|
operators from Fortran 90 style operators using new enum values.
|
* matchexp.c (match_level_4): Account for new enum values.
|
* matchexp.c (match_level_4): Account for new enum values.
|
* module.c (mio_expr): Likewise.
|
* module.c (mio_expr): Likewise.
|
* resolve.c (resolve_operator): Deal with new enum values, fix
|
* resolve.c (resolve_operator): Deal with new enum values, fix
|
inconsistent error messages.
|
inconsistent error messages.
|
* trans-expr.c (gfc_conv_expr_op): Account for new enum values.
|
* trans-expr.c (gfc_conv_expr_op): Account for new enum values.
|
|
|
2007-07-08 Tobias Burnus
|
2007-07-08 Tobias Burnus
|
|
|
PR fortran/32669
|
PR fortran/32669
|
* interface.c (get_expr_storage_size): Properly obtain lower bound.
|
* interface.c (get_expr_storage_size): Properly obtain lower bound.
|
(compare_actual_formal): Add space before parenthesis.
|
(compare_actual_formal): Add space before parenthesis.
|
|
|
2007-07-08 Daniel Franke
|
2007-07-08 Daniel Franke
|
|
|
PR fortran/25094
|
PR fortran/25094
|
* resolve.c (resolve_fl_procedure): Added check for PRIVATE types
|
* resolve.c (resolve_fl_procedure): Added check for PRIVATE types
|
in PUBLIC interfaces.
|
in PUBLIC interfaces.
|
|
|
2007-07-07 Jerry DeLisle
|
2007-07-07 Jerry DeLisle
|
|
|
PR fortran/32644
|
PR fortran/32644
|
* decl.c (match_attr_spec): Don't return MATCH_ERROR if comma found and
|
* decl.c (match_attr_spec): Don't return MATCH_ERROR if comma found and
|
gfc_match_bind_c does not return MATCH_YES.
|
gfc_match_bind_c does not return MATCH_YES.
|
|
|
2007-07-07 Kazu Hirata
|
2007-07-07 Kazu Hirata
|
|
|
* decl.c, gfortran.h, interface.c, module.c, resolve.c,
|
* decl.c, gfortran.h, interface.c, module.c, resolve.c,
|
trans-array.c, trans-decl.c: Fix comment typos. Follow
|
trans-array.c, trans-decl.c: Fix comment typos. Follow
|
spelling conventions.
|
spelling conventions.
|
* intrinsic.texi: Fix typos. Follow spelling conventions.
|
* intrinsic.texi: Fix typos. Follow spelling conventions.
|
|
|
2007-05-06 Daniel Franke
|
2007-05-06 Daniel Franke
|
|
|
PR fortran/32633
|
PR fortran/32633
|
* symbol.c (save_status): New.
|
* symbol.c (save_status): New.
|
* gfortran.h (save_status): Added external declaration.
|
* gfortran.h (save_status): Added external declaration.
|
(check_conflict): Check for conflicting explicite SAVE statements
|
(check_conflict): Check for conflicting explicite SAVE statements
|
only.
|
only.
|
(gen_special_c_interop_ptr): Use SAVE_EXPLICIT constant.
|
(gen_special_c_interop_ptr): Use SAVE_EXPLICIT constant.
|
* module.c (ab_attribute, attr_bits): Removed enumerator value
|
* module.c (ab_attribute, attr_bits): Removed enumerator value
|
AB_SAVE for save attribute.
|
AB_SAVE for save attribute.
|
(mio_symbol_attribute): Import/export the full SAVE status,
|
(mio_symbol_attribute): Import/export the full SAVE status,
|
removed usage of AB_SAVE.
|
removed usage of AB_SAVE.
|
* dump-parse-tree.c (gfc_show_attr): Dump full SAVE status.
|
* dump-parse-tree.c (gfc_show_attr): Dump full SAVE status.
|
* decl.c (add_init_expr_to_sym): Set SAVE_IMPLICIT only if not
|
* decl.c (add_init_expr_to_sym): Set SAVE_IMPLICIT only if not
|
already explicit.
|
already explicit.
|
|
|
2007-07-05 Daniel Franke
|
2007-07-05 Daniel Franke
|
Tobias Burnus
|
Tobias Burnus
|
|
|
PR fortran/32359
|
PR fortran/32359
|
* gfortran.h (symbol_attribute): Change save attribute into an enum.
|
* gfortran.h (symbol_attribute): Change save attribute into an enum.
|
* decl.c (add_init_expr_to_sym): Set it to SAVE_IMPLICIT.
|
* decl.c (add_init_expr_to_sym): Set it to SAVE_IMPLICIT.
|
* symbol.c (gfc_add_save): Check for SAVE_EXPLICIT.
|
* symbol.c (gfc_add_save): Check for SAVE_EXPLICIT.
|
* resolve.c (resolve_fl_variable): Check for SAVE_EXPLICIT.
|
* resolve.c (resolve_fl_variable): Check for SAVE_EXPLICIT.
|
(resolve_symbol): Allow OMP threadprivate with
|
(resolve_symbol): Allow OMP threadprivate with
|
initialization SAVEd and save_all variable.
|
initialization SAVEd and save_all variable.
|
* trans-decl.c (gfc_finish_var_decl): Remove obsolete sym->value check.
|
* trans-decl.c (gfc_finish_var_decl): Remove obsolete sym->value check.
|
|
|
2007-07-05 Paul Thomas
|
2007-07-05 Paul Thomas
|
|
|
PR fortran/32526
|
PR fortran/32526
|
* match.c (gfc_match_call): Check, in all cases, that a symbol
|
* match.c (gfc_match_call): Check, in all cases, that a symbol
|
is neither generic nor a subroutine before trying to add it as
|
is neither generic nor a subroutine before trying to add it as
|
a subroutine.
|
a subroutine.
|
|
|
PR fortran/32613
|
PR fortran/32613
|
* match.c (gfc_match_do): Reset the implied_index attribute.
|
* match.c (gfc_match_do): Reset the implied_index attribute.
|
|
|
2007-07-04 Francois-Xavier Coudert
|
2007-07-04 Francois-Xavier Coudert
|
|
|
PR fortran/31198
|
PR fortran/31198
|
* trans-intrinsic.c (trans-intrinsic.c): Handle optional
|
* trans-intrinsic.c (trans-intrinsic.c): Handle optional
|
arguments correctly for MIN and MAX intrinsics.
|
arguments correctly for MIN and MAX intrinsics.
|
|
|
2007-07-03 Jerry DeLisle
|
2007-07-03 Jerry DeLisle
|
|
|
PR fortran/32545
|
PR fortran/32545
|
* io.c (check_format): Always call gfc_error for errors.
|
* io.c (check_format): Always call gfc_error for errors.
|
(check_format_string): Change type of this function to try and
|
(check_format_string): Change type of this function to try and
|
return the result of check_format.
|
return the result of check_format.
|
(check_io_constraints): Return MATCH_ERROR if check_format_string
|
(check_io_constraints): Return MATCH_ERROR if check_format_string
|
returns FAILURE.
|
returns FAILURE.
|
|
|
2007-07-03 Jerry DeLisle
|
2007-07-03 Jerry DeLisle
|
|
|
PR fortran/32612
|
PR fortran/32612
|
* decl.c (get_proc_name): Include attr->mod_proc in check for error.
|
* decl.c (get_proc_name): Include attr->mod_proc in check for error.
|
|
|
2007-07-03 Jerry DeLisle
|
2007-07-03 Jerry DeLisle
|
|
|
PR fortran/32432
|
PR fortran/32432
|
* gfortran.h: Change type of gfc_assign_data_value from void to try.
|
* gfortran.h: Change type of gfc_assign_data_value from void to try.
|
* data.c (gfc_assign_data_value): Return FAILURE if error found.
|
* data.c (gfc_assign_data_value): Return FAILURE if error found.
|
* resolve.c (check_data_variable): If gfc_assign_data_value returns
|
* resolve.c (check_data_variable): If gfc_assign_data_value returns
|
failure, break out of loop and return failure.
|
failure, break out of loop and return failure.
|
|
|
2007-07-03 Christopher D. Rickett
|
2007-07-03 Christopher D. Rickett
|
|
|
PR fortran/32579
|
PR fortran/32579
|
* symbol.c (gen_cptr_param): Generate C_PTR and C_FUNPTR if necessary.
|
* symbol.c (gen_cptr_param): Generate C_PTR and C_FUNPTR if necessary.
|
(build_formal_args): Pass intrinsic module symbol id to
|
(build_formal_args): Pass intrinsic module symbol id to
|
gen_cptr_param.
|
gen_cptr_param.
|
|
|
2007-07-03 Tobias Burnus
|
2007-07-03 Tobias Burnus
|
|
|
PR fortran/25062
|
PR fortran/25062
|
* resolve.c (resolve_common_blocks): New check function.
|
* resolve.c (resolve_common_blocks): New check function.
|
(resolve_types): Use it.
|
(resolve_types): Use it.
|
|
|
2007-07-03 Tobias Burnus
|
2007-07-03 Tobias Burnus
|
|
|
PR fortran/30940
|
PR fortran/30940
|
* interface.c (get_sym_storage_size): New function.
|
* interface.c (get_sym_storage_size): New function.
|
(get_sym_storage_size): New function.
|
(get_sym_storage_size): New function.
|
(compare_actual_formal): Enhance sequence association
|
(compare_actual_formal): Enhance sequence association
|
support and improve checking.
|
support and improve checking.
|
|
|
2007-07-03 Janne Blomqvist
|
2007-07-03 Janne Blomqvist
|
|
|
* trans-decl.c (gfc_build_builtin_function_decls): Mark
|
* trans-decl.c (gfc_build_builtin_function_decls): Mark
|
internal_realloc as a malloc function.
|
internal_realloc as a malloc function.
|
|
|
2007-07-03 Tobias Burnus
|
2007-07-03 Tobias Burnus
|
|
|
PR fortran/20888
|
PR fortran/20888
|
* resolve.c (resolve_operator): Check for NULL as operand.
|
* resolve.c (resolve_operator): Check for NULL as operand.
|
|
|
2007-07-02 Tobias Burnus
|
2007-07-02 Tobias Burnus
|
|
|
* gfortran.texi (Fortran 2003): Add ISO Bind C.
|
* gfortran.texi (Fortran 2003): Add ISO Bind C.
|
* intrinsic.texi (C_ASSOCIATED,C_F_POINTER,C_F_PROCPOINTER,
|
* intrinsic.texi (C_ASSOCIATED,C_F_POINTER,C_F_PROCPOINTER,
|
C_FUNLOC,C_LOC): Document new ISO Bind C intrinsics.
|
C_FUNLOC,C_LOC): Document new ISO Bind C intrinsics.
|
|
|
2007-07-01 Christopher D. Rickett
|
2007-07-01 Christopher D. Rickett
|
|
|
* interface.c (gfc_compare_derived_types): Special case for comparing
|
* interface.c (gfc_compare_derived_types): Special case for comparing
|
derived types across namespaces.
|
derived types across namespaces.
|
(gfc_compare_types): Deal with BT_VOID.
|
(gfc_compare_types): Deal with BT_VOID.
|
(compare_parameter): Use BT_VOID to accept ISO C Binding pointers.
|
(compare_parameter): Use BT_VOID to accept ISO C Binding pointers.
|
* trans-expr.c (gfc_conv_function_call): Remove setting parm_kind
|
* trans-expr.c (gfc_conv_function_call): Remove setting parm_kind
|
to SCALAR
|
to SCALAR
|
(gfc_conv_initializer): Deal with ISO C Binding NULL_PTR and
|
(gfc_conv_initializer): Deal with ISO C Binding NULL_PTR and
|
NULL_FUNPTR.
|
NULL_FUNPTR.
|
(gfc_conv_expr): Convert expressions for ISO C Binding derived types.
|
(gfc_conv_expr): Convert expressions for ISO C Binding derived types.
|
* symbol.c (gfc_set_default_type): BIND(C) variables should not be
|
* symbol.c (gfc_set_default_type): BIND(C) variables should not be
|
Implicitly declared.
|
Implicitly declared.
|
(check_conflict): Add BIND(C) and check for conflicts.
|
(check_conflict): Add BIND(C) and check for conflicts.
|
(gfc_add_explicit_interface): Whitespace.
|
(gfc_add_explicit_interface): Whitespace.
|
(gfc_add_is_bind_c): New function.
|
(gfc_add_is_bind_c): New function.
|
(gfc_copy_attr): Use it.
|
(gfc_copy_attr): Use it.
|
(gfc_new_symbol): Initialize ISO C Binding objects.
|
(gfc_new_symbol): Initialize ISO C Binding objects.
|
(get_iso_c_binding_dt): New function.
|
(get_iso_c_binding_dt): New function.
|
(verify_bind_c_derived_type): Ditto.
|
(verify_bind_c_derived_type): Ditto.
|
(gen_special_c_interop_ptr): Ditto.
|
(gen_special_c_interop_ptr): Ditto.
|
(add_formal_arg): Ditto.
|
(add_formal_arg): Ditto.
|
(gen_cptr_param): Ditto.
|
(gen_cptr_param): Ditto.
|
(gen_fptr_param): Ditto.
|
(gen_fptr_param): Ditto.
|
(gen_shape_param): Ditto.
|
(gen_shape_param): Ditto.
|
(add_proc_interface): Ditto.
|
(add_proc_interface): Ditto.
|
(build_formal_args): Ditto.
|
(build_formal_args): Ditto.
|
(generate_isocbinding_symbol): Ditto.
|
(generate_isocbinding_symbol): Ditto.
|
(get_iso_c_sym): Ditto.
|
(get_iso_c_sym): Ditto.
|
* decl.c (num_idents_on_line, has_name_equals): New variables.
|
* decl.c (num_idents_on_line, has_name_equals): New variables.
|
(verify_c_interop_param): New function.
|
(verify_c_interop_param): New function.
|
(build_sym): Finish binding labels and deal with COMMON blocks.
|
(build_sym): Finish binding labels and deal with COMMON blocks.
|
(add_init_expr_to_sym): Check if the initialized expression is
|
(add_init_expr_to_sym): Check if the initialized expression is
|
an iso_c_binding named constants
|
an iso_c_binding named constants
|
(variable_decl): Set ISO C Binding type_spec components.
|
(variable_decl): Set ISO C Binding type_spec components.
|
(gfc_match_kind_spec): Check match for C interoperable kind.
|
(gfc_match_kind_spec): Check match for C interoperable kind.
|
(match_char_spec): Fix comment. Chnage gfc_match_small_int
|
(match_char_spec): Fix comment. Chnage gfc_match_small_int
|
to gfc_match_small_int_expr. Check for C interoperable kind.
|
to gfc_match_small_int_expr. Check for C interoperable kind.
|
(match_type_spec): Clear the current binding label.
|
(match_type_spec): Clear the current binding label.
|
(match_attr_spec): Add DECL_IS_BIND_C. If BIND(C) is found, use it
|
(match_attr_spec): Add DECL_IS_BIND_C. If BIND(C) is found, use it
|
to set attributes.
|
to set attributes.
|
(set_binding_label): New function.
|
(set_binding_label): New function.
|
(set_com_block_bind_c): Ditto.
|
(set_com_block_bind_c): Ditto.
|
(verify_c_interop): Ditto.
|
(verify_c_interop): Ditto.
|
(verify_com_block_vars_c_interop): Ditto.
|
(verify_com_block_vars_c_interop): Ditto.
|
(verify_bind_c_sym): Ditto.
|
(verify_bind_c_sym): Ditto.
|
(set_verify_bind_c_sym): Ditto.
|
(set_verify_bind_c_sym): Ditto.
|
(set_verify_bind_c_com_block): Ditto.
|
(set_verify_bind_c_com_block): Ditto.
|
(get_bind_c_idents): Ditto.
|
(get_bind_c_idents): Ditto.
|
(gfc_match_bind_c_stmt): Ditto.
|
(gfc_match_bind_c_stmt): Ditto.
|
(gfc_match_data_decl): Use num_idents_on_line.
|
(gfc_match_data_decl): Use num_idents_on_line.
|
(match_result): Deal with right paren in BIND(C).
|
(match_result): Deal with right paren in BIND(C).
|
(gfc_match_suffix): New function.
|
(gfc_match_suffix): New function.
|
(gfc_match_function_decl): Use it. Code is re-arranged to deal with
|
(gfc_match_function_decl): Use it. Code is re-arranged to deal with
|
ISO C Binding result clauses.
|
ISO C Binding result clauses.
|
(gfc_match_subroutine): Deal with BIND(C).
|
(gfc_match_subroutine): Deal with BIND(C).
|
(gfc_match_bind_c): New function.
|
(gfc_match_bind_c): New function.
|
(gfc_get_type_attr_spec): New function. Code is re-arranged in and
|
(gfc_get_type_attr_spec): New function. Code is re-arranged in and
|
taken from gfc_match_derived_decl.
|
taken from gfc_match_derived_decl.
|
(gfc_match_derived_decl): Add check for BIND(C).
|
(gfc_match_derived_decl): Add check for BIND(C).
|
* trans-common.c: Forward declare gfc_get_common.
|
* trans-common.c: Forward declare gfc_get_common.
|
(gfc_sym_mangled_common_id): Change arg from 'const char *name' to
|
(gfc_sym_mangled_common_id): Change arg from 'const char *name' to
|
'gfc_common_head *com'. Check for ISO C Binding of the common block.
|
'gfc_common_head *com'. Check for ISO C Binding of the common block.
|
(build_common_decl): 'com->name' to 'com in SET_DECL_ASSEMBLER_NAME.
|
(build_common_decl): 'com->name' to 'com in SET_DECL_ASSEMBLER_NAME.
|
* gfortran.h: Add GFC_MAX_BINDING_LABEL_LEN
|
* gfortran.h: Add GFC_MAX_BINDING_LABEL_LEN
|
(bt): Add BT_VOID
|
(bt): Add BT_VOID
|
(sym_flavor): Add FL_VOID.
|
(sym_flavor): Add FL_VOID.
|
(iso_fortran_env_symbol, iso_c_binding_symbol, intmod_id): New enum
|
(iso_fortran_env_symbol, iso_c_binding_symbol, intmod_id): New enum
|
(CInteropKind_t): New struct.
|
(CInteropKind_t): New struct.
|
(c_interop_kinds_table): Use it. Declare an array of structs.
|
(c_interop_kinds_table): Use it. Declare an array of structs.
|
(symbol_attribute): Add is_bind_c, is_c_interop, and is_iso_c
|
(symbol_attribute): Add is_bind_c, is_c_interop, and is_iso_c
|
bitfields.
|
bitfields.
|
(gfc_typespec): Add is_c_interop; is_iso_c, and f90_type members.
|
(gfc_typespec): Add is_c_interop; is_iso_c, and f90_type members.
|
(gfc_symbol): Add from_intmod, intmod_sym_id, binding_label, and
|
(gfc_symbol): Add from_intmod, intmod_sym_id, binding_label, and
|
common_block members.
|
common_block members.
|
(gfc_common_head): Add binding_label and is_bind_c members.
|
(gfc_common_head): Add binding_label and is_bind_c members.
|
(gfc_gsymbol): Add sym_name, mod_name, and binding_label members.
|
(gfc_gsymbol): Add sym_name, mod_name, and binding_label members.
|
Add prototypes for get_c_kind, gfc_validate_c_kind,
|
Add prototypes for get_c_kind, gfc_validate_c_kind,
|
gfc_check_any_c_kind, gfc_add_is_bind_c, gfc_add_value,
|
gfc_check_any_c_kind, gfc_add_is_bind_c, gfc_add_value,
|
verify_c_interop, verify_c_interop_param, verify_bind_c_sym,
|
verify_c_interop, verify_c_interop_param, verify_bind_c_sym,
|
verify_bind_c_derived_type, verify_com_block_vars_c_interop,
|
verify_bind_c_derived_type, verify_com_block_vars_c_interop,
|
generate_isocbinding_symbol, get_iso_c_sym, gfc_iso_c_sub_interface
|
generate_isocbinding_symbol, get_iso_c_sym, gfc_iso_c_sub_interface
|
* iso-c-binding.def: New file. This file contains the definitions
|
* iso-c-binding.def: New file. This file contains the definitions
|
of the types provided by the Fortran 2003 ISO_C_BINDING intrinsic
|
of the types provided by the Fortran 2003 ISO_C_BINDING intrinsic
|
module.
|
module.
|
* trans-const.c (gfc_conv_constant_to_tree): Deal with C_NULL_PTR
|
* trans-const.c (gfc_conv_constant_to_tree): Deal with C_NULL_PTR
|
or C_NULL_FUNPTR expressions.
|
or C_NULL_FUNPTR expressions.
|
* expr.c (gfc_copy_expr): Add BT_VOID case. For BT_CHARACTER, the
|
* expr.c (gfc_copy_expr): Add BT_VOID case. For BT_CHARACTER, the
|
ISO C Binding requires a minimum string length of 1 for '\0'.
|
ISO C Binding requires a minimum string length of 1 for '\0'.
|
* module.c (intmod_sym): New struct.
|
* module.c (intmod_sym): New struct.
|
(pointer_info): Add binding_label member.
|
(pointer_info): Add binding_label member.
|
(write_atom): Set len to 0 for NULL pointers. Check for NULL p and *p.
|
(write_atom): Set len to 0 for NULL pointers. Check for NULL p and *p.
|
(ab_attribute): Add AB_IS_BIND_C, AB_IS_C_INTEROP and AB_IS_ISO_C.
|
(ab_attribute): Add AB_IS_BIND_C, AB_IS_C_INTEROP and AB_IS_ISO_C.
|
(attr_bits): Add "IS_BIND_C", "IS_C_INTEROP", and "IS_ISO_C".
|
(attr_bits): Add "IS_BIND_C", "IS_C_INTEROP", and "IS_ISO_C".
|
(mio_symbol_attribute): Deal with ISO C Binding attributes.
|
(mio_symbol_attribute): Deal with ISO C Binding attributes.
|
(bt_types): Add "VOID".
|
(bt_types): Add "VOID".
|
(mio_typespec): Deal with ISO C Binding components.
|
(mio_typespec): Deal with ISO C Binding components.
|
(mio_namespace_ref): Add intmod variable.
|
(mio_namespace_ref): Add intmod variable.
|
(mio_symbol): Check for symbols from an intrinsic module.
|
(mio_symbol): Check for symbols from an intrinsic module.
|
(load_commons): Check for BIND(C) common block.
|
(load_commons): Check for BIND(C) common block.
|
(read_module): Read binding_label and use it.
|
(read_module): Read binding_label and use it.
|
(write_common): Add label. Write BIND(C) info.
|
(write_common): Add label. Write BIND(C) info.
|
(write_blank_common): Blank commons are not BIND(C). Explicitly
|
(write_blank_common): Blank commons are not BIND(C). Explicitly
|
set is_bind_c=0.
|
set is_bind_c=0.
|
(write_symbol): Deal with binding_label.
|
(write_symbol): Deal with binding_label.
|
(sort_iso_c_rename_list): New function.
|
(sort_iso_c_rename_list): New function.
|
(import_iso_c_binding_module): Ditto.
|
(import_iso_c_binding_module): Ditto.
|
(create_int_parameter): Add to args.
|
(create_int_parameter): Add to args.
|
(use_iso_fortran_env_module): Adjust to deal with iso_c_binding
|
(use_iso_fortran_env_module): Adjust to deal with iso_c_binding
|
intrinsic module.
|
intrinsic module.
|
* trans-types.c (c_interop_kinds_table): new array of structs.
|
* trans-types.c (c_interop_kinds_table): new array of structs.
|
(gfc_validate_c_kind): New function.
|
(gfc_validate_c_kind): New function.
|
(gfc_check_any_c_kind): Ditto.
|
(gfc_check_any_c_kind): Ditto.
|
(get_real_kind_from_node): Ditto.
|
(get_real_kind_from_node): Ditto.
|
(get_int_kind_from_node): Ditto.
|
(get_int_kind_from_node): Ditto.
|
(get_int_kind_from_width): Ditto.
|
(get_int_kind_from_width): Ditto.
|
(get_int_kind_from_minimal_width): Ditto.
|
(get_int_kind_from_minimal_width): Ditto.
|
(init_c_interop_kinds): Ditto.
|
(init_c_interop_kinds): Ditto.
|
(gfc_init_kinds): call init_c_interop_kinds.
|
(gfc_init_kinds): call init_c_interop_kinds.
|
(gfc_typenode_for_spec): Adjust for BT_VOID and ISO C Binding pointers.
|
(gfc_typenode_for_spec): Adjust for BT_VOID and ISO C Binding pointers.
|
Adjust handling of BT_DERIVED.
|
Adjust handling of BT_DERIVED.
|
(gfc_sym_type): Whitespace.
|
(gfc_sym_type): Whitespace.
|
(gfc_get_derived_type): Account for iso_c_binding derived types
|
(gfc_get_derived_type): Account for iso_c_binding derived types
|
* resolve.c (is_scalar_expr_ptr): New function.
|
* resolve.c (is_scalar_expr_ptr): New function.
|
(gfc_iso_c_func_interface): Ditto.
|
(gfc_iso_c_func_interface): Ditto.
|
(resolve_function): Use gfc_iso_c_func_interface.
|
(resolve_function): Use gfc_iso_c_func_interface.
|
(set_name_and_label): New function.
|
(set_name_and_label): New function.
|
(gfc_iso_c_sub_interface): Ditto.
|
(gfc_iso_c_sub_interface): Ditto.
|
(resolve_specific_s0): Use gfc_iso_c_sub_interface.
|
(resolve_specific_s0): Use gfc_iso_c_sub_interface.
|
(resolve_bind_c_comms): New function.
|
(resolve_bind_c_comms): New function.
|
(resolve_bind_c_derived_types): Ditto.
|
(resolve_bind_c_derived_types): Ditto.
|
(gfc_verify_binding_labels): Ditto.
|
(gfc_verify_binding_labels): Ditto.
|
(resolve_fl_procedure): Check for ISO C interoperability.
|
(resolve_fl_procedure): Check for ISO C interoperability.
|
(resolve_symbol): Check C interoperability.
|
(resolve_symbol): Check C interoperability.
|
(resolve_types): Walk the namespace. Check COMMON blocks.
|
(resolve_types): Walk the namespace. Check COMMON blocks.
|
* trans-decl.c (gfc_sym_mangled_identifier): Prevent the mangling
|
* trans-decl.c (gfc_sym_mangled_identifier): Prevent the mangling
|
of identifiers that have an assigned binding label.
|
of identifiers that have an assigned binding label.
|
(gfc_sym_mangled_function_id): Use the binding label rather than
|
(gfc_sym_mangled_function_id): Use the binding label rather than
|
the mangled name.
|
the mangled name.
|
(gfc_finish_var_decl): Put variables that are BIND(C) into a common
|
(gfc_finish_var_decl): Put variables that are BIND(C) into a common
|
segment of the object file, because this is what C would do.
|
segment of the object file, because this is what C would do.
|
(gfc_create_module_variable): Conver to proper types
|
(gfc_create_module_variable): Conver to proper types
|
(set_tree_decl_type_code): New function.
|
(set_tree_decl_type_code): New function.
|
(generate_local_decl): Check dummy variables and derived types for
|
(generate_local_decl): Check dummy variables and derived types for
|
ISO C Binding attributes.
|
ISO C Binding attributes.
|
* match.c (gfc_match_small_int_expr): New function.
|
* match.c (gfc_match_small_int_expr): New function.
|
(gfc_match_name_C): Ditto.
|
(gfc_match_name_C): Ditto.
|
(match_common_name): Deal with ISO C Binding in COMMON blocks
|
(match_common_name): Deal with ISO C Binding in COMMON blocks
|
* trans-io.c (transfer_expr): Deal with C_NULL_PTR or C_NULL_FUNPTR
|
* trans-io.c (transfer_expr): Deal with C_NULL_PTR or C_NULL_FUNPTR
|
expressions
|
expressions
|
* match.h: Add prototypes for gfc_match_small_int_expr,
|
* match.h: Add prototypes for gfc_match_small_int_expr,
|
gfc_match_name_C, match_common_name, set_com_block_bind_c,
|
gfc_match_name_C, match_common_name, set_com_block_bind_c,
|
set_binding_label, set_verify_bind_c_sym,
|
set_binding_label, set_verify_bind_c_sym,
|
set_verify_bind_c_com_block, get_bind_c_idents,
|
set_verify_bind_c_com_block, get_bind_c_idents,
|
gfc_match_bind_c_stmt, gfc_match_suffix, gfc_match_bind_c,
|
gfc_match_bind_c_stmt, gfc_match_suffix, gfc_match_bind_c,
|
gfc_get_type_attr_spec
|
gfc_get_type_attr_spec
|
* parse.c (decode_statement): Use gfc_match_bind_c_stmt
|
* parse.c (decode_statement): Use gfc_match_bind_c_stmt
|
(parse_derived): Init *derived_sym = NULL, and gfc_current_block
|
(parse_derived): Init *derived_sym = NULL, and gfc_current_block
|
later for valiadation.
|
later for valiadation.
|
* primary.c (got_delim): Set ISO C Binding components of ts.
|
* primary.c (got_delim): Set ISO C Binding components of ts.
|
(match_logical_constant): Ditto.
|
(match_logical_constant): Ditto.
|
(match_complex_constant): Ditto.
|
(match_complex_constant): Ditto.
|
(match_complex_constant): Ditto.
|
(match_complex_constant): Ditto.
|
(gfc_match_rvalue): Check for existence of at least one arg for
|
(gfc_match_rvalue): Check for existence of at least one arg for
|
C_LOC, C_FUNLOC, and C_ASSOCIATED.
|
C_LOC, C_FUNLOC, and C_ASSOCIATED.
|
* misc.c (gfc_clear_ts): Clear ISO C Bindoing components in ts.
|
* misc.c (gfc_clear_ts): Clear ISO C Bindoing components in ts.
|
(get_c_kind): New function.
|
(get_c_kind): New function.
|
|
|
2007-07-01 Janne Blomqvist
|
2007-07-01 Janne Blomqvist
|
|
|
PR fortran/32239
|
PR fortran/32239
|
* trans-expr.c (gfc_conv_power_op): Use builtin_powi for
|
* trans-expr.c (gfc_conv_power_op): Use builtin_powi for
|
real**int4 powers.
|
real**int4 powers.
|
* f95-lang.c (gfc_init_builtin_functions): Add builtin_powi to the
|
* f95-lang.c (gfc_init_builtin_functions): Add builtin_powi to the
|
builtins table.
|
builtins table.
|
|
|
2007-07-01 Janne Blomqvist
|
2007-07-01 Janne Blomqvist
|
|
|
* trans.h: Remove decls for 64-bit allocation functions.
|
* trans.h: Remove decls for 64-bit allocation functions.
|
* trans-array.c (gfc_grow_array): Always pick the standard realloc
|
* trans-array.c (gfc_grow_array): Always pick the standard realloc
|
function decl.
|
function decl.
|
(gfc_array_allocate): Likewise.
|
(gfc_array_allocate): Likewise.
|
* trans-decl.c: Remove trees for 64-bit allocation functions.
|
* trans-decl.c: Remove trees for 64-bit allocation functions.
|
(gfc_build_builtin_function_decls): Don't build fndecls for 64-bit
|
(gfc_build_builtin_function_decls): Don't build fndecls for 64-bit
|
allocations functions, use index_int_type for normal allocation
|
allocations functions, use index_int_type for normal allocation
|
functions.
|
functions.
|
|
|
2007-06-30 Daniel Franke
|
2007-06-30 Daniel Franke
|
|
|
PR fortran/20373
|
PR fortran/20373
|
* intrinsic.c (add_functions): Additional function types.
|
* intrinsic.c (add_functions): Additional function types.
|
(gfc_convert_type_warn): Remove intrinsic-flag from
|
(gfc_convert_type_warn): Remove intrinsic-flag from
|
conversion functions.
|
conversion functions.
|
* resolve.c (resolve_symbol): Added type checks to
|
* resolve.c (resolve_symbol): Added type checks to
|
explicitly defined intrinsics.
|
explicitly defined intrinsics.
|
|
|
2007-06-30 Tobias Burnus
|
2007-06-30 Tobias Burnus
|
|
|
PR fortran/32555
|
PR fortran/32555
|
* io.c (check_format): Allow zero to precede the
|
* io.c (check_format): Allow zero to precede the
|
P edit descriptor.
|
P edit descriptor.
|
|
|
2007-06-30 Paul Thomas
|
2007-06-30 Paul Thomas
|
|
|
PR fortran/32472
|
PR fortran/32472
|
* simplify.c (gfc_simplify_repeat): Add handling of character
|
* simplify.c (gfc_simplify_repeat): Add handling of character
|
literal for first argument.
|
literal for first argument.
|
|
|
2007-06-29 Daniel Franke
|
2007-06-29 Daniel Franke
|
|
|
* resolve.c (resolve_operator): Added check whether a user
|
* resolve.c (resolve_operator): Added check whether a user
|
defined operator is available.
|
defined operator is available.
|
|
|
2007-06-29 Daniel Franke
|
2007-06-29 Daniel Franke
|
|
|
* openmp.c (resolve_omp_clauses): Adjust error message to
|
* openmp.c (resolve_omp_clauses): Adjust error message to
|
better reflect the actual requirement.
|
better reflect the actual requirement.
|
|
|
2007-06-29 Tobias Burnus
|
2007-06-29 Tobias Burnus
|
|
|
PR fortran/32483
|
PR fortran/32483
|
* io.c (format_lex): Fix FMT_ZERO.
|
* io.c (format_lex): Fix FMT_ZERO.
|
(check_format,check_format_string,gfc_match_format,
|
(check_format,check_format_string,gfc_match_format,
|
check_io_constraints) Additional checking for READ.
|
check_io_constraints) Additional checking for READ.
|
|
|
2007-06-28 Francois-Xavier Coudert
|
2007-06-28 Francois-Xavier Coudert
|
|
|
PR other/31400
|
PR other/31400
|
* lang.opt (static-libgfortran): New option.
|
* lang.opt (static-libgfortran): New option.
|
* gfortranspec.c (ADD_ARG_LIBGFORTRAN): New macro.
|
* gfortranspec.c (ADD_ARG_LIBGFORTRAN): New macro.
|
(Option): Add OPTION_static and OPTION_static_libgfortran.
|
(Option): Add OPTION_static and OPTION_static_libgfortran.
|
(lookup_option): Handle the new -static-libgfortran option.
|
(lookup_option): Handle the new -static-libgfortran option.
|
(lang_specific_driver): Check whether -static is passed.
|
(lang_specific_driver): Check whether -static is passed.
|
Handle the new -static-libgfortran option.
|
Handle the new -static-libgfortran option.
|
* options.c (gfc_handle_option): If -static-libgfortran is
|
* options.c (gfc_handle_option): If -static-libgfortran is
|
passed and isn't supported on this configuration, error out.
|
passed and isn't supported on this configuration, error out.
|
|
|
2007-06-27 Daniel Franke
|
2007-06-27 Daniel Franke
|
|
|
PR fortran/32467
|
PR fortran/32467
|
* openmp.c (resolve_omp_clauses): Emit error on allocatable
|
* openmp.c (resolve_omp_clauses): Emit error on allocatable
|
components in COPYIN, COPYPRIVATE, FIRSTPRIVATE and LASTPRIVATE
|
components in COPYIN, COPYPRIVATE, FIRSTPRIVATE and LASTPRIVATE
|
clauses.
|
clauses.
|
|
|
2007-06-25 Paul Thomas
|
2007-06-25 Paul Thomas
|
|
|
PR fortran/32464
|
PR fortran/32464
|
* resolve.c (check_host_association): Return if the old symbol
|
* resolve.c (check_host_association): Return if the old symbol
|
is use associated. Introduce retval to reduce the number of
|
is use associated. Introduce retval to reduce the number of
|
evaluations of the first-order return value.
|
evaluations of the first-order return value.
|
|
|
PR fortran/31494
|
PR fortran/31494
|
* match.c (gfc_match_call): If a host associated symbol is not
|
* match.c (gfc_match_call): If a host associated symbol is not
|
a subroutine, build a new symtree/symbol in the current name
|
a subroutine, build a new symtree/symbol in the current name
|
space.
|
space.
|
|
|
2007-06-24 Tobias Burnus
|
2007-06-24 Tobias Burnus
|
|
|
PR fortran/32460
|
PR fortran/32460
|
* interface.c (gfc_compare_derived_types): Add access check.
|
* interface.c (gfc_compare_derived_types): Add access check.
|
* symbol.c (gfc_find_component): Ditto.
|
* symbol.c (gfc_find_component): Ditto.
|
(gfc_set_component_attr,gfc_get_component_attr) Copy access state.
|
(gfc_set_component_attr,gfc_get_component_attr) Copy access state.
|
* dump-parse-tree.c (gfc_show_components): Dump access state.
|
* dump-parse-tree.c (gfc_show_components): Dump access state.
|
* gfortran.h (struct gfc_component): Add gfc_access.
|
* gfortran.h (struct gfc_component): Add gfc_access.
|
* module.c (mio_component): Add access state.
|
* module.c (mio_component): Add access state.
|
* (gfc_match_structure_constructor): Check for private access state.
|
* (gfc_match_structure_constructor): Check for private access state.
|
|
|
2007-06-24 Paul Thomas
|
2007-06-24 Paul Thomas
|
|
|
PR fortran/32298
|
PR fortran/32298
|
PR fortran/31726
|
PR fortran/31726
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Calculate
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Calculate
|
the offset between the loop counter and the position as
|
the offset between the loop counter and the position as
|
defined. Add the offset within the loop so that the mask acts
|
defined. Add the offset within the loop so that the mask acts
|
correctly. Do not advance the location on the basis that it
|
correctly. Do not advance the location on the basis that it
|
is zero.
|
is zero.
|
|
|
2007-06-22 Daniel Franke
|
2007-06-22 Daniel Franke
|
|
|
PR fortran/31473
|
PR fortran/31473
|
* symbol.c (gfc_copy_attr): Emit errors for duplicate
|
* symbol.c (gfc_copy_attr): Emit errors for duplicate
|
EXTERNAL/INTRINSIC statements.
|
EXTERNAL/INTRINSIC statements.
|
|
|
2007-06-22 Jerry DeLisle
|
2007-06-22 Jerry DeLisle
|
|
|
PR fortran/32360
|
PR fortran/32360
|
* expr.c (gfc_check_assign): If the rvalue expression type is NULL_EXPR,
|
* expr.c (gfc_check_assign): If the rvalue expression type is NULL_EXPR,
|
check to see if the lvalue has attribute pointer and data.
|
check to see if the lvalue has attribute pointer and data.
|
|
|
2007-06-21 Jerry DeLisle
|
2007-06-21 Jerry DeLisle
|
|
|
PR fortran/31162
|
PR fortran/31162
|
* resolve.c (gfc_resolve_iterator_expr): Add check for REAL using
|
* resolve.c (gfc_resolve_iterator_expr): Add check for REAL using
|
gfc_notify_standard. (gfc_resolve_iterator): Remove check.
|
gfc_notify_standard. (gfc_resolve_iterator): Remove check.
|
(resolve_branch): Change "Obsolete" to "Deleted feature".
|
(resolve_branch): Change "Obsolete" to "Deleted feature".
|
* io.c (resolve_tag): Ditto.
|
* io.c (resolve_tag): Ditto.
|
* match.c (gfc_match_pause, gfc_match_assign, gfc_match_goto): Ditto.
|
* match.c (gfc_match_pause, gfc_match_assign, gfc_match_goto): Ditto.
|
|
|
2007-06-20 Jerry DeLisle
|
2007-06-20 Jerry DeLisle
|
|
|
PR fortran/32361
|
PR fortran/32361
|
* match.c (gfc_match_common): If the symbol value expression type is
|
* match.c (gfc_match_common): If the symbol value expression type is
|
NULL_EXPR, don't error if previously initialized.
|
NULL_EXPR, don't error if previously initialized.
|
|
|
2007-06-20 Jerry DeLisle
|
2007-06-20 Jerry DeLisle
|
|
|
PR fortran/25061
|
PR fortran/25061
|
* decl.c (get_proc_name) Check symbol for generic interface
|
* decl.c (get_proc_name) Check symbol for generic interface
|
and issue an error.
|
and issue an error.
|
|
|
2007-06-20 Andrew Pinski
|
2007-06-20 Andrew Pinski
|
Richard Guenther
|
Richard Guenther
|
|
|
PR fortran/32140
|
PR fortran/32140
|
* trans.c (gfc_build_addr_expr): Use the correct types.
|
* trans.c (gfc_build_addr_expr): Use the correct types.
|
|
|
2007-06-19 Paul Thomas
|
2007-06-19 Paul Thomas
|
|
|
PR fortran/20863
|
PR fortran/20863
|
PR fortran/20882
|
PR fortran/20882
|
* resolve.c (resolve_code): Use gfc_impure_variable as a
|
* resolve.c (resolve_code): Use gfc_impure_variable as a
|
condition for rejecting derived types with pointers, in pure
|
condition for rejecting derived types with pointers, in pure
|
procedures.
|
procedures.
|
(gfc_impure_variable): Add test for dummy arguments of pure
|
(gfc_impure_variable): Add test for dummy arguments of pure
|
procedures; any for functions and INTENT_IN for subroutines.
|
procedures; any for functions and INTENT_IN for subroutines.
|
|
|
PR fortran/32236
|
PR fortran/32236
|
* data.c (gfc_assign_data_value): Change the ICE on an array
|
* data.c (gfc_assign_data_value): Change the ICE on an array
|
reference initializer not being an array into an error and
|
reference initializer not being an array into an error and
|
clear init to prevent a repetition of the error.
|
clear init to prevent a repetition of the error.
|
|
|
2007-06-17 Janne Blomqvist
|
2007-06-17 Janne Blomqvist
|
|
|
* gfortran.texi: Add documentation for GFORTRAN_UNBUFFERED_n
|
* gfortran.texi: Add documentation for GFORTRAN_UNBUFFERED_n
|
environment variables. Fix documentation for
|
environment variables. Fix documentation for
|
GFORTRAN_UNBUFFERED_ALL environment variable.
|
GFORTRAN_UNBUFFERED_ALL environment variable.
|
|
|
2007-06-15 Andrew Pinski
|
2007-06-15 Andrew Pinski
|
|
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Use
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Use
|
POINTER_PLUS_EXPR instead of PLUS_EXPR for pointer addition.
|
POINTER_PLUS_EXPR instead of PLUS_EXPR for pointer addition.
|
* trans-expr.c (gfc_trans_string_copy): Create
|
* trans-expr.c (gfc_trans_string_copy): Create
|
POINTER_PLUS_EXPR instead of a PLUS_EXPR
|
POINTER_PLUS_EXPR instead of a PLUS_EXPR
|
for pointer types.
|
for pointer types.
|
|
|
2007-06-14 Paul Thomas
|
2007-06-14 Paul Thomas
|
|
|
PR fortran/32302
|
PR fortran/32302
|
* trans-common.c (build_common_decl): If resizing of common
|
* trans-common.c (build_common_decl): If resizing of common
|
decl is needed, update the TREE_TYPE.
|
decl is needed, update the TREE_TYPE.
|
|
|
2007-06-13 Tobias Burnus
|
2007-06-13 Tobias Burnus
|
|
|
PR fortran/32323
|
PR fortran/32323
|
* interface.c (has_vector_section): New.
|
* interface.c (has_vector_section): New.
|
(compare_actual_formal): Check for array sections with vector subscript.
|
(compare_actual_formal): Check for array sections with vector subscript.
|
|
|
2007-06-12 Dirk Mueller
|
2007-06-12 Dirk Mueller
|
|
|
* trans-stmt.c (gfc_trans_call): fix gcc_assert to
|
* trans-stmt.c (gfc_trans_call): fix gcc_assert to
|
a comparison, not an assignment.
|
a comparison, not an assignment.
|
|
|
2007-06-12 Paul Thomas
|
2007-06-12 Paul Thomas
|
|
|
* trans-common.c (create_common): Initialize 'field_init'.
|
* trans-common.c (create_common): Initialize 'field_init'.
|
|
|
2007-06-12 Paul Thomas
|
2007-06-12 Paul Thomas
|
|
|
PR fortran/29786
|
PR fortran/29786
|
PR fortran/30875
|
PR fortran/30875
|
* trans-common.c (get_init_field): New function.
|
* trans-common.c (get_init_field): New function.
|
(create_common): Call get_init_field for overlapping
|
(create_common): Call get_init_field for overlapping
|
initializers in equivalence blocks.
|
initializers in equivalence blocks.
|
* resolve.c (resolve_equivalence_derived, resolve_equivalence):
|
* resolve.c (resolve_equivalence_derived, resolve_equivalence):
|
Remove constraints on initializers in equivalence blocks.
|
Remove constraints on initializers in equivalence blocks.
|
* target-memory.c (expr_to_char, gfc_merge_initializers):
|
* target-memory.c (expr_to_char, gfc_merge_initializers):
|
New functions.
|
New functions.
|
(encode_derived): Add the bit offset to the byte offset to get
|
(encode_derived): Add the bit offset to the byte offset to get
|
the total offset to the field.
|
the total offset to the field.
|
* target-memory.h : Add prototype for gfc_merge_initializers.
|
* target-memory.h : Add prototype for gfc_merge_initializers.
|
|
|
2007-06-11 Rafael Ávila de Espíndola
|
2007-06-11 Rafael Ávila de Espíndola
|
|
|
* trans-types.c (gfc_signed_type): Remove.
|
* trans-types.c (gfc_signed_type): Remove.
|
* trans-types.h (gfc_signed_type): Remove.
|
* trans-types.h (gfc_signed_type): Remove.
|
* f95-lang.c (LANG_HOOKS_SIGNED_TYPE): Remove.
|
* f95-lang.c (LANG_HOOKS_SIGNED_TYPE): Remove.
|
|
|
2007-06-08 Francois-Xavier Coudert
|
2007-06-08 Francois-Xavier Coudert
|
|
|
* trans-intrinsic.c: Revert Lee's 2007-06-04 patch.
|
* trans-intrinsic.c: Revert Lee's 2007-06-04 patch.
|
|
|
2007-06-07 Steven G. Kargl
|
2007-06-07 Steven G. Kargl
|
Jerry DeLisle
|
Jerry DeLisle
|
|
|
PR fortran/32223
|
PR fortran/32223
|
* match.c (gfc_match_special_char): New function. Match special char.
|
* match.c (gfc_match_special_char): New function. Match special char.
|
Add handling '\0'.
|
Add handling '\0'.
|
* match.h: Add prototype.
|
* match.h: Add prototype.
|
* io.c (next_char): Use it.
|
* io.c (next_char): Use it.
|
* primary.c (next_string_char): Ditto.
|
* primary.c (next_string_char): Ditto.
|
|
|
2007-06-06 Steven G. Kargl
|
2007-06-06 Steven G. Kargl
|
|
|
* decl.c: Miscellaneous whitespace fixes.
|
* decl.c: Miscellaneous whitespace fixes.
|
* expr.c: Likewise.
|
* expr.c: Likewise.
|
* gfortran.h: Likewise.
|
* gfortran.h: Likewise.
|
* interface.c : Likewise.
|
* interface.c : Likewise.
|
* io.c: Likewise.
|
* io.c: Likewise.
|
* match.c: Likewise.
|
* match.c: Likewise.
|
* match.h: Likewise.
|
* match.h: Likewise.
|
* module.c: Likewise.
|
* module.c: Likewise.
|
* parse.c: Likewise.
|
* parse.c: Likewise.
|
* resolve.c: Likewise.
|
* resolve.c: Likewise.
|
* symbol.c: Likewise.
|
* symbol.c: Likewise.
|
* trans-array.c: Likewise.
|
* trans-array.c: Likewise.
|
* trans-common.c: Likewise.
|
* trans-common.c: Likewise.
|
* trans-decl.c: Likewise.
|
* trans-decl.c: Likewise.
|
* trans-intrinsic.c: Likewise.
|
* trans-intrinsic.c: Likewise.
|
* trans-io.c: Likewise.
|
* trans-io.c: Likewise.
|
* trans-stmt.c: Likewise.
|
* trans-stmt.c: Likewise.
|
* trans-types.c: Likewise.
|
* trans-types.c: Likewise.
|
|
|
2007-06-05 Jerry DeLisle
|
2007-06-05 Jerry DeLisle
|
|
|
PR fortran/18923
|
PR fortran/18923
|
* parse.c (decode_statement): Don't call gfc_undo_symbols on MATCH_ERROR
|
* parse.c (decode_statement): Don't call gfc_undo_symbols on MATCH_ERROR
|
for ST_FUNCTION since it is called in reject_statement.
|
for ST_FUNCTION since it is called in reject_statement.
|
(parse_contained): If error, loop back after reject_statement and try
|
(parse_contained): If error, loop back after reject_statement and try
|
again. Free the namespace if an error occured.
|
again. Free the namespace if an error occured.
|
|
|
2007-06-04 Lee Millward
|
2007-06-04 Lee Millward
|
|
|
* trans-intrinsic.c (gfc_conv_intrinsic_function_args): Adjust
|
* trans-intrinsic.c (gfc_conv_intrinsic_function_args): Adjust
|
to operate on a stack allocated array for the intrinsic arguments
|
to operate on a stack allocated array for the intrinsic arguments
|
instead of creating a TREE_LIST. Add two new parameters for the
|
instead of creating a TREE_LIST. Add two new parameters for the
|
array and the number of elements. Update all callers to allocate
|
array and the number of elements. Update all callers to allocate
|
an array of the correct length to pass in. Update comment.
|
an array of the correct length to pass in. Update comment.
|
(gfc_intrinsic_argument_list_length): New function.
|
(gfc_intrinsic_argument_list_length): New function.
|
(gfc_conv_intrinsic_mnimax): Call it.
|
(gfc_conv_intrinsic_mnimax): Call it.
|
(gfc_conv_intrinsic_merge): Likewise.
|
(gfc_conv_intrinsic_merge): Likewise.
|
(gfc_conv_intrinsic_lib_function): Call it. Use new CALL_EXPR
|
(gfc_conv_intrinsic_lib_function): Call it. Use new CALL_EXPR
|
constructors.
|
constructors.
|
(gfc_conv_intrinsic_cmplx): Likewise.
|
(gfc_conv_intrinsic_cmplx): Likewise.
|
(gfc_conv_intrinsic_ctime): Likewise.
|
(gfc_conv_intrinsic_ctime): Likewise.
|
(gfc_covn_intrinsic_fdate): Likewise.
|
(gfc_covn_intrinsic_fdate): Likewise.
|
(gfc_conv_intrinsic_ttynam): Likewise.
|
(gfc_conv_intrinsic_ttynam): Likewise.
|
(gfc_conv_intrinsic_ishftc): Likewise.
|
(gfc_conv_intrinsic_ishftc): Likewise.
|
(gfc_conv_intrinsic_index): Likewise.
|
(gfc_conv_intrinsic_index): Likewise.
|
(gfc_conv_intrinsic_scan): Likewise.
|
(gfc_conv_intrinsic_scan): Likewise.
|
(gfc_conv_intrinsic_verify): Likewise.
|
(gfc_conv_intrinsic_verify): Likewise.
|
(gfc_conv_intrinsic_trim): Likewise.
|
(gfc_conv_intrinsic_trim): Likewise.
|
(gfc_conv_intrinsic_aint): Use new CALL_EXPR constructors.
|
(gfc_conv_intrinsic_aint): Use new CALL_EXPR constructors.
|
(gfc_conv_intrinsic_exponent): Likewise.
|
(gfc_conv_intrinsic_exponent): Likewise.
|
(gfc_conv_intrinsic_bound): Likewise.
|
(gfc_conv_intrinsic_bound): Likewise.
|
(gfc_conv_intrinsic_abs): Likewise.
|
(gfc_conv_intrinsic_abs): Likewise.
|
(gfc_conv_intrinsic_mod): Likewise.
|
(gfc_conv_intrinsic_mod): Likewise.
|
(gfc_conv_intrinsic_sign): Likewise.
|
(gfc_conv_intrinsic_sign): Likewise.
|
(gfc_conv_intrinsic_len): Likewise.
|
(gfc_conv_intrinsic_len): Likewise.
|
(gfc_conv_intrinsic_adjust): Likewise.
|
(gfc_conv_intrinsic_adjust): Likewise.
|
(gfc_conv_intrinsic_si_kind): Likewise.
|
(gfc_conv_intrinsic_si_kind): Likewise.
|
|
|
2007-06-04 Steve Ellcey
|
2007-06-04 Steve Ellcey
|
|
|
* trans-array.c (gfc_conv_array_parameter): Initialize tmp.
|
* trans-array.c (gfc_conv_array_parameter): Initialize tmp.
|
|
|
2007-05-31 Richard Guenther
|
2007-05-31 Richard Guenther
|
|
|
* trans-expr.c (gfc_conv_expr_op): Use zero constant
|
* trans-expr.c (gfc_conv_expr_op): Use zero constant
|
that matches the lse type.
|
that matches the lse type.
|
(gfc_trans_string_copy): Use sizetype zero constant.
|
(gfc_trans_string_copy): Use sizetype zero constant.
|
* intrinsic.c (add_functions): The sizeof intrinsic has
|
* intrinsic.c (add_functions): The sizeof intrinsic has
|
index type result.
|
index type result.
|
* trans-types.c (gfc_get_dtype): Convert size to index
|
* trans-types.c (gfc_get_dtype): Convert size to index
|
type before shifting.
|
type before shifting.
|
* trans-array.c (gfc_trans_array_constructor_value): Use
|
* trans-array.c (gfc_trans_array_constructor_value): Use
|
index type for offset computation.
|
index type for offset computation.
|
* trans-intrinsic.c (gfc_conv_associated): Use correct type
|
* trans-intrinsic.c (gfc_conv_associated): Use correct type
|
for zero constant.
|
for zero constant.
|
|
|
2007-05-31 Paul Thomas
|
2007-05-31 Paul Thomas
|
|
|
PR fortran/32156
|
PR fortran/32156
|
* trans-array.c (gfc_trans_array_constructor): Treat the case
|
* trans-array.c (gfc_trans_array_constructor): Treat the case
|
where the ss expression charlen is missing.
|
where the ss expression charlen is missing.
|
|
|
2007-05-31 Paul Thomas
|
2007-05-31 Paul Thomas
|
|
|
PR fortran/32103
|
PR fortran/32103
|
* module.c (mio_symtree_ref): If an equivalence group member
|
* module.c (mio_symtree_ref): If an equivalence group member
|
is not used, give it a hidden symbol and set the pointer_info.
|
is not used, give it a hidden symbol and set the pointer_info.
|
(load_equiv): Only free the equivalence if none of the members
|
(load_equiv): Only free the equivalence if none of the members
|
are used.
|
are used.
|
|
|
2007-05-29 Daniel Franke
|
2007-05-29 Daniel Franke
|
|
|
* gfortran.h: Renamed 'enum gfc_generic_isym_id' to 'enum gfc_isym_id',
|
* gfortran.h: Renamed 'enum gfc_generic_isym_id' to 'enum gfc_isym_id',
|
added missing GFC_ISYM_* enumerators, ordered alphabetically.
|
added missing GFC_ISYM_* enumerators, ordered alphabetically.
|
(struct gfc_intrinsic_sym): Renamed 'generic_id' to 'id'.
|
(struct gfc_intrinsic_sym): Renamed 'generic_id' to 'id'.
|
(gfc_find_subroutine): New prototype.
|
(gfc_find_subroutine): New prototype.
|
* intrinsic.c (add_sym, add_sym_*): Added argument 'id' and changed all callers.
|
* intrinsic.c (add_sym, add_sym_*): Added argument 'id' and changed all callers.
|
(find_subroutine): Renamed to 'gfc_find_subroutine', removed static.
|
(find_subroutine): Renamed to 'gfc_find_subroutine', removed static.
|
* dependency.c: Changed usage of isym->generic_id to isym->id.
|
* dependency.c: Changed usage of isym->generic_id to isym->id.
|
* openmp.c: Likewise.
|
* openmp.c: Likewise.
|
* resolve.c: Likewise.
|
* resolve.c: Likewise.
|
* trans-array.c: Likewise.
|
* trans-array.c: Likewise.
|
* trans-expr.c: Likewise.
|
* trans-expr.c: Likewise.
|
* trans-intrinsic.c: Likewise.
|
* trans-intrinsic.c: Likewise.
|
* trans-openmp.c: Likewise.
|
* trans-openmp.c: Likewise.
|
|
|
2007-05-28 Tobias Schlüter
|
2007-05-28 Tobias Schlüter
|
|
|
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SIZEOF.
|
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SIZEOF.
|
* intrinsic.c (add_functions): Add stuff for SIZEOF intrinsic.
|
* intrinsic.c (add_functions): Add stuff for SIZEOF intrinsic.
|
* intrinsic.h (gfc_check_sizeof): Add prototype of ...
|
* intrinsic.h (gfc_check_sizeof): Add prototype of ...
|
* check.c (gfc_check_sizeof): .. new function.
|
* check.c (gfc_check_sizeof): .. new function.
|
* trans-intrinsic.c (gfc_conv_intrinsic_sizeof): New function.
|
* trans-intrinsic.c (gfc_conv_intrinsic_sizeof): New function.
|
(gfc_conv_intrinsic_strcmp): Whitespace fix.
|
(gfc_conv_intrinsic_strcmp): Whitespace fix.
|
(gfc_conv_intrinsic_array_transfer): Remove double initialization,
|
(gfc_conv_intrinsic_array_transfer): Remove double initialization,
|
use fold_build. where appropriate.
|
use fold_build. where appropriate.
|
(gfc_conv_intrinsic_function): Add case for SIZEOF.
|
(gfc_conv_intrinsic_function): Add case for SIZEOF.
|
* intrinsic.texi: Add documentation for SIZEOF.
|
* intrinsic.texi: Add documentation for SIZEOF.
|
|
|
2007-05-28 Brooks Moses
|
2007-05-28 Brooks Moses
|
|
|
* trans-array.c (gfc_conv_expr_descriptor): Edit comment.
|
* trans-array.c (gfc_conv_expr_descriptor): Edit comment.
|
|
|
2007-05-28 Brooks Moses
|
2007-05-28 Brooks Moses
|
|
|
PR fortran/31972
|
PR fortran/31972
|
* target-memory.c (gfc_target_expr_size): Add handling
|
* target-memory.c (gfc_target_expr_size): Add handling
|
for size of BT_HOLLERITH variables.
|
for size of BT_HOLLERITH variables.
|
* check.c (gfc_check_transfer): Reject BT_HOLLERITH
|
* check.c (gfc_check_transfer): Reject BT_HOLLERITH
|
variables in MOLD argument of TRANSFER.
|
variables in MOLD argument of TRANSFER.
|
|
|
2007-05-28 Brooks Moses
|
2007-05-28 Brooks Moses
|
|
|
* gfortran.h (gfc_expr): Remove from_H, add "representation"
|
* gfortran.h (gfc_expr): Remove from_H, add "representation"
|
struct.
|
struct.
|
* primary.c (match_hollerith_constant): Store the representation
|
* primary.c (match_hollerith_constant): Store the representation
|
of the Hollerith in representation, not in value.character.
|
of the Hollerith in representation, not in value.character.
|
* arith.c: Add dependency on target-memory.h.
|
* arith.c: Add dependency on target-memory.h.
|
(eval_intrinsic): Remove check for from_H.
|
(eval_intrinsic): Remove check for from_H.
|
(hollerith2representation): New function.
|
(hollerith2representation): New function.
|
(gfc_hollerith2int): Determine value of the new constant.
|
(gfc_hollerith2int): Determine value of the new constant.
|
(gfc_hollerith2real): Likewise.
|
(gfc_hollerith2real): Likewise.
|
(gfc_hollerith2complex): Likewise.
|
(gfc_hollerith2complex): Likewise.
|
(gfc_hollerith2logical): Likewise.
|
(gfc_hollerith2logical): Likewise.
|
(gfc_hollerith2character): Point both representation.string and
|
(gfc_hollerith2character): Point both representation.string and
|
value.character.string at the value string.
|
value.character.string at the value string.
|
* data.c (create_character_initializer): For BT_HOLLERITH
|
* data.c (create_character_initializer): For BT_HOLLERITH
|
rvalues, get the value from the representation rather than
|
rvalues, get the value from the representation rather than
|
value.character.
|
value.character.
|
* expr.c (free_expr0): Update handling of BT_HOLLERITH values
|
* expr.c (free_expr0): Update handling of BT_HOLLERITH values
|
and values with representation.string.
|
and values with representation.string.
|
(gfc_copy_expr): Likewise.
|
(gfc_copy_expr): Likewise.
|
* intrinsic.c (do_simplify): Remove special treatement of
|
* intrinsic.c (do_simplify): Remove special treatement of
|
variables resulting from Hollerith constants.
|
variables resulting from Hollerith constants.
|
* dump-parse-trees.c (gfc_show_expr): Update handling of
|
* dump-parse-trees.c (gfc_show_expr): Update handling of
|
Holleriths.
|
Holleriths.
|
* trans-const.c (gfc_conv_constant_to_tree): Replace from_H
|
* trans-const.c (gfc_conv_constant_to_tree): Replace from_H
|
check with check for representation.string; get Hollerith
|
check with check for representation.string; get Hollerith
|
representation from representation.string, not value.character.
|
representation from representation.string, not value.character.
|
* trans-expr.c (is_zero_initializer_p): Replace from_H check
|
* trans-expr.c (is_zero_initializer_p): Replace from_H check
|
with check for representation.string.
|
with check for representation.string.
|
* trans-stmt.c (gfc_trans_integer_select): Use
|
* trans-stmt.c (gfc_trans_integer_select): Use
|
gfc_conv_mpz_to_tree for case values, so as to avoid picking up
|
gfc_conv_mpz_to_tree for case values, so as to avoid picking up
|
the memory representation if the case is given by a transfer
|
the memory representation if the case is given by a transfer
|
expression.
|
expression.
|
* target-memory.c (gfc_target_encode_expr): Use the known memory
|
* target-memory.c (gfc_target_encode_expr): Use the known memory
|
representation rather than the value, if it exists.
|
representation rather than the value, if it exists.
|
(gfc_target_interpret_expr): Store the memory representation of
|
(gfc_target_interpret_expr): Store the memory representation of
|
the interpreted expression as well as its value.
|
the interpreted expression as well as its value.
|
(interpret_integer): Move to gfc_interpret_integer, make
|
(interpret_integer): Move to gfc_interpret_integer, make
|
non-static.
|
non-static.
|
(interpret_float): Move to gfc_interpret_float, make non-static.
|
(interpret_float): Move to gfc_interpret_float, make non-static.
|
(interpret_complex): Move to gfc_interpret_complex, make
|
(interpret_complex): Move to gfc_interpret_complex, make
|
non-static.
|
non-static.
|
(interpret_logical): Move to gfc_interpret_logical, make
|
(interpret_logical): Move to gfc_interpret_logical, make
|
non-static.
|
non-static.
|
(interpret_character): Move to gfc_interpret_character, make
|
(interpret_character): Move to gfc_interpret_character, make
|
non-static.
|
non-static.
|
(interpret_derived): Move to gfc_interpret_derived, make
|
(interpret_derived): Move to gfc_interpret_derived, make
|
non-static.
|
non-static.
|
* target-memory.h: Add prototypes for newly-exported
|
* target-memory.h: Add prototypes for newly-exported
|
gfc_interpret_* functions.
|
gfc_interpret_* functions.
|
|
|
2007-05-27 Jerry DeLisle
|
2007-05-27 Jerry DeLisle
|
|
|
PR fortran/31812
|
PR fortran/31812
|
* parse.c (next_statement): Warn for truncated lines if source is free
|
* parse.c (next_statement): Warn for truncated lines if source is free
|
form.
|
form.
|
|
|
2007-05-27 Paul Thomas
|
2007-05-27 Paul Thomas
|
Tobias Burnus
|
Tobias Burnus
|
|
|
PR fortran/32088
|
PR fortran/32088
|
* symbol.c (gfc_check_function_type): Copy dimensions of
|
* symbol.c (gfc_check_function_type): Copy dimensions of
|
result variable.
|
result variable.
|
* resolve.c (resolve_contained_fntype): Improve symbol output in
|
* resolve.c (resolve_contained_fntype): Improve symbol output in
|
the error message.
|
the error message.
|
|
|
2007-05-26 Jerry DeLisle
|
2007-05-26 Jerry DeLisle
|
|
|
PR fortran/31813
|
PR fortran/31813
|
* io.c (check_format): Add warning for H specifier in format.
|
* io.c (check_format): Add warning for H specifier in format.
|
|
|
2007-05-26 Tobias Burnus
|
2007-05-26 Tobias Burnus
|
|
|
* gfortran.texi: Document the GFORTRAN_ERROR_DUMPCORE and
|
* gfortran.texi: Document the GFORTRAN_ERROR_DUMPCORE and
|
GFORTRAN_ERROR_BACKTRACE environment variables.
|
GFORTRAN_ERROR_BACKTRACE environment variables.
|
|
|
2007-05-26 Paul Thomas
|
2007-05-26 Paul Thomas
|
|
|
PR fortran/31219
|
PR fortran/31219
|
* trans.h : Add no_function_call bitfield to gfc_se structure.
|
* trans.h : Add no_function_call bitfield to gfc_se structure.
|
Add stmtblock_t argument to prototype of get_array_ctor_strlen.
|
Add stmtblock_t argument to prototype of get_array_ctor_strlen.
|
* trans-array.c (get_array_ctor_all_strlen): New function.
|
* trans-array.c (get_array_ctor_all_strlen): New function.
|
(get_array_ctor_strlen): Add new stmtblock_t argument and call
|
(get_array_ctor_strlen): Add new stmtblock_t argument and call
|
new function for character elements that are not constants,
|
new function for character elements that are not constants,
|
arrays or variables.
|
arrays or variables.
|
(gfc_conv_array_parameter): Call get_array_ctor_strlen to get
|
(gfc_conv_array_parameter): Call get_array_ctor_strlen to get
|
good string length.
|
good string length.
|
* trans-intrinsic (gfc_conv_intrinsic_len): Add new argument
|
* trans-intrinsic (gfc_conv_intrinsic_len): Add new argument
|
to call of get_array_ctor_strlen.
|
to call of get_array_ctor_strlen.
|
|
|
2007-05-25 Kazu Hirata
|
2007-05-25 Kazu Hirata
|
|
|
* intrinsic.texi: Fix typos.
|
* intrinsic.texi: Fix typos.
|
|
|
2007-05-25 Paul Thomas
|
2007-05-25 Paul Thomas
|
|
|
PR fortran/32047
|
PR fortran/32047
|
* trans-expr.c (gfc_apply_interface_mapping_to_expr): Change
|
* trans-expr.c (gfc_apply_interface_mapping_to_expr): Change
|
order in logic under EXPR_FUNCTION to handle functions with
|
order in logic under EXPR_FUNCTION to handle functions with
|
no arguments.
|
no arguments.
|
|
|
2007-05-23 Jerry DeLisle
|
2007-05-23 Jerry DeLisle
|
|
|
PR fortran/31716
|
PR fortran/31716
|
* array.c (spec_dimen_size): Test for correct BT_INTEGER type.
|
* array.c (spec_dimen_size): Test for correct BT_INTEGER type.
|
|
|
2007-05-23 Francois-Xavier Coudert
|
2007-05-23 Francois-Xavier Coudert
|
|
|
PR fortran/32046
|
PR fortran/32046
|
* trans-expr.c (gfc_trans_zero_assign): Convert the result of
|
* trans-expr.c (gfc_trans_zero_assign): Convert the result of
|
TYPE_SIZE_UNIT into a signed type.
|
TYPE_SIZE_UNIT into a signed type.
|
(gfc_trans_array_copy): Likewise.
|
(gfc_trans_array_copy): Likewise.
|
(gfc_trans_array_constructor_copy): Likewise.
|
(gfc_trans_array_constructor_copy): Likewise.
|
* trans-array.c (gfc_trans_create_temp_array): Likewise.
|
* trans-array.c (gfc_trans_create_temp_array): Likewise.
|
(gfc_grow_array): Likewise.
|
(gfc_grow_array): Likewise.
|
(gfc_array_init_size): Likewise.
|
(gfc_array_init_size): Likewise.
|
(gfc_duplicate_allocatable): Likewise.
|
(gfc_duplicate_allocatable): Likewise.
|
* trans-stmt.c (allocate_temp_for_forall_nest_1): Likewise.
|
* trans-stmt.c (allocate_temp_for_forall_nest_1): Likewise.
|
|
|
2007-05-22 Jerry DeLisle
|
2007-05-22 Jerry DeLisle
|
|
|
PR fortran/18923
|
PR fortran/18923
|
* resolve.c (resolve_function): Don't call resolve_global_procedure if
|
* resolve.c (resolve_function): Don't call resolve_global_procedure if
|
there is no name. Delete duplicated statement in ELSE clause.
|
there is no name. Delete duplicated statement in ELSE clause.
|
|
|
2007-05-22 Francois-Xavier Coudert
|
2007-05-22 Francois-Xavier Coudert
|
|
|
PR fortran/31627
|
PR fortran/31627
|
* trans-array.c (gfc_trans_array_bound_check): Take extra argument to
|
* trans-array.c (gfc_trans_array_bound_check): Take extra argument to
|
indicate whether we should check the upper bound in that dimension.
|
indicate whether we should check the upper bound in that dimension.
|
(gfc_conv_array_index_offset): Check only the lower bound of the
|
(gfc_conv_array_index_offset): Check only the lower bound of the
|
last dimension for assumed-size arrays.
|
last dimension for assumed-size arrays.
|
(gfc_conv_array_ref): Likewise.
|
(gfc_conv_array_ref): Likewise.
|
(gfc_conv_ss_startstride): Likewise.
|
(gfc_conv_ss_startstride): Likewise.
|
|
|
2007-05-21 Jerry DeLisle
|
2007-05-21 Jerry DeLisle
|
Daniel Franke
|
Daniel Franke
|
|
|
PR fortran/32002
|
PR fortran/32002
|
* resolve.c (resolve_actual_arglist): Resolve actual argument after
|
* resolve.c (resolve_actual_arglist): Resolve actual argument after
|
being identified as variable.
|
being identified as variable.
|
|
|
2007-05-21 Francois-Xavier Coudert
|
2007-05-21 Francois-Xavier Coudert
|
|
|
PR fortran/32027
|
PR fortran/32027
|
* trans-stmt.c (gfc_trans_do): Fix the value of loop variable
|
* trans-stmt.c (gfc_trans_do): Fix the value of loop variable
|
when the loop ends.
|
when the loop ends.
|
|
|
2007-05-21 H.J. Lu
|
2007-05-21 H.J. Lu
|
|
|
* trans-stmt.c (gfc_trans_do): Fix a typo in comment.
|
* trans-stmt.c (gfc_trans_do): Fix a typo in comment.
|
|
|
2007-05-21 Paul Thomas
|
2007-05-21 Paul Thomas
|
|
|
PR fortran/31867
|
PR fortran/31867
|
PR fortran/31994
|
PR fortran/31994
|
* trans-array.c (gfc_conv_expr_descriptor): Obtain the stored
|
* trans-array.c (gfc_conv_expr_descriptor): Obtain the stored
|
offset for non-descriptor, source arrays and correct for stride
|
offset for non-descriptor, source arrays and correct for stride
|
not equal to one before writing to field of output descriptor.
|
not equal to one before writing to field of output descriptor.
|
|
|
2007-05-20 Daniel Franke
|
2007-05-20 Daniel Franke
|
|
|
PR fortran/32001
|
PR fortran/32001
|
* check.c (check_rest): Improved argument conformance check and
|
* check.c (check_rest): Improved argument conformance check and
|
fixed error message generation.
|
fixed error message generation.
|
|
|
2007-05-19 Francois-Xavier Coudert
|
2007-05-19 Francois-Xavier Coudert
|
|
|
PR fortran/30820
|
PR fortran/30820
|
* Make-lang.in: Remove use of -Wno-error for expr.o, resolve.o,
|
* Make-lang.in: Remove use of -Wno-error for expr.o, resolve.o,
|
simplify.o and trans-common.o.
|
simplify.o and trans-common.o.
|
|
|
2007-05-19 Francois-Xavier Coudert
|
2007-05-19 Francois-Xavier Coudert
|
|
|
PR fortran/31974
|
PR fortran/31974
|
* trans-array.c (gfc_trans_auto_array_allocation): Avoid
|
* trans-array.c (gfc_trans_auto_array_allocation): Avoid
|
multiplication of mismatched types.
|
multiplication of mismatched types.
|
|
|
2007-05-18 Daniel Franke
|
2007-05-18 Daniel Franke
|
|
|
PR fortran/24633
|
PR fortran/24633
|
* symbol.c (gfc_add_flavor): Add the NAME to error message if
|
* symbol.c (gfc_add_flavor): Add the NAME to error message if
|
available.
|
available.
|
|
|
2007-05-15 Daniel Franke
|
2007-05-15 Daniel Franke
|
|
|
PR fortran/31919
|
PR fortran/31919
|
PR fortran/31929
|
PR fortran/31929
|
PR fortran/31930
|
PR fortran/31930
|
* intrinsic.c (check_specific): Check elemental intrinsics for
|
* intrinsic.c (check_specific): Check elemental intrinsics for
|
rank and shape.
|
rank and shape.
|
(add_functions): Fixed dummy argument names of BESJN and BESYN.
|
(add_functions): Fixed dummy argument names of BESJN and BESYN.
|
Fixed elemental status of MCLOCK and MCLOCK8.
|
Fixed elemental status of MCLOCK and MCLOCK8.
|
* check.c (check_rest): Added check for array conformance.
|
* check.c (check_rest): Added check for array conformance.
|
(gfc_check_merge): Removed check for array conformance.
|
(gfc_check_merge): Removed check for array conformance.
|
(gfc_check_besn): Removed check for scalarity.
|
(gfc_check_besn): Removed check for scalarity.
|
* intrinsic.texi (CSHIFT, EOSHIFT): Fixed typos.
|
* intrinsic.texi (CSHIFT, EOSHIFT): Fixed typos.
|
(BESJN, BESYN): Clarified documentation.
|
(BESJN, BESYN): Clarified documentation.
|
|
|
2007-05-17 Tobias Burnus
|
2007-05-17 Tobias Burnus
|
|
|
* gfortran.texi (GFORTRAN_CONVERT_UNIT): Improve documentation.
|
* gfortran.texi (GFORTRAN_CONVERT_UNIT): Improve documentation.
|
|
|
2007-05-16 Brooks Moses
|
2007-05-16 Brooks Moses
|
|
|
PR fortran/18769
|
PR fortran/18769
|
PR fortran/30881
|
PR fortran/30881
|
PR fortran/31194
|
PR fortran/31194
|
PR fortran/31216
|
PR fortran/31216
|
PR fortran/31427
|
PR fortran/31427
|
* target-memory.c: New file.
|
* target-memory.c: New file.
|
* target-memory.h: New file.
|
* target-memory.h: New file.
|
* simplify.c: Add #include "target-memory.h".
|
* simplify.c: Add #include "target-memory.h".
|
(gfc_simplify_transfer): Implement constant-
|
(gfc_simplify_transfer): Implement constant-
|
folding for TRANSFER intrinsic.
|
folding for TRANSFER intrinsic.
|
* Make-lang.in: Add dependencies on new target-memory.* files.
|
* Make-lang.in: Add dependencies on new target-memory.* files.
|
|
|
2007-05-15 Paul Brook
|
2007-05-15 Paul Brook
|
|
|
* trans-types.c (gfc_type_for_size): Handle signed TImode.
|
* trans-types.c (gfc_type_for_size): Handle signed TImode.
|
|
|
2007-05-14 Francois-Xavier Coudert
|
2007-05-14 Francois-Xavier Coudert
|
|
|
PR fortran/30723
|
PR fortran/30723
|
* trans.h (gfor_fndecl_internal_malloc, gfor_fndecl_internal_malloc64,
|
* trans.h (gfor_fndecl_internal_malloc, gfor_fndecl_internal_malloc64,
|
gfor_fndecl_internal_free): Remove prototypes.
|
gfor_fndecl_internal_free): Remove prototypes.
|
(gfor_fndecl_os_error, gfc_call_free, gfc_call_malloc): Add prototypes.
|
(gfor_fndecl_os_error, gfc_call_free, gfc_call_malloc): Add prototypes.
|
* trans.c (gfc_call_malloc, gfc_call_free): New functions.
|
* trans.c (gfc_call_malloc, gfc_call_free): New functions.
|
* f95-lang.c (gfc_init_builtin_functions): Add __builtin_free
|
* f95-lang.c (gfc_init_builtin_functions): Add __builtin_free
|
and __builtin_malloc builtins.
|
and __builtin_malloc builtins.
|
* trans-decl.c (gfor_fndecl_internal_malloc,
|
* trans-decl.c (gfor_fndecl_internal_malloc,
|
gfor_fndecl_internal_malloc64, gfor_fndecl_internal_free): Remove.
|
gfor_fndecl_internal_malloc64, gfor_fndecl_internal_free): Remove.
|
(gfor_fndecl_os_error): Add.
|
(gfor_fndecl_os_error): Add.
|
(gfc_build_builtin_function_decls): Don't create internal_malloc,
|
(gfc_build_builtin_function_decls): Don't create internal_malloc,
|
internal_malloc64 and internal_free library function declaration.
|
internal_malloc64 and internal_free library function declaration.
|
Create os_error library call function declaration.
|
Create os_error library call function declaration.
|
* trans-array.c (gfc_trans_allocate_array_storage,
|
* trans-array.c (gfc_trans_allocate_array_storage,
|
gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias,
|
gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias,
|
gfc_conv_array_parameter, gfc_duplicate_allocatable): Use
|
gfc_conv_array_parameter, gfc_duplicate_allocatable): Use
|
gfc_call_malloc and gfc_call_free instead of building calls to
|
gfc_call_malloc and gfc_call_free instead of building calls to
|
internal_malloc and internal_free.
|
internal_malloc and internal_free.
|
* trans-expr.c (gfc_conv_string_tmp): Likewise.
|
* trans-expr.c (gfc_conv_string_tmp): Likewise.
|
* trans-stmt.c (gfc_do_allocate, gfc_trans_assign_need_temp,
|
* trans-stmt.c (gfc_do_allocate, gfc_trans_assign_need_temp,
|
gfc_trans_pointer_assign_need_temp, gfc_trans_forall_1,
|
gfc_trans_pointer_assign_need_temp, gfc_trans_forall_1,
|
gfc_trans_where_2: Likewise.
|
gfc_trans_where_2: Likewise.
|
* trans-intrinsic.c (gfc_conv_intrinsic_ctime,
|
* trans-intrinsic.c (gfc_conv_intrinsic_ctime,
|
gfc_conv_intrinsic_fdate, gfc_conv_intrinsic_ttynam,
|
gfc_conv_intrinsic_fdate, gfc_conv_intrinsic_ttynam,
|
gfc_conv_intrinsic_array_transfer, gfc_conv_intrinsic_trim): Likewise.
|
gfc_conv_intrinsic_array_transfer, gfc_conv_intrinsic_trim): Likewise.
|
|
|
2007-05-14 Francois-Xavier Coudert
|
2007-05-14 Francois-Xavier Coudert
|
|
|
PR fortran/31725
|
PR fortran/31725
|
* trans-expr.c (gfc_conv_substring): Evaluate substring bounds
|
* trans-expr.c (gfc_conv_substring): Evaluate substring bounds
|
only once.
|
only once.
|
|
|
2007-05-14 Rafael Ávila de Espíndola
|
2007-05-14 Rafael Ávila de Espíndola
|
|
|
* f95-lang.c (LANG_HOOKS_UNSIGNED_TYPE): Remove.
|
* f95-lang.c (LANG_HOOKS_UNSIGNED_TYPE): Remove.
|
* trans-intrinsic.c (gfc_conv_intrinsic_ishft): Use unsigned_type_for
|
* trans-intrinsic.c (gfc_conv_intrinsic_ishft): Use unsigned_type_for
|
instead of gfc_unsigned_type.
|
instead of gfc_unsigned_type.
|
* trans-stmt.c (gfc_trans_do): Use unsigned_type_for instead of
|
* trans-stmt.c (gfc_trans_do): Use unsigned_type_for instead of
|
gfc_unsigned_type.
|
gfc_unsigned_type.
|
* trans-types.c (gfc_unsigned_type): Remove.
|
* trans-types.c (gfc_unsigned_type): Remove.
|
* trans-types.h (gfc_unsigned_type): Remove.
|
* trans-types.h (gfc_unsigned_type): Remove.
|
|
|
2007-05-12 Paul Thomas
|
2007-05-12 Paul Thomas
|
|
|
PR fortran/30746
|
PR fortran/30746
|
* resolve.c (check_host_association): New function that detects
|
* resolve.c (check_host_association): New function that detects
|
incorrect host association and corrects it.
|
incorrect host association and corrects it.
|
(gfc_resolve_expr): Call the new function for variables and
|
(gfc_resolve_expr): Call the new function for variables and
|
functions.
|
functions.
|
* match.h : Remove prototype for gfc_match_rvalue.
|
* match.h : Remove prototype for gfc_match_rvalue.
|
* gfortran.h : Add prototype for gfc_match_rvalue.
|
* gfortran.h : Add prototype for gfc_match_rvalue.
|
|
|
2007-05-11 Paul Thomas
|
2007-05-11 Paul Thomas
|
|
|
PR fortran/30876
|
PR fortran/30876
|
* trans-expr.c (gfc_conv_function_call): Reduce indirection for
|
* trans-expr.c (gfc_conv_function_call): Reduce indirection for
|
direct assignments of recursive array valued functions.
|
direct assignments of recursive array valued functions.
|
* primary.c (gfc_match_rvalue): Correct error for recursive
|
* primary.c (gfc_match_rvalue): Correct error for recursive
|
function calls such that directly recursive calls of scalar
|
function calls such that directly recursive calls of scalar
|
function without an explicit result are disallowed.
|
function without an explicit result are disallowed.
|
|
|
2007-05-11 Paul Thomas
|
2007-05-11 Paul Thomas
|
|
|
PR fortran/30878
|
PR fortran/30878
|
* resolve.c (resolve_fl_namelist): It is not an error if the
|
* resolve.c (resolve_fl_namelist): It is not an error if the
|
namelist element is the result variable of the enclosing
|
namelist element is the result variable of the enclosing
|
function. Search for the symbol in current and all parent
|
function. Search for the symbol in current and all parent
|
namespaces for a potential conflict.
|
namespaces for a potential conflict.
|
* symbol.c (check_conflict): Remove the conflict between
|
* symbol.c (check_conflict): Remove the conflict between
|
'in_namelist' and 'FL_PROCEDURE' because the symbol info
|
'in_namelist' and 'FL_PROCEDURE' because the symbol info
|
is not available to exclude function result variables.
|
is not available to exclude function result variables.
|
* trans-io.c (nml_get_addr_expr): Use the fake result decl
|
* trans-io.c (nml_get_addr_expr): Use the fake result decl
|
if the symbol is an implicit result variable.
|
if the symbol is an implicit result variable.
|
|
|
2007-05-11 Paul Thomas
|
2007-05-11 Paul Thomas
|
|
|
PR fortran/31474
|
PR fortran/31474
|
* decl.c (get_proc_name): If an entry has already been declared
|
* decl.c (get_proc_name): If an entry has already been declared
|
as a module procedure, pick up the symbol and the symtree and
|
as a module procedure, pick up the symbol and the symtree and
|
use them for the entry.
|
use them for the entry.
|
|
|
2007-05-08 Paul Thomas
|
2007-05-08 Paul Thomas
|
|
|
PR fortran/31630
|
PR fortran/31630
|
* resolve.c (resolve_symbol): Remove the flagging mechanism from the
|
* resolve.c (resolve_symbol): Remove the flagging mechanism from the
|
formal namespace resolution and instead check that the formal
|
formal namespace resolution and instead check that the formal
|
namespace is not the current namespace.
|
namespace is not the current namespace.
|
|
|
2007-05-08 Paul Thomas
|
2007-05-08 Paul Thomas
|
|
|
PR fortran/31692
|
PR fortran/31692
|
* trans-array.c (gfc_conv_array_parameter): Convert full array
|
* trans-array.c (gfc_conv_array_parameter): Convert full array
|
references to the result of the procedure enclusing the call.
|
references to the result of the procedure enclusing the call.
|
|
|
2007-05-08 Paul Thomas
|
2007-05-08 Paul Thomas
|
|
|
PR fortran/29397
|
PR fortran/29397
|
PR fortran/29400
|
PR fortran/29400
|
* decl.c (add_init_expr_to_sym): Expand a scalar initializer
|
* decl.c (add_init_expr_to_sym): Expand a scalar initializer
|
for a parameter array into an array expression with the right
|
for a parameter array into an array expression with the right
|
shape.
|
shape.
|
* array.c (spec_dimen_size): Remove static attribute.
|
* array.c (spec_dimen_size): Remove static attribute.
|
* gfortran.h : Prototype for spec_dimen_size.
|
* gfortran.h : Prototype for spec_dimen_size.
|
|
|
2007-05-07 Francois-Xavier Coudert
|
2007-05-07 Francois-Xavier Coudert
|
|
|
PR fortran/31399
|
PR fortran/31399
|
* trans-stmt.c (gfc_trans_do): Handle large loop counts.
|
* trans-stmt.c (gfc_trans_do): Handle large loop counts.
|
|
|
2007-05-07 Francois-Xavier Coudert
|
2007-05-07 Francois-Xavier Coudert
|
|
|
PR fortran/31764
|
PR fortran/31764
|
* simplify.c (gfc_simplify_new_line): NEW_LINE can be simplified
|
* simplify.c (gfc_simplify_new_line): NEW_LINE can be simplified
|
even for non constant arguments.
|
even for non constant arguments.
|
|
|
2007-05-06 Jerry DeLisle
|
2007-05-06 Jerry DeLisle
|
Francois-Xavier Coudert
|
Francois-Xavier Coudert
|
|
|
PR fortran/31201
|
PR fortran/31201
|
* gfortran.h: Add runtime error codes from libgfortran.h. Define
|
* gfortran.h: Add runtime error codes from libgfortran.h. Define
|
MAX_UNIT_NUMBER.
|
MAX_UNIT_NUMBER.
|
* trans.c (gfc_trans_runtime_check): Update the format of runtime error
|
* trans.c (gfc_trans_runtime_check): Update the format of runtime error
|
messages to match library runtime errors. Use call to new library
|
messages to match library runtime errors. Use call to new library
|
function runtime_error_at().
|
function runtime_error_at().
|
* trans.h: Add prototype for new function gfc_trans_io_runtime_check.
|
* trans.h: Add prototype for new function gfc_trans_io_runtime_check.
|
Add declaration for library functions runtime_error_at and
|
Add declaration for library functions runtime_error_at and
|
generate_error.
|
generate_error.
|
* trans_io.c (gfc_trans_io_runtime_check): New function.
|
* trans_io.c (gfc_trans_io_runtime_check): New function.
|
(set_parameter_value): Add error checking for UNIT numbers.
|
(set_parameter_value): Add error checking for UNIT numbers.
|
(set_parameter_ref): Initialize the users variable to zero.
|
(set_parameter_ref): Initialize the users variable to zero.
|
(gfc_trans_open): Move setting of unit number to after setting of common
|
(gfc_trans_open): Move setting of unit number to after setting of common
|
flags so that runtime error trapping can be detected.
|
flags so that runtime error trapping can be detected.
|
(gfc_trans_close): Likewise. (build_filepos): Likewise.
|
(gfc_trans_close): Likewise. (build_filepos): Likewise.
|
(gfc_trans_inquire): Likewise. (build_dt): Likewise.
|
(gfc_trans_inquire): Likewise. (build_dt): Likewise.
|
* trans-decl.c: Add declarations for runtime_error_at and
|
* trans-decl.c: Add declarations for runtime_error_at and
|
generate_error. (gfc_build_builtin_function_decls): Build function
|
generate_error. (gfc_build_builtin_function_decls): Build function
|
declarations for runtime_error_at and generate_error.
|
declarations for runtime_error_at and generate_error.
|
|
|
2007-05-06 Paul Thomas
|
2007-05-06 Paul Thomas
|
|
|
PR fortran/31540
|
PR fortran/31540
|
* resolve.c (resolve_fl_procedure): Resolve constant character
|
* resolve.c (resolve_fl_procedure): Resolve constant character
|
lengths.
|
lengths.
|
|
|
2007-05-05 Jerry DeLisle
|
2007-05-05 Jerry DeLisle
|
|
|
PR fortran/31251
|
PR fortran/31251
|
* decl.c (match_char_spec): Add check for invalid character lengths.
|
* decl.c (match_char_spec): Add check for invalid character lengths.
|
|
|
2007-05-04 Brooks Moses
|
2007-05-04 Brooks Moses
|
|
|
* intrinsic.texi (CMPLX): Document result kind.
|
* intrinsic.texi (CMPLX): Document result kind.
|
(COMPLEX): Add documentation.
|
(COMPLEX): Add documentation.
|
|
|
2007-05-04 Daniel Franke
|
2007-05-04 Daniel Franke
|
|
|
PR fortran/31760
|
PR fortran/31760
|
* intrinsic.c (add_functions): Replaced calls to gfc_check_g77_math1
|
* intrinsic.c (add_functions): Replaced calls to gfc_check_g77_math1
|
by gfc_check_fn_r to avoid checks for scalarity.
|
by gfc_check_fn_r to avoid checks for scalarity.
|
* check.c (gfc_check_besn): Removed check for scalarity.
|
* check.c (gfc_check_besn): Removed check for scalarity.
|
(gfc_check_g77_math1): Removed.
|
(gfc_check_g77_math1): Removed.
|
* intrinsic.h (gfc_check_g77_math1): Removed.
|
* intrinsic.h (gfc_check_g77_math1): Removed.
|
|
|
2007-05-04 Daniel Franke
|
2007-05-04 Daniel Franke
|
|
|
* check.c (gfc_check_fseek_sub): Fixed typo.
|
* check.c (gfc_check_fseek_sub): Fixed typo.
|
|
|
2007-05-04 Daniel Franke
|
2007-05-04 Daniel Franke
|
|
|
PR fortran/22359
|
PR fortran/22359
|
* intrinsic.c (add_subroutines): Added FSEEK.
|
* intrinsic.c (add_subroutines): Added FSEEK.
|
* intrinsic.h (gfc_resolve_fseek_sub, gfc_check_fseek_sub): New.
|
* intrinsic.h (gfc_resolve_fseek_sub, gfc_check_fseek_sub): New.
|
* iresolve.c (gfc_resolve_fseek_sub): New.
|
* iresolve.c (gfc_resolve_fseek_sub): New.
|
* check.c (gfc_check_fseek_sub): New.
|
* check.c (gfc_check_fseek_sub): New.
|
* intrinsic.texi (FSEEK): Updated.
|
* intrinsic.texi (FSEEK): Updated.
|
|
|
2007-05-04 Tobias Burnus
|
2007-05-04 Tobias Burnus
|
|
|
PR fortran/31803
|
PR fortran/31803
|
* expr.c (gfc_check_pointer_assign): Check for NULL pointer.
|
* expr.c (gfc_check_pointer_assign): Check for NULL pointer.
|
|
|
2007-05-04 Jerry DeLisle
|
2007-05-04 Jerry DeLisle
|
|
|
PR fortran/31251
|
PR fortran/31251
|
* simplify.c (gfc_simplify_len): Only simplify integer lengths.
|
* simplify.c (gfc_simplify_len): Only simplify integer lengths.
|
|
|
2007-05-04 Francois-Xavier Coudert
|
2007-05-04 Francois-Xavier Coudert
|
|
|
PR fortran/31781
|
PR fortran/31781
|
* simplify.c (gfc_simplify_repeat): Don't put function call with
|
* simplify.c (gfc_simplify_repeat): Don't put function call with
|
side effect in a gcc_assert().
|
side effect in a gcc_assert().
|
|
|
2007-05-04 Tobias Burnus
|
2007-05-04 Tobias Burnus
|
|
|
PR fortran/25071
|
PR fortran/25071
|
* interface.c (compare_actual_formal): Check character length.
|
* interface.c (compare_actual_formal): Check character length.
|
|
|
2007-05-01 Thomas Koenig
|
2007-05-01 Thomas Koenig
|
|
|
PR fortran/31732
|
PR fortran/31732
|
* dependency.c (gfc_full_array_ref_p): If the reference is
|
* dependency.c (gfc_full_array_ref_p): If the reference is
|
to a single element, check that the array has a single
|
to a single element, check that the array has a single
|
element and that the correct element is referenced.
|
element and that the correct element is referenced.
|
|
|
2007-05-01 Daniel Franke
|
2007-05-01 Daniel Franke
|
|
|
* intrinsic.c (add_functions): Fixed ELEMENTAL specifications.
|
* intrinsic.c (add_functions): Fixed ELEMENTAL specifications.
|
(add_subroutines): Replaced magic numbers in function calls by
|
(add_subroutines): Replaced magic numbers in function calls by
|
ELEMENTAL and NOT_ELEMENTAL respectively.
|
ELEMENTAL and NOT_ELEMENTAL respectively.
|
* intrinsic.texi (MVBITS): Changed class to elemental subroutine.
|
* intrinsic.texi (MVBITS): Changed class to elemental subroutine.
|
(RANDOM_NUMBER): Changed class to subroutine.
|
(RANDOM_NUMBER): Changed class to subroutine.
|
(HUGE, TINY): Changed class to inquiry function.
|
(HUGE, TINY): Changed class to inquiry function.
|
|
|
2007-04-30 Brooks Moses
|
2007-04-30 Brooks Moses
|
|
|
* trans-const.c (gfc_conv_mpz_to_tree): Use mpz_get_double_int.
|
* trans-const.c (gfc_conv_mpz_to_tree): Use mpz_get_double_int.
|
(gfc_conv_tree_to_mpz): New function.
|
(gfc_conv_tree_to_mpz): New function.
|
(gfc_conv_mpfr_to_tree): Use real_from_mpfr.
|
(gfc_conv_mpfr_to_tree): Use real_from_mpfr.
|
(gfc_conv_tree_to_mpfr): New function.
|
(gfc_conv_tree_to_mpfr): New function.
|
* trans-const.h: (gfc_conv_tree_to_mpz): New prototype.
|
* trans-const.h: (gfc_conv_tree_to_mpz): New prototype.
|
(gfc_conv_tree_to_mpfr): New prototype.
|
(gfc_conv_tree_to_mpfr): New prototype.
|
|
|
2007-04-30 Daniel Franke
|
2007-04-30 Daniel Franke
|
|
|
* intrinsic.texi (IERRNO): Changed class to non-elemental function.
|
* intrinsic.texi (IERRNO): Changed class to non-elemental function.
|
(LOG10): Removed COMPLEX as accepted argument type.
|
(LOG10): Removed COMPLEX as accepted argument type.
|
(NEW_LINE): Changed class from elemental to inquiry function.
|
(NEW_LINE): Changed class from elemental to inquiry function.
|
(SIGN): Removed requirement of scalar arguments.
|
(SIGN): Removed requirement of scalar arguments.
|
(SNGL): Changed class to elemental function.
|
(SNGL): Changed class to elemental function.
|
|
|
2007-04-29 Francois-Xavier Coudert
|
2007-04-29 Francois-Xavier Coudert
|
|
|
PR fortran/31591
|
PR fortran/31591
|
* simplify.c (simplify_bound_dim): New function.
|
* simplify.c (simplify_bound_dim): New function.
|
(simplify_bound): Use the above. Perform simplification of LBOUND
|
(simplify_bound): Use the above. Perform simplification of LBOUND
|
and UBOUND when DIM argument is not present.
|
and UBOUND when DIM argument is not present.
|
|
|
2007-04-29 Daniel Franke
|
2007-04-29 Daniel Franke
|
|
|
* gfortran.texi: Cleaned up keyword index.
|
* gfortran.texi: Cleaned up keyword index.
|
* invoke.texi: Likewise.
|
* invoke.texi: Likewise.
|
* intrinsic.texi: Likewise.
|
* intrinsic.texi: Likewise.
|
|
|
2007-04-29 Francois-Xavier Coudert
|
2007-04-29 Francois-Xavier Coudert
|
|
|
PR fortran/31645
|
PR fortran/31645
|
* scanner.c (load_file): Discard the byte order mark if one is
|
* scanner.c (load_file): Discard the byte order mark if one is
|
found on the first non-preprocessor line of a file.
|
found on the first non-preprocessor line of a file.
|
|
|
2007-04-29 Paul Thomas
|
2007-04-29 Paul Thomas
|
|
|
PR fortran/31711
|
PR fortran/31711
|
* trans-array.c (gfc_conv_resolve_dependencies): Create a temp
|
* trans-array.c (gfc_conv_resolve_dependencies): Create a temp
|
whenever a dependency is found.
|
whenever a dependency is found.
|
|
|
2007-04-28 Tobias Schlüter
|
2007-04-28 Tobias Schlüter
|
|
|
* options.c (gfc_handle_option): Ensure requested free form line
|
* options.c (gfc_handle_option): Ensure requested free form line
|
length is not too small.
|
length is not too small.
|
|
|
2007-04-27 Brooks Moses
|
2007-04-27 Brooks Moses
|
|
|
* intrinsic.texi (Transfer): Improve documentation.
|
* intrinsic.texi (Transfer): Improve documentation.
|
|
|
2007-04-27 Brooks Moses
|
2007-04-27 Brooks Moses
|
|
|
* gfortran.texi (Option Index): Add @samp as needed.
|
* gfortran.texi (Option Index): Add @samp as needed.
|
|
|
2007-04-27 Daniel Franke
|
2007-04-27 Daniel Franke
|
|
|
* gfortran.texi: Added node and menu entry for an option index.
|
* gfortran.texi: Added node and menu entry for an option index.
|
* invoke.texi: Moved command line option related entries of the concept
|
* invoke.texi: Moved command line option related entries of the concept
|
index to the option index.
|
index to the option index.
|
|
|
2007-04-27 Daniel Franke
|
2007-04-27 Daniel Franke
|
|
|
* intrinsic.texi (AND, FPUT, FPUTC, MODULO, OR, SET_EXPONENT,
|
* intrinsic.texi (AND, FPUT, FPUTC, MODULO, OR, SET_EXPONENT,
|
XOR): Fixed examples.
|
XOR): Fixed examples.
|
|
|
2007-04-27 Daniel Franke
|
2007-04-27 Daniel Franke
|
|
|
* intrinsic.texi (PRODUCT, RESHAPE, SPACING, SPREAD, SUM,
|
* intrinsic.texi (PRODUCT, RESHAPE, SPACING, SPREAD, SUM,
|
SYSTEM_CLOCK, TRANSFER, UNPACK): New.
|
SYSTEM_CLOCK, TRANSFER, UNPACK): New.
|
(DATE_AND_TIME, CPU_TIME, RRSPACING): Added cross references.
|
(DATE_AND_TIME, CPU_TIME, RRSPACING): Added cross references.
|
|
|
2007-04-26 Daniel Franke
|
2007-04-26 Daniel Franke
|
|
|
* intrinsic.texi (NULL, PACK, PRESENT, REPEAT, SCAN, SHAPE,
|
* intrinsic.texi (NULL, PACK, PRESENT, REPEAT, SCAN, SHAPE,
|
SIZE, TRANSPOSE, TRIM, VERIFY): New.
|
SIZE, TRANSPOSE, TRIM, VERIFY): New.
|
(ADJUSTL, ADJUSTR, INDEX): Added cross references.
|
(ADJUSTL, ADJUSTR, INDEX): Added cross references.
|
(INT, INT2, INT8, LONG): Enabled section header.
|
(INT, INT2, INT8, LONG): Enabled section header.
|
|
|
2007-04-25 Janne Blomqvist
|
2007-04-25 Janne Blomqvist
|
|
|
* module.c (module_char): Replace fgetc() with
|
* module.c (module_char): Replace fgetc() with
|
getc().
|
getc().
|
(write_char): Replace fputc() with putc().
|
(write_char): Replace fputc() with putc().
|
* scanner.c (load_line): Replace fgetc() with getc().
|
* scanner.c (load_line): Replace fgetc() with getc().
|
(gfc_read_orig_filename): Likewise.
|
(gfc_read_orig_filename): Likewise.
|
|
|
2007-04-25 Tobias Burnus
|
2007-04-25 Tobias Burnus
|
|
|
PR fortran/31668
|
PR fortran/31668
|
* error.c (error_print): Fix %% support.
|
* error.c (error_print): Fix %% support.
|
* intrinsic.c (sort_actual): Improve error message.
|
* intrinsic.c (sort_actual): Improve error message.
|
* resolve.c (resolve_actual_arglist): Allow %VAL for
|
* resolve.c (resolve_actual_arglist): Allow %VAL for
|
interfaces defined in the module declaration part.
|
interfaces defined in the module declaration part.
|
|
|
2007-04-25 Francois-Xavier Coudert
|
2007-04-25 Francois-Xavier Coudert
|
|
|
PR libfortran/31299
|
PR libfortran/31299
|
* intrinsic.texi (GETLOG): Update documentation to reflect
|
* intrinsic.texi (GETLOG): Update documentation to reflect
|
library changes.
|
library changes.
|
|
|
2007-04-24 Francois-Xavier Coudert
|
2007-04-24 Francois-Xavier Coudert
|
|
|
PR fortran/31587
|
PR fortran/31587
|
* module.c (write_char): Add character to the MD5 buffer.
|
* module.c (write_char): Add character to the MD5 buffer.
|
(read_md5_from_module_file): New function.
|
(read_md5_from_module_file): New function.
|
(gfc_dump_module): Compute MD5 for new module file. Call
|
(gfc_dump_module): Compute MD5 for new module file. Call
|
read_md5_from_module_file. Only overwrite old module file
|
read_md5_from_module_file. Only overwrite old module file
|
if the new MD5 is different.
|
if the new MD5 is different.
|
|
|
2007-04-23 Paul Thomas
|
2007-04-23 Paul Thomas
|
|
|
PR fortran/31630
|
PR fortran/31630
|
* resolve.c (resolve_symbol): Allow resolution of formal
|
* resolve.c (resolve_symbol): Allow resolution of formal
|
namespaces nested within formal namespaces coming from modules.
|
namespaces nested within formal namespaces coming from modules.
|
|
|
PR fortran/31620
|
PR fortran/31620
|
* trans-expr.c (gfc_trans_assignment): Make the call to
|
* trans-expr.c (gfc_trans_assignment): Make the call to
|
gfc_trans_zero_assign conditional on the lhs array ref being
|
gfc_trans_zero_assign conditional on the lhs array ref being
|
the only reference.
|
the only reference.
|
|
|
2007-04-23 Tobias Burnus
|
2007-04-23 Tobias Burnus
|
|
|
* primary.c (match_integer_constant): Mention -fno-range-check
|
* primary.c (match_integer_constant): Mention -fno-range-check
|
in the error message.
|
in the error message.
|
|
|
2007-04-21 Jerry DeLisle
|
2007-04-21 Jerry DeLisle
|
|
|
PR fortran/31495
|
PR fortran/31495
|
* scanner.c (load_line): Remove check for comment after ampersand and
|
* scanner.c (load_line): Remove check for comment after ampersand and
|
adjust tracking of ampersand.
|
adjust tracking of ampersand.
|
|
|
2007-04-21 Andrew Pinski
|
2007-04-21 Andrew Pinski
|
|
|
* f95-lang.c (lang_tree_node): Use GENERIC_NEXT
|
* f95-lang.c (lang_tree_node): Use GENERIC_NEXT
|
instead of checking GIMPLE_STMT_P in chain_next.
|
instead of checking GIMPLE_STMT_P in chain_next.
|
|
|
2007-04-17 Tobias Schlüter
|
2007-04-17 Tobias Schlüter
|
|
|
* trans-types.h (gfc_packed): New enum.
|
* trans-types.h (gfc_packed): New enum.
|
(gfc_get_nodesc_array_type): Change prototype to use new enum.
|
(gfc_get_nodesc_array_type): Change prototype to use new enum.
|
* trans-types.c (gfc_get_nodesc_array): Use gfc_packed for
|
* trans-types.c (gfc_get_nodesc_array): Use gfc_packed for
|
argument packed. Adapt all references to values accordingly.
|
argument packed. Adapt all references to values accordingly.
|
(gfc_sym_type): Use enum values in call to gfc_get_nodesc_array.
|
(gfc_sym_type): Use enum values in call to gfc_get_nodesc_array.
|
(gfc_get_derived_type): Likewise.
|
(gfc_get_derived_type): Likewise.
|
* trans-array.c (gfc_build_constant_array_constructor): Likewise.
|
* trans-array.c (gfc_build_constant_array_constructor): Likewise.
|
* trans-expr.c (gfc_get_interface_mapping_charlen): Changed packed
|
* trans-expr.c (gfc_get_interface_mapping_charlen): Changed packed
|
argument to type gfc_packed.
|
argument to type gfc_packed.
|
(gfc_add_interface_mapping): Use enum values in call to
|
(gfc_add_interface_mapping): Use enum values in call to
|
gfc_get_interface_mapping.
|
gfc_get_interface_mapping.
|
* trans-decl.c (gfc_build_dummy_array_decl): Adapt to use enum
|
* trans-decl.c (gfc_build_dummy_array_decl): Adapt to use enum
|
values when determining packing.
|
values when determining packing.
|
|
|
* trans-decl.c (gfc_finish_decl): Remove unused second argument
|
* trans-decl.c (gfc_finish_decl): Remove unused second argument
|
'init'. Simplify code accordingly. Remove calls to
|
'init'. Simplify code accordingly. Remove calls to
|
gfc_fatal_error in favor of gcc_assert.
|
gfc_fatal_error in favor of gcc_assert.
|
(create_function_arglist): Remove second argument from calls to
|
(create_function_arglist): Remove second argument from calls to
|
gfc_finish-decl.
|
gfc_finish-decl.
|
(gfc_trans_dummy_character): Likewise.
|
(gfc_trans_dummy_character): Likewise.
|
|
|
* arith.h: Update copyright years.
|
* arith.h: Update copyright years.
|
* dependency.h: Likewise.
|
* dependency.h: Likewise.
|
* gfortran.h: Likewise.
|
* gfortran.h: Likewise.
|
* lang-specs.h: Likewise.
|
* lang-specs.h: Likewise.
|
* parse.h: Likewise.
|
* parse.h: Likewise.
|
* symbol.c: Likewise.
|
* symbol.c: Likewise.
|
* trans.h: Likewise.
|
* trans.h: Likewise.
|
* trans.c: Likewise.
|
* trans.c: Likewise.
|
* trans-array.c: Likewise.
|
* trans-array.c: Likewise.
|
* trans-common.c: Likewise.
|
* trans-common.c: Likewise.
|
* trans-const.h: Likewise.
|
* trans-const.h: Likewise.
|
* trans-const.c: Likewise.
|
* trans-const.c: Likewise.
|
* trans-decl.c: Likewise.
|
* trans-decl.c: Likewise.
|
* trans-expr.c: Likewise.
|
* trans-expr.c: Likewise.
|
* trans-io.c: Likewise.
|
* trans-io.c: Likewise.
|
* trans-openmp.c: Likewise.
|
* trans-openmp.c: Likewise.
|
* trans-types.h: Likewise.
|
* trans-types.h: Likewise.
|
* types.def: Likewise.
|
* types.def: Likewise.
|
|
|
2007-04-17 Tobias Schlüter
|
2007-04-17 Tobias Schlüter
|
|
|
PR fortran/31144
|
PR fortran/31144
|
* decl.c (gfc_sym_mangled_identifier): Use capital letters in name
|
* decl.c (gfc_sym_mangled_identifier): Use capital letters in name
|
mangling.
|
mangling.
|
(gfc_sym_mangled_function_id): Likewise.
|
(gfc_sym_mangled_function_id): Likewise.
|
|
|
2007-04-15 Paul Thomas
|
2007-04-15 Paul Thomas
|
|
|
PR fortran/31204
|
PR fortran/31204
|
* primary.c (check_for_implicit_index): New function to check
|
* primary.c (check_for_implicit_index): New function to check
|
that a host associated variable is not an undeclared implied
|
that a host associated variable is not an undeclared implied
|
do loop index.
|
do loop index.
|
(gfc_match_rvalue, match_variable): Use it and reset the
|
(gfc_match_rvalue, match_variable): Use it and reset the
|
implied_index attribute.
|
implied_index attribute.
|
* gfortran.h : Add the implied_index field to symbol_attribute.
|
* gfortran.h : Add the implied_index field to symbol_attribute.
|
* match.c (gfc_match_iterator): Mark the iterator variable
|
* match.c (gfc_match_iterator): Mark the iterator variable
|
with the new attribute.
|
with the new attribute.
|
* decl.c (build_sym): Reset the new attribute.
|
* decl.c (build_sym): Reset the new attribute.
|
|
|
2007-04-15 Kazu Hirata
|
2007-04-15 Kazu Hirata
|
|
|
* gfc-internals.texi: Fix typos.
|
* gfc-internals.texi: Fix typos.
|
* simplify.c: Fix a comment typo.
|
* simplify.c: Fix a comment typo.
|
|
|
2007-04-14 Bernhard Fischer
|
2007-04-14 Bernhard Fischer
|
|
|
* primary.c: Commentary typo fix; Add question about redundant (?)
|
* primary.c: Commentary typo fix; Add question about redundant (?)
|
set.
|
set.
|
|
|
2007-04-14 Paul Thomas
|
2007-04-14 Paul Thomas
|
|
|
PR fortran/29507
|
PR fortran/29507
|
PR fortran/31404
|
PR fortran/31404
|
* expr.c (scalarize_intrinsic_call): New function to
|
* expr.c (scalarize_intrinsic_call): New function to
|
scalarize elemental intrinsic functions in initialization
|
scalarize elemental intrinsic functions in initialization
|
expressions.
|
expressions.
|
(check_init_expr): Detect elemental intrinsic functions
|
(check_init_expr): Detect elemental intrinsic functions
|
in initalization expressions and call previous.
|
in initalization expressions and call previous.
|
|
|
2007-04-13 Tobias Burnus
|
2007-04-13 Tobias Burnus
|
|
|
PR fortran/31559
|
PR fortran/31559
|
* primary.c (match_variable): External functions
|
* primary.c (match_variable): External functions
|
are no variables.
|
are no variables.
|
|
|
2007-04-13 Paul Thomas
|
2007-04-13 Paul Thomas
|
|
|
PR fortran/31550
|
PR fortran/31550
|
* trans-types.c (copy_dt_decls_ifequal): Do not get pointer
|
* trans-types.c (copy_dt_decls_ifequal): Do not get pointer
|
derived type components.
|
derived type components.
|
|
|
2007-04-13 Tobias Schlüter
|
2007-04-13 Tobias Schlüter
|
|
|
PR fortran/18937
|
PR fortran/18937
|
* resolve.c: Include obstack.h and bitmap.h. New variable
|
* resolve.c: Include obstack.h and bitmap.h. New variable
|
labels_obstack.
|
labels_obstack.
|
(code_stack): Add tail and reachable_labels fields.
|
(code_stack): Add tail and reachable_labels fields.
|
(reachable_labels): New function.
|
(reachable_labels): New function.
|
(resolve_branch): Rework to use new fields in code_stack.
|
(resolve_branch): Rework to use new fields in code_stack.
|
(resolve_code): Call reachable_labels.
|
(resolve_code): Call reachable_labels.
|
(resolve_codes): Allocate and free labels_obstack.
|
(resolve_codes): Allocate and free labels_obstack.
|
|
|
2007-04-12 Tobias Schlüter
|
2007-04-12 Tobias Schlüter
|
|
|
PR fortran/31250
|
PR fortran/31250
|
* decl.c (match_char_spec): Move check for negative CHARACTER
|
* decl.c (match_char_spec): Move check for negative CHARACTER
|
length ...
|
length ...
|
* resolve.c (resolve_charlen): ... here.
|
* resolve.c (resolve_charlen): ... here.
|
(resolve_types): Resolve CHARACTER lengths earlier.
|
(resolve_types): Resolve CHARACTER lengths earlier.
|
|
|
2007-04-12 Daniel Franke
|
2007-04-12 Daniel Franke
|
|
|
PR fortran/31234
|
PR fortran/31234
|
* intrinsic.texi (RANDOM_SEED, RANDOM_NUMBER): New.
|
* intrinsic.texi (RANDOM_SEED, RANDOM_NUMBER): New.
|
|
|
2007-04-12 Tobias Schlüter
|
2007-04-12 Tobias Schlüter
|
|
|
PR fortran/31266
|
PR fortran/31266
|
* primary.c (gfc_variable_attr): Don't copy string length if it
|
* primary.c (gfc_variable_attr): Don't copy string length if it
|
doesn't make sense.
|
doesn't make sense.
|
* resolve.c (resolve_code): Clarify error message.
|
* resolve.c (resolve_code): Clarify error message.
|
|
|
PR fortran/31471
|
PR fortran/31471
|
* decl.c (gfc_match_end): Also check for construct name in END
|
* decl.c (gfc_match_end): Also check for construct name in END
|
FORALL and END WERE statements.
|
FORALL and END WERE statements.
|
* match.c (match_case_eos): Use uppercase for statement name in
|
* match.c (match_case_eos): Use uppercase for statement name in
|
error message.
|
error message.
|
(match_elsewhere): Construct name may appear iff construct has a
|
(match_elsewhere): Construct name may appear iff construct has a
|
name.
|
name.
|
|
|
* trans-types.c: Update copyright years. Reformat long comment
|
* trans-types.c: Update copyright years. Reformat long comment
|
explaining array descriptor format. Remove obsolete mention of
|
explaining array descriptor format. Remove obsolete mention of
|
TYPE_SET.
|
TYPE_SET.
|
|
|
* arith.c (gfc_arith_uplus): Rename to ...
|
* arith.c (gfc_arith_uplus): Rename to ...
|
(gfc_arith_identity): ... this.
|
(gfc_arith_identity): ... this.
|
(gfc_parentheses): New function.
|
(gfc_parentheses): New function.
|
(gfc_uplus): Adapt to renamed function.
|
(gfc_uplus): Adapt to renamed function.
|
* arith.h (gfc_parentheses): Add prototype.
|
* arith.h (gfc_parentheses): Add prototype.
|
* expr.c (gfc_copy_expr): Deal with INTRINSIC_PARENTHESES.
|
* expr.c (gfc_copy_expr): Deal with INTRINSIC_PARENTHESES.
|
(simplifiy_intrinsic_op): Treat INTRINSIC_UPLUS separately from
|
(simplifiy_intrinsic_op): Treat INTRINSIC_UPLUS separately from
|
INTRINSIC_PARENTHESES.
|
INTRINSIC_PARENTHESES.
|
|
|
2007-04-12 Tobias Burnus
|
2007-04-12 Tobias Burnus
|
|
|
PR fortran/31472
|
PR fortran/31472
|
* decl.c (match_attr_spec): Allow PRIVATE/PUBLIC
|
* decl.c (match_attr_spec): Allow PRIVATE/PUBLIC
|
attribute in type definitions.
|
attribute in type definitions.
|
(gfc_match_private): Allow PRIVATE statement only
|
(gfc_match_private): Allow PRIVATE statement only
|
in specification part of modules.
|
in specification part of modules.
|
(gfc_match_public): Ditto for PUBLIC.
|
(gfc_match_public): Ditto for PUBLIC.
|
(gfc_match_derived_decl): Allow PRIVATE/PUBLIC attribute only in
|
(gfc_match_derived_decl): Allow PRIVATE/PUBLIC attribute only in
|
specificification part of modules.
|
specificification part of modules.
|
|
|
2007-04-07 Paul Thomas
|
2007-04-07 Paul Thomas
|
|
|
PR fortran/31257
|
PR fortran/31257
|
* intrinsic.c (add_functions): Add ref. to gfc_resolve_achar.
|
* intrinsic.c (add_functions): Add ref. to gfc_resolve_achar.
|
* intrinsic.h : Add prototype for gfc_resolve_achar.
|
* intrinsic.h : Add prototype for gfc_resolve_achar.
|
* iresolve.c (gfc_resolve_achar): New function.
|
* iresolve.c (gfc_resolve_achar): New function.
|
|
|
2007-04-07 Paul Thomas
|
2007-04-07 Paul Thomas
|
|
|
PR fortran/30880
|
PR fortran/30880
|
* resolve.c (resolve_fl_variable): Set flag to 2 for automatic
|
* resolve.c (resolve_fl_variable): Set flag to 2 for automatic
|
arrays. Make condition for automatic array error explicit.
|
arrays. Make condition for automatic array error explicit.
|
If a dummy, no error on an INTENT(OUT) derived type.
|
If a dummy, no error on an INTENT(OUT) derived type.
|
|
|
2007-04-07 Paul Thomas
|
2007-04-07 Paul Thomas
|
|
|
PR fortran/30872
|
PR fortran/30872
|
* expr.c (find_array_element): Correct arithmetic for rank > 1.
|
* expr.c (find_array_element): Correct arithmetic for rank > 1.
|
|
|
2007-04-07 Paul Thomas
|
2007-04-07 Paul Thomas
|
|
|
PR fortran/31222
|
PR fortran/31222
|
* check.c (numeric_check): If an expresson has not got a type,
|
* check.c (numeric_check): If an expresson has not got a type,
|
see if it is a symbol for which a default type applies.
|
see if it is a symbol for which a default type applies.
|
|
|
2007-04-07 Paul Thomas
|
2007-04-07 Paul Thomas
|
|
|
PR fortran/31214
|
PR fortran/31214
|
* trans-decl.c (gfc_get_symbol_decl): Allow unreferenced use
|
* trans-decl.c (gfc_get_symbol_decl): Allow unreferenced use
|
associated symbols.
|
associated symbols.
|
|
|
2007-04-07 Paul Thomas
|
2007-04-07 Paul Thomas
|
|
|
PR fortran/31293
|
PR fortran/31293
|
* symbol.c (gfc_check_function_type): New function.
|
* symbol.c (gfc_check_function_type): New function.
|
* gfortran.h : Add prototype for previous.
|
* gfortran.h : Add prototype for previous.
|
* parse.c (parse_progunit): Call it after parsing specification
|
* parse.c (parse_progunit): Call it after parsing specification
|
statements.
|
statements.
|
|
|
2007-04-05 Paul Thomas
|
2007-04-05 Paul Thomas
|
|
|
PR fortran/31483
|
PR fortran/31483
|
* trans-expr.c (gfc_conv_function_call): Give a dummy
|
* trans-expr.c (gfc_conv_function_call): Give a dummy
|
procedure the correct type if it has alternate returns.
|
procedure the correct type if it has alternate returns.
|
|
|
2007-04-05 Paul Thomas
|
2007-04-05 Paul Thomas
|
|
|
PR fortran/31292
|
PR fortran/31292
|
* decl.c (gfc_match_modproc): Go up to the top of the namespace
|
* decl.c (gfc_match_modproc): Go up to the top of the namespace
|
tree to find the module namespace for gfc_get_symbol.
|
tree to find the module namespace for gfc_get_symbol.
|
|
|
2007-04-03 Francois-Xavier Coudert
|
2007-04-03 Francois-Xavier Coudert
|
|
|
PR fortran/31304
|
PR fortran/31304
|
* fortran/gfortran.h (gfc_charlen_int_kind): New prototype.
|
* fortran/gfortran.h (gfc_charlen_int_kind): New prototype.
|
* fortran/trans-types.c (gfc_charlen_int_kind): New variable.
|
* fortran/trans-types.c (gfc_charlen_int_kind): New variable.
|
(gfc_init_types): Define gfc_charlen_int_kind.
|
(gfc_init_types): Define gfc_charlen_int_kind.
|
* fortran/trans.h (gfor_fndecl_string_repeat): Remove prototype.
|
* fortran/trans.h (gfor_fndecl_string_repeat): Remove prototype.
|
* fortran/trans-decl.c (gfor_fndecl_string_repeat): Delete.
|
* fortran/trans-decl.c (gfor_fndecl_string_repeat): Delete.
|
(gfc_build_intrinsic_function_decls): Don't set
|
(gfc_build_intrinsic_function_decls): Don't set
|
gfor_fndecl_string_repeat.
|
gfor_fndecl_string_repeat.
|
* fortran/trans-intrinsic.c (gfc_conv_intrinsic_repeat): Rewrite
|
* fortran/trans-intrinsic.c (gfc_conv_intrinsic_repeat): Rewrite
|
so that we don't have to call a library function.
|
so that we don't have to call a library function.
|
* fortran/simplify.c (gfc_simplify_repeat): Perform the necessary
|
* fortran/simplify.c (gfc_simplify_repeat): Perform the necessary
|
checks on the NCOPIES argument, and work with arbitrary size
|
checks on the NCOPIES argument, and work with arbitrary size
|
arguments.
|
arguments.
|
|
|
2007-03-31 Tobias Burnus
|
2007-03-31 Tobias Burnus
|
|
|
* intrinsic.c (add_functions): Fix name of dummy argument
|
* intrinsic.c (add_functions): Fix name of dummy argument
|
for new_line and exit intrinsic.
|
for new_line and exit intrinsic.
|
|
|
2007-03-31 Paul Thomas
|
2007-03-31 Paul Thomas
|
|
|
PR fortran/31160
|
PR fortran/31160
|
* gfortran.texi: Add a section for the %VAL, %REF and %LOC
|
* gfortran.texi: Add a section for the %VAL, %REF and %LOC
|
extensions.
|
extensions.
|
|
|
2007-03-30 Rafael Ávila de Espíndola
|
2007-03-30 Rafael Ávila de Espíndola
|
|
|
* trans-types.c (gfc_signed_or_unsigned_type): Remove.
|
* trans-types.c (gfc_signed_or_unsigned_type): Remove.
|
(gfc_unsigned_type): Use get_signed_or_unsigned_type instead of
|
(gfc_unsigned_type): Use get_signed_or_unsigned_type instead of
|
gfc_signed_or_unsigned_type.
|
gfc_signed_or_unsigned_type.
|
(gfc_signed_type): Ditto.
|
(gfc_signed_type): Ditto.
|
* trans-types.h (gfc_signed_or_unsigned_type): Remove.
|
* trans-types.h (gfc_signed_or_unsigned_type): Remove.
|
* f95-lang.c (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Remove.
|
* f95-lang.c (LANG_HOOKS_SIGNED_OR_UNSIGNED_TYPE): Remove.
|
|
|
2007-03-30 Tobias Schlüter
|
2007-03-30 Tobias Schlüter
|
|
|
* symbol.c (gfc_find_gsymbol): Simplify, don't unconditionally
|
* symbol.c (gfc_find_gsymbol): Simplify, don't unconditionally
|
descend into all branches.
|
descend into all branches.
|
|
|
2007-03-29 Tobias Schlüter
|
2007-03-29 Tobias Schlüter
|
|
|
* intrinsic.c (conv_name): Let gfc_get_string handle the format.
|
* intrinsic.c (conv_name): Let gfc_get_string handle the format.
|
(find_conv): Compare pointers instead of calling strcmp.
|
(find_conv): Compare pointers instead of calling strcmp.
|
(find_sym): Likewise, but ensure that the compared pointer is in
|
(find_sym): Likewise, but ensure that the compared pointer is in
|
the global string table.
|
the global string table.
|
|
|
2007-03-28 Tobias Schlüter
|
2007-03-28 Tobias Schlüter
|
|
|
* gfc-internals.texi: Fix output filename. Merge type index into
|
* gfc-internals.texi: Fix output filename. Merge type index into
|
concept index. Start documentation of gfc_code structure.
|
concept index. Start documentation of gfc_code structure.
|
|
|
2007-03-26 Brooks Moses
|
2007-03-26 Brooks Moses
|
|
|
* gfc-internals.texi: New file,
|
* gfc-internals.texi: New file,
|
* Make-lang.in: Add rules to convert it to dvi, pdf, and info.
|
* Make-lang.in: Add rules to convert it to dvi, pdf, and info.
|
|
|
2007-03-26 Brooks Moses
|
2007-03-26 Brooks Moses
|
|
|
* error.c (show_locus): Remove always-false test.
|
* error.c (show_locus): Remove always-false test.
|
|
|
2007-03-26 Brooks Moses
|
2007-03-26 Brooks Moses
|
|
|
* lang.opt: Minor edits to descriptions.
|
* lang.opt: Minor edits to descriptions.
|
|
|
2007-03-25 Francois-Xavier Coudert
|
2007-03-25 Francois-Xavier Coudert
|
|
|
PR fortran/30877
|
PR fortran/30877
|
* fortran/interface.c (check_operator_interface): Implement
|
* fortran/interface.c (check_operator_interface): Implement
|
the standard checks on user operators extending intrinsic operators.
|
the standard checks on user operators extending intrinsic operators.
|
* fortran/resolve.c (resolve_operator): If the ranks of operators
|
* fortran/resolve.c (resolve_operator): If the ranks of operators
|
don't match, don't error out but try the user-defined ones first.
|
don't match, don't error out but try the user-defined ones first.
|
|
|
2007-03-24 Francois-Xavier Coudert
|
2007-03-24 Francois-Xavier Coudert
|
|
|
PR fortran/30655
|
PR fortran/30655
|
* expr.c (check_dimension): Fix logic of comparisons.
|
* expr.c (check_dimension): Fix logic of comparisons.
|
|
|
2007-03-24 Paul Thomas
|
2007-03-24 Paul Thomas
|
|
|
PR fortran/31215
|
PR fortran/31215
|
* trans-expr.c (gfc_apply_interface_mapping_to_expr): Return
|
* trans-expr.c (gfc_apply_interface_mapping_to_expr): Return
|
int result that is non-zero if the expression is the function
|
int result that is non-zero if the expression is the function
|
result. Only the characteristics of the result expression
|
result. Only the characteristics of the result expression
|
can be used in a procedure interface, so simplify LEN in situ
|
can be used in a procedure interface, so simplify LEN in situ
|
using its character length.
|
using its character length.
|
|
|
PR fortran/31209
|
PR fortran/31209
|
PR fortran/31200
|
PR fortran/31200
|
* trans-expr.c (gfc_conv_function_call): Do not use
|
* trans-expr.c (gfc_conv_function_call): Do not use
|
gfc_conv_expr_reference for actual pointer function with formal
|
gfc_conv_expr_reference for actual pointer function with formal
|
target because a temporary is created that does not transfer
|
target because a temporary is created that does not transfer
|
the reference correctly. Do not indirect formal pointer
|
the reference correctly. Do not indirect formal pointer
|
functions since it is the function reference that is needed.
|
functions since it is the function reference that is needed.
|
|
|
2007-03-24 Brooks Moses
|
2007-03-24 Brooks Moses
|
|
|
* gfortran.h: Edit comments on GFC_STD_*.
|
* gfortran.h: Edit comments on GFC_STD_*.
|
|
|
2007-03-23 Brooks Moses
|
2007-03-23 Brooks Moses
|
|
|
* invoke.texi: Misc. small typo fixes.
|
* invoke.texi: Misc. small typo fixes.
|
(-Wcharacter-truncation): Add.
|
(-Wcharacter-truncation): Add.
|
(-Wnonstd-intrinsics): Correct spelling.
|
(-Wnonstd-intrinsics): Correct spelling.
|
(-std=): Edit.
|
(-std=): Edit.
|
(-fintrinsic-modules-path): Add.
|
(-fintrinsic-modules-path): Add.
|
|
|
2007-03-23 Francois-Xavier Coudert
|
2007-03-23 Francois-Xavier Coudert
|
|
|
PR fortran/30834
|
PR fortran/30834
|
* arith.c (complex_pow): Rewrite to handle large power.
|
* arith.c (complex_pow): Rewrite to handle large power.
|
(gfc_arith_power): Handle large power in the real and integer
|
(gfc_arith_power): Handle large power in the real and integer
|
cases.
|
cases.
|
|
|
2007-03-22 Francois-Xavier Coudert
|
2007-03-22 Francois-Xavier Coudert
|
|
|
PR fortran/31262
|
PR fortran/31262
|
* trans-const.c (gfc_conv_mpz_to_tree): Allow integer constants
|
* trans-const.c (gfc_conv_mpz_to_tree): Allow integer constants
|
larger than twice the width of a HOST_WIDE_INT.
|
larger than twice the width of a HOST_WIDE_INT.
|
|
|
2007-03-22 Paul Thomas
|
2007-03-22 Paul Thomas
|
|
|
PR fortran/31193
|
PR fortran/31193
|
* trans-intrinsic.c (gfc_size_in_bytes): Remove function.
|
* trans-intrinsic.c (gfc_size_in_bytes): Remove function.
|
(gfc_conv_intrinsic_array_transfer): Remove calls to previous.
|
(gfc_conv_intrinsic_array_transfer): Remove calls to previous.
|
Explicitly extract TREE_TYPEs for source and mold. Use these
|
Explicitly extract TREE_TYPEs for source and mold. Use these
|
to calculate length of source and mold, except for characters,
|
to calculate length of source and mold, except for characters,
|
where the se string_length is used. For mold, the TREE_TYPE is
|
where the se string_length is used. For mold, the TREE_TYPE is
|
recalculated using gfc_get_character_type_len so that the
|
recalculated using gfc_get_character_type_len so that the
|
result is correctly cast for character literals and substrings.
|
result is correctly cast for character literals and substrings.
|
Do not use gfc_typenode_for_spec for the final cast.
|
Do not use gfc_typenode_for_spec for the final cast.
|
|
|
2007-03-22 Tobias Schlüter
|
2007-03-22 Tobias Schlüter
|
|
|
PR fortran/20897
|
PR fortran/20897
|
* decl.c (gfc_match_derived_decl): Reliably reject
|
* decl.c (gfc_match_derived_decl): Reliably reject
|
'doubleprecision' and 'doublecomplex' as type names.
|
'doubleprecision' and 'doublecomplex' as type names.
|
|
|
2007-03-19 Francois-Xavier Coudert
|
2007-03-19 Francois-Xavier Coudert
|
|
|
PR fortran/31203
|
PR fortran/31203
|
* trans-expr.c (gfc_trans_init_string_length): Length should
|
* trans-expr.c (gfc_trans_init_string_length): Length should
|
never be negative.
|
never be negative.
|
(gfc_conv_function_call): Likewise.
|
(gfc_conv_function_call): Likewise.
|
|
|
2007-03-18 Paul Thomas
|
2007-03-18 Paul Thomas
|
|
|
PR fortran/30531
|
PR fortran/30531
|
PR fortran/31086
|
PR fortran/31086
|
* symbo.c : Add gfc_derived_types.
|
* symbo.c : Add gfc_derived_types.
|
(gfc_free_dt_list): Free derived type list gfc_derived_types.
|
(gfc_free_dt_list): Free derived type list gfc_derived_types.
|
(gfc_free_namespace): Remove call to gfc_free_dt_list.
|
(gfc_free_namespace): Remove call to gfc_free_dt_list.
|
(gfc_symbol_done_2): Call gfc_free_dt_list.
|
(gfc_symbol_done_2): Call gfc_free_dt_list.
|
* gfortran.h : Declare gfc_derived_types to be external. Remove
|
* gfortran.h : Declare gfc_derived_types to be external. Remove
|
derived types field from gfc_namespace.
|
derived types field from gfc_namespace.
|
* resolve.c (resolve_fl_derived): Refer to gfc_derived types
|
* resolve.c (resolve_fl_derived): Refer to gfc_derived types
|
rather than namespace derived_types.
|
rather than namespace derived_types.
|
(resolve_fntype): Remove special treatment for module
|
(resolve_fntype): Remove special treatment for module
|
derived type functions.
|
derived type functions.
|
* trans-types.c (gfc_get_derived_type): Remove search for like
|
* trans-types.c (gfc_get_derived_type): Remove search for like
|
derived types. Finish by copying back end declaration to like
|
derived types. Finish by copying back end declaration to like
|
derived types in the derived type list gfc_derived_types.
|
derived types in the derived type list gfc_derived_types.
|
|
|
2007-03-17 Francois-Xavier Coudert
|
2007-03-17 Francois-Xavier Coudert
|
|
|
PR fortran/31120
|
PR fortran/31120
|
* trans-expr.c (gfc_conv_powi): Make n argument unsigned hwi.
|
* trans-expr.c (gfc_conv_powi): Make n argument unsigned hwi.
|
(gfc_conv_cst_int_power): Handle integer exponent with care,
|
(gfc_conv_cst_int_power): Handle integer exponent with care,
|
since it might be too large for us.
|
since it might be too large for us.
|
|
|
2007-03-17 Francois-Xavier Coudert
|
2007-03-17 Francois-Xavier Coudert
|
|
|
PR fortran/31184
|
PR fortran/31184
|
* invoke.texi: Fix typo.
|
* invoke.texi: Fix typo.
|
|
|
2007-03-16 Tobias Burnus
|
2007-03-16 Tobias Burnus
|
|
|
* trans-decl.c (gfc_generate_function_code): Use all arguments of
|
* trans-decl.c (gfc_generate_function_code): Use all arguments of
|
set_std.
|
set_std.
|
|
|
2007-03-15 Francois-Xavier Coudert
|
2007-03-15 Francois-Xavier Coudert
|
|
|
* gfortran.h (gfc_option_t): Add flag_backtrace field.
|
* gfortran.h (gfc_option_t): Add flag_backtrace field.
|
* lang.opt: Add -fbacktrace option.
|
* lang.opt: Add -fbacktrace option.
|
* invoke.texi: Document the new option.
|
* invoke.texi: Document the new option.
|
* trans-decl.c (gfc_build_builtin_function_decls): Add new
|
* trans-decl.c (gfc_build_builtin_function_decls): Add new
|
option to the call to set_std.
|
option to the call to set_std.
|
* options.c (gfc_init_options, gfc_handle_option): Handle the
|
* options.c (gfc_init_options, gfc_handle_option): Handle the
|
new option.
|
new option.
|
|
|
2007-03-15 Tobias Burnus
|
2007-03-15 Tobias Burnus
|
Paul Thomas
|
Paul Thomas
|
|
|
PR fortran/30922
|
PR fortran/30922
|
* decl.c (gfc_match_import): If the parent of the current name-
|
* decl.c (gfc_match_import): If the parent of the current name-
|
space is null, try looking for an imported symbol in the parent
|
space is null, try looking for an imported symbol in the parent
|
of the proc_name interface.
|
of the proc_name interface.
|
* resolve.c (resolve_fl_variable): Do not check for blocking of
|
* resolve.c (resolve_fl_variable): Do not check for blocking of
|
host association by a same symbol, if the symbol is in an
|
host association by a same symbol, if the symbol is in an
|
interface body.
|
interface body.
|
|
|
2007-03-15 Paul Thomas
|
2007-03-15 Paul Thomas
|
|
|
PR fortran/30879
|
PR fortran/30879
|
* decl.c (match_data_constant): Before going on to try to match
|
* decl.c (match_data_constant): Before going on to try to match
|
a name, try to match a structure component.
|
a name, try to match a structure component.
|
|
|
|
|
PR fortran/30870
|
PR fortran/30870
|
* resolve.c (resolve_actual_arglist): Do not reject a generic
|
* resolve.c (resolve_actual_arglist): Do not reject a generic
|
actual argument if it has a same name specific interface.
|
actual argument if it has a same name specific interface.
|
|
|
PR fortran/31163
|
PR fortran/31163
|
* trans-array.c (parse_interface): Do not nullify allocatable
|
* trans-array.c (parse_interface): Do not nullify allocatable
|
components if the symbol has the saved attribute.
|
components if the symbol has the saved attribute.
|
|
|
2007-03-14 Francois-Xavier Coudert
|
2007-03-14 Francois-Xavier Coudert
|
|
|
* trans-array.c (gfc_trans_auto_array_allocation): Replace
|
* trans-array.c (gfc_trans_auto_array_allocation): Replace
|
fold(convert()) by fold_convert().
|
fold(convert()) by fold_convert().
|
(gfc_duplicate_allocatable): Likewise.
|
(gfc_duplicate_allocatable): Likewise.
|
* trans-intrinsic.c (gfc_conv_intrinsic_dot_product): Use
|
* trans-intrinsic.c (gfc_conv_intrinsic_dot_product): Use
|
build_int_cst instead of converting an integer_zero_node
|
build_int_cst instead of converting an integer_zero_node
|
to the final type.
|
to the final type.
|
|
|
2007-03-14 Jakub Jelinek
|
2007-03-14 Jakub Jelinek
|
|
|
* module.c (mio_typespec): Don't look at ts->cl if not BT_CHARACTER.
|
* module.c (mio_typespec): Don't look at ts->cl if not BT_CHARACTER.
|
|
|
2007-03-13 Brooks Moses
|
2007-03-13 Brooks Moses
|
|
|
PR fortran/30933
|
PR fortran/30933
|
PR fortran/30948
|
PR fortran/30948
|
PR fortran/30953
|
PR fortran/30953
|
* intrinsics.texi (CHDIR): Fix argument names, note
|
* intrinsics.texi (CHDIR): Fix argument names, note
|
that STATUS must be a default integer.
|
that STATUS must be a default integer.
|
(CTIME): Fix argument names, note that RESULT must
|
(CTIME): Fix argument names, note that RESULT must
|
be a default integer.
|
be a default integer.
|
(EXIT): Note that STATUS must be a default integer.
|
(EXIT): Note that STATUS must be a default integer.
|
|
|
2007-03-13 Brooks Moses
|
2007-03-13 Brooks Moses
|
|
|
PR fortran/28068
|
PR fortran/28068
|
* intrinsic.texi: General whitespace cleanup, remove
|
* intrinsic.texi: General whitespace cleanup, remove
|
comment about missing intrinsics.
|
comment about missing intrinsics.
|
(menu): Add lines for new entries listed below.
|
(menu): Add lines for new entries listed below.
|
(ACOSH): Mention specific function DACOSH, correct
|
(ACOSH): Mention specific function DACOSH, correct
|
description phrasing.
|
description phrasing.
|
(ASINH): Mention specific function DASINH, correct
|
(ASINH): Mention specific function DASINH, correct
|
description phrasing.
|
description phrasing.
|
(ATANH): Mention specific function DATANH, correct
|
(ATANH): Mention specific function DATANH, correct
|
description phrasing.
|
description phrasing.
|
(COS): Add index entry for CCOS.
|
(COS): Add index entry for CCOS.
|
(CPU_TIME): Correct "REAL" to "REAL(*)".
|
(CPU_TIME): Correct "REAL" to "REAL(*)".
|
(EXP): Add index entry for CEXP.
|
(EXP): Add index entry for CEXP.
|
(INT): Correct argument name to "A".
|
(INT): Correct argument name to "A".
|
(INT2): New entry.
|
(INT2): New entry.
|
(INT8): New entry.
|
(INT8): New entry.
|
(LONG): New entry.
|
(LONG): New entry.
|
(MAX): Add index entries for specific variants.
|
(MAX): Add index entries for specific variants.
|
(MCLOCK): New entry.
|
(MCLOCK): New entry.
|
(MCLOCK8): New entry.
|
(MCLOCK8): New entry.
|
(SECNDS): Adjust to a more standard form.
|
(SECNDS): Adjust to a more standard form.
|
(SECOND): New entry.
|
(SECOND): New entry.
|
(TIME): Add cross-reference to MCLOCK.
|
(TIME): Add cross-reference to MCLOCK.
|
(TIME8): Add cross-reference to MCLOCK8.
|
(TIME8): Add cross-reference to MCLOCK8.
|
|
|
2007-03-11 Paul Thomas
|
2007-03-11 Paul Thomas
|
|
|
PR fortran/30883
|
PR fortran/30883
|
* parse.c (parse_interface): Use the default types from the
|
* parse.c (parse_interface): Use the default types from the
|
formal namespace if a function or its result do not have a type
|
formal namespace if a function or its result do not have a type
|
after parsing the specification statements.
|
after parsing the specification statements.
|
|
|
2007-03-08 Brooks Moses
|
2007-03-08 Brooks Moses
|
|
|
* intrinsic.texi: (ICHAR) Improve internal I/O note.
|
* intrinsic.texi: (ICHAR) Improve internal I/O note.
|
(ACHAR): Reference it.
|
(ACHAR): Reference it.
|
(CHAR): Reference it.
|
(CHAR): Reference it.
|
(IACHAR): Reference it.
|
(IACHAR): Reference it.
|
|
|
2007-03-08 Brooks Moses
|
2007-03-08 Brooks Moses
|
|
|
* intrinsic.texi: (LINK) Document function form.
|
* intrinsic.texi: (LINK) Document function form.
|
(RENAME): Likewise.
|
(RENAME): Likewise.
|
(SYMLNK): Likewise.
|
(SYMLNK): Likewise.
|
(SYSTEM): Likewise.
|
(SYSTEM): Likewise.
|
(UNLINK): Likewise.
|
(UNLINK): Likewise.
|
|
|
2007-03-08 Brooks Moses
|
2007-03-08 Brooks Moses
|
|
|
* intrinsic.texi: minor typo fixes, removed prologue.
|
* intrinsic.texi: minor typo fixes, removed prologue.
|
(FSEEK): moved to correct place in alphabetical order.
|
(FSEEK): moved to correct place in alphabetical order.
|
|
|
2007-03-08 Daniel Franke
|
2007-03-08 Daniel Franke
|
|
|
PR fortran/30947
|
PR fortran/30947
|
* check.c (gfc_check_alarm_sub): Added check for default integer
|
* check.c (gfc_check_alarm_sub): Added check for default integer
|
kind of status argument.
|
kind of status argument.
|
* iresolve.c (gfc_resolve_alarm_sub): Removed conversion of
|
* iresolve.c (gfc_resolve_alarm_sub): Removed conversion of
|
status argument.
|
status argument.
|
* intrinsic.texi (ALARM): Extended documentation.
|
* intrinsic.texi (ALARM): Extended documentation.
|
|
|
2007-03-08 Daniel Franke
|
2007-03-08 Daniel Franke
|
|
|
* intrinsic.texi (GERROR, ISATTY, TTYNAM): New.
|
* intrinsic.texi (GERROR, ISATTY, TTYNAM): New.
|
(ABORT, FLUSH, FNUM, IRAND, MALLOC, SIGNAL, SRAND): Fixed typo.
|
(ABORT, FLUSH, FNUM, IRAND, MALLOC, SIGNAL, SRAND): Fixed typo.
|
* intrinsic.c (add_subroutines): Adjusted dummy argument names
|
* intrinsic.c (add_subroutines): Adjusted dummy argument names
|
of GERROR and TTYNAM.
|
of GERROR and TTYNAM.
|
|
|
2007-07-08 Tobias Burnus
|
2007-07-08 Tobias Burnus
|
|
|
* module.c (gfc_match_use): Support renaming of operators
|
* module.c (gfc_match_use): Support renaming of operators
|
in USE statements.
|
in USE statements.
|
* gfortran.texi (Fortran 2003 Status): Document support of
|
* gfortran.texi (Fortran 2003 Status): Document support of
|
renaming of operators.
|
renaming of operators.
|
|
|
2007-07-08 Tobias Burnus
|
2007-07-08 Tobias Burnus
|
|
|
PR fortran/30973
|
PR fortran/30973
|
* module.c (read_module): Always import module name as symbol.
|
* module.c (read_module): Always import module name as symbol.
|
(gfc_match_use): Disallow module name in the only clause of
|
(gfc_match_use): Disallow module name in the only clause of
|
a use statement.
|
a use statement.
|
|
|
2007-03-08 Paul Thomas
|
2007-03-08 Paul Thomas
|
|
|
PR fortran/31011
|
PR fortran/31011
|
* expr.c (find_array_section): Correct arithmetic for section
|
* expr.c (find_array_section): Correct arithmetic for section
|
size.
|
size.
|
|
|
2007-03-07 Brooks Moses
|
2007-03-07 Brooks Moses
|
|
|
* iresolve.c (gfc_resolve_ishftc): Correct s_kind value.
|
* iresolve.c (gfc_resolve_ishftc): Correct s_kind value.
|
|
|
2007-03-06 Daniel Franke
|
2007-03-06 Daniel Franke
|
|
|
PR documentation/30950
|
PR documentation/30950
|
* intrinsic.texi (AND, CPU_TIME): Fix dummy argument names.
|
* intrinsic.texi (AND, CPU_TIME): Fix dummy argument names.
|
(FREE): Fix call syntax.
|
(FREE): Fix call syntax.
|
|
|
2007-03-06 Brooks Moses
|
2007-03-06 Brooks Moses
|
|
|
* intrinsic.texi: Limit column widths to a total of .85.
|
* intrinsic.texi: Limit column widths to a total of .85.
|
|
|
2007-03-05 Brooks Moses
|
2007-03-05 Brooks Moses
|
|
|
* gfortran.texi (GFortran and G77): Rewrite completely.
|
* gfortran.texi (GFortran and G77): Rewrite completely.
|
|
|
2007-03-05 Brooks Moses
|
2007-03-05 Brooks Moses
|
|
|
* match.c (gfc_match_name): Expanded comment.
|
* match.c (gfc_match_name): Expanded comment.
|
|
|
2007-03-05 Brooks Moses
|
2007-03-05 Brooks Moses
|
|
|
* gfortran.texi (Old-style kind specifications): Document
|
* gfortran.texi (Old-style kind specifications): Document
|
special handling of old-style kind specifiers for COMPLEX.
|
special handling of old-style kind specifiers for COMPLEX.
|
* decl.c (gfc_match_old_kind_spec): Document kind/bytesize
|
* decl.c (gfc_match_old_kind_spec): Document kind/bytesize
|
assumptions for COMPLEX in comment.
|
assumptions for COMPLEX in comment.
|
|
|
2007-03-05 Brooks Moses
|
2007-03-05 Brooks Moses
|
|
|
PR 31050
|
PR 31050
|
* gfortranspec.c (lang_specific_driver): Update program
|
* gfortranspec.c (lang_specific_driver): Update program
|
name and copyright date.
|
name and copyright date.
|
|
|
2007-03-03 Paul Thomas
|
2007-03-03 Paul Thomas
|
|
|
PR fortran/30882
|
PR fortran/30882
|
* check.c (dim_rank_check): The shape of subsections of
|
* check.c (dim_rank_check): The shape of subsections of
|
assumed-size arrays is known.
|
assumed-size arrays is known.
|
|
|
2007-03-02 Paul Thomas
|
2007-03-02 Paul Thomas
|
Tobias Burnus
|
Tobias Burnus
|
|
|
PR fortran/30873
|
PR fortran/30873
|
* decl.c (gfc_match_entry): Remove erroneous entry result check.
|
* decl.c (gfc_match_entry): Remove erroneous entry result check.
|
|
|
2007-03-01 Brooks Moses
|
2007-03-01 Brooks Moses
|
|
|
* Make-lang.in: Add install-pdf target as copied from
|
* Make-lang.in: Add install-pdf target as copied from
|
automake v1.10 rules.
|
automake v1.10 rules.
|
|
|
2007-03-01 Tobias Burnus
|
2007-03-01 Tobias Burnus
|
|
|
PR fortran/30865
|
PR fortran/30865
|
* trans-intrinsic.c (gfc_conv_intrinsic_size): Compare pointers.
|
* trans-intrinsic.c (gfc_conv_intrinsic_size): Compare pointers.
|
|
|
2007-02-28 Tobias Burnus
|
2007-02-28 Tobias Burnus
|
Paul Thomas
|
Paul Thomas
|
|
|
PR fortran/30888
|
PR fortran/30888
|
PR fortran/30887
|
PR fortran/30887
|
* resolve.c (resolve_actual_arglist): Allow by-value
|
* resolve.c (resolve_actual_arglist): Allow by-value
|
arguments and non-default-kind for %VAL().
|
arguments and non-default-kind for %VAL().
|
* trans-expr.c (conv_arglist_function): Allow
|
* trans-expr.c (conv_arglist_function): Allow
|
non-default-kind for %VAL().
|
non-default-kind for %VAL().
|
|
|
2007-02-28 Tobias Burnus
|
2007-02-28 Tobias Burnus
|
|
|
PR fortran/30968
|
PR fortran/30968
|
* primary.c (next_string_char): Correct reading a character
|
* primary.c (next_string_char): Correct reading a character
|
after the delimiter.
|
after the delimiter.
|
(match_string_constant): Print warning message only once.
|
(match_string_constant): Print warning message only once.
|
|
|
2007-02-27 Richard Guenther
|
2007-02-27 Richard Guenther
|
|
|
* trans-array.c (structure_alloc_comps): Use correct type
|
* trans-array.c (structure_alloc_comps): Use correct type
|
for null pointer constant.
|
for null pointer constant.
|
|
|
2007-02-26 Brooks Moses
|
2007-02-26 Brooks Moses
|
|
|
* gfortran.texi: Standardize title page, remove version number
|
* gfortran.texi: Standardize title page, remove version number
|
from copyright page.
|
from copyright page.
|
|
|
2007-02-26 Thomas Koenig
|
2007-02-26 Thomas Koenig
|
Paul Thomas
|
Paul Thomas
|
|
|
PR fortran/30865
|
PR fortran/30865
|
* trans-intrinsic.c (gfc_conv_intrinsic_size):
|
* trans-intrinsic.c (gfc_conv_intrinsic_size):
|
If dim is an optional argument, check for its
|
If dim is an optional argument, check for its
|
presence and call size0 or size1, respectively.
|
presence and call size0 or size1, respectively.
|
|
|
2007-02-23 Paul Thomas
|
2007-02-23 Paul Thomas
|
|
|
PR fortran/30660
|
PR fortran/30660
|
* resolve.c (has_default_initializer): New function.
|
* resolve.c (has_default_initializer): New function.
|
(resolve_fl_variable): Call has_default_initializer to determine if
|
(resolve_fl_variable): Call has_default_initializer to determine if
|
the derived type has a default initializer to its ultimate
|
the derived type has a default initializer to its ultimate
|
components.
|
components.
|
|
|
|
|
2007-02-22 Jerry DeLisle
|
2007-02-22 Jerry DeLisle
|
|
|
* options.c (set_default_std_flags): New function to consolidate
|
* options.c (set_default_std_flags): New function to consolidate
|
setting the flags.
|
setting the flags.
|
(gfc_init_options): Use new function.
|
(gfc_init_options): Use new function.
|
(gfc_handle_option): Use new function.
|
(gfc_handle_option): Use new function.
|
|
|
2007-02-22 Brooks Moses
|
2007-02-22 Brooks Moses
|
|
|
* gfortran.texi (Old-style kind specifications): Document
|
* gfortran.texi (Old-style kind specifications): Document
|
special handling of old-style kind specifiers for COMPLEX.
|
special handling of old-style kind specifiers for COMPLEX.
|
* decl.c (gfc_match_old_kind_spec): Documented kind/bytesize
|
* decl.c (gfc_match_old_kind_spec): Documented kind/bytesize
|
assumptions in comment.
|
assumptions in comment.
|
|
|
2007-02-21 Bernhard Fischer
|
2007-02-21 Bernhard Fischer
|
|
|
* parse.c (next_free): Gooble spaces after OpenMP sentinel.
|
* parse.c (next_free): Gooble spaces after OpenMP sentinel.
|
|
|
2007-02-20 Thomas Koenig
|
2007-02-20 Thomas Koenig
|
|
|
PR fortran/30869
|
PR fortran/30869
|
* match.c (gfc_match_iterator): Remove conflict between
|
* match.c (gfc_match_iterator): Remove conflict between
|
loop variable and pointer.
|
loop variable and pointer.
|
|
|
2007-02-20 Tobias Burnus
|
2007-02-20 Tobias Burnus
|
|
|
PR fortran/30522
|
PR fortran/30522
|
* symbol.c (gfc_add_volatile): Allow to set VOLATILE
|
* symbol.c (gfc_add_volatile): Allow to set VOLATILE
|
attribute for host-associated variables.
|
attribute for host-associated variables.
|
* gfortran.h (symbol_attribute): Save namespace
|
* gfortran.h (symbol_attribute): Save namespace
|
where VOLATILE has been set.
|
where VOLATILE has been set.
|
* trans-decl.c (gfc_finish_var_decl): Move variable
|
* trans-decl.c (gfc_finish_var_decl): Move variable
|
declaration to the top.
|
declaration to the top.
|
|
|
2007-02-20 Tobias Burnus
|
2007-02-20 Tobias Burnus
|
|
|
PR fortran/30783
|
PR fortran/30783
|
* resolve.c (resolve_symbol): Add character dummy VALUE check.
|
* resolve.c (resolve_symbol): Add character dummy VALUE check.
|
|
|
2007-02-19 Thomas Koenig
|
2007-02-19 Thomas Koenig
|
|
|
PR libfortran/30533
|
PR libfortran/30533
|
* fortran/iresolve.c (gfc_resolve_maxloc): Remove coercion of
|
* fortran/iresolve.c (gfc_resolve_maxloc): Remove coercion of
|
argument to default integer.
|
argument to default integer.
|
(gfc_resolve_minloc): Likewise.
|
(gfc_resolve_minloc): Likewise.
|
|
|
2007-02-18 Jerry DeLisle
|
2007-02-18 Jerry DeLisle
|
|
|
PR fortran/30681
|
PR fortran/30681
|
* options.c (gfc_init_options): Relax warning level for obsolescent.
|
* options.c (gfc_init_options): Relax warning level for obsolescent.
|
* match.c (match_arithmetic_if): Change to obsolescent from deleted.
|
* match.c (match_arithmetic_if): Change to obsolescent from deleted.
|
(gfc_match_if): Same.
|
(gfc_match_if): Same.
|
|
|
2007-02-18 Roger Sayle
|
2007-02-18 Roger Sayle
|
|
|
* trans-array.c (gfc_build_constant_array_constructor): When the
|
* trans-array.c (gfc_build_constant_array_constructor): When the
|
shape of the constructor is known, use that to construct the
|
shape of the constructor is known, use that to construct the
|
gfc_array_spec.
|
gfc_array_spec.
|
(gfc_trans_constant_array_constructor): Initialize the "info"
|
(gfc_trans_constant_array_constructor): Initialize the "info"
|
information for all of the dimensions of the array constructor.
|
information for all of the dimensions of the array constructor.
|
(constant_array_constructor_loop_size): New function.
|
(constant_array_constructor_loop_size): New function.
|
(gfc_trans_array_constructor): Use it to determine whether a
|
(gfc_trans_array_constructor): Use it to determine whether a
|
loop is suitable for "constant array constructor" optimization.
|
loop is suitable for "constant array constructor" optimization.
|
|
|
* trans-intrinsic.c (gfc_conv_intrinsic_anyall): Use fold_build2
|
* trans-intrinsic.c (gfc_conv_intrinsic_anyall): Use fold_build2
|
instead of build2, to avoid conditions like "(a != b) != 0".
|
instead of build2, to avoid conditions like "(a != b) != 0".
|
|
|
2007-02-18 Roger Sayle
|
2007-02-18 Roger Sayle
|
Paul Thomas
|
Paul Thomas
|
|
|
PR fortran/30400
|
PR fortran/30400
|
* match.c (match_forall_iterator): Use gfc_match_expr instead
|
* match.c (match_forall_iterator): Use gfc_match_expr instead
|
of gfc_match_variable to match the iterator variable. Return
|
of gfc_match_variable to match the iterator variable. Return
|
MATCH_NO if not a variable. Remove the reset of the symbol's
|
MATCH_NO if not a variable. Remove the reset of the symbol's
|
flavor in cleanup.
|
flavor in cleanup.
|
|
|
2007-02-16 Tobias Burnus
|
2007-02-16 Tobias Burnus
|
|
|
PR fortran/30793
|
PR fortran/30793
|
* trans-decl.c (gfc_generate_function_code): Do not initialize
|
* trans-decl.c (gfc_generate_function_code): Do not initialize
|
pointers to derived components.
|
pointers to derived components.
|
|
|
2007-02-15 Sandra Loosemore
|
2007-02-15 Sandra Loosemore
|
Brooks Moses
|
Brooks Moses
|
Lee Millward
|
Lee Millward
|
|
|
* trans-expr.c (gfc_conv_power_op): Use build_call_expr.
|
* trans-expr.c (gfc_conv_power_op): Use build_call_expr.
|
(gfc_conv_string_tmp): Likewise.
|
(gfc_conv_string_tmp): Likewise.
|
(gfc_conv_concat_op): Likewise.
|
(gfc_conv_concat_op): Likewise.
|
(gfc_build_compare_string): Likewise.
|
(gfc_build_compare_string): Likewise.
|
(gfc_conv_function_call): Use build_call_list instead of build3.
|
(gfc_conv_function_call): Use build_call_list instead of build3.
|
|
|
* trans-array.c (gfc_trans_allocate_array_storage): Use
|
* trans-array.c (gfc_trans_allocate_array_storage): Use
|
build_call_expr.
|
build_call_expr.
|
(gfc_grow_array): Likewise.
|
(gfc_grow_array): Likewise.
|
(gfc_trans_array_ctor_element): Likewise.
|
(gfc_trans_array_ctor_element): Likewise.
|
(gfc_trans_array_constructor_value): Likewise.
|
(gfc_trans_array_constructor_value): Likewise.
|
(gfc_array_allocate): Likewise.
|
(gfc_array_allocate): Likewise.
|
(gfc_array_deallocate): Likewise.
|
(gfc_array_deallocate): Likewise.
|
(gfc_trans_auto_array_allocation): Likewise.
|
(gfc_trans_auto_array_allocation): Likewise.
|
(gfc_trans_dummy_array_bias): Likewise.
|
(gfc_trans_dummy_array_bias): Likewise.
|
(gfc_conv_array_parameter): Likewise.
|
(gfc_conv_array_parameter): Likewise.
|
(gfc_trans_dealloc_allocated): Likewise.
|
(gfc_trans_dealloc_allocated): Likewise.
|
(gfc_duplicate_allocatable): Likewise.
|
(gfc_duplicate_allocatable): Likewise.
|
|
|
* trans-openmp.c (gfc_trans_omp_barrier): Use build_call_expr.
|
* trans-openmp.c (gfc_trans_omp_barrier): Use build_call_expr.
|
(gfc_trans_omp_flush): Likewise.
|
(gfc_trans_omp_flush): Likewise.
|
|
|
* trans-stmt.c (gfc_conv_elementel_dependencies): Use build_call_expr.
|
* trans-stmt.c (gfc_conv_elementel_dependencies): Use build_call_expr.
|
(gfc_trans_pause): Likewise.
|
(gfc_trans_pause): Likewise.
|
(gfc_trans_stop): Likewise.
|
(gfc_trans_stop): Likewise.
|
(gfc_trans_character_select): Likewise.
|
(gfc_trans_character_select): Likewise.
|
(gfc_do_allocate): Likewise.
|
(gfc_do_allocate): Likewise.
|
(gfc_trans_assign_need_temp): Likewise.
|
(gfc_trans_assign_need_temp): Likewise.
|
(gfc_trans_pointer_assign_need_temp): Likewise.
|
(gfc_trans_pointer_assign_need_temp): Likewise.
|
(gfc_trans_forall_1): Likewise.
|
(gfc_trans_forall_1): Likewise.
|
(gfc_trans_where_2): Likewise.
|
(gfc_trans_where_2): Likewise.
|
(gfc_trans_allocate): Likewise.
|
(gfc_trans_allocate): Likewise.
|
(gfc_trans_deallocate): Likewise.
|
(gfc_trans_deallocate): Likewise.
|
|
|
* trans.c (gfc_trans_runtime_check): Use build_call_expr.
|
* trans.c (gfc_trans_runtime_check): Use build_call_expr.
|
|
|
* trans-io.c (gfc_trans_open): Use build_call_expr.
|
* trans-io.c (gfc_trans_open): Use build_call_expr.
|
(gfc_trans_close): Likewise.
|
(gfc_trans_close): Likewise.
|
(build_filepos): Likewise.
|
(build_filepos): Likewise.
|
(gfc_trans_inquire): Likewise.
|
(gfc_trans_inquire): Likewise.
|
(NML_FIRST_ARG): Delete.
|
(NML_FIRST_ARG): Delete.
|
(NML_ADD_ARG): Delete.
|
(NML_ADD_ARG): Delete.
|
(transfer_namelist_element): Use build_call_expr.
|
(transfer_namelist_element): Use build_call_expr.
|
(build_dt): Likewise.
|
(build_dt): Likewise.
|
(gfc_trans_dt_end): Likewise.
|
(gfc_trans_dt_end): Likewise.
|
(transfer_expr): Likewise.
|
(transfer_expr): Likewise.
|
(transfer_array-desc): Likewise.
|
(transfer_array-desc): Likewise.
|
|
|
* trans-decl.c (gfc_generate_function_code): Use build_call_expr.
|
* trans-decl.c (gfc_generate_function_code): Use build_call_expr.
|
(gfc_generate_constructors): Likewise.
|
(gfc_generate_constructors): Likewise.
|
|
|
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Use build_call_expr.
|
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Use build_call_expr.
|
(gfc_conv_intrinsic_fdate): Likewise.
|
(gfc_conv_intrinsic_fdate): Likewise.
|
(gfc_conv_intrinsic_ttynam): Likewise.
|
(gfc_conv_intrinsic_ttynam): Likewise.
|
(gfc_conv_intrinsic_array_transfer): Likewise.
|
(gfc_conv_intrinsic_array_transfer): Likewise.
|
(gfc_conv_associated): Likewise.
|
(gfc_conv_associated): Likewise.
|
(gfc_conv_intrinsic_si_kind): Likewise.
|
(gfc_conv_intrinsic_si_kind): Likewise.
|
(gfc_conv_intrinsic_trim): Likewise.
|
(gfc_conv_intrinsic_trim): Likewise.
|
(gfc_conv_intrinsic_repeat: Likewise.
|
(gfc_conv_intrinsic_repeat: Likewise.
|
(gfc_conv_intrinsic_iargc): Likewise.
|
(gfc_conv_intrinsic_iargc): Likewise.
|
|
|
2007-02-14 Jerry DeLisle
|
2007-02-14 Jerry DeLisle
|
|
|
PR fortran/30779
|
PR fortran/30779
|
* scanner.c (gfc_next_char_literal): Add check for end of file after
|
* scanner.c (gfc_next_char_literal): Add check for end of file after
|
call to advance_line.
|
call to advance_line.
|
|
|
2007-02-14 Steven G. Kargl
|
2007-02-14 Steven G. Kargl
|
|
|
PR fortran/30799
|
PR fortran/30799
|
* primary.c (match_logical_constant): Return MATCH_ERROR on invalid
|
* primary.c (match_logical_constant): Return MATCH_ERROR on invalid
|
kind.
|
kind.
|
|
|
2007-02-14 Steven G. Kargl
|
2007-02-14 Steven G. Kargl
|
|
|
* misc.c (gfc_typename): Fix potential buffer overflow.
|
* misc.c (gfc_typename): Fix potential buffer overflow.
|
|
|
2007-02-13 Paul Thomas
|
2007-02-13 Paul Thomas
|
|
|
PR fortran/30554
|
PR fortran/30554
|
* module.c (read_module): Set pointer_info to referenced if the
|
* module.c (read_module): Set pointer_info to referenced if the
|
symbol has no namespace.
|
symbol has no namespace.
|
|
|
2007-02-12 Nick Clifton
|
2007-02-12 Nick Clifton
|
|
|
* lang.opt: Add Warning attribute to warning options.
|
* lang.opt: Add Warning attribute to warning options.
|
|
|
2007-02-11 Daniel Franke
|
2007-02-11 Daniel Franke
|
|
|
* intrinsic.texi (HOSTNM): Fix typographical error in syntax.
|
* intrinsic.texi (HOSTNM): Fix typographical error in syntax.
|
(SLEEP): Added section and documentation.
|
(SLEEP): Added section and documentation.
|
|
|
2007-02-11 Tobias Schlüter
|
2007-02-11 Tobias Schlüter
|
|
|
PR fortran/30478
|
PR fortran/30478
|
* decl.c (add_init_expr_to_sym): Remove ENUM specific code.
|
* decl.c (add_init_expr_to_sym): Remove ENUM specific code.
|
(variable_decl): Likewise. Rewrap comment.
|
(variable_decl): Likewise. Rewrap comment.
|
(match_attr_spec): Remove ENUM specific code.
|
(match_attr_spec): Remove ENUM specific code.
|
(gfc_match_enum): Fix typo in error message.
|
(gfc_match_enum): Fix typo in error message.
|
(enumerator_decl): New function.
|
(enumerator_decl): New function.
|
(gfc_match_enumerator_def): Use enumerator_decl instead of
|
(gfc_match_enumerator_def): Use enumerator_decl instead of
|
variable_decl. Adapt code accordingly.
|
variable_decl. Adapt code accordingly.
|
|
|
2007-02-11 Paul Thomas
|
2007-02-11 Paul Thomas
|
|
|
PR fortran/30554
|
PR fortran/30554
|
* module.c (find_symtree_for_symbol): New function to return
|
* module.c (find_symtree_for_symbol): New function to return
|
a symtree that is not a "unique symtree" given a symbol.
|
a symtree that is not a "unique symtree" given a symbol.
|
(read_module): Do not automatically set pointer_info to
|
(read_module): Do not automatically set pointer_info to
|
referenced because this inhibits the generation of a unique
|
referenced because this inhibits the generation of a unique
|
symtree. Recycle the existing symtree if possible by calling
|
symtree. Recycle the existing symtree if possible by calling
|
find_symtree_for_symbol.
|
find_symtree_for_symbol.
|
|
|
PR fortran/30319
|
PR fortran/30319
|
* decl.c (add_init_expr_to_sym): Make new charlen for an array
|
* decl.c (add_init_expr_to_sym): Make new charlen for an array
|
constructor initializer.
|
constructor initializer.
|
|
|
2007-02-10 Richard Henderson , Jakub Jelinek
|
2007-02-10 Richard Henderson , Jakub Jelinek
|
|
|
* f95-lang.c (gfc_init_builtin_functions): Add __emutls_get_address
|
* f95-lang.c (gfc_init_builtin_functions): Add __emutls_get_address
|
and __emutls_register_common.
|
and __emutls_register_common.
|
* openmp.c (gfc_match_omp_threadprivate): Don't error if !have_tls.
|
* openmp.c (gfc_match_omp_threadprivate): Don't error if !have_tls.
|
* trans-common.c (build_common_decl): Don't check have_tls.
|
* trans-common.c (build_common_decl): Don't check have_tls.
|
* trans-decl.c (gfc_finish_var_decl): Likewise.
|
* trans-decl.c (gfc_finish_var_decl): Likewise.
|
* types.def (BT_WORD, BT_FN_PTR_PTR): New.
|
* types.def (BT_WORD, BT_FN_PTR_PTR): New.
|
(BT_FN_VOID_PTR_WORD_WORD_PTR): New.
|
(BT_FN_VOID_PTR_WORD_WORD_PTR): New.
|
|
|
2007-02-09 Tobias Burnus
|
2007-02-09 Tobias Burnus
|
|
|
PR fortran/30512
|
PR fortran/30512
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc,
|
* trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc,
|
gfc_conv_intrinsic_minmaxval): Use HUGE-1 for most negative integer.
|
gfc_conv_intrinsic_minmaxval): Use HUGE-1 for most negative integer.
|
|
|
2007-02-09 Francois-Xavier Coudert
|
2007-02-09 Francois-Xavier Coudert
|
|
|
PR fortran/30720
|
PR fortran/30720
|
* trans-array.c (gfc_trans_create_temp_array): Remove use of the
|
* trans-array.c (gfc_trans_create_temp_array): Remove use of the
|
function argument. Always generate code for negative extent.
|
function argument. Always generate code for negative extent.
|
Simplify said code.
|
Simplify said code.
|
* trans-array.h (gfc_trans_create_temp_array): Change prototype.
|
* trans-array.h (gfc_trans_create_temp_array): Change prototype.
|
* trans-expr.c (gfc_conv_function_call): Remove use of last argument
|
* trans-expr.c (gfc_conv_function_call): Remove use of last argument
|
of gfc_trans_create_temp_array.
|
of gfc_trans_create_temp_array.
|
* trans-intrinsic.c (gfc_conv_intrinsic_array_transfer): Likewise.
|
* trans-intrinsic.c (gfc_conv_intrinsic_array_transfer): Likewise.
|
* trans-stmt.c (gfc_conv_elemental_dependencies): Likewise.
|
* trans-stmt.c (gfc_conv_elemental_dependencies): Likewise.
|
|
|
2007-02-08 Roger Sayle
|
2007-02-08 Roger Sayle
|
|
|
* trans-stmt.c (gfc_trans_forall_1): Optimize the cases where the
|
* trans-stmt.c (gfc_trans_forall_1): Optimize the cases where the
|
mask expression is a compile-time constant (".true." or ".false.").
|
mask expression is a compile-time constant (".true." or ".false.").
|
|
|
2007-02-04 Francois-Xavier Coudert
|
2007-02-04 Francois-Xavier Coudert
|
|
|
PR fortran/30611
|
PR fortran/30611
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Evaluate
|
* trans-intrinsic.c (gfc_conv_intrinsic_repeat): Evaluate
|
arguments only once. Generate check that NCOPIES argument is not
|
arguments only once. Generate check that NCOPIES argument is not
|
negative.
|
negative.
|
|
|
2007-02-04 Steven G. Kargl
|
2007-02-04 Steven G. Kargl
|
|
|
PR fortran/30605
|
PR fortran/30605
|
* fortran/invoke.texi: Update documentation.
|
* fortran/invoke.texi: Update documentation.
|
* fortran/options.c (gfc_post_options): Deal with tabs with -std=f2003
|
* fortran/options.c (gfc_post_options): Deal with tabs with -std=f2003
|
and -pedantic.
|
and -pedantic.
|
|
|
2007-02-03 Kazu Hirata
|
2007-02-03 Kazu Hirata
|
|
|
* trans-array.c: Fix a comment typo.
|
* trans-array.c: Fix a comment typo.
|
|
|
2007-02-03 Paul Thomas
|
2007-02-03 Paul Thomas
|
|
|
PR fortran/30514
|
PR fortran/30514
|
* array.c (match_array_element_spec): If the length of an array is
|
* array.c (match_array_element_spec): If the length of an array is
|
negative, adjust the upper limit to make it zero length.
|
negative, adjust the upper limit to make it zero length.
|
|
|
PR fortran/30660
|
PR fortran/30660
|
* resolve.c (pure_function, resolve_function): Initialize name to
|
* resolve.c (pure_function, resolve_function): Initialize name to
|
null to clear up build warnings.
|
null to clear up build warnings.
|
(resolve_fl_variable): Look at components explicitly to check for
|
(resolve_fl_variable): Look at components explicitly to check for
|
default initializer, rather than using gfc_default_initializer.
|
default initializer, rather than using gfc_default_initializer.
|
|
|
2007-02-02 Steven G. Kargl
|
2007-02-02 Steven G. Kargl
|
|
|
PR fortran/30683
|
PR fortran/30683
|
* resolve.c (resolve_generic_f): Check for non-NULL sym.
|
* resolve.c (resolve_generic_f): Check for non-NULL sym.
|
|
|
2007-02-02 Roger Sayle
|
2007-02-02 Roger Sayle
|
|
|
* trans.c (gfc_build_array_ref): Use STRIP_TYPE_NOPS to eliminate
|
* trans.c (gfc_build_array_ref): Use STRIP_TYPE_NOPS to eliminate
|
NON_LVALUE_EXPR nodes and useless type conversions.
|
NON_LVALUE_EXPR nodes and useless type conversions.
|
|
|
2007-02-02 Paul Thomas
|
2007-02-02 Paul Thomas
|
|
|
PR fortran/30284
|
PR fortran/30284
|
PR fortran/30626
|
PR fortran/30626
|
* trans-expr.c (gfc_conv_aliased_arg): Remove static attribute
|
* trans-expr.c (gfc_conv_aliased_arg): Remove static attribute
|
from function and make sure that substring lengths are
|
from function and make sure that substring lengths are
|
translated.
|
translated.
|
(is_aliased_array): Remove static attribute.
|
(is_aliased_array): Remove static attribute.
|
* trans.c : Add prototypes for gfc_conv_aliased_arg and
|
* trans.c : Add prototypes for gfc_conv_aliased_arg and
|
is_aliased_array.
|
is_aliased_array.
|
* trans-io.c (set_internal_unit): Add the post block to the
|
* trans-io.c (set_internal_unit): Add the post block to the
|
arguments of the function. Use is_aliased_array to check if
|
arguments of the function. Use is_aliased_array to check if
|
temporary is needed; if so call gfc_conv_aliased_arg.
|
temporary is needed; if so call gfc_conv_aliased_arg.
|
(build_dt): Pass the post block to set_internal_unit and
|
(build_dt): Pass the post block to set_internal_unit and
|
add to the block after all io activiy is done.
|
add to the block after all io activiy is done.
|
|
|
2007-02-01 Roger Sayle
|
2007-02-01 Roger Sayle
|
|
|
* trans-array.c (gfc_conv_expr_descriptor): We don't need to use
|
* trans-array.c (gfc_conv_expr_descriptor): We don't need to use
|
a temporary array to pass a constant non-character array constructor.
|
a temporary array to pass a constant non-character array constructor.
|
Generalize the descriptor generation code to handle scalarizer
|
Generalize the descriptor generation code to handle scalarizer
|
"info" without an array reference.
|
"info" without an array reference.
|
|
|
2007-02-01 Roger Sayle
|
2007-02-01 Roger Sayle
|
|
|
* dependency.c (gfc_check_dependency) : Implement
|
* dependency.c (gfc_check_dependency) : Implement
|
dependency checking for array constructors.
|
dependency checking for array constructors.
|
|
|
2007-02-01 Roger Sayle
|
2007-02-01 Roger Sayle
|
|
|
* trans-stmt.c (compute_overall_iter_number): Document function
|
* trans-stmt.c (compute_overall_iter_number): Document function
|
arguments. Generalize "unconditional forall nest with constant
|
arguments. Generalize "unconditional forall nest with constant
|
bounds" optimization to eliminate unconditional inner loops with
|
bounds" optimization to eliminate unconditional inner loops with
|
constant bounds.
|
constant bounds.
|
|
|
2007-01-31 Tobias Burnus
|
2007-01-31 Tobias Burnus
|
|
|
PR fortran/30520
|
PR fortran/30520
|
* interface.c (compare_actual_formal): Check conformance between
|
* interface.c (compare_actual_formal): Check conformance between
|
actual and VOLATILE dummy arguments.
|
actual and VOLATILE dummy arguments.
|
* symbol.c (gfc_add_volatile): Allow setting of VOLATILE
|
* symbol.c (gfc_add_volatile): Allow setting of VOLATILE
|
multiple times in different scopes.
|
multiple times in different scopes.
|
* decl.c (gfc_match_volatile): Search symbol in host association.
|
* decl.c (gfc_match_volatile): Search symbol in host association.
|
|
|
2007-01-31 Kazu Hirata
|
2007-01-31 Kazu Hirata
|
|
|
* simplify.c, trans-array.c: Fix comment typos.
|
* simplify.c, trans-array.c: Fix comment typos.
|
|
|
2007-01-30 Ralf Wildenhues
|
2007-01-30 Ralf Wildenhues
|
|
|
* invoke.texi (Code Gen Options): Fix abbreviation typo.
|
* invoke.texi (Code Gen Options): Fix abbreviation typo.
|
* intrinsic.texi (ACCESS, LSHIFT, RSHIFT): Fix typos.
|
* intrinsic.texi (ACCESS, LSHIFT, RSHIFT): Fix typos.
|
|
|
2007-01-30 Steve Ellcey
|
2007-01-30 Steve Ellcey
|
|
|
PR fortran/30432
|
PR fortran/30432
|
* trans-types.c (gfc_get_function_type): Do not add void_type_node
|
* trans-types.c (gfc_get_function_type): Do not add void_type_node
|
to empty arg list.
|
to empty arg list.
|
* trans-decl.c (create_function_arglist): Change assert.
|
* trans-decl.c (create_function_arglist): Change assert.
|
|
|
2007-01-29 Paul Thomas
|
2007-01-29 Paul Thomas
|
|
|
PR fortran/30554
|
PR fortran/30554
|
* module.c (read_module): If a symbol is excluded by an ONLY
|
* module.c (read_module): If a symbol is excluded by an ONLY
|
clause, check to see if there is a symtree already loaded. If
|
clause, check to see if there is a symtree already loaded. If
|
so, attach the symtree to the pointer_info.
|
so, attach the symtree to the pointer_info.
|
|
|
2007-01-28 Thomas Koenig
|
2007-01-28 Thomas Koenig
|
|
|
PR libfortran/30389
|
PR libfortran/30389
|
* gfortran.h: Remove gfc_simplify_init_1.
|
* gfortran.h: Remove gfc_simplify_init_1.
|
* arith.h: Remove third argument from gfc_compare_string.
|
* arith.h: Remove third argument from gfc_compare_string.
|
* arith.c (gfc_compare_expression): Remove third argument
|
* arith.c (gfc_compare_expression): Remove third argument
|
from call to gfc_compare_string.
|
from call to gfc_compare_string.
|
(gfc_compare_string): Remove third argument xcoll_table.
|
(gfc_compare_string): Remove third argument xcoll_table.
|
Remove use of xcoll_table.
|
Remove use of xcoll_table.
|
* misc.c (gfc_init_1): Remove call to gfc_simplify_init_1.
|
* misc.c (gfc_init_1): Remove call to gfc_simplify_init_1.
|
* simplify.c (ascii_table): Remove.
|
* simplify.c (ascii_table): Remove.
|
(xascii_table): Likewise.
|
(xascii_table): Likewise.
|
(gfc_simplify_achar): ICE if extract_int fails. Remove use of
|
(gfc_simplify_achar): ICE if extract_int fails. Remove use of
|
ascii_table. Warn if -Wsurprising and value < 0 or > 127.
|
ascii_table. Warn if -Wsurprising and value < 0 or > 127.
|
(gfc_simplify_char): ICE if extract_int fails. Error if
|
(gfc_simplify_char): ICE if extract_int fails. Error if
|
value < 0 or value > 255.
|
value < 0 or value > 255.
|
(gfc_simplify_iachar): Remove use of xascii_table.
|
(gfc_simplify_iachar): Remove use of xascii_table.
|
Char values outside of 0..255 are an ICE.
|
Char values outside of 0..255 are an ICE.
|
(gfc_simplify_lge): Remove use of xascii_table.
|
(gfc_simplify_lge): Remove use of xascii_table.
|
(gfc_simplify_lgt): Likewise.
|
(gfc_simplify_lgt): Likewise.
|
(gfc_simplify_lle): Likewise.
|
(gfc_simplify_lle): Likewise.
|
(gfc_simplify_llt): Likewise.
|
(gfc_simplify_llt): Likewise.
|
(invert_table): Remove.
|
(invert_table): Remove.
|
(gfc_simplify_init_1): Remove.
|
(gfc_simplify_init_1): Remove.
|
|
|
2007-01-27 Roger Sayle
|
2007-01-27 Roger Sayle
|
|
|
* trans-stmt.c (forall_info): Replace the next_nest and outer
|
* trans-stmt.c (forall_info): Replace the next_nest and outer
|
fields that previously implemented a doubly-linked list with a
|
fields that previously implemented a doubly-linked list with a
|
single prev_nest field (singly-linked list).
|
single prev_nest field (singly-linked list).
|
(gfc_trans_nested_forall_loop): The nested_forall_info argument
|
(gfc_trans_nested_forall_loop): The nested_forall_info argument
|
now denotes the innermost FORALL in the loop nest.
|
now denotes the innermost FORALL in the loop nest.
|
(compute_overall_iter_number): Use prev_nest instead of next_nest.
|
(compute_overall_iter_number): Use prev_nest instead of next_nest.
|
(gfc_trans_forall_1): Link/cons the new "info" to the head of the
|
(gfc_trans_forall_1): Link/cons the new "info" to the head of the
|
nested_forall_info linked list. Free the current "info" when done.
|
nested_forall_info linked list. Free the current "info" when done.
|
|
|
2007-01-27 Paul Thomas
|
2007-01-27 Paul Thomas
|
|
|
PR fortran/30407
|
PR fortran/30407
|
* trans-expr.c (gfc_conv_operator_assign): New function.
|
* trans-expr.c (gfc_conv_operator_assign): New function.
|
* trans.h : Add prototype for gfc_conv_operator_assign.
|
* trans.h : Add prototype for gfc_conv_operator_assign.
|
* trans-stmt.c (gfc_trans_where_assign): Add a gfc_symbol for
|
* trans-stmt.c (gfc_trans_where_assign): Add a gfc_symbol for
|
a potential operator assignment subroutine. If it is non-NULL
|
a potential operator assignment subroutine. If it is non-NULL
|
call gfc_conv_operator_assign instead of the first assignment.
|
call gfc_conv_operator_assign instead of the first assignment.
|
( gfc_trans_where_2): In the case of an operator assignment,
|
( gfc_trans_where_2): In the case of an operator assignment,
|
extract the argument expressions from the code for the
|
extract the argument expressions from the code for the
|
subroutine call and pass the symbol to gfc_trans_where_assign.
|
subroutine call and pass the symbol to gfc_trans_where_assign.
|
resolve.c (resolve_where, gfc_resolve_where_code_in_forall,
|
resolve.c (resolve_where, gfc_resolve_where_code_in_forall,
|
gfc_resolve_forall_body): Resolve the subroutine call for
|
gfc_resolve_forall_body): Resolve the subroutine call for
|
operator assignments.
|
operator assignments.
|
|
|
2007-01-26 Steven Bosscher
|
2007-01-26 Steven Bosscher
|
Steven G. Kargl
|
Steven G. Kargl
|
|
|
PR fortran/30278
|
PR fortran/30278
|
* fortran/io.c (next_char): Deal with backslash escaped characters.
|
* fortran/io.c (next_char): Deal with backslash escaped characters.
|
Issue warnings in non -std=gnu cases.
|
Issue warnings in non -std=gnu cases.
|
* fortran/primary.c (next_string_char): Issue warnings in non
|
* fortran/primary.c (next_string_char): Issue warnings in non
|
|
|
2007-01-26 Tobias Burnus
|
2007-01-26 Tobias Burnus
|
|
|
* lang-specs.h: Add support for .f03 and .F03 extensions.
|
* lang-specs.h: Add support for .f03 and .F03 extensions.
|
* gfortran.texi: Document .f03 extension.
|
* gfortran.texi: Document .f03 extension.
|
* options.c (form_from_filename): Recognize .f03.
|
* options.c (form_from_filename): Recognize .f03.
|
|
|
2007-01-25 Manuel Lopez-Ibanez
|
2007-01-25 Manuel Lopez-Ibanez
|
|
|
PR fortran/30437
|
PR fortran/30437
|
* lang.opt (Wall): Remove RejectNegative.
|
* lang.opt (Wall): Remove RejectNegative.
|
* options.c (gfc_handle_option): Wall can be disabled.
|
* options.c (gfc_handle_option): Wall can be disabled.
|
(set_Wall): Add a parameter for disabling Wall.
|
(set_Wall): Add a parameter for disabling Wall.
|
|
|
2007-01-23 Jerry DeLisle
|
2007-01-23 Jerry DeLisle
|
|
|
PR fortran/30532
|
PR fortran/30532
|
* scanner.c (load_line): Remove check fot ctrl-z and don't gobble.
|
* scanner.c (load_line): Remove check fot ctrl-z and don't gobble.
|
|
|
2007-01-23 Paul Thomas
|
2007-01-23 Paul Thomas
|
|
|
PR fortran/30481
|
PR fortran/30481
|
* match.c (gfc_match_namelist): Add check for assumed size character
|
* match.c (gfc_match_namelist): Add check for assumed size character
|
in namelist and provide error if found.
|
in namelist and provide error if found.
|
|
|
2007-01-21 Brooks Moses
|
2007-01-21 Brooks Moses
|
|
|
* intrinsic.texi (ACHAR): Added cross-references.
|
* intrinsic.texi (ACHAR): Added cross-references.
|
(CHAR): Put cross-references in alphabetical order.
|
(CHAR): Put cross-references in alphabetical order.
|
(IACHAR): Added cross-references.
|
(IACHAR): Added cross-references.
|
(ICHAR): Added cross-references.
|
(ICHAR): Added cross-references.
|
|
|
2007-01-20 Brooks Moses
|
2007-01-20 Brooks Moses
|
|
|
* intrinsic.texi: Edited all "Syntax" examples to a consistent form.
|
* intrinsic.texi: Edited all "Syntax" examples to a consistent form.
|
(MAXVAL): Corrected description of result characteristics.
|
(MAXVAL): Corrected description of result characteristics.
|
(MINVAL): Same.
|
(MINVAL): Same.
|
(UMASK): Added documentation.
|
(UMASK): Added documentation.
|
|
|
2007-01-20 Steven G. Kargl
|
2007-01-20 Steven G. Kargl
|
|
|
* openmp.c, matchexp.c, module.c, scanner.c, resolve.c, st.c,
|
* openmp.c, matchexp.c, module.c, scanner.c, resolve.c, st.c,
|
parse.c, primary.c, options.c, misc.c, simplify.c: Next installment
|
parse.c, primary.c, options.c, misc.c, simplify.c: Next installment
|
in the massive whitespace patch.
|
in the massive whitespace patch.
|
|
|
2007-01-20 Roger Sayle
|
2007-01-20 Roger Sayle
|
|
|
* module.c (mio_array_ref): The dimen_type fields of an array ref
|
* module.c (mio_array_ref): The dimen_type fields of an array ref
|
are an enumerated type and can't be read/written directly with a
|
are an enumerated type and can't be read/written directly with a
|
call to mio_integer. Instead loop over and cast each element.
|
call to mio_integer. Instead loop over and cast each element.
|
|
|
2007-01-20 Roger Sayle
|
2007-01-20 Roger Sayle
|
|
|
* dependency.c (gfc_full_array_ref_p): Check that ref->next is NULL,
|
* dependency.c (gfc_full_array_ref_p): Check that ref->next is NULL,
|
i.e. that the ARRAY_REF doesn't mention components.
|
i.e. that the ARRAY_REF doesn't mention components.
|
* trans-array.c (gfc_constant_array_constructor_p): Export external
|
* trans-array.c (gfc_constant_array_constructor_p): Export external
|
function renamed from constant_array_constructor_p.
|
function renamed from constant_array_constructor_p.
|
(gfc_build_constant_array_constructor): Export.
|
(gfc_build_constant_array_constructor): Export.
|
(gfc_trans_array_constructor): Update call to the renamed function
|
(gfc_trans_array_constructor): Update call to the renamed function
|
constant_array_constructor_p.
|
constant_array_constructor_p.
|
* trans-array.h (gfc_constant_array_constructor_p): Prototype here.
|
* trans-array.h (gfc_constant_array_constructor_p): Prototype here.
|
(gfc_build_constant_array_constructor): Likewise.
|
(gfc_build_constant_array_constructor): Likewise.
|
* trans-expr.c (gfc_build_memcpy_call): New helper function split
|
* trans-expr.c (gfc_build_memcpy_call): New helper function split
|
out from gfc_trans_array_copy.
|
out from gfc_trans_array_copy.
|
(gfc_trans_array_copy): Use gfc_build_memcpy_call.
|
(gfc_trans_array_copy): Use gfc_build_memcpy_call.
|
(gfc_trans_array_constructor_copy): New function to optimize
|
(gfc_trans_array_constructor_copy): New function to optimize
|
assigning an entire array from a constant array constructor.
|
assigning an entire array from a constant array constructor.
|
(gfc_trans_assignment): Call gfc_trans_array_constructor_copy
|
(gfc_trans_assignment): Call gfc_trans_array_constructor_copy
|
when appropriate.
|
when appropriate.
|
|
|
2007-01-20 Roger Sayle
|
2007-01-20 Roger Sayle
|
|
|
* trans-intrinsic.c (gfc_conv_intrinsic_sign): New branchless
|
* trans-intrinsic.c (gfc_conv_intrinsic_sign): New branchless
|
implementation for the SIGN intrinsic with integral operands.
|
implementation for the SIGN intrinsic with integral operands.
|
(gfc_conv_intrinsic_minmax): Fix whitespace.
|
(gfc_conv_intrinsic_minmax): Fix whitespace.
|
|
|
2007-01-20 Francois-Xavier Coudert
|
2007-01-20 Francois-Xavier Coudert
|
|
|
* gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
|
* gfortran.h (gfc_options_t): Add flag_allow_leading_underscore.
|
* lang.opt: Add -fallow-leading-underscore.
|
* lang.opt: Add -fallow-leading-underscore.
|
* match.c (gfc_match_name): Allow leading underscore in symbol
|
* match.c (gfc_match_name): Allow leading underscore in symbol
|
name if -fallow-leading-underscore is used.
|
name if -fallow-leading-underscore is used.
|
* symbol.c (gfc_get_default_type): Add special case for symbol
|
* symbol.c (gfc_get_default_type): Add special case for symbol
|
names beginning with an underscore.
|
names beginning with an underscore.
|
* trans-decl.c (gfc_get_extern_function_decl,
|
* trans-decl.c (gfc_get_extern_function_decl,
|
gfc_build_intrinsic_function_decls): Add _gfortran prefix to
|
gfc_build_intrinsic_function_decls): Add _gfortran prefix to
|
library symbols selected_int_kind, selected_real_kind and
|
library symbols selected_int_kind, selected_real_kind and
|
all specifics.
|
all specifics.
|
* options.c (gfc_init_options, gfc_handle_option): Handle the
|
* options.c (gfc_init_options, gfc_handle_option): Handle the
|
new -fallow-leading-underscore option.
|
new -fallow-leading-underscore option.
|
|
|
2007-01-20 Francois-Xavier Coudert
|
2007-01-20 Francois-Xavier Coudert
|
|
|
PR fortran/30446
|
PR fortran/30446
|
* options.c (gfc_handle_module_path_options): Path used in -J
|
* options.c (gfc_handle_module_path_options): Path used in -J
|
option is now added to the module search path.
|
option is now added to the module search path.
|
|
|
2007-01-20 Richard Guenther
|
2007-01-20 Richard Guenther
|
|
|
PR fortran/30223
|
PR fortran/30223
|
* f95-lang.c (gfc_init_builtin_functions): Provide cbrt and
|
* f95-lang.c (gfc_init_builtin_functions): Provide cbrt and
|
cexpi builtins if we have TARGET_C99_FUNCTIONS. Provide
|
cexpi builtins if we have TARGET_C99_FUNCTIONS. Provide
|
sincos builtins if the target has sincos.
|
sincos builtins if the target has sincos.
|
|
|
2007-01-19 Brooks Moses
|
2007-01-19 Brooks Moses
|
|
|
* intrinsic.texi (MATMUL): Corrected a typo.
|
* intrinsic.texi (MATMUL): Corrected a typo.
|
(MAX): Separated @var arguments.
|
(MAX): Separated @var arguments.
|
(MIN): Separated @var arguments.
|
(MIN): Separated @var arguments.
|
|
|
2007-01-19 Brooks Moses
|
2007-01-19 Brooks Moses
|
|
|
* intrinsic.texi: general whitespace cleanup.
|
* intrinsic.texi: general whitespace cleanup.
|
(menu): Added TIME8, removed UNMASK.
|
(menu): Added TIME8, removed UNMASK.
|
(AINT): Clarified argument requirement.
|
(AINT): Clarified argument requirement.
|
(ANINT): Clarified argument requirement.
|
(ANINT): Clarified argument requirement.
|
(CEILING): Clarified argument requirement.
|
(CEILING): Clarified argument requirement.
|
(CHAR): Clarified argument requirement.
|
(CHAR): Clarified argument requirement.
|
(CMPLX): Clarified argument requirement.
|
(CMPLX): Clarified argument requirement.
|
(DCMPLX): Clarified argument requirement.
|
(DCMPLX): Clarified argument requirement.
|
(FGET): Line rewrapping.
|
(FGET): Line rewrapping.
|
(FLOOR): Clarified argument requirement.
|
(FLOOR): Clarified argument requirement.
|
(GMTIME): Added documentation.
|
(GMTIME): Added documentation.
|
(IAND): Added cross-reference.
|
(IAND): Added cross-reference.
|
(IBCLR): Added cross-reference.
|
(IBCLR): Added cross-reference.
|
(IBSET): Added cross-reference.
|
(IBSET): Added cross-reference.
|
(IEOR): Added cross-reference.
|
(IEOR): Added cross-reference.
|
(INT): Collapsed examples, clarified argument requirement.
|
(INT): Collapsed examples, clarified argument requirement.
|
(IOR): Added cross-references.
|
(IOR): Added cross-references.
|
(LEN_TRIM): Corrected result kind.
|
(LEN_TRIM): Corrected result kind.
|
(LINK): Added cross-reference.
|
(LINK): Added cross-reference.
|
(LLT): Removed "documentation pending".
|
(LLT): Removed "documentation pending".
|
(LOGICAL): Added documentation.
|
(LOGICAL): Added documentation.
|
(LSHIFT): Added documentation.
|
(LSHIFT): Added documentation.
|
(LTIME): Added documentation.
|
(LTIME): Added documentation.
|
(MATMUL): Added documentation.
|
(MATMUL): Added documentation.
|
(MAX): Added documentation.
|
(MAX): Added documentation.
|
(MAXLOC): Added documentation.
|
(MAXLOC): Added documentation.
|
(MAXVAL): Added documentation.
|
(MAXVAL): Added documentation.
|
(MERGE): Added documentation.
|
(MERGE): Added documentation.
|
(MIN): Added documentation.
|
(MIN): Added documentation.
|
(MINLOC): Added documentation.
|
(MINLOC): Added documentation.
|
(MINVAL): Added documentation.
|
(MINVAL): Added documentation.
|
(MVBITS): Moved to correct place, added documentation.
|
(MVBITS): Moved to correct place, added documentation.
|
(NOT): Added documentation.
|
(NOT): Added documentation.
|
(PERROR): Added documentation.
|
(PERROR): Added documentation.
|
(RAN): Moved to correct place, added documentation.
|
(RAN): Moved to correct place, added documentation.
|
(REAL): Clarified argument requirement.
|
(REAL): Clarified argument requirement.
|
(RENAME): Added documentation.
|
(RENAME): Added documentation.
|
(RSHIFT): Clarified argument requirement.
|
(RSHIFT): Clarified argument requirement.
|
(SIGN): Corrected table specification.
|
(SIGN): Corrected table specification.
|
(SYMLNK): Added documentation.
|
(SYMLNK): Added documentation.
|
(SYSTEM): Added documentation.
|
(SYSTEM): Added documentation.
|
(TIME): Added documentation.
|
(TIME): Added documentation.
|
(TIME8): Added section and documentation.
|
(TIME8): Added section and documentation.
|
(UNMASK): Removed erroneous section.
|
(UNMASK): Removed erroneous section.
|
|
|
2007-01-18 H.J. Lu
|
2007-01-18 H.J. Lu
|
|
|
* trans-stmt.c (compute_overall_iter_number): Fix a typo.
|
* trans-stmt.c (compute_overall_iter_number): Fix a typo.
|
|
|
2007-01-18 Roger Sayle
|
2007-01-18 Roger Sayle
|
|
|
* trans-expr.c (copyable_array_p): Consider user derived types without
|
* trans-expr.c (copyable_array_p): Consider user derived types without
|
allocatable components to be copyable.
|
allocatable components to be copyable.
|
|
|
2007-01-18 Roger Sayle
|
2007-01-18 Roger Sayle
|
|
|
* trans-stmt.c (compute_overall_iter_number): Enhance to precompute
|
* trans-stmt.c (compute_overall_iter_number): Enhance to precompute
|
the number of interations in unconditional FORALL nests with constant
|
the number of interations in unconditional FORALL nests with constant
|
bounds.
|
bounds.
|
|
|
2007-01-18 Francois-Xavier Coudert
|
2007-01-18 Francois-Xavier Coudert
|
Tobias Burnus
|
Tobias Burnus
|
|
|
PR libfortran/29649
|
PR libfortran/29649
|
* gfortran.h (gfc_option_t): Add flag_dump_core.
|
* gfortran.h (gfc_option_t): Add flag_dump_core.
|
* lang.opt: Add -fdump-core option.
|
* lang.opt: Add -fdump-core option.
|
* invoke.texi: Document the new options.
|
* invoke.texi: Document the new options.
|
* trans-decl.c (gfc_build_builtin_function_decls): Add new
|
* trans-decl.c (gfc_build_builtin_function_decls): Add new
|
options to the call to set_std.
|
options to the call to set_std.
|
* options.c (gfc_init_options, gfc_handle_option): Set the
|
* options.c (gfc_init_options, gfc_handle_option): Set the
|
new options.
|
new options.
|
|
|
2007-01-17 Paul Thomas
|
2007-01-17 Paul Thomas
|
|
|
PR fortran/30476
|
PR fortran/30476
|
* module.c (load_generic_interfaces): Make the marking of the
|
* module.c (load_generic_interfaces): Make the marking of the
|
symbol as ambiguous conditional on the module names being
|
symbol as ambiguous conditional on the module names being
|
different.
|
different.
|
(write_generic): Ensure that the generic interface has a
|
(write_generic): Ensure that the generic interface has a
|
non-NULL module field.
|
non-NULL module field.
|
|
|
2007-01-16 Roger Sayle
|
2007-01-16 Roger Sayle
|
|
|
PR fortran/30404
|
PR fortran/30404
|
* trans-stmt.c (forall_info): Remove pmask field.
|
* trans-stmt.c (forall_info): Remove pmask field.
|
(gfc_trans_forall_loop): Remove NVAR argument, instead assume that
|
(gfc_trans_forall_loop): Remove NVAR argument, instead assume that
|
NVAR covers all the interation variables in the current forall_info.
|
NVAR covers all the interation variables in the current forall_info.
|
Add an extra OUTER parameter, which specified the loop header in
|
Add an extra OUTER parameter, which specified the loop header in
|
which to place mask index initializations.
|
which to place mask index initializations.
|
(gfc_trans_nested_forall_loop): Remove NEST_FLAG argument.
|
(gfc_trans_nested_forall_loop): Remove NEST_FLAG argument.
|
Change the semantics of MASK_FLAG to only control the mask in the
|
Change the semantics of MASK_FLAG to only control the mask in the
|
innermost loop.
|
innermost loop.
|
(compute_overall_iter_number): Optimize the trivial case of a
|
(compute_overall_iter_number): Optimize the trivial case of a
|
top-level loop having a constant number of iterations. Update
|
top-level loop having a constant number of iterations. Update
|
call to gfc_trans_nested_forall_loop. Calculate the number of
|
call to gfc_trans_nested_forall_loop. Calculate the number of
|
times the inner loop will be executed, not to size of the
|
times the inner loop will be executed, not to size of the
|
iteration space.
|
iteration space.
|
(allocate_temp_for_forall_nest_1): Reuse SIZE as BYTESIZE when
|
(allocate_temp_for_forall_nest_1): Reuse SIZE as BYTESIZE when
|
sizeof(type) == 1. Tidy up.
|
sizeof(type) == 1. Tidy up.
|
(gfc_trans_assign_need_temp): Remove NEST_FLAG argument from calls
|
(gfc_trans_assign_need_temp): Remove NEST_FLAG argument from calls
|
to gfc_trans_nested_forall_loop.
|
to gfc_trans_nested_forall_loop.
|
(gfc_trans_pointer_assign_need_temp): Likewise.
|
(gfc_trans_pointer_assign_need_temp): Likewise.
|
(gfc_trans_forall_1): Remove unused BYTESIZE, TMPVAR, SIZEVAR and
|
(gfc_trans_forall_1): Remove unused BYTESIZE, TMPVAR, SIZEVAR and
|
LENVAR local variables. Split mask allocation into a separate
|
LENVAR local variables. Split mask allocation into a separate
|
hunk/pass from mask population. Use allocate_temp_for_forall_nest
|
hunk/pass from mask population. Use allocate_temp_for_forall_nest
|
to allocate the FORALL mask with the correct size. Update calls
|
to allocate the FORALL mask with the correct size. Update calls
|
to gfc_trans_nested_forall_loop.
|
to gfc_trans_nested_forall_loop.
|
(gfc_evaluate_where_mask): Update call to
|
(gfc_evaluate_where_mask): Update call to
|
gfc_trans_nested_forall_loop.
|
gfc_trans_nested_forall_loop.
|
(gfc_trans_where_2): Likewise.
|
(gfc_trans_where_2): Likewise.
|
|
|
2007-01-15 Paul Thomas
|
2007-01-15 Paul Thomas
|
|
|
PR fortran/28172
|
PR fortran/28172
|
* trans-stmt.c (gfc_trans_call): If it does not have one, get
|
* trans-stmt.c (gfc_trans_call): If it does not have one, get
|
a backend_decl for an alternate return.
|
a backend_decl for an alternate return.
|
|
|
PR fortran/29389
|
PR fortran/29389
|
* resolve.c (pure_function): Statement functions are pure. Note
|
* resolve.c (pure_function): Statement functions are pure. Note
|
that this will have to recurse to comply fully with F95.
|
that this will have to recurse to comply fully with F95.
|
|
|
PR fortran/29712
|
PR fortran/29712
|
* resolve.c (resolve_function): Only a reference to the final
|
* resolve.c (resolve_function): Only a reference to the final
|
dimension of an assumed size array is an error in an inquiry
|
dimension of an assumed size array is an error in an inquiry
|
function.
|
function.
|
|
|
PR fortran/30283
|
PR fortran/30283
|
* resolve.c (resolve_function): Make sure that the function
|
* resolve.c (resolve_function): Make sure that the function
|
expression has a type.
|
expression has a type.
|
|
|
2007-01-14 Paul Thomas
|
2007-01-14 Paul Thomas
|
|
|
PR fortran/30410
|
PR fortran/30410
|
* trans-decl.c (gfc_sym_mangled_function_id): Module, external
|
* trans-decl.c (gfc_sym_mangled_function_id): Module, external
|
symbols must not have the module name prepended.
|
symbols must not have the module name prepended.
|
|
|
2007-01-11 Thomas Koenig
|
2007-01-11 Thomas Koenig
|
|
|
PR libfortran/30415
|
PR libfortran/30415
|
* iresolve.c (gfc_resolve_maxloc): If the rank
|
* iresolve.c (gfc_resolve_maxloc): If the rank
|
of the return array is nonzero and we process an
|
of the return array is nonzero and we process an
|
integer array smaller than default kind, coerce
|
integer array smaller than default kind, coerce
|
the array to default integer.
|
the array to default integer.
|
* iresolve.c (gfc_resolve_minloc): Likewise.
|
* iresolve.c (gfc_resolve_minloc): Likewise.
|
|
|
2007-01-11 Brooks Moses
|
2007-01-11 Brooks Moses
|
|
|
* simplify.c: Update copyright to 2007.
|
* simplify.c: Update copyright to 2007.
|
* scanner.c: Same.
|
* scanner.c: Same.
|
|
|
2007-01-11 Francois-Xavier Coudert
|
2007-01-11 Francois-Xavier Coudert
|
|
|
PR fortran/30430
|
PR fortran/30430
|
* scanner.c (gfc_release_include_path): Free gfc_option.module_dir
|
* scanner.c (gfc_release_include_path): Free gfc_option.module_dir
|
only once!
|
only once!
|
|
|
2007-01-09 Brooks Moses
|
2007-01-09 Brooks Moses
|
|
|
* simplify.c (gfc_simplify_ibclr): Fix POS comparison.
|
* simplify.c (gfc_simplify_ibclr): Fix POS comparison.
|
(gfc_simplify_ibset): Same.
|
(gfc_simplify_ibset): Same.
|
|
|
2007-01-09 Brooks Moses
|
2007-01-09 Brooks Moses
|
|
|
PR 30381
|
PR 30381
|
PR 30420
|
PR 30420
|
* simplify.c (convert_mpz_to_unsigned): New function.
|
* simplify.c (convert_mpz_to_unsigned): New function.
|
(convert_mpz_to_signed): New function, largely based on
|
(convert_mpz_to_signed): New function, largely based on
|
twos_complement().
|
twos_complement().
|
(twos_complement): Removed.
|
(twos_complement): Removed.
|
(gfc_simplify_ibclr): Add conversions to and from an
|
(gfc_simplify_ibclr): Add conversions to and from an
|
unsigned representation before bit-twiddling.
|
unsigned representation before bit-twiddling.
|
(gfc_simplify_ibset): Same.
|
(gfc_simplify_ibset): Same.
|
(gfc_simplify_ishftc): Add checks for overly large
|
(gfc_simplify_ishftc): Add checks for overly large
|
constant arguments, only check the third argument if
|
constant arguments, only check the third argument if
|
it's present, carry over high bits into the result as
|
it's present, carry over high bits into the result as
|
appropriate, and perform the final conversion back to
|
appropriate, and perform the final conversion back to
|
a signed representation using the correct sign bit.
|
a signed representation using the correct sign bit.
|
(gfc_simplify_not): Removed unnecessary masking.
|
(gfc_simplify_not): Removed unnecessary masking.
|
|
|
2007-01-09 Paul Thomas
|
2007-01-09 Paul Thomas
|
|
|
PR fortran/30408
|
PR fortran/30408
|
* resolve.c (resolve_code): Use the code->expr character length
|
* resolve.c (resolve_code): Use the code->expr character length
|
directly to set length of llen.
|
directly to set length of llen.
|
|
|
2007-01-09 Jerry DeLisle
|
2007-01-09 Jerry DeLisle
|
|
|
PR fortran/30408
|
PR fortran/30408
|
* lang.opt: Add Wcharacter_truncation option.
|
* lang.opt: Add Wcharacter_truncation option.
|
* options.c (gfc_init_options): Initialize
|
* options.c (gfc_init_options): Initialize
|
gfc_option.warn_character_truncation to zero.
|
gfc_option.warn_character_truncation to zero.
|
(gfc_handle_option): Add case for OPT_Wcharacter_truncation.
|
(gfc_handle_option): Add case for OPT_Wcharacter_truncation.
|
|
|
2007-01-08 Steven G. Kargl
|
2007-01-08 Steven G. Kargl
|
|
|
* interface.c, intrinsic.c, gfortranspec.c, io.c, f95-lang.c,
|
* interface.c, intrinsic.c, gfortranspec.c, io.c, f95-lang.c,
|
iresolve.c, match.c: Update Copyright years. Whitespace.
|
iresolve.c, match.c: Update Copyright years. Whitespace.
|
|
|
2007-01-08 Richard Guenther
|
2007-01-08 Richard Guenther
|
|
|
* trans-io.c (transfer_array_desc): Use build_int_cst instead
|
* trans-io.c (transfer_array_desc): Use build_int_cst instead
|
of build_int_cstu.
|
of build_int_cstu.
|
|
|
2007-01-08 Roger Sayle
|
2007-01-08 Roger Sayle
|
|
|
* trans-array.c (constant_array_constructor_p): New function to
|
* trans-array.c (constant_array_constructor_p): New function to
|
determine whether an array constructor consists only of constant
|
determine whether an array constructor consists only of constant
|
elements, and if so return it's size.
|
elements, and if so return it's size.
|
(gfc_build_constant_array_constructor): Construct a statically
|
(gfc_build_constant_array_constructor): Construct a statically
|
initialized gfortran array for a given EXPR_ARRAY.
|
initialized gfortran array for a given EXPR_ARRAY.
|
(gfc_trans_constant_array_constructor): Efficiently scalarize
|
(gfc_trans_constant_array_constructor): Efficiently scalarize
|
a constant array constructor.
|
a constant array constructor.
|
(gfc_trans_array_constructor): Tidy up use of CONST_STRING.
|
(gfc_trans_array_constructor): Tidy up use of CONST_STRING.
|
Special case scalarization of constant array constructors, all of
|
Special case scalarization of constant array constructors, all of
|
whose elements are specified, using constant_array_constructor_p
|
whose elements are specified, using constant_array_constructor_p
|
and gfc_trans_constant_array_constructor.
|
and gfc_trans_constant_array_constructor.
|
(gfc_conv_scalarized_array_ref): Check whetger info->offset is zero
|
(gfc_conv_scalarized_array_ref): Check whetger info->offset is zero
|
before adding it to index, to avoid creating a NON_LVALUE_EXPR.
|
before adding it to index, to avoid creating a NON_LVALUE_EXPR.
|
|
|
2007-01-08 Kazu Hirata
|
2007-01-08 Kazu Hirata
|
|
|
gfortran.texi: Fix typos.
|
gfortran.texi: Fix typos.
|
|
|
2007-01-07 Steven G. Kargl
|
2007-01-07 Steven G. Kargl
|
|
|
* decl.c, dump-parse-tree.c, error.c, data.c, expr.c, dependency.c,
|
* decl.c, dump-parse-tree.c, error.c, data.c, expr.c, dependency.c,
|
convert.c: Update Copyright dates. Fix whitespace.
|
convert.c: Update Copyright dates. Fix whitespace.
|
|
|
2007-01-07 Bernhard Fischer
|
2007-01-07 Bernhard Fischer
|
|
|
* data.c (gfc_assign_data_value): Fix whitespace.
|
* data.c (gfc_assign_data_value): Fix whitespace.
|
|
|
2007-01-07 Bernhard Fischer
|
2007-01-07 Bernhard Fischer
|
|
|
* trans-array.c (gfc_trans_create_temp_array, gfc_array_init_size):
|
* trans-array.c (gfc_trans_create_temp_array, gfc_array_init_size):
|
Commentary typo fix.
|
Commentary typo fix.
|
|
|
2007-01-07 Bernhard Fischer
|
2007-01-07 Bernhard Fischer
|
|
|
PR fortran/27698
|
PR fortran/27698
|
* match.c (gfc_match_name): Print diagnostics for invalid
|
* match.c (gfc_match_name): Print diagnostics for invalid
|
character in names.
|
character in names.
|
|
|
2007-01-06 Steven G. Kargl
|
2007-01-06 Steven G. Kargl
|
|
|
* array.c: Fix whitespace in comment table.
|
* array.c: Fix whitespace in comment table.
|
|
|
2007-01-06 Steven G. Kargl
|
2007-01-06 Steven G. Kargl
|
|
|
* array.c, bbt.c, check.c: Update copyright years. Whitespace.
|
* array.c, bbt.c, check.c: Update copyright years. Whitespace.
|
|
|
2007-01-06 Steven G. Kargl
|
2007-01-06 Steven G. Kargl
|
|
|
* arith.c: Update copyright years. Whitespace.
|
* arith.c: Update copyright years. Whitespace.
|
|
|
2007-01-05 Roger Sayle
|
2007-01-05 Roger Sayle
|
|
|
* trans-expr.c (gfc_trans_assignment_1): New subroutine to scalarize
|
* trans-expr.c (gfc_trans_assignment_1): New subroutine to scalarize
|
array assignments split out from gfc_trans_assignment.
|
array assignments split out from gfc_trans_assignment.
|
(gfc_trans_array_copy): New function to implement array to array
|
(gfc_trans_array_copy): New function to implement array to array
|
copies via calls to __builtin_memcpy.
|
copies via calls to __builtin_memcpy.
|
(copyable_array_p): New helper function to identify an array of
|
(copyable_array_p): New helper function to identify an array of
|
simple/POD types, that may be copied/assigned using memcpy.
|
simple/POD types, that may be copied/assigned using memcpy.
|
(gfc_trans_assignment): Use gfc_trans_array_copy to handle simple
|
(gfc_trans_assignment): Use gfc_trans_array_copy to handle simple
|
whole array assignments considered suitable by copyable_array_p.
|
whole array assignments considered suitable by copyable_array_p.
|
Invoke gfc_trans_assignment_1 to perform the fallback scalarization.
|
Invoke gfc_trans_assignment_1 to perform the fallback scalarization.
|
|
|
2007-01-05 Roger Sayle
|
2007-01-05 Roger Sayle
|
|
|
* trans-array.c (gfc_trans_array_constructor_value): Make the
|
* trans-array.c (gfc_trans_array_constructor_value): Make the
|
static const "data" array as TREE_READONLY.
|
static const "data" array as TREE_READONLY.
|
* trans-stmt.c (gfc_trans_character_select): Likewise.
|
* trans-stmt.c (gfc_trans_character_select): Likewise.
|
|
|
2007-01-05 Roger Sayle
|
2007-01-05 Roger Sayle
|
|
|
* trans-array.c (gfc_conv_loop_setup): Test whether the loop
|
* trans-array.c (gfc_conv_loop_setup): Test whether the loop
|
stride is one, to avoid fold_build2 introducing a useless
|
stride is one, to avoid fold_build2 introducing a useless
|
NON_LVALUE_EXPR node.
|
NON_LVALUE_EXPR node.
|
|
|
2007-01-05 Tobias Burnus
|
2007-01-05 Tobias Burnus
|
|
|
* symbol.c (check_conflict): Fix error message.
|
* symbol.c (check_conflict): Fix error message.
|
|
|
2007-01-05 Paul Thomas
|
2007-01-05 Paul Thomas
|
|
|
PR fortran/23232
|
PR fortran/23232
|
* decl.c (gfc_in_match_data, gfc_set_in_match_data): New
|
* decl.c (gfc_in_match_data, gfc_set_in_match_data): New
|
functions to signal that a DATA statement is being matched.
|
functions to signal that a DATA statement is being matched.
|
(gfc_match_data): Call gfc_set_in_match_data on entry and on
|
(gfc_match_data): Call gfc_set_in_match_data on entry and on
|
exit.
|
exit.
|
* gfortran.h : Add prototypes for above.
|
* gfortran.h : Add prototypes for above.
|
* expr.c (check_init_expr): Avoid check on parameter or
|
* expr.c (check_init_expr): Avoid check on parameter or
|
variable if gfc_in_match_data is true.
|
variable if gfc_in_match_data is true.
|
(gfc_match_init_expr): Do not call error on non-reduction of
|
(gfc_match_init_expr): Do not call error on non-reduction of
|
expression if gfc_in_match_data is true.
|
expression if gfc_in_match_data is true.
|
|
|
PR fortran/27996
|
PR fortran/27996
|
PR fortran/27998
|
PR fortran/27998
|
* decl.c (gfc_set_constant_character_len): Add boolean arg to
|
* decl.c (gfc_set_constant_character_len): Add boolean arg to
|
flag array constructor resolution. Warn if string is being
|
flag array constructor resolution. Warn if string is being
|
truncated. Standard dependent error if string is padded. Set
|
truncated. Standard dependent error if string is padded. Set
|
new arg to false for all three calls to
|
new arg to false for all three calls to
|
gfc_set_constant_character_len.
|
gfc_set_constant_character_len.
|
* match.h : Add boolean arg to prototype for
|
* match.h : Add boolean arg to prototype for
|
gfc_set_constant_character_len.
|
gfc_set_constant_character_len.
|
* gfortran.h : Add warn_character_truncation to gfc_options.
|
* gfortran.h : Add warn_character_truncation to gfc_options.
|
* options.c (set_Wall): Set warn_character_truncation if -Wall
|
* options.c (set_Wall): Set warn_character_truncation if -Wall
|
is set.
|
is set.
|
* resolve.c (resolve_code): Warn if rhs string in character
|
* resolve.c (resolve_code): Warn if rhs string in character
|
assignment has to be truncated.
|
assignment has to be truncated.
|
* array.c (gfc_resolve_character_array_constructor): Set new
|
* array.c (gfc_resolve_character_array_constructor): Set new
|
argument to true for call to gfc_set_constant_character_len.
|
argument to true for call to gfc_set_constant_character_len.
|
|
|
2007-01-05 Tobias Burnus
|
2007-01-05 Tobias Burnus
|
|
|
PR fortran/29624
|
PR fortran/29624
|
* interface.c (compare_parameter_intent): New function.
|
* interface.c (compare_parameter_intent): New function.
|
(check_intents): Support pointer intents.
|
(check_intents): Support pointer intents.
|
* symbol.c (check_conflict): Support pointer intents,
|
* symbol.c (check_conflict): Support pointer intents,
|
better conflict_std message.
|
better conflict_std message.
|
* expr.c (gfc_check_assign,gfc_check_pointer_assign):
|
* expr.c (gfc_check_assign,gfc_check_pointer_assign):
|
Support pointer intents.
|
Support pointer intents.
|
* resolve.c (resolve_deallocate_expr,resolve_allocate_expr):
|
* resolve.c (resolve_deallocate_expr,resolve_allocate_expr):
|
Support pointer intents.
|
Support pointer intents.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
PR 30371
|
PR 30371
|
* check.c (gfc_check_kill_sub): Add checks for non-scalar
|
* check.c (gfc_check_kill_sub): Add checks for non-scalar
|
arguments.
|
arguments.
|
|
|
2007-01-04 Brooks Moses
|
2007-01-04 Brooks Moses
|
|
|
* intrinsic.texi: Minor cleanup, reflowing overlong
|
* intrinsic.texi: Minor cleanup, reflowing overlong
|
paragraphs, and correcting whitespace.
|
paragraphs, and correcting whitespace.
|
|
|
2007-01-04 Brooks Moses
|
2007-01-04 Brooks Moses
|
|
|
* intrinsic.texi (LBOUND): Add documentation.
|
* intrinsic.texi (LBOUND): Add documentation.
|
(LGE): Add documentation.
|
(LGE): Add documentation.
|
(LGT): Add documentation.
|
(LGT): Add documentation.
|
(LINK): Add documentation.
|
(LINK): Add documentation.
|
(LLE): Add documentation.
|
(LLE): Add documentation.
|
(LLT): Add documentation.
|
(LLT): Add documentation.
|
(LNBLNK): Add documentation.
|
(LNBLNK): Add documentation.
|
(UBOUND): Add documentation.
|
(UBOUND): Add documentation.
|
(UNLINK): Add documentation.
|
(UNLINK): Add documentation.
|
|
|
2007-01-04 Brooks Moses
|
2007-01-04 Brooks Moses
|
|
|
* intrinsic.texi (IAND): Clarify argument specifications.
|
* intrinsic.texi (IAND): Clarify argument specifications.
|
(IBCLR): Add documentation.
|
(IBCLR): Add documentation.
|
(IBITS): Add documentation.
|
(IBITS): Add documentation.
|
(IBSET): Add documentation.
|
(IBSET): Add documentation.
|
(IEOR): Add documentation.
|
(IEOR): Add documentation.
|
(IERRNO): Add documentation.
|
(IERRNO): Add documentation.
|
(INDEX): Add documentation.
|
(INDEX): Add documentation.
|
(IOR): Add documentation.
|
(IOR): Add documentation.
|
(ISHFT): Add documentation.
|
(ISHFT): Add documentation.
|
(ISHFTC): Add documentation.
|
(ISHFTC): Add documentation.
|
(KILL): Add documentation.
|
(KILL): Add documentation.
|
(LEN_TRIM): Add documentation.
|
(LEN_TRIM): Add documentation.
|
|
|
2007-01-04 Brooks Moses
|
2007-01-04 Brooks Moses
|
|
|
PR 30235
|
PR 30235
|
* interface.c (compare_actual_formal): check for
|
* interface.c (compare_actual_formal): check for
|
alternate returns when iterating over non-present
|
alternate returns when iterating over non-present
|
arguments.
|
arguments.
|
|
|
2007-01-04 Brooks Moses
|
2007-01-04 Brooks Moses
|
|
|
* invoke.texi: Update manpage copyright to include 2007.
|
* invoke.texi: Update manpage copyright to include 2007.
|
|
|
2007-01-04 Brooks Moses
|
2007-01-04 Brooks Moses
|
|
|
* gfortran.texi: Update copyright to include 2007.
|
* gfortran.texi: Update copyright to include 2007.
|
* intrinsic.texi: Update copyright to include 2007.
|
* intrinsic.texi: Update copyright to include 2007.
|
* invoke.texi: Update copyright to include 2007.
|
* invoke.texi: Update copyright to include 2007.
|
|
|
2007-01-02 Tobias Burnus
|
2007-01-02 Tobias Burnus
|
Jakub Jelinek
|
Jakub Jelinek
|
|
|
PR fortran/30276
|
PR fortran/30276
|
* scanner.c (open_included_file): Revert patch.
|
* scanner.c (open_included_file): Revert patch.
|
(gfc_open_included_file): Support absolute pathnames.
|
(gfc_open_included_file): Support absolute pathnames.
|
(gfc_open_intrinsic_module): Support absolute pathnames.
|
(gfc_open_intrinsic_module): Support absolute pathnames.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* gfortran.texi (GNU Fortran and GCC): Rewrite
|
* gfortran.texi (GNU Fortran and GCC): Rewrite
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* gfortran.texi (Introduction): Lower "Part I:
|
* gfortran.texi (Introduction): Lower "Part I:
|
Introduction" to a chapter, renumber Parts II and III to
|
Introduction" to a chapter, renumber Parts II and III to
|
Parts I and II.
|
Parts I and II.
|
* intrinsic.texi (Introduction): Rename to "Introduction
|
* intrinsic.texi (Introduction): Rename to "Introduction
|
to Intrinsics" to avoid conflict with the new chapter.
|
to Intrinsics" to avoid conflict with the new chapter.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* intrinsic.texi (Introduction): Rewrite first paragraph.
|
* intrinsic.texi (Introduction): Rewrite first paragraph.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* invoke.texi (OpenMP): Added index entry.
|
* invoke.texi (OpenMP): Added index entry.
|
* gfortran.texi (title page): Removed erroneous '*'.
|
* gfortran.texi (title page): Removed erroneous '*'.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* gfortran.texi (GFORTRAN_DEFAULT_RECL): Added units
|
* gfortran.texi (GFORTRAN_DEFAULT_RECL): Added units
|
to description.
|
to description.
|
(Extensions): Miscellaneous minor rewriting and copyediting.
|
(Extensions): Miscellaneous minor rewriting and copyediting.
|
(BOZ-literal constants): Renamed from Hexadecimal constants.
|
(BOZ-literal constants): Renamed from Hexadecimal constants.
|
(Hollerith constants support): Added explanation and
|
(Hollerith constants support): Added explanation and
|
suggestions for standard-conforming modern equivalents.
|
suggestions for standard-conforming modern equivalents.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* intrinsic.texi: Improvements to index entries; change
|
* intrinsic.texi: Improvements to index entries; change
|
@findex entries to @cindex entries.
|
@findex entries to @cindex entries.
|
* invoke.texi: Standardize and improve index entries.
|
* invoke.texi: Standardize and improve index entries.
|
* gfortran.texi: Fix @code in one index entry.
|
* gfortran.texi: Fix @code in one index entry.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* invoke.texi: Change @code-type macros to appropriate
|
* invoke.texi: Change @code-type macros to appropriate
|
variants (@command, @option, etc.)
|
variants (@command, @option, etc.)
|
* gfortran.texi: Same.
|
* gfortran.texi: Same.
|
|
|
2007-01-03 Brooks Moses
|
2007-01-03 Brooks Moses
|
|
|
* intrinsic.texi: Various minor cleanups.
|
* intrinsic.texi: Various minor cleanups.
|
|
|
2007-01-02 Steven G. Kargl
|
2007-01-02 Steven G. Kargl
|
|
|
* trans-intrinsic.c (gfc_conv_intrinsic_ibits): Fix call to
|
* trans-intrinsic.c (gfc_conv_intrinsic_ibits): Fix call to
|
build_int_cst.
|
build_int_cst.
|
|
|
2007-01-02 Tobias Burnus
|
2007-01-02 Tobias Burnus
|
|
|
PR fortran/30276
|
PR fortran/30276
|
* scanner.c (open_included_file): Support full-path filenames.
|
* scanner.c (open_included_file): Support full-path filenames.
|
|
|
2007-01-02 Paul Thomas
|
2007-01-02 Paul Thomas
|
|
|
PR fortran/20896
|
PR fortran/20896
|
* interface.c (check_sym_interfaces): Remove call to
|
* interface.c (check_sym_interfaces): Remove call to
|
resolve_global_procedure.
|
resolve_global_procedure.
|
gfortran.h : Remove prototype for resolve_global_procedure.
|
gfortran.h : Remove prototype for resolve_global_procedure.
|
resolve.c (resolve_global_procedure): Add static attribute
|
resolve.c (resolve_global_procedure): Add static attribute
|
to function declaration.
|
to function declaration.
|
|
|
2007-01-01 Steven G. Kargl
|
2007-01-01 Steven G. Kargl
|
|
|
* ChangeLog: Copy to ...
|
* ChangeLog: Copy to ...
|
* ChangeLog-2006: here.
|
* ChangeLog-2006: here.
|
|
|
|
|
Copyright (C) 2007 Free Software Foundation, Inc.
|
Copyright (C) 2007 Free Software Foundation, Inc.
|
|
|
Copying and distribution of this file, with or without modification,
|
Copying and distribution of this file, with or without modification,
|
are permitted in any medium without royalty provided the copyright
|
are permitted in any medium without royalty provided the copyright
|
notice and this notice are preserved.
|
notice and this notice are preserved.
|
|
|
