diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-06-30 14:48:51 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-06-30 14:48:51 +0200 |
| commit | e5ddaa24beae8ae06e2a8e962131a1bc55f7146e (patch) | |
| tree | a6d66573bee1bb3198bebe0b03b27908d2034442 /gcc/Makefile.in | |
| parent | 521903292cec2da89e5804e420245a006affd240 (diff) | |
| download | gcc-e5ddaa24beae8ae06e2a8e962131a1bc55f7146e.zip gcc-e5ddaa24beae8ae06e2a8e962131a1bc55f7146e.tar.gz gcc-e5ddaa24beae8ae06e2a8e962131a1bc55f7146e.tar.bz2 | |
re PR fortran/16161 ([gfortran] IMPLICIT CHARACTER not implemented)
fortran/
PR fortran/16161
* decl.c (gfc_match_type_spec): Rename second argument to
'implicit_flag', reverse meaning. Don't match_char_spec if
'implicit_flag' is set. Rename to ...
(match_type_spec): ... this.
(gfc_match_implicit_none, match_implicit_range): Move here
from match.c.
(gfc_match_implicit): Move here from match.c, try to
match_char_len if match_implicit_range doesn't succeed for
CHARACTER implicits. Call renamed fucntion match_type_spec.
(gfc_match_data_decl, match_prefix): Call renamed function
match_type_spec.
* match.c (gfc_match_implicit_none, match_implicit_range,
gfc_match_implicit): Move to decl.c.
* match.h (gfc_match_implicit_none, gfc_match_implicit):
Move protoypes to section 'decl.c'.
(gfc_match_type_spec): Remove prototype.
testsuite/
PR fortran/16161
* gfortran.fortran-torture/compile/implicit.f90: Add test
for implicit character.
From-SVN: r83907
Diffstat (limited to 'gcc/Makefile.in')
0 files changed, 0 insertions, 0 deletions