1760c2415Smrg`/* Implementation of the ANY intrinsic
2*0bfacb9bSmrg   Copyright (C) 2002-2020 Free Software Foundation, Inc.
3760c2415Smrg   Contributed by Paul Brook <paul@nowt.org>
4760c2415Smrg
5760c2415SmrgThis file is part of the GNU Fortran runtime library (libgfortran).
6760c2415Smrg
7760c2415SmrgLibgfortran is free software; you can redistribute it and/or
8760c2415Smrgmodify it under the terms of the GNU General Public
9760c2415SmrgLicense as published by the Free Software Foundation; either
10760c2415Smrgversion 3 of the License, or (at your option) any later version.
11760c2415Smrg
12760c2415SmrgLibgfortran is distributed in the hope that it will be useful,
13760c2415Smrgbut WITHOUT ANY WARRANTY; without even the implied warranty of
14760c2415SmrgMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15760c2415SmrgGNU General Public License for more details.
16760c2415Smrg
17760c2415SmrgUnder Section 7 of GPL version 3, you are granted additional
18760c2415Smrgpermissions described in the GCC Runtime Library Exception, version
19760c2415Smrg3.1, as published by the Free Software Foundation.
20760c2415Smrg
21760c2415SmrgYou should have received a copy of the GNU General Public License and
22760c2415Smrga copy of the GCC Runtime Library Exception along with this program;
23760c2415Smrgsee the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
24760c2415Smrg<http://www.gnu.org/licenses/>.  */
25760c2415Smrg
26760c2415Smrg#include "libgfortran.h"'
27760c2415Smrg
28760c2415Smrginclude(iparm.m4)dnl
29760c2415Smrginclude(ifunction_logical.m4)dnl
30760c2415Smrg
31760c2415Smrg`#if defined (HAVE_'rtype_name`)'
32760c2415Smrg
33760c2415SmrgARRAY_FUNCTION(0,
34760c2415Smrg`  result = 0;',
35760c2415Smrg`  /* Return true if any of the elements are set.  */
36760c2415Smrg  if (*src)
37760c2415Smrg    {
38760c2415Smrg      result = 1;
39760c2415Smrg      break;
40760c2415Smrg    }', `')`
41760c2415Smrg
42760c2415Smrg#endif'
43