| ! { 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 |