Re: [PATCH 8/8] OpenMP: Fortran "!$omp declare mapper" support

[Bernhard Reutner-Fischer via Fortran]

On Tue, 5 Sep 2023 12:28:28 -0700
Julian Brown <jul...@codesourcery.com> wrote:

> +  static bool
> +  equal (const omp_name_type<gfc_typespec *> &a,
> +      const omp_name_type<gfc_typespec *> &b)
> +  {
> +    if (a.name == NULL_TREE && b.name == NULL_TREE)
> +      return a.type == b.type;

I'm curious if (and why) the type comparison above is safe and does not
use gfc_compare_types () ?

thanks,

> +    else if (a.name == NULL_TREE || b.name == NULL_TREE)
> +      return false;
> +    else
> +      return a.name == b.name && gfc_compare_types (a.type, b.type);
> +  }