--- /dev/null
+! { dg-do run }
+! Test reading/writing of integer, real and character BOZ
+! non-integer BOZ are not valid in standard Fortran, however.
+! PR fortran/29625
+program real_boz
+ implicit none
+ integer(4) :: i,i2
+ real(4) :: r,r2
+ complex(4) :: z,z2
+ character :: c,c2
+ character(len=100) :: str,fmt
+
+ i = 43
+ r = 325.56
+ z = cmplx(14.456, 345342.456)
+ c ='g'
+
+ write(str,'(b0)') i
+ write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
+ read(str,fmt) i2
+ if(i /= i2) call abort()
+
+ write(str,'(o0)') i
+ write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
+ read(str,fmt) i2
+ if(i /= i2) call abort()
+
+ write(str,'(z0)') i
+ write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
+ read(str,fmt) i2
+ if(i /= i2) call abort()
+
+
+ write(str,'(b0)') r
+ write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
+ read(str,fmt) r2
+ if(r /= r2) call abort()
+
+ write(str,'(o0)') r
+ write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
+ read(str,fmt) r2
+ if(r /= r2) call abort()
+
+ write(str,'(z0)') r
+ write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
+ read(str,fmt) r2
+ if(r /= r2) call abort()
+
+
+ write(str,'(b0)') c
+ write(fmt,'(a,i0,a)') '(b',len_trim(str),')'
+ read(str,fmt) c2
+ if(c /= c2) call abort()
+
+ write(str,'(o0)') c
+ write(fmt,'(a,i0,a)') '(o',len_trim(str),')'
+ read(str,fmt) c2
+ if(c /= c2) call abort()
+
+ write(str,'(z0)') c
+ write(fmt,'(a,i0,a)') '(z',len_trim(str),')'
+ read(str,fmt) c2
+ if(c /= c2) call abort()
+
+end program real_boz
+