2 ! { dg-require-effective-target fortran_integer_16 }
3 ! { dg-require-effective-target fortran_real_16 }
4 ! { dg-additional-options "-fdump-tree-original" }
5 ! { dg-final { scan-tree-dump-times "_gfortran_stop_numeric" 2 "original" } }
7 ! PR fortran/96711 - ICE on NINT() Function
13 ! Assume radix(x) == 2
14 ! 2/epsilon(x) = 2/(radix(x)**(1-digits(x)) = 2**digits(x) with that assumption
15 integer(16), parameter :: k1
= nint (2 / epsilon (x
), kind(k1
))
16 integer(16), parameter :: k2
= nint (2 / epsilon (y
), kind(k2
))
17 integer(16), parameter :: m1
= 2_16**digits(x
) ! IEEE: 2**53
18 integer(16), parameter :: m2
= 2_16**digits(y
) ! IEEE: 2**113
19 integer(16), volatile :: m