1! { dg-do compile }
2! Tests the fix for PR37836 in which the specification expressions for
3! y were not simplified because there was no simplifier for minval and
4! maxval.
5!
6! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
7!
8! nint(exp(3.0)) is equal to 20 :-)
9!
10      function fun4a()
11         integer fun4a
12         real y(minval([25, nint(exp(3.0)), 15]))
13
14        fun4a = size (y, 1)
15       end function fun4a
16
17      function fun4b()
18         integer fun4b
19         real y(maxval([25, nint(exp(3.0)), 15]))
20         save
21
22         fun4b = size (y, 1)
23      end function fun4b
24
25      EXTERNAL fun4a, fun4b
26      integer fun4a, fun4b
27      if (fun4a () .ne. 15) STOP 1
28      if (fun4b () .ne. 25) STOP 2
29      end
30