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

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

From-SVN: r176088

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index fef19449436ec8b1c8df78052e2130e32f048144..484315f9c99a770ae8f4d1815dbd2fdca1a52de6 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index 6dcfda1e53abee8a1b42dad043b5ec42f13e621d..6db08366f7d631cf13736aef5bb366a05190fa9f 100644 (file)
--- a/gcc/fortran/expr.c
+++ b/gcc/fortran/expr.c
@@ -4143,7 +4143,7 @@ gfc_is_coindexed (gfc_expr *e)
 }
 
 
-bool
+int
 gfc_get_corank (gfc_expr *e)
 {
   int corank;

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 2eb497a20620ab9fe380fd1c3af8df4917875f98..328dfbea1b7d5db59fc9871a8554a656e861d9c1 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/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 *);