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