/* Specific implementation of the PACK intrinsic
- Copyright (C) 2002-2014 Free Software Foundation, Inc.
+ Copyright (C) 2002-2024 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
This file is part of the GNU Fortran runtime library (libgfortran).
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
-#include <assert.h>
#include <string.h>
dim = GFC_DESCRIPTOR_RANK (array);
+ sstride[0] = 0; /* Avoid warnings if not initialized. */
+ mstride[0] = 0;
+
mptr = mask->base_addr;
/* Use the same loop for all logical types, by using GFC_LOGICAL_1