| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
* lib/gcc-dg.exp (cleanup-modules): New proc.
* gfortran.dg/allocatable_function_1.f90,
gfortran.dg/allocate_char_star_scalar_1.f90,
gfortran.dg/assumed_charlen_function_1.f90,
gfortran.dg/assumed_dummy_1.f90,
gfortran.dg/assumed_shape_ranks_1.f90,
gfortran.dg/assumed_shape_ranks_2.f90,
gfortran.dg/assumed_size_dt_dummy.f90,
gfortran.dg/auto_char_dummy_array_1.f90,
gfortran.dg/auto_char_len_3.f90,
gfortran.dg/automatic_module_variable.f90,
gfortran.dg/bad_automatic_objects_1.f90,
gfortran.dg/char_array_constructor.f90,
gfortran.dg/char_array_structure_constructor.f90,
gfortran.dg/char_result_11.f90, gfortran.dg/char_result_9.f90,
gfortran.dg/contained_1.f90, gfortran.dg/convert_1.f90,
gfortran.dg/cray_pointers_5.f90, gfortran.dg/data_constraints_1.f90,
gfortran.dg/default_initialization.f90, gfortran.dg/der_charlen_1.f90,
gfortran.dg/der_io_2.f90, gfortran.dg/der_io_3.f90,
gfortran.dg/derived_pointer_recursion.f90,
gfortran.dg/derived_recursion.f90, gfortran.dg/der_pointer_1.f90,
gfortran.dg/der_pointer_3.f90, gfortran.dg/der_pointer_4.f90,
gfortran.dg/dummy_functions_1.f90,
gfortran.dg/elemental_initializer_1.f90,
gfortran.dg/elemental_non_intrinsic_dummy_1.f90,
gfortran.dg/elemental_pointer_1.f90,
gfortran.dg/elemental_subroutine_1.f90,
gfortran.dg/elemental_subroutine_2.f90, gfortran.dg/entry_1.f90,
gfortran.dg/entry_3.f90, gfortran.dg/enum_10.f90,
gfortran.dg/equiv_constraint_3.f90, gfortran.dg/func_derived_1.f90,
gfortran.dg/func_derived_2.f90, gfortran.dg/func_derived_3.f90,
gfortran.dg/generic_1.f90, gfortran.dg/generic_2.f90,
gfortran.dg/generic_3.f90, gfortran.dg/generic_4.f90,
gfortran.dg/global_references_1.f90,
gfortran.dg/host_used_types_1.f90, gfortran.dg/implicit_1.f90,
gfortran.dg/implicit_2.f90, gfortran.dg/implicit_actual.f90,
gfortran.dg/initialization_1.f90, gfortran.dg/int_1.f90,
gfortran.dg/intent_used_1.f90, gfortran.dg/interface_1.f90,
gfortran.dg/interface_2.f90, gfortran.dg/internal_references_2.f90,
gfortran.dg/io_constraints_1.f90, gfortran.dg/io_constraints_2.f90,
gfortran.dg/large_integer_kind_1.f90,
gfortran.dg/large_real_kind_1.f90,
gfortran.dg/module_blank_common.f90, gfortran.dg/module_commons_1.f90,
gfortran.dg/module_double_reuse.f90,
gfortran.dg/module_equivalence_1.f90,
gfortran.dg/module_interface_1.f90,
gfortran.dg/module_parameter_array_refs_1.f90,
gfortran.dg/named_interface.f90, gfortran.dg/namelist_14.f90,
gfortran.dg/namelist_15.f90, gfortran.dg/namelist_1.f90,
gfortran.dg/namelist_4.f90, gfortran.dg/namelist_use.f90,
gfortran.dg/namelist_use_only.f90, gfortran.dg/nested_modules_1.f90,
gfortran.dg/nested_modules_2.f90, gfortran.dg/nested_modules_3.f90,
gfortran.dg/nested_modules_4.f90, gfortran.dg/nested_modules_5.f90,
gfortran.dg/parens_5.f90, gfortran.dg/parent_result_ref_4.f90,
gfortran.dg/pr15164.f90, gfortran.dg/pr16861.f90,
gfortran.dg/pr17615.f90, gfortran.dg/pr19926.f90,
gfortran.dg/pr21177.f90, gfortran.dg/pr26246_1.f90,
gfortran.dg/private_type_1.f90, gfortran.dg/private_type_2.f90,
gfortran.dg/private_type_3.f90, gfortran.dg/private_type_4.f90,
gfortran.dg/procedure_lvalue.f90, gfortran.dg/pure_byref_3.f90,
gfortran.dg/same_name_1.f90,
gfortran.dg/sibling_dummy_procedure_1.f90,
gfortran.dg/sibling_dummy_procedure_2.f90,
gfortran.dg/sibling_dummy_procedure_3.f90,
gfortran.dg/substr_1.f90, gfortran.dg/substring_equivalence.f90,
gfortran.dg/use_allocated_1.f90, gfortran.dg/used_dummy_types_1.f90,
gfortran.dg/used_dummy_types_2.f90,
gfortran.dg/used_dummy_types_3.f90,
gfortran.dg/used_dummy_types_4.f90,
gfortran.dg/used_dummy_types_5.f90,
gfortran.dg/used_interface_ref.f90, gfortran.dg/used_types_1.f90,
gfortran.dg/userdef_operator_1.f90: Use it.
From-SVN: r112264
|
|
|
fortran/
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* arith.c (gfc_enum_initializer): New function.
(gfc_check_integer_range): Made extern.
* decl.c (enumerator_history): New typedef.
(last_initializer, enum_history, max_enum): New variables.
(create_enum_history, gfc_free_enum_history): New functions.
(add_init_expr_to_sym): Call create_enum_history if parsing ENUM.
(variable_decl): Modified to parse enumerator definition.
(match_attr_spec): Add PARAMETER attribute to ENUMERATORs.
(gfc_match_data_decl): Issues error, if match_type_spec do not
return desired return values.
(set_enum_kind, gfc_match_enum, gfc_match_enumerator_def): New
functions.
(gfc_match_end): Deal with END ENUM.
* gfortran.h (gfc_statement): ST_ENUM, ST_ENUMERATOR, ST_END_ENUM
added.
(symbol_attribute): Bit field for enumerator added.
(gfc_options): Add fshort_enums.
(gfc_enum_initializer, gfc_check_integer_range): Add prototypes.
* options.c: Include target.h
(gfc_init_options): Initialize fshort_enums.
(gfc_handle_option): Deal with fshort_enums.
* parse.c (decode_statement): Match ENUM and ENUMERATOR statement.
(gfc_ascii_statement): Deal with the enumerator statements.
(parse_enum): New function to parse enum construct.
(parse_spec): Added case ST_ENUM.
* parse.h (gfc_compile_state): COMP_ENUM added.
(gfc_match_enum, gfc_match_enumerator_def, gfc_free_enum_history):
Prototype added.
* symbol.c (gfc_copy_attr): Copy enumeration attribute.
* lang.opt (fshort-enums): Option added.
testsuite/
2005-10-30 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/enum_10.f90, gfortran.dg/enum_10.c: New test.
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
* gfortran.dg/enum_1.f90, gfortran.dg/enum_2.f90,
gfortran.dg/enum_3.f90, gfortran.dg/enum_4.f90,
gfortran.dg/enum_5.f90, gfortran.dg/enum_6.f90,
gfortran.dg/enum_7.f90, gfortran.dg/enum_8.f90,
gfortran.dg/enum_9.f90,
gfortran.fortran-torture/compile/enum_1.f90,
gfortran.fortran-torture/execute/enum_1.f90,
gfortran.fortran-torture/execute/enum_2.f90,
gfortran.fortran-torture/execute/enum_3.f90,
gfortran.fortran-torture/execute/enum_4.f90: New tests.
From-SVN: r106246
|
