[Bug fortran/21177] wrong code with NULL()

[fxcoudert at gcc dot gnu dot org]

------- 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