1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/boz_6.f90 b/gcc/testsuite/gfortran.dg/boz_6.f90
new file mode 100644
index 000000000..d7a287d58
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/boz_6.f90
@@ -0,0 +1,15 @@
+! { dg-do run }
+! { dg-options "-std=gnu" }
+! PR 24917
+program test
+  integer ib, io, iz, ix
+  integer jb, jo, jz, jx
+  data ib, jb /b'111', '111'b/
+  data io, jo /o'234', '234'o/
+  data iz, jz /z'abc', 'abc'z/
+  data ix, jx /x'abc', 'abc'x/
+  if (ib /= jb) call abort
+  if (io /= jo) call abort
+  if (iz /= jz) call abort
+  if (ix /= jx) call abort
+end program test