gcc/testsuite/gfortran.dg/minmaxval_1.f90

   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