diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2024-12-03 20:55:41 -0800 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2024-12-03 20:57:59 -0800 |
| commit | 7a92ba766815c9a6b73593967a26fdfbebfc7e69 (patch) | |
| tree | ddef29613de843209b5167062cc8610eff4ff8ae /gcc | |
| parent | f36cb8c79d3479cf8c9d5233f3f9cc26b2c5c457 (diff) | |
| download | gcc-7a92ba766815c9a6b73593967a26fdfbebfc7e69.zip gcc-7a92ba766815c9a6b73593967a26fdfbebfc7e69.tar.gz gcc-7a92ba766815c9a6b73593967a26fdfbebfc7e69.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr117820.f90 | 10 |
1 files changed, 10 insertions, 0 deletions
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 |