[PING][PATCH] Fortran: Add debug functions for OpenMP data structures

I would like to ping this patch that is rather trivial.

Thanks,

On 06/05/2026 20:12, Paul-Antoine Arras wrote:
> show_omp_namelist and show_omp_clauses cannot be called from GDB because
> dumpfile is NULL at debug time. Add debug wrappers that temporarily set it to
> stderr.
> 
> gcc/fortran/ChangeLog:
> 
> 	* dump-parse-tree.cc (debug): Add debug functions for gfc_omp_namelist
> 	and gfc_omp_clauses.
> ---
>   gcc/fortran/dump-parse-tree.cc | 22 ++++++++++++++++++++++
>   1 file changed, 22 insertions(+)
> 
> diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc
> index 028c946d2d9..4613aae7e36 100644
> --- a/gcc/fortran/dump-parse-tree.cc
> +++ b/gcc/fortran/dump-parse-tree.cc
> @@ -4714,3 +4714,25 @@ debug (gfc_array_ref *ar)
>     fputc ('\n', dumpfile);
>     dumpfile = tmp;
>   }
> +
> +/* Dump OpenMP data structures.  */
> +
> +DEBUG_FUNCTION void
> +debug (gfc_omp_namelist *n)
> +{
> +  FILE *tmp = dumpfile;
> +  dumpfile = stderr;
> +  show_omp_namelist (OMP_LIST_MAP, n);
> +  fputc ('\n', dumpfile);
> +  dumpfile = tmp;
> +}
> +
> +DEBUG_FUNCTION void
> +debug (gfc_omp_clauses *clauses)
> +{
> +  FILE *tmp = dumpfile;
> +  dumpfile = stderr;
> +  show_omp_clauses (clauses);
> +  fputc ('\n', dumpfile);
> +  dumpfile = tmp;
> +}


-- 
PA