From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Fri, 14 Aug 2009 05:10:34 +0000 (+0000)
Subject: decl.c (gfc_match_type_spec): Whitespace.
X-Git-Tag: releases/gcc-4.5.0~4037
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=0b3624f6f9b2cef16c19c66df967467bc41b15ab;p=thirdparty%2Fgcc.git

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
---

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;
     }