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/primary.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/primary.c') 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