Update copyright years.

[thirdparty/gcc.git] / libgfortran / generated / parity_l1.c

diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c
index 011c9c8a65dfb610ea0cfeadce6bcbc2bf21edcf..e8ee6bd3baca0211dd7e2cc947a929c2355a0f8c 100644 (file)
--- a/libgfortran/generated/parity_l1.c
+++ b/libgfortran/generated/parity_l1.c
@@ -1,5 +1,5 @@
 /* Implementation of the PARITY intrinsic
-   Copyright (C) 2010-2018 Free Software Foundation, Inc.
+   Copyright (C) 2010-2023 Free Software Foundation, Inc.
    Contributed by Tobias Burnus  <burnus@net-b.de>
 
 This file is part of the GNU Fortran runtime library (libgfortran).
@@ -100,7 +100,7 @@ parity_l1 (gfc_array_l1 * const restrict retarray,
        }
 
       retarray->offset = 0;
-      retarray->dtype = (array->dtype & ~GFC_DTYPE_RANK_MASK) | rank;
+      retarray->dtype.rank = rank;
 
       alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
 
@@ -150,8 +150,10 @@ parity_l1 (gfc_array_l1 * const restrict retarray,
          *dest = 0;
        else
          {
+#if ! defined HAVE_BACK_ARG
            for (n = 0; n < len; n++, src += delta)
              {
+#endif
 
   result = result != *src;
              }