gcc/testsuite/gfortran.dg/list_directed_large.f90

   1 ! { dg-do run }
   2 ! { dg-require-effective-target fortran_large_int }
   3 ! PR libfortran/89274 Inconsistent list directed output of INTEGER(16)
   4 !
   5 integer(16) :: j(2)
   6 character(82) :: str
   7 j = huge(1_16)
   8 write(str,*) j
   9 if (str /= "  170141183460469231731687303715884105727  170141183460469231731687303715884105727") stop 1
  10 j = 1
  11 write(str,*) j
  12 if (str /= "                                        1                                        1") stop 2
  13 j = -huge(1_16)
  14 write(str,*) j
  15 if (str /= " -170141183460469231731687303715884105727 -170141183460469231731687303715884105727") stop 3
  16 end