blob: 59a4b363e05678357c6c9a2bf35b4c778347086b [file] [log] [blame]
! { 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