`/* Implementation of the PRODUCT intrinsic
- Copyright 2002, 2007, 2009 Free Software Foundation, Inc.
+ Copyright (C) 2002-2023 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org>
-This file is part of the GNU Fortran 95 runtime library (libgfortran).
+This file is part of the GNU Fortran runtime library (libgfortran).
Libgfortran is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
-#include "libgfortran.h"
-#include <stdlib.h>
-#include <assert.h>'
+#include "libgfortran.h"'
include(iparm.m4)dnl
include(ifunction.m4)dnl
ARRAY_FUNCTION(1,
` result = 1;',
-` result *= *src;')
+` result *= *src;', `')
MASKED_ARRAY_FUNCTION(1,
` result = 1;',