OSDN Git Service

PR fortran/48926
authoruros <uros@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 9 Jul 2011 17:35:44 +0000 (17:35 +0000)
committeruros <uros@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 9 Jul 2011 17:35:44 +0000 (17:35 +0000)
* 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

gcc/fortran/ChangeLog
gcc/fortran/expr.c
gcc/fortran/gfortran.h

index fef1944..484315f 100644 (file)
@@ -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
index 6dcfda1..6db0836 100644 (file)
@@ -4143,7 +4143,7 @@ gfc_is_coindexed (gfc_expr *e)
 }
 
 
-bool
+int
 gfc_get_corank (gfc_expr *e)
 {
   int corank;
index 2eb497a..328dfbe 100644 (file)
@@ -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 *);