diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2020-09-07 21:41:45 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2020-09-07 21:42:30 +0200 |
| commit | 9164caf25cb210ad0a69357b226e39913aff00d1 (patch) | |
| tree | 0c4cd26a76ccc318b9cccc08b07be4916cf82cc0 /gcc/tree-vrp.c | |
| parent | 6001db79c477b03eacc7e7049560921fb54b7845 (diff) | |
| download | gcc-9164caf25cb210ad0a69357b226e39913aff00d1.zip gcc-9164caf25cb210ad0a69357b226e39913aff00d1.tar.gz gcc-9164caf25cb210ad0a69357b226e39913aff00d1.tar.bz2 | |
PR fortran/96711 - ICE with NINT() for integer(16) result
When rounding a real to the nearest integer, temporarily convert the real
argument to a longer real kind when the result is of type/kind integer(16).
gcc/fortran/ChangeLog:
* trans-intrinsic.c (build_round_expr): Use temporary with
appropriate kind for conversion before rounding to nearest
integer when the result precision is 128 bits.
gcc/testsuite/ChangeLog:
* gfortran.dg/pr96711.f90: New test.
Diffstat (limited to 'gcc/tree-vrp.c')
0 files changed, 0 insertions, 0 deletions