diff options
Diffstat (limited to 'gcc/fortran/check.cc')
| -rw-r--r-- | gcc/fortran/check.cc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/check.cc b/gcc/fortran/check.cc index b348bda..3dd1711 100644 --- a/gcc/fortran/check.cc +++ b/gcc/fortran/check.cc @@ -1156,23 +1156,23 @@ dim_rank_check (gfc_expr *dim, gfc_expr *array, int allow_assumed) dimension bi, returning 0 if they are known not to be identical, and 1 if they are identical, or if this cannot be determined. */ -static int +static bool identical_dimen_shape (gfc_expr *a, int ai, gfc_expr *b, int bi) { mpz_t a_size, b_size; - int ret; + bool ret; gcc_assert (a->rank > ai); gcc_assert (b->rank > bi); - ret = 1; + ret = true; if (gfc_array_dimen_size (a, ai, &a_size)) { if (gfc_array_dimen_size (b, bi, &b_size)) { if (mpz_cmp (a_size, b_size) != 0) - ret = 0; + ret = false; mpz_clear (b_size); } |