From 858f1fa2a3c80a40696ff296bd4a884788997dd5 Mon Sep 17 00:00:00 2001 From: Daniel Kraft Date: Sat, 13 Sep 2008 09:44:36 +0200 Subject: re PR fortran/35770 (implicit character(s) hides type of internal function) 2008-09-13 Daniel Kraft PR fortran/35770 * primary.c (gfc_match_varspec): Added missing type-spec clearing after wrong implicit character typing. 2008-09-13 Daniel Kraft PR fortran/35770 * gfortran.dg/implicit_13.f90: New test. From-SVN: r140336 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/primary.c | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 796d36d..6460957 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2008-09-13 Daniel Kraft + + PR fortran/35770 + * primary.c (gfc_match_varspec): Added missing type-spec clearing + after wrong implicit character typing. + 2008-09-12 Richard Guenther * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Use diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 04c24eb7..f3e1b03 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -1869,7 +1869,10 @@ check_substring: case MATCH_NO: if (unknown) - gfc_clear_ts (&primary->ts); + { + gfc_clear_ts (&primary->ts); + gfc_clear_ts (&sym->ts); + } break; case MATCH_ERROR: -- cgit v1.1