diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-01-17 07:19:04 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-01-17 07:19:04 +0000 |
| commit | 1c8bcdf715b0475effdd0cc2c27d461c3ce5540f (patch) | |
| tree | 054213ac5d3f5eac30ee27cfdf5a1a02e096965b /gcc/fortran/misc.c | |
| parent | e7ce29e776d8309ac625863aa8eb781599ef43c6 (diff) | |
| download | gcc-1c8bcdf715b0475effdd0cc2c27d461c3ce5540f.zip gcc-1c8bcdf715b0475effdd0cc2c27d461c3ce5540f.tar.gz gcc-1c8bcdf715b0475effdd0cc2c27d461c3ce5540f.tar.bz2 | |
re PR fortran/34429 (Fails: character(len=use_associated_const) function foo())
2008-01-17 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34429
PR fortran/34431
PR fortran/34471
* decl.c : Remove gfc_function_kind_locus and
gfc_function_type_locus. Add gfc_matching_function.
(match_char_length): If matching a function and the length
does not match, return MATCH_YES and try again later.
(gfc_match_kind_spec): The same.
(match_char_kind): The same.
(gfc_match_type_spec): The same for numeric and derived types.
(match_prefix): Rename as gfc_match_prefix.
(gfc_match_function_decl): Except for function valued character
lengths, defer applying kind, type and charlen info until the
end of specification block.
gfortran.h (gfc_statement): Add ST_GET_FCN_CHARACTERISTICS.
parse.c (decode_specification_statement): New function.
(decode_statement): Call it when a function has kind = -1. Set
and reset gfc_matching function, as function statement is being
matched.
(match_deferred_characteristics): Simplify with a single call
to gfc_match_prefix. Do appropriate error handling. In any
case, make sure that kind = -1 is reset or corrected.
(parse_spec): Call above on seeing ST_GET_FCN_CHARACTERISTICS.
Throw an error if kind = -1 after last specification statement.
parse.h : Prototype for gfc_match_prefix.
2008-01-17 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34429
* gfortran.dg/function_charlen_1.f90: New test.
PR fortran/34431
* gfortran.dg/function_types_1.f90: New test.
* gfortran.dg/function_types_2.f90: New test.
PR fortran/34471
* gfortran.dg/function_kinds_4.f90: New test.
* gfortran.dg/function_kinds_5.f90: New test.
* gfortran.dg/defined_operators_1.f90: Errors now at function
declarations.
* gfortran.dg/private_type_4.f90: The same.
* gfortran.dg/interface_15.f90: The same.
* gfortran.dg/elemental_args_check_2.f90: The same.
* gfortran.dg/auto_internal_assumed.f90: The same.
From-SVN: r131592
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index 4bc5c43..5ee5434 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -74,8 +74,8 @@ void gfc_clear_ts (gfc_typespec *ts) { ts->type = BT_UNKNOWN; - ts->kind = 0; ts->derived = NULL; + ts->kind = 0; ts->cl = NULL; /* flag that says if the type is C interoperable */ ts->is_c_interop = 0; |