*** values.c	Tue Jan 29 03:08:26 2002
--- values.c	Thu Oct 17 12:21:26 2002
*************** allocate_value (struct type *type)
*** 81,88 ****
  {
    struct value *val;
    struct type *atype = check_typedef (type);
! 
!   val = (struct value *) xmalloc (sizeof (struct value) + TYPE_LENGTH (atype));
    VALUE_NEXT (val) = all_values;
    all_values = val;
    VALUE_TYPE (val) = type;
--- 81,93 ----
  {
    struct value *val;
    struct type *atype = check_typedef (type);
!   if (((int) TYPE_LENGTH(atype)) < 0) {
!     				/* a silly fortran problem - the
! 				   unspecified array dimension
! 				   issue.. */
!     val = (struct value *) xmalloc (sizeof (struct value) - TYPE_LENGTH (atype));}
!   else {
!     val = (struct value *) xmalloc (sizeof (struct value) + TYPE_LENGTH (atype));}
    VALUE_NEXT (val) = all_values;
    all_values = val;
    VALUE_TYPE (val) = type;