gcc/testsuite/gfortran.dg/min_max_optional_5.f90

   1 ! More tests for MIN/MAX with optional arguments
   2 ! PR33095
   3 !
   4 ! { dg-do run }
   5   if (m1(3,4) /= 4) STOP 1
   6   if (m1(3) /= 3) STOP 2
   7   if (m1() /= 2) STOP 3
   8
   9   if (m1(3,4) /= 4) STOP 4
  10   if (m1(3) /= 3) STOP 5
  11 contains
  12   integer function m1(a1,a2)
  13     integer, optional, intent(in) :: a1, a2
  14     m1 = max(1, 2, a1, a2)
  15   end function m1
  16
  17   integer function m2(a1,a2)
  18     integer, optional, intent(in) :: a1, a2
  19     m2 = max(1, a1, 2, a2)
  20   end function m2
  21 end