decl.c (gfc_match_type_spec): Whitespace.
authorSteven G. Kargl <kargl@gcc.gnu.org>
Fri, 14 Aug 2009 05:10:34 +0000 (05:10 +0000)
committerSteven G. Kargl <kargl@gcc.gnu.org>
Fri, 14 Aug 2009 05:10:34 +0000 (05:10 +0000)
2009-08-13  Steven G. Kargl  <kargl@gcc.gnu.org>

    * decl.c (gfc_match_type_spec): Whitespace.

From-SVN: r150734

gcc/fortran/decl.c

index b1c1517..d5206a0 100644 (file)
@@ -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;
     }