2 ! Test reading/writing of integer, real and character BOZ
3 ! non-integer BOZ are not valid in standard Fortran, however.
11 character(len
=100) :: str
,fmt
15 z
= cmplx(14.456, 345342.456)
19 write(fmt
,'(a,i0,a)') '(b',len_trim(str
),')'
24 write(fmt
,'(a,i0,a)') '(o',len_trim(str
),')'
29 write(fmt
,'(a,i0,a)') '(z',len_trim(str
),')'
35 write(fmt
,'(a,i0,a)') '(b',len_trim(str
),')'
40 write(fmt
,'(a,i0,a)') '(o',len_trim(str
),')'
45 write(fmt
,'(a,i0,a)') '(z',len_trim(str
),')'
51 write(fmt
,'(a,i0,a)') '(b',len_trim(str
),')'
56 write(fmt
,'(a,i0,a)') '(o',len_trim(str
),')'
61 write(fmt
,'(a,i0,a)') '(z',len_trim(str
),')'