! { dg-do run }
! See pr117820, original testcase provided by Malcolm Cohen.
program test
  integer(8) :: x
  character(80) :: output
  output = "garbage"
  x = ibset (0_8, 63)
  write(output, '("<",B64.0,">")') x
  if (output .ne. "<1000000000000000000000000000000000000000000000000000000000000000>") stop 1
end program