[PATCH, fortran]: Fix PR 48926, gfortran.dg/coarray/image_index_1.f90 -fcoarray=single -O2 (test for excess errors)

[Uros Bizjak]

Hello!

gfc_get_corank returns integer value, not bool.  This problem was
triggered by --enable-build-with-cxx configured build.

2011-07-09  Uros Bizjak  <ubiz...@gmail.com>

        PR fortran/48926
        * expr.c (gfc_get_corank): Change return value to int.
        * gfortran.h (gfc_get_corank): Update function prototype.

Patch was regression tested on x86_64-pc-linux-gnu {,-m32} with
--enable-build-with-cxx.

Approved by Tobias Burnus in the PR. Patch was committed to mainline,
will be committed to 4.6 branch soon.

Uros.

Index: expr.c
===================================================================
--- expr.c      (revision 176083)
+++ expr.c      (working copy)
@@ -4143,7 +4143,7 @@
 }
 
 
-bool
+int
 gfc_get_corank (gfc_expr *e)
 {
   int corank;
Index: gfortran.h
===================================================================
--- gfortran.h  (revision 176083)
+++ gfortran.h  (working copy)
@@ -2734,7 +2734,7 @@
 bool gfc_is_proc_ptr_comp (gfc_expr *, gfc_component **);
 
 bool gfc_is_coindexed (gfc_expr *);
-bool gfc_get_corank (gfc_expr *);
+int gfc_get_corank (gfc_expr *);
 bool gfc_has_ultimate_allocatable (gfc_expr *);
 bool gfc_has_ultimate_pointer (gfc_expr *);