re PR fortran/30512 ([4.1 only] MAXVAL() incorrect for zero-size int arrays, and...

[thirdparty/gcc.git] / libgfortran / m4 / iparm.m4

diff --git a/libgfortran/m4/iparm.m4 b/libgfortran/m4/iparm.m4
index 950962113b05555a53552baa2eeb719c03acc8fa..acd3d2ce604bbaf3f0b2acd38dfa8a87914ed8d2 100644 (file)
--- a/libgfortran/m4/iparm.m4
+++ b/libgfortran/m4/iparm.m4
@@ -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(regexp(file, `_\(.\)[0-9]*\.c$', `\1'),`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