diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-08-14 05:10:34 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2009-08-14 05:10:34 +0000 |
| commit | 0b3624f6f9b2cef16c19c66df967467bc41b15ab (patch) | |
| tree | d61c80dbd857394707d55e9b65eb25f270a48950 | |
| parent | 525fa3235ec5f883c89f699198eb8e73dbdc7d82 (diff) | |
| download | gcc-0b3624f6f9b2cef16c19c66df967467bc41b15ab.zip gcc-0b3624f6f9b2cef16c19c66df967467bc41b15ab.tar.gz gcc-0b3624f6f9b2cef16c19c66df967467bc41b15ab.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/decl.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index b1c1517..d5206a0 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; } |