diff options
| author | Kazu Hirata <kazu@cs.umass.edu> | 2004-11-08 14:56:41 +0000 |
|---|---|---|
| committer | Kazu Hirata <kazu@gcc.gnu.org> | 2004-11-08 14:56:41 +0000 |
| commit | f7b529fae761c8603888bee76614147954754e75 (patch) | |
| tree | bf128e11ba70bddbb7f8b8beb206603bd3c66ad5 /gcc/fortran/f95-lang.c | |
| parent | 03fd3f84d88fb235f16093b9da6e91e6f4a7c253 (diff) | |
| download | gcc-f7b529fae761c8603888bee76614147954754e75.zip gcc-f7b529fae761c8603888bee76614147954754e75.tar.gz gcc-f7b529fae761c8603888bee76614147954754e75.tar.bz2 | |
arith.c, [...]: Fix comment formatting.
* arith.c, array.c, decl.c, expr.c, f95-lang.c, gfortran.h,
gfortranspec.c, interface.c, intrinsic.c, iresolve.c, match.c,
module.c, parse.c, parse.h, primary.c, resolve.c, scanner.c,
trans-array.c, trans-array.h, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans.h: Fix comment formatting.
From-SVN: r90266
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index 5c556de..2ccca09 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -341,7 +341,7 @@ GTY(()) /* For each level (except the global one), a chain of BLOCK nodes for all the levels that were entered and exited one level down from this one. */ tree blocks; - /* The binding level containing this one (the enclosing binding level). */ + /* The binding level containing this one (the enclosing binding level). */ struct binding_level *level_chain; }; @@ -436,7 +436,7 @@ poplevel (int keep, int reverse, int functionbody) subblock_node = TREE_CHAIN (subblock_node)) if (DECL_NAME (subblock_node) != 0) /* If the identifier was used or addressed via a local extern decl, - don't forget that fact. */ + don't forget that fact. */ if (DECL_EXTERNAL (subblock_node)) { if (TREE_USED (subblock_node)) @@ -489,7 +489,7 @@ insert_block (tree block) } /* Records a ..._DECL node DECL as belonging to the current lexical scope. - Returns the ..._DECL node. */ + Returns the ..._DECL node. */ tree pushdecl (tree decl) @@ -507,7 +507,7 @@ pushdecl (tree decl) TREE_CHAIN (decl) = current_binding_level->names; current_binding_level->names = decl; - /* For the declartion of a type, set its name if it is not already set. */ + /* For the declartion of a type, set its name if it is not already set. */ if (TREE_CODE (decl) == TYPE_DECL && TYPE_NAME (TREE_TYPE (decl)) == 0) { @@ -575,7 +575,7 @@ gfc_init_decl_processing (void) /* Build common tree nodes. char_type_node is unsigned because we only use it for actual characters, not for INTEGER(1). Also, we - want double_type_node to actually have double precision. */ + want double_type_node to actually have double precision. */ build_common_tree_nodes (false, false); set_sizetype (long_unsigned_type_node); build_common_tree_nodes_2 (0); |