There are lots of (GNU extensions) intrinsics that are hardcoded as returning integer(kind=4) results, while it would make sense to have them return the default integer type. This is hardcoded both in the front-end (see for example gfc_resolve_getpid in iresolve.c) and the library (where the getpid function is declared as "extern GFC_INTEGER_4 PREFIX(getpid) (void)").
I take that back. We're working on a more global change for these things, so closing this as INVALID.