------- Additional Comments From fxcoudert at gcc dot gnu dot org 2005-04-24 13:06 ------- Found a patch (after a good night's sleep, it seemed to easy!):
Instead of if (actual->expr_type != EXPR_NULL && !gfc_compare_types (&formal->ts, &actual->ts)) return 0; we need to use if ((actual->expr_type != EXPR_NULL || actual->ts.type != BT_UNKNOWN) && !gfc_compare_types (&formal->ts, &actual->ts)) return 0; I'm regtesting it right now, and will post it in good form on monday (internet dial-up access problems). -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21177