2 ! { dg-options -fno-range-check }
3 ! PR38504 double minus sign when printing integer
4 ! Test case derived from example by Jos de Kloe
7 integer, parameter :: i8_
= Selected_Int_Kind(18) ! = integer*8
8 character(len
=22) :: str_value
10 character(len
=*), parameter :: format_IntAd
= "(i22)"
12 value
= -9223372036854775807_i8_
-1
13 write(str_value
, format_IntAd
) value
14 if (str_value
.ne
." -9223372036854775808") call abort