Commit 0b3624f6 by Steven G. Kargl

decl.c (gfc_match_type_spec): Whitespace.

2009-08-13  Steven G. Kargl  <kargl@gcc.gnu.org>

    * decl.c (gfc_match_type_spec): Whitespace.

From-SVN: r150734
parent 525fa323
...@@ -2297,7 +2297,7 @@ gfc_match_type_spec (gfc_typespec *ts, int implicit_flag) ...@@ -2297,7 +2297,7 @@ gfc_match_type_spec (gfc_typespec *ts, int implicit_flag)
if (gfc_match (" byte") == MATCH_YES) 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) == FAILURE)
return MATCH_ERROR; return MATCH_ERROR;
...@@ -2436,8 +2436,8 @@ get_kind: ...@@ -2436,8 +2436,8 @@ get_kind:
if (gfc_current_form == FORM_FREE) if (gfc_current_form == FORM_FREE)
{ {
c = gfc_peek_ascii_char(); c = gfc_peek_ascii_char ();
if (!gfc_is_whitespace(c) && c != '*' && c != '(' if (!gfc_is_whitespace (c) && c != '*' && c != '('
&& c != ':' && c != ',') && c != ':' && c != ',')
return MATCH_NO; return MATCH_NO;
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment