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

[ubizjak at gmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=48926

Uros Bizjak <ubizjak at gmail dot com> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
         AssignedTo|unassigned at gcc dot       |ubizjak at gmail dot com
                   |gnu.org                     |
   Target Milestone|---                         |4.7.0

--- Comment #11 from Uros Bizjak <ubizjak at gmail dot com> 2011-07-09 16:36:32 
UTC ---
Patch in testing:

--cut here--
Index: gfortran.h
===================================================================
--- gfortran.h    (revision 176079)
+++ 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 *);

Index: expr.c
===================================================================
--- expr.c    (revision 176079)
+++ expr.c    (working copy)
@@ -4143,7 +4143,7 @@
 }


-bool
+int
 gfc_get_corank (gfc_expr *e)
 {
   int corank;
--cut here--