[Bug fortran/84924] Erroneous error in C_F_POINTER

[johnsonsr at ornl dot gov]

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