diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-05-30 08:26:09 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-05-30 08:26:09 +0200 |
| commit | eea58adb130013762b585f149c2dfaddb2072818 (patch) | |
| tree | 9bfa6519970c4abc5a0985c4591c2340cd3eb151 /gcc/fortran/expr.c | |
| parent | fa95aa254783764ed1969f1ea937ddb198bb360f (diff) | |
| download | gcc-eea58adb130013762b585f149c2dfaddb2072818.zip gcc-eea58adb130013762b585f149c2dfaddb2072818.tar.gz gcc-eea58adb130013762b585f149c2dfaddb2072818.tar.bz2 | |
decl.c: Fix comment typos.
2012-05-30 Tobias Burnus <burnus@net-b.de>
* decl.c: Fix comment typos.
* expr.c: Ditto.
* frontend-passes.c: Ditto.
* match.c: Ditto.
* resolve.c: Ditto.
* trans-array.c: Ditto.
* trans-common.c: Ditto.
* trans-intrinsic.c: Ditto.
* trans-types.c: Ditto.
2012-05-30 Tobias Burnus <burnus@net-b.de>
* io/io.h: Fix comment typos.
* io/list_read.c: Ditto.
From-SVN: r188000
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 93d5df6..bde62d5 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -711,7 +711,7 @@ gfc_copy_shape (mpz_t *shape, int rank) /* Copy a shape array excluding dimension N, where N is an integer - constant expression. Dimensions are numbered in fortran style -- + constant expression. Dimensions are numbered in Fortran style -- starting with ONE. So, if the original shape array contains R elements @@ -4405,7 +4405,7 @@ gfc_has_ultimate_pointer (gfc_expr *e) /* Check whether an expression is "simply contiguous", cf. F2008, 6.5.4. Note: A scalar is not regarded as "simply contiguous" by the standard. - if bool is not strict, some futher checks are done - for instance, + if bool is not strict, some further checks are done - for instance, a "(::1)" is accepted. */ bool @@ -4482,7 +4482,7 @@ gfc_is_simply_contiguous (gfc_expr *expr, bool strict) return false; /* Following the standard, "(::1)" or - if known at compile time - - "(lbound:ubound)" are not simply contigous; if strict + "(lbound:ubound)" are not simply contiguous; if strict is false, they are regarded as simply contiguous. */ if (ar->stride[i] && (strict || ar->stride[i]->expr_type != EXPR_CONSTANT || ar->stride[i]->ts.type != BT_INTEGER |