diff options
| author | kazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-16 16:00:45 +0000 |
|---|---|---|
| committer | kazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-16 16:00:45 +0000 |
| commit | 231e961a9a50ce102e447163c26f978c313c95ee (patch) | |
| tree | d4390e21373fcfa884178f5708c587e4da66100a /gcc/fortran/trans-common.c | |
| parent | 55d0e9506b63ea48617e8963846a589e0938c0c3 (diff) | |
| download | ppe42-gcc-231e961a9a50ce102e447163c26f978c313c95ee.tar.gz ppe42-gcc-231e961a9a50ce102e447163c26f978c313c95ee.zip | |
* array.c, data.c, decl.c, dependency.c, error.c, f95-lang.c,
interface.c, intrinsic.c, io.c, misc.c, module.c, parse.h,
resolve.c, scanner.c, trans-array.c, trans-array.h,
trans-common.c, trans-const.h, trans-decl.c, trans-expr.c,
trans-intrinsic.c, trans-stmt.c, trans-types.c, trans.c,
trans.h: Fix comment typos. Follow spelling conventions.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@87605 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-common.c')
| -rw-r--r-- | gcc/fortran/trans-common.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index 3f83d2e9d26..38e813ec567 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -23,7 +23,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA way to build UNION_TYPE is borrowed from Richard Henderson. Transform common blocks. An integral part of this is processing - equvalence variables. Equivalenced variables that are not in a + equivalence variables. Equivalenced variables that are not in a common block end up in a private block of their own. Each common block or local equivalence list is declared as a union. @@ -400,7 +400,7 @@ create_common (gfc_common_head *com) if (s->offset < offset) { /* We have overlapping initializers. It could either be - partially initilalized arrays (legal), or the user + partially initialized arrays (legal), or the user specified multiple initial values (illegal). We don't implement this yet, so bail out. */ gfc_todo_error ("Initialization of overlapping variables"); @@ -743,7 +743,7 @@ finish_equivalences (gfc_namespace *ns) sym = z->expr->symtree->n.sym; current_segment = get_segment_info (sym, 0); - /* All objects directly or indrectly equivalenced with this symbol. */ + /* All objects directly or indirectly equivalenced with this symbol. */ add_equivalences (); /* Calculate the minimal offset. */ |
