From 7a92ba766815c9a6b73593967a26fdfbebfc7e69 Mon Sep 17 00:00:00 2001
From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 3 Dec 2024 20:55:41 -0800
Subject: Fortran: Fix B64.0 formatted write output.

	PR fortran/117820

libgfortran/ChangeLog:

	* io/write.c (write_b): Add test for zero needed by write_boz.

gcc/testsuite/ChangeLog:

	* gfortran.dg/pr117820.f90: New test.
---
 gcc/testsuite/gfortran.dg/pr117820.f90 | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/pr117820.f90

(limited to 'gcc')

diff --git a/gcc/testsuite/gfortran.dg/pr117820.f90 b/gcc/testsuite/gfortran.dg/pr117820.f90
new file mode 100644
index 0000000..59a4b36
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr117820.f90
@@ -0,0 +1,10 @@
+! { 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
-- 
cgit v1.1