gcc/testsuite/gfortran.dg/pr96613.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! { dg-do run }
! { dg-options "-O2 -std=gnu" }
! PR fortran/96613 - Fix type/kind of temporaries evaluating MIN/MAX

program test
  implicit none
  real :: x = 7.7643945e+09
  real :: y = 6000.
  integer :: ix

  ix = min1 (5000.0, x)
  if (ix /= 5000) stop 1
  ix = min1 (y, x, 5555.d0)
  if (ix /= 5555) stop 2
end program