From 0b3624f6f9b2cef16c19c66df967467bc41b15ab Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Fri, 14 Aug 2009 05:10:34 +0000 Subject: [PATCH] decl.c (gfc_match_type_spec): Whitespace. 2009-08-13 Steven G. Kargl * decl.c (gfc_match_type_spec): Whitespace. From-SVN: r150734 --- gcc/fortran/decl.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index b1c151761081..d5206a072daa 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -2297,7 +2297,7 @@ gfc_match_type_spec (gfc_typespec *ts, int implicit_flag) if (gfc_match (" byte") == MATCH_YES) { - if (gfc_notify_std(GFC_STD_GNU, "Extension: BYTE type at %C") + if (gfc_notify_std (GFC_STD_GNU, "Extension: BYTE type at %C") == FAILURE) return MATCH_ERROR; @@ -2436,8 +2436,8 @@ get_kind: if (gfc_current_form == FORM_FREE) { - c = gfc_peek_ascii_char(); - if (!gfc_is_whitespace(c) && c != '*' && c != '(' + c = gfc_peek_ascii_char (); + if (!gfc_is_whitespace (c) && c != '*' && c != '(' && c != ':' && c != ',') return MATCH_NO; } -- 2.47.2