[Bug fortran/58989] [Regression] internal compiler error when using reshape function

[sgk at troutmask dot apl.washington.edu]

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

--- Comment #2 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Mon, Nov 04, 2013 at 09:40:39PM +0000, kargl at gcc dot gnu.org wrote:
> http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58989
> 
> kargl at gcc dot gnu.org changed:
> 
>            What    |Removed                     |Added
> ----------------------------------------------------------------------------
>              Status|UNCONFIRMED                 |NEW
>    Last reconfirmed|                            |2013-11-04
>                  CC|                            |kargl at gcc dot gnu.org
>       Known to work|                            |4.2.5, 4.3.6, 4.4.7
>             Summary|internal compiler error     |[Regression] internal
>                    |when using reshape function |compiler error when using
>                    |                            |reshape function
>      Ever confirmed|0                           |1
>       Known to fail|                            |4.5.4, 4.6.4, 4.7.4, 4.8.2,
>                    |                            |4.9.0
> 
> --- Comment #1 from kargl at gcc dot gnu.org ---
> Confirmed.
> 

This appears to fix the issue.  I'm running the testsuite
now.


Index: check.c
===================================================================
--- check.c    (revision 204372)
+++ check.c    (working copy)
@@ -3277,7 +3277,7 @@ gfc_check_reshape (gfc_expr *source, gfc
          "than %d elements", &shape->where, GFC_MAX_DIMENSIONS);
       return false;
     }
-  else if (shape->expr_type == EXPR_ARRAY)
+  else if (shape->expr_type == EXPR_ARRAY && gfc_is_constant_expr (shape))
     {
       gfc_expr *e;
       int i, extent;