re PR fortran/48926 (gfortran.dg/coarray/image_index_1.f90 -fcoarray=single -O2…

re PR fortran/48926 (gfortran.dg/coarray/image_index_1.f90 -fcoarray=single  -O2  (test for excess errors))

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

From-SVN: r176088

gcc/fortran/ChangeLog

+2011-07-09  Uros Bizjak  <ubizjak@gmail.com>
+
+	PR fortran/48926
+	* expr.c (gfc_get_corank): Change return value to int.
+	* gfortran.h (gfc_get_corank): Update function prototype.
+
 2011-07-07  Mikael Morin  <mikael.morin@sfr.fr>
 
 	PR fortran/49648
@@ -12,7 +18,7 @@
 2011-07-06  Daniel Carrera <dcarrera@gmail.com>
 
 	* trans-array.c (gfc_array_allocate): Rename allocatable_array to
-	allocatable. Rename function gfc_allocate_array_with_status to 
+	allocatable. Rename function gfc_allocate_array_with_status to
 	gfc_allocate_allocatable_with_status. Update function call for
 	gfc_allocate_with_status.
 	* trans-opemp.c (gfc_omp_clause_default_ctor): Rename function

gcc/fortran/expr.c

@@ -4143,7 +4143,7 @@ gfc_is_coindexed (gfc_expr *e)
 }
 
 
-bool
+int
 gfc_get_corank (gfc_expr *e)
 {
   int corank;

gcc/fortran/gfortran.h

@@ -2734,7 +2734,7 @@ void gfc_expr_replace_comp (gfc_expr *, gfc_component *);
 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 *);