diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -rw-r--r-- | gcc/fortran/decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 508c90c..5f7e846 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -401,7 +401,7 @@ match_old_style_init (const char *name) /* Match the stuff following a DATA statement. If ERROR_FLAG is set, we are matching a DATA statement and are therefore issuing an error if we encounter something unexpected, if not, we're trying to match - an old-style intialization expression of the form INTEGER I /2/. */ + an old-style intialization expression of the form INTEGER I /2/. */ match gfc_match_data (void) @@ -3292,7 +3292,7 @@ loop: components. The ways this can happen is via a function definition, an INTRINSIC statement or a subtype in another derived type that is a pointer. The first part of the AND clause - is true if a the symbol is not the return value of a function. */ + is true if a the symbol is not the return value of a function. */ if (sym->attr.flavor != FL_DERIVED && gfc_add_flavor (&sym->attr, FL_DERIVED, NULL) == FAILURE) return MATCH_ERROR; |