diff options
Diffstat (limited to 'gcc/fortran/decl.c')
| -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 b7b98d5..aff1ebb 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -762,7 +762,7 @@ get_proc_name (const char *name, gfc_symbol **result, bool module_fcn_entry) (*result)->ts = sym->ts; /* Put the symbol in the procedure namespace so that, should - the ENTRY preceed its specification, the specification + the ENTRY precede its specification, the specification can be applied. */ (*result)->ns = gfc_current_ns; @@ -5770,7 +5770,7 @@ syntax: /* The PRIVATE statement is a bit weird in that it can be an attribute - declaration, but also works as a standlone statement inside of a + declaration, but also works as a standalone statement inside of a type declaration or a module. */ match @@ -6341,7 +6341,7 @@ gfc_match_derived_decl (void) 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 the symbol is not the return value of a function. */ if (sym->attr.flavor != FL_DERIVED && gfc_add_flavor (&sym->attr, FL_DERIVED, sym->name, NULL) == FAILURE) return MATCH_ERROR; |