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