2009/5/18 Janus Weil <ja...@gcc.gnu.org>: > 2009/5/18 Tobias Burnus <bur...@net-b.de>: >> Can you try whether the following patch works? If so, you can >> commit it as obvious. (I cannot test/commit it until this evening.) >> >> Tobias >> >> Index: intrinsic.c >> =================================================================== >> --- intrinsic.c (revision 147659) >> +++ intrinsic.c (working copy) >> @@ -303,7 +303,7 @@ >> type = (bt) va_arg (argp, int); >> kind = va_arg (argp, int); >> optional = va_arg (argp, int); >> - intent = va_arg (argp, int); >> + intent = (sym_intent) va_arg (argp, int); >> >> if (sizing != SZ_NOTHING) >> nargs++; > > This seems to work. I will commit it.
Sending gcc/fortran/ChangeLog Sending gcc/fortran/intrinsic.c Transmitting file data .. Committed revision 147662.
