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/data.c | |
| parent | cf695b54e6582d0d2785417d6a1101d2674542e8 (diff) | |
| download | gcc-69b1505f5fdaa435f14b4c1ed7b9f715e3ee73b2.tar.gz | |
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/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 6cc7223af2f..bda448a8f56 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -23,7 +23,7 @@ along with GCC; see the file COPYING3. If not see /* Notes for DATA statement implementation: We first assign initial value to each symbol by gfc_assign_data_value - during resolveing DATA statement. Refer to check_data_variable and + during resolving DATA statement. Refer to check_data_variable and traverse_data_list in resolve.c. The complexity exists in the handling of array section, implied do @@ -144,7 +144,7 @@ find_con_by_component (gfc_component *com, gfc_constructor *con) /* Create a character type initialization expression from RVALUE. TS [and REF] describe [the substring of] the variable being initialized. - INIT is thh existing initializer, not NULL. Initialization is performed + INIT is the existing initializer, not NULL. Initialization is performed according to normal assignment rules. */ static gfc_expr * @@ -754,7 +754,7 @@ formalize_structure_cons (gfc_expr *expr) } -/* Make sure an initialization expression is in normalized form. Ie. all +/* Make sure an initialization expression is in normalized form, i.e., all elements of the constructors are in the correct order. */ static void |