1`/* Implementation of the MINVAL intrinsic
2   Copyright (C) 2002-2014 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#include <stdlib.h>
28#include <assert.h>'
29
30include(iparm.m4)dnl
31include(ifunction.m4)dnl
32
33`#if defined (HAVE_'atype_name`) && defined (HAVE_'rtype_name`)'
34
35ARRAY_FUNCTION(atype_max,
36`#if defined ('atype_inf`)
37	result = atype_inf;
38#else
39	result = atype_max;
40#endif',
41`#if defined ('atype_nan`)
42		if (*src <= result)
43		  break;
44	      }
45	    if (unlikely (n >= len))
46	      result = atype_nan;
47	    else for (; n < len; n++, src += delta)
48	      {
49#endif
50		if (*src < result)
51		  result = *src;')
52
53MASKED_ARRAY_FUNCTION(atype_max,
54`#if defined ('atype_inf`)
55	result = atype_inf;
56#else
57	result = atype_max;
58#endif
59#if defined ('atype_nan`)
60	int non_empty_p = 0;
61#endif',
62`#if defined ('atype_inf`) || defined ('atype_nan`)
63		if (*msrc)
64		  {
65#if defined ('atype_nan`)
66		    non_empty_p = 1;
67		    if (*src <= result)
68#endif
69		      break;
70		  }
71	      }
72	    if (unlikely (n >= len))
73	      {
74#if defined ('atype_nan`)
75		result = non_empty_p ? atype_nan : atype_max;
76#else
77		result = atype_max;
78#endif
79	      }
80	    else for (; n < len; n++, src += delta, msrc += mdelta)
81	      {
82#endif
83		if (*msrc && *src < result)
84		  result = *src;', `')
85
86SCALAR_ARRAY_FUNCTION(atype_max)
87
88#endif
89