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) call abort
28      if (fun4b () .ne. 25) call abort
29      end
30