OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-types.c (gfc_real16_is_float128): Fix spelling in a comment. 

2012-07-25  Tobias Burnus  <burnus@net-b.de>

        * trans-types.c (gfc_real16_is_float128): Fix spelling
        in a comment.
        * trans.h (struct gfc_array_info): Ditto.
        * gfortran.h (gfc_expr): Ditto.
        * simplify.c (gfc_count): Ditto.
        * trans-expr.c (gfc_copy_class_to_class,
        conv_parent_component_references,
        gfc_trans_pointer_assignment): Ditto.
        * expr.c (check_pointer_assign): Fix diagnostic spelling.
        * interface.c (compare_parameter): Ditto.
        * parse.c (use_modules, parse_associate): Ditto.
        * decl.c (match_char_length): Fix spelling of the
        an function argument.

From-SVN: r189859
This commit is contained in:
Tobias Burnus 2012-07-25 20:04:25 +02:00 committed by Tobias Burnus
parent a35c9beff6
commit 62732c3044
11 changed files with 31 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gcc/fortran/ChangeLog
View File

@ -1,3 +1,19 @@
2012-07-25 Tobias Burnus <burnus@net-b.de>
* trans-types.c (gfc_real16_is_float128): Fix spelling
in a comment.
* trans.h (struct gfc_array_info): Ditto.
* gfortran.h (gfc_expr): Ditto.
* simplify.c (gfc_count): Ditto.
* trans-expr.c (gfc_copy_class_to_class,
conv_parent_component_references,
gfc_trans_pointer_assignment): Ditto.
* expr.c (check_pointer_assign): Fix diagnostic spelling.
* interface.c (compare_parameter): Ditto.
* parse.c (use_modules, parse_associate): Ditto.
* decl.c (match_char_length): Fix spelling of the
an function argument.
2012-07-21 Tobias Burnus <burnus@net-b.de>
* iso-c-binding.def (C_PTRDIFF_T): New TS29113 parameter.

4
gcc/fortran/decl.c
View File

@ -732,7 +732,7 @@ syntax:
char_len_param_value in parenthesis. */
static match
match_char_length (gfc_expr **expr, bool *deferred, bool obsolenscent_check)
match_char_length (gfc_expr **expr, bool *deferred, bool obsolescent_check)
{
int length;
match m;
@ -748,7 +748,7 @@ match_char_length (gfc_expr **expr, bool *deferred, bool obsolenscent_check)
if (m == MATCH_YES)
{
if (obsolenscent_check
if (obsolescent_check
&& gfc_notify_std (GFC_STD_F95_OBS,
"Old-style character length at %C") == FAILURE)
return MATCH_ERROR;

2
gcc/fortran/expr.c
View File

@ -3449,7 +3449,7 @@ gfc_check_pointer_assign (gfc_expr *lvalue, gfc_expr *rvalue)
if (attr.elemental && !attr.intrinsic)
{
gfc_error ("Nonintrinsic elemental procedure '%s' is invalid "
"in procedure pointer assigment at %L",
"in procedure pointer assignment at %L",
rvalue->symtree->name, &rvalue->where);
return FAILURE;
}

2
gcc/fortran/gfortran.h
View File

@ -1710,7 +1710,7 @@ typedef struct gfc_expr
is not a variable. */
struct gfc_expr *base_expr;
/* is_boz is true if the integer is regarded as BOZ bitpatten and is_snan
/* is_boz is true if the integer is regarded as BOZ bit pattern and is_snan
denotes a signalling not-a-number. */
unsigned int is_boz : 1, is_snan : 1;

2
gcc/fortran/interface.c
View File

@ -1732,7 +1732,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
{
if (where)
gfc_error ("Actual argument to contiguous pointer dummy '%s' at %L "
"must be simply contigous", formal->name, &actual->where);
"must be simply contiguous", formal->name, &actual->where);
return 0;
}

6
gcc/fortran/parse.c
View File

@ -76,7 +76,7 @@ match_word (const char *str, match (*subr) (void), locus *old_locus)
}
/* Load symbols from all USE statements encounted in this scoping unit. */
/* Load symbols from all USE statements encountered in this scoping unit. */
static void
use_modules (void)
@ -3268,7 +3268,7 @@ parse_critical_block (void)
if (s.ext.end_do_label != NULL
&& s.ext.end_do_label != gfc_statement_label)
gfc_error_now ("Statement label in END CRITICAL at %C does not "
"match CRITIAL label");
"match CRITICAL label");
if (gfc_statement_label != NULL)
{
@ -3393,7 +3393,7 @@ parse_associate (void)
however, as it may only be set on the target during resolution.
Still, sometimes it helps to have it right now -- especially
for parsing component references on the associate-name
in case of assication to a derived-type. */
in case of association to a derived-type. */
sym->ts = a->target->ts;
}

2
gcc/fortran/simplify.c
View File

@ -419,7 +419,7 @@ typedef gfc_expr* (*transformational_op)(gfc_expr*, gfc_expr*);
/* Wrapper function, implements 'op1 += 1'. Only called if MASK
of COUNT intrinsic is .TRUE..
Interface and implimentation mimics arith functions as
Interface and implementation mimics arith functions as
gfc_add, gfc_multiply, etc. */
static gfc_expr* gfc_count (gfc_expr *op1, gfc_expr *op2)

6
gcc/fortran/trans-expr.c
View File

@ -464,7 +464,7 @@ gfc_get_class_array_ref (tree index, tree class_decl)
/* Copies one class expression to another, assuming that if either
'to' or 'from' are arrays they are packed. Should 'from' be
NULL_TREE, the inialization expression for 'to' is used, assuming
NULL_TREE, the initialization expression for 'to' is used, assuming
that the _vptr is set. */
tree
@ -1278,7 +1278,7 @@ gfc_conv_component_ref (gfc_se * se, gfc_ref * ref)
/* This function deals with component references to components of the
parent type for derived type extensons. */
parent type for derived type extensions. */
static void
conv_parent_component_references (gfc_se * se, gfc_ref * ref)
{
@ -6044,7 +6044,7 @@ gfc_trans_pointer_assignment (gfc_expr * expr1, gfc_expr * expr2)
/* Array pointer. Find the last reference on the LHS and if it is an
array section ref, we're dealing with bounds remapping. In this case,
set it to AR_FULL so that gfc_conv_expr_descriptor does
not see it and process the bounds remapping afterwards explicitely. */
not see it and process the bounds remapping afterwards explicitly. */
for (remap = expr1->ref; remap; remap = remap->next)
if (!remap->next && remap->type == REF_ARRAY
&& remap->u.ar.type == AR_SECTION)

2
gcc/fortran/trans-types.c
View File

@ -1272,7 +1272,7 @@ gfc_is_nodesc_array (gfc_symbol * sym)
return 0;
/* We want a descriptor for associate-name arrays that do not have an
explicitely known shape already. */
explicitly known shape already. */
if (sym->assoc && sym->as->type != AS_EXPLICIT)
return 0;

2
gcc/fortran/trans-types.h
View File

@ -40,7 +40,7 @@ extern GTY(()) tree complex_float128_type_node;
and runtime library. */
extern GTY(()) tree gfc_charlen_type_node;
/* The following flags give us information on the correspondance of
/* The following flags give us information on the correspondence of
real (and complex) kinds with C floating-point types long double
and __float128. */
extern bool gfc_real16_is_float128;

2
gcc/fortran/trans.h
View File

@ -109,7 +109,7 @@ typedef enum
gfc_coarray_type;
/* The array-specific scalarization informations. The array members of
/* The array-specific scalarization information. The array members of
this struct are indexed by actual array index, and thus can be sparse. */
typedef struct gfc_array_info