https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84924
--- Comment #5 from Seth Johnson <johnsonsr at ornl dot gov> --- That looks perfect, thank you for looking into this. (In reply to Dominique d'Humieres from comment #4) > Is the following patch OK? > > return false; > } > > - if (!is_c_interoperable (fptr, &msg, false, true)) > + if (fptr->rank > 0 && !is_c_interoperable (fptr, &msg, false, true)) > return gfc_notify_std (GFC_STD_F2008_TS, "Noninteroperable array FPTR " > "at %L to C_F_POINTER: %s", &fptr->where, msg);