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/trans-stmt.c | |
| parent | 03fd3f84d88fb235f16093b9da6e91e6f4a7c253 (diff) | |
| download | gcc-f7b529fae761c8603888bee76614147954754e75.tar.gz | |
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/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 501278aa909..a403693fc45 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1899,7 +1899,7 @@ gfc_trans_assign_need_temp (gfc_expr * expr1, gfc_expr * expr2, tree wheremask, type = gfc_typenode_for_spec (&expr1->ts); /* Allocate temporary for nested forall construct according to the - information in nested_forall_info and inner_size. */ + information in nested_forall_info and inner_size. */ tmp1 = allocate_temp_for_forall_nest (nested_forall_info, type, inner_size, block, &ptemp1); @@ -2348,7 +2348,7 @@ gfc_trans_forall_1 (gfc_code * code, forall_info * nested_forall_info) } /* Copy the mask into a temporary variable if required. - For now we assume a mask temporary is needed. */ + For now we assume a mask temporary is needed. */ if (code->expr) { /* Allocate the mask temporary. */ @@ -3025,7 +3025,7 @@ gfc_trans_where_2 (gfc_code * code, tree mask, tree pmask, /* As the WHERE or WHERE construct statement can be nested, we call gfc_trans_where_2 to do the translation, and pass the initial - NULL values for both the control mask and the pending control mask. */ + NULL values for both the control mask and the pending control mask. */ tree gfc_trans_where (gfc_code * code) |