PR fortran/48926

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



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@176088 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 1 insertions, 1 deletions

diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c
index 6dcfda1e53ab..6db08366f7d6 100644
--- 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;