diff options
| author | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-21 19:17:08 +0000 |
|---|---|---|
| committer | rwild <rwild@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-07-21 19:17:08 +0000 |
| commit | 69b1505f5fdaa435f14b4c1ed7b9f715e3ee73b2 (patch) | |
| tree | b4aa45858530c5447d03da6b7e211c2d414973d2 /gcc/fortran/array.c | |
| parent | cf695b54e6582d0d2785417d6a1101d2674542e8 (diff) | |
gcc/testsuite/
* gfortran.dg/fmt_g0_3.f08: Fix typo in expected error message.
gcc/fortran/
* expr.c (gfc_check_pointer_assign): Fix typo in string.
* io.c (check_format): Fix typo in string. Fix comment typos.
* parse.c (gfc_global_used): Likewise.
* resolve.c (resolve_allocate_expr): Likewise.
* symbol.c (gfc_set_default_type): Likewise.
* arith.c: Fix typos in comments.
* array.c: Likewise.
* data.c: Likewise.
* decl.c: Likewise.
* dependency.c: Likewise.
* f95-lang.c: Likewise.
* gfortran.h: Likewise.
* matchexp.c: Likewise.
* module.c: Likewise.
* primary.c: Likewise.
* scanner.c: Likewise.
* trans-array.c: Likewise.
* trans-common.c: Likewise.
* trans-decl.c: Likewise.
* trans-expr.c: Likewise.
* trans-intrinsic.c: Likewise.
* trans-types.c: Likewise.
* trans.c: Likewise.
* trans.h: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138040 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index ab9e42842fd5..7216d1f472e4 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -1577,7 +1577,7 @@ resolve_array_list (gfc_constructor *p) } /* Resolve character array constructor. If it has a specified constant character - length, pad/trunkate the elements here; if the length is not specified and + length, pad/truncate the elements here; if the length is not specified and all elements are of compile-time known length, emit an error as this is invalid. */ @@ -1675,7 +1675,7 @@ got_charlen: max_length only if they pass. */ gfc_extract_int (expr->ts.cl->length, &found_length); - /* Now pad/trunkate the elements accordingly to the specified character + /* Now pad/truncate the elements accordingly to the specified character length. This is ok inside this conditional, as in the case above (without typespec) all elements are verified to have the same length anyway. */ |