diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-05-19 01:37:47 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-05-19 01:37:47 +0200 |
| commit | 472ca416af9f5457ace9b237eccc08f175a07b29 (patch) | |
| tree | 0ed42e8bd6c75d959fff4fd5b08fc61114a859fd /gcc/fortran/trans-decl.c | |
| parent | d7981fd95fde4396a5d774be8db49708ef68b86d (diff) | |
| download | gcc-472ca416af9f5457ace9b237eccc08f175a07b29.zip gcc-472ca416af9f5457ace9b237eccc08f175a07b29.tar.gz gcc-472ca416af9f5457ace9b237eccc08f175a07b29.tar.bz2 | |
* trans.c, trans-decl.c: Fix comment typos.
From-SVN: r82008
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index e4f564c..b5f3508 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -1048,7 +1048,7 @@ gfc_build_function_decl (gfc_symbol * sym) DECL_EXTERNAL (fndecl) = 0; /* This specifies if a function is globaly addressable, ie. it is - the opposite of decalring static in C. */ + the opposite of declaring static in C. */ if (DECL_CONTEXT (fndecl) == NULL_TREE || attr.external) TREE_PUBLIC (fndecl) = 1; @@ -1094,7 +1094,7 @@ gfc_build_function_decl (gfc_symbol * sym) { gfc_allocate_lang_decl (parm); - /* Length of character result */ + /* Length of character result. */ type = TREE_VALUE (typelist); assert (type == gfc_strlen_type_node); @@ -1795,10 +1795,10 @@ gfc_generate_module_vars (gfc_namespace * ns) { module_namespace = ns; - /* Check the frontend left the namespace in a reasonable state. */ + /* Check if the frontend left the namespace in a reasonable state. */ assert (ns->proc_name && !ns->proc_name->tlink); - /* Create decls for all the module varuiables. */ + /* Create decls for all the module variables. */ gfc_traverse_ns (ns, gfc_create_module_variable); } @@ -1856,7 +1856,7 @@ generate_local_decl (gfc_symbol * sym) warning ("unused parameter `%s'", sym->name); } /* warn for unused variables, but not if they're inside a common - block. */ + block. */ else if (warn_unused_variable && !sym->attr.in_common) warning ("unused variable `%s'", sym->name); } |