[Bug fortran/83622] [8 Regression] Wrong code with derived type and -fopenmp

[anlauf at gmx dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83622

--- Comment #5 from Harald Anlauf <anlauf at gmx dot de> ---
trans-array.c has:

/* Returns true if the expression is an array pointer.  */

static bool
is_pointer_array (tree expr)
{
  if (flag_openmp)
    return false;

[...]

Is there a reason behind this?