| ! { dg-do run } |
| ! This is a libgfortran (runtime library) test, need to run only once! |
| ! |
| ! { dg-require-effective-target fortran_integer_16 } |
| ! { dg-additional-options "-funsigned" } |
| ! |
| ! PR libfortran/118406 - printing large UNSIGNED(kind=16) crashes |
| |
| program print_large_unsigned |
| unsigned(16), parameter :: u16_max = huge(0U_16) |
| unsigned(16), parameter :: u8_max = uint(huge(0U_8),16) ! UINT64_MAX |
| unsigned(16), parameter :: ten19 = uint(10_8 ** 18,16)*10U_16 ! 10**19 |
| character(42) :: s |
| |
| ! Reference: signed integer |
| write(s,*) huge(0_16) |
| if (adjustl (s) /= "170141183460469231731687303715884105727") stop 1 |
| |
| ! Same value as unsigned |
| write(s,*) uint (huge(0_16),16) |
| if (adjustl (s) /= "170141183460469231731687303715884105727") stop 2 |
| |
| ! Extreme and intermediate values |
| write(s,*) u16_max |
| if (adjustl (s) /= "340282366920938463463374607431768211455") stop 3 |
| |
| write(s,*) (u16_max - 3U_16) / 4U_16 * 3U_16 |
| if (adjustl (s) /= "255211775190703847597530955573826158589") stop 4 |
| |
| ! Test branches of implementation in string.c::gfc_itoa |
| write(s,*) u8_max * ten19 |
| if (adjustl (s) /= "184467440737095516150000000000000000000") stop 5 |
| |
| write(s,*) u8_max * ten19 - 1U_16 |
| if (adjustl (s) /= "184467440737095516149999999999999999999") stop 6 |
| |
| write(s,*) u8_max * ten19 + 1U_16 |
| if (adjustl (s) /= "184467440737095516150000000000000000001") stop 7 |
| |
| end |
