gcc/fortran/ChangeLog:
* match.cc (gfc_match_equivalence): Rename TRUE/FALSE to true/false.
* module.cc (check_access): Ditto.
* primary.cc (match_real_constant): Ditto.
* trans-array.cc (gfc_trans_allocate_array_storage): Ditto.
(get_array_ctor_strlen): Ditto.
* trans-common.cc (find_equivalence): Ditto.
(add_equivalences): Ditto.
goto syntax;
set = eq;
- common_flag = FALSE;
+ common_flag = false;
cnt = 0;
for (;;)
if (sym->attr.in_common)
{
- common_flag = TRUE;
+ common_flag = true;
common_head = sym->common_head;
}
return true;
if (specific_access == ACCESS_PUBLIC)
- return TRUE;
+ return true;
if (specific_access == ACCESS_PRIVATE)
- return FALSE;
+ return false;
if (flag_module_private)
return default_access == ACCESS_PUBLIC;
seen_dp = 0;
seen_digits = 0;
exp_char = ' ';
- negate = FALSE;
+ negate = false;
c = gfc_next_ascii_char ();
if (signflag && (c == '+' || c == '-'))
{
if (c == '-')
- negate = TRUE;
+ negate = true;
gfc_gobble_whitespace ();
c = gfc_next_ascii_char ();
{
/* A callee allocated array. */
gfc_conv_descriptor_data_set (pre, desc, null_pointer_node);
- onstack = FALSE;
+ onstack = false;
}
else
{
gfc_constructor *c;
bool is_const;
- is_const = TRUE;
+ is_const = true;
if (gfc_constructor_first (base) == NULL)
{
gfc_equiv *e1, *e2, *eq;
bool found;
- found = FALSE;
+ found = false;
for (e1 = n->sym->ns->equiv; e1; e1 = e1->next)
{
{
add_condition (n, eq, e2);
e2->used = 1;
- found = TRUE;
+ found = true;
}
}
}
add_equivalences (bool *saw_equiv)
{
segment_info *f;
- bool more = TRUE;
+ bool more = true;
while (more)
{
- more = FALSE;
+ more = false;
for (f = current_segment; f; f = f->next)
{
if (!f->sym->equiv_built)