gcc/testsuite/gfortran.dg/min_max_kind.f90

   1 ! { dg-do run }
   2 ! { dg-options "-O2 -std=gnu" }
   3 ! Verify that the GNU extensions to MIN/MAX handle mixed kinds properly.
   4
   5 program p
   6   implicit none
   7   integer(1), parameter :: i1 = 1
   8   integer(2), parameter :: i2 = 2
   9   real(4),    parameter :: r4 = 4
  10   real(8),    parameter :: r8 = 8
  11   if (kind (min (i1, i2)) /= kind (i2)) stop 1
  12   if (kind (min (i2, i1)) /= kind (i2)) stop 2
  13   if (kind (min (r4, r8)) /= kind (r8)) stop 3
  14   if (kind (min (r8, r4)) /= kind (r8)) stop 4
  15 end program p