/* Specific implementation of the UNPACK intrinsic
- Copyright (C) 2008-2014 Free Software Foundation, Inc.
+ Copyright (C) 2008-2024 Free Software Foundation, Inc.
Contributed by Thomas Koenig <tkoenig@gcc.gnu.org>, based on
unpack_generic.c by Paul Brook <paul@nowt.org>.
<http://www.gnu.org/licenses/>. */
#include "libgfortran.h"
-#include <stdlib.h>
-#include <assert.h>
#include <string.h>
else
runtime_error ("Funny sized logical array");
+ /* Initialize to avoid -Wmaybe-uninitialized complaints. */
+ rstride[0] = 1;
if (ret->base_addr == NULL)
{
/* The front end has signalled that we need to populate the
else
{
dim = GFC_DESCRIPTOR_RANK (ret);
- /* Initialize to avoid -Wmaybe-uninitialized complaints. */
- rstride[0] = 1;
for (n = 0; n < dim; n++)
{
count[n] = 0;
else
runtime_error ("Funny sized logical array");
+ /* Initialize to avoid -Wmaybe-uninitialized complaints. */
+ rstride[0] = 1;
if (ret->base_addr == NULL)
{
/* The front end has signalled that we need to populate the
else
{
dim = GFC_DESCRIPTOR_RANK (ret);
- /* Initialize to avoid -Wmaybe-uninitialized complaints. */
- rstride[0] = 1;
for (n = 0; n < dim; n++)
{
count[n] = 0;