Index: array.c
===================================================================
*** array.c	(revision 124756)
--- array.c	(working copy)
*************** spec_dimen_size (gfc_array_spec *as, int
*** 1725,1731 ****
  
    if (as->type != AS_EXPLICIT
        || as->lower[dimen]->expr_type != EXPR_CONSTANT
!       || as->upper[dimen]->expr_type != EXPR_CONSTANT)
      return FAILURE;
  
    mpz_init (*result);
--- 1725,1733 ----
  
    if (as->type != AS_EXPLICIT
        || as->lower[dimen]->expr_type != EXPR_CONSTANT
!       || as->upper[dimen]->expr_type != EXPR_CONSTANT
!       || as->lower[dimen]->ts.type != BT_INTEGER
!       || as->upper[dimen]->ts.type != BT_INTEGER)
      return FAILURE;
  
    mpz_init (*result);