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/parse.h | |
| 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/parse.h')
| -rw-r--r-- | gcc/fortran/parse.h | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/parse.h b/gcc/fortran/parse.h index 307d59a..be885bb 100644 --- a/gcc/fortran/parse.h +++ b/gcc/fortran/parse.h @@ -66,7 +66,6 @@ const char *gfc_ascii_statement (gfc_statement); match gfc_match_enum (void); match gfc_match_enumerator_def (void); void gfc_free_enum_history (void); -extern locus gfc_function_kind_locus; -extern locus gfc_function_type_locus; - +extern bool gfc_matching_function; +match gfc_match_prefix (gfc_typespec *); #endif /* GFC_PARSE_H */ |