fma3d broken, ICE in check_rest

[Richard Guenther]

We segfault compiling SPEC2k fma3d in snprintf here:

#4  0x0000000000410529 in check_rest (type=BT_REAL, kind=8, arg=0x11e9850)
    at /gcc/spec/sb-vangelis-head-64/gcc/gcc/fortran/check.c:1521
1521          snprintf (buffer, 80, "arguments '%s' and '%s' for
intrinsic '%s'",
(gdb) list
1516                             gfc_basic_typename (type), kind);
1517                  return FAILURE;
1518                }
1519            }
1520
1521          snprintf (buffer, 80, "arguments '%s' and '%s' for
intrinsic '%s'",
1522                    gfc_current_intrinsic_arg[0],
gfc_current_intrinsic_arg[n-1],
1523                    gfc_current_intrinsic);
1524          if (gfc_check_conformance (buffer, first_arg, x) == FAILURE)
1525            return FAILURE;
(gdb) print gfc_current_intrinsic_arg
$1 = {0xcbe820 "a1", 0xcbe890 "a2", 0xcbd010 "back", 0x0, 0x0}
(gdb) print n-1
$2 = 13
(gdb) print gfc_current_intrinsic
$3 = 0xc978f5 "max"

because we pass garbage to it.  This is a recent failure from about two
days ago, very likely caused by

2007-05-15  Daniel Franke  <franke.daniel@gmail.com>

        PR fortran/31919
        PR fortran/31929
        PR fortran/31930
        * intrinsic.c (check_specific): Check elemental intrinsics for
        rank and shape.
        (add_functions): Fixed dummy argument names of BESJN and BESYN.
        Fixed elemental status of MCLOCK and MCLOCK8.
        * check.c (check_rest): Added check for array conformance.
        (gfc_check_merge): Removed check for array conformance.
        (gfc_check_besn): Removed check for scalarity.
        * intrinsic.texi (CSHIFT, EOSHIFT): Fixed typos.
        (BESJN, BESYN): Clarified documentation.

FYI

Thanks,
Richard.