diff options
| author | kazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-08 14:56:41 +0000 |
|---|---|---|
| committer | kazu <kazu@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-11-08 14:56:41 +0000 |
| commit | b14e2757acd28c7edeeaf2bf64d061563ab11606 (patch) | |
| tree | bf128e11ba70bddbb7f8b8beb206603bd3c66ad5 /gcc/fortran/trans-io.c | |
| parent | 9352387785a00ec248f7b1134856ba4d91ecd048 (diff) | |
| download | gcc-b14e2757acd28c7edeeaf2bf64d061563ab11606.tar.gz | |
* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@90266 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index ada82976043..d5e8df6d2df 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -135,7 +135,7 @@ static GTY(()) tree iocall_set_nml_val_log; /* Variable for keeping track of what the last data transfer statement was. Used for deciding which subroutine to call when the data - transfer is complete. */ + transfer is complete. */ static enum { READ, WRITE, IOLENGTH } last_dt; #define ADD_FIELD(name, type) \ @@ -166,7 +166,7 @@ gfc_build_io_library_fndecls (void) /* Build the st_parameter structure. Information associated with I/O calls are transferred here. This must match the one defined in the - library exactly. */ + library exactly. */ ioparm_type = make_node (RECORD_TYPE); TYPE_NAME (ioparm_type) = get_identifier ("_gfc_ioparm"); @@ -857,7 +857,7 @@ get_new_var_expr(gfc_symbol * sym) Note that the first output field appears after the name of the variable, not of the field name. This causes a little complication - documented below. */ + documented below. */ static void transfer_namelist_element (stmtblock_t * block, gfc_typespec * ts, tree addr_expr, @@ -890,7 +890,7 @@ transfer_namelist_element (stmtblock_t * block, gfc_typespec * ts, tree addr_exp derived type variable. All other fields are anonymous and appear with nulls in their string and string_length fields. After the first use, we set string and - string_length to null. */ + string_length to null. */ string = null_pointer_node; string_length = integer_zero_node; } @@ -1190,7 +1190,7 @@ transfer_array_component (tree expr, gfc_component * cm) mpz_add_ui (ss->shape[n], ss->shape[n], 1); } - /* Once we got ss, we use scalarizer to create the loop. */ + /* Once we got ss, we use scalarizer to create the loop. */ gfc_init_loopinfo (&loop); gfc_add_ss_to_loop (&loop, ss); @@ -1212,7 +1212,7 @@ transfer_array_component (tree expr, gfc_component * cm) transfer_expr (&se, &cm->ts, tmp); /* We are done now with the loop body. Wrap up the scalarizer and - return. */ + return. */ gfc_add_block_to_block (&body, &se.pre); gfc_add_block_to_block (&body, &se.post); |