[Bug fortran/84924] Erroneous error in C_F_POINTER
johnsonsr at ornl dot gov
gcc-bugzilla@gcc.gnu.org
Fri Mar 23 13:24:00 GMT 2018
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);
More information about the Gcc-bugs
mailing list