1`/* Implementation of the MINVAL intrinsic
2   Copyright (C) 2002-2019 Free Software Foundation, Inc.
3   Contributed by Paul Brook <paul@nowt.org>
4
5This file is part of the GNU Fortran runtime library (libgfortran).
6
7Libgfortran is free software; you can redistribute it and/or
8modify it under the terms of the GNU General Public
9License as published by the Free Software Foundation; either
10version 3 of the License, or (at your option) any later version.
11
12Libgfortran is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15GNU General Public License for more details.
16
17Under Section 7 of GPL version 3, you are granted additional
18permissions described in the GCC Runtime Library Exception, version
193.1, as published by the Free Software Foundation.
20
21You should have received a copy of the GNU General Public License and
22a copy of the GCC Runtime Library Exception along with this program;
23see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
24<http://www.gnu.org/licenses/>.  */
25
26#include "libgfortran.h"'
27
28include(iparm.m4)dnl
29include(ifunction.m4)dnl
30
31`#if defined (HAVE_'atype_name`) && defined (HAVE_'rtype_name`)'
32
33ARRAY_FUNCTION(atype_max,
34`#if defined ('atype_inf`)
35	result = atype_inf;
36#else
37	result = atype_max;
38#endif',
39`#if defined ('atype_nan`)
40		if (*src <= result)
41		  break;
42	      }
43	    if (unlikely (n >= len))
44	      result = atype_nan;
45	    else for (; n < len; n++, src += delta)
46	      {
47#endif
48		if (*src < result)
49		  result = *src;')
50
51MASKED_ARRAY_FUNCTION(atype_max,
52`#if defined ('atype_inf`)
53	result = atype_inf;
54#else
55	result = atype_max;
56#endif
57#if defined ('atype_nan`)
58	int non_empty_p = 0;
59#endif',
60`#if defined ('atype_inf`) || defined ('atype_nan`)
61		if (*msrc)
62		  {
63#if defined ('atype_nan`)
64		    non_empty_p = 1;
65		    if (*src <= result)
66#endif
67		      break;
68		  }
69	      }
70	    if (unlikely (n >= len))
71	      {
72#if defined ('atype_nan`)
73		result = non_empty_p ? atype_nan : atype_max;
74#else
75		result = atype_max;
76#endif
77	      }
78	    else for (; n < len; n++, src += delta, msrc += mdelta)
79	      {
80#endif
81		if (*msrc && *src < result)
82		  result = *src;', `')
83
84SCALAR_ARRAY_FUNCTION(atype_max)
85
86#endif
87