From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 3741 invoked by alias); 27 Jan 2007 13:24:57 -0000 Received: (qmail 3704 invoked by uid 48); 27 Jan 2007 13:24:48 -0000 Date: Sat, 27 Jan 2007 13:24:00 -0000 Message-ID: <20070127132448.3703.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/30512] MAXVAL() incorrect for zero-size int arrays, and for -HUGE-1 maximum values. In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "tkoenig at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2007-01/txt/msg02344.txt.bz2 ------- Comment #6 from tkoenig at gcc dot gnu dot org 2007-01-27 13:24 ------- Here's a patch for the m4 part: Index: m4/iparm.m4 =================================================================== --- m4/iparm.m4 (revision 121230) +++ m4/iparm.m4 (working copy) @@ -28,6 +28,6 @@ define_type(rtype, rtype_tmp)dnl define(rtype_qual,`_'rtype_kind)dnl ')dnl define(atype_max, atype_name`_HUGE')dnl -define(atype_min, `-'atype_max)dnl +define(atype_min,ifelse(rtype_letter,`i',`(-'atype_max`-1)',`-'atype_max))dnl define(name, regexp(regexp(file, `[^/]*$', `\&'), `^\([^_]*\)_', `\1'))dnl define(rtype_ccode,ifelse(rtype_letter,`i',rtype_kind,rtype_code))dnl -- tkoenig at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |tkoenig at gcc dot gnu dot | |org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30512