https://gcc.gnu.org/bugzilla/show_bug.cgi?id=101123
Dominique d'Humieres <dominiq at lps dot ens.fr> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|NEW |WAITING --- Comment #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- I think this PR should be closed as invalid. When using -fdefault_*, it is the user's responsibility to check that the promotion is compatible with procedure arguments: MAX0 is expecting INTEGER(4) and is given INTEGER(8). The code compiles if MAX0 is replaced with the generic function MAX.