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
),')'
21 if(i
/= i2
) call abort()
24 write(fmt
,'(a,i0,a)') '(o',len_trim(str
),')'
26 if(i
/= i2
) call abort()
29 write(fmt
,'(a,i0,a)') '(z',len_trim(str
),')'
31 if(i
/= i2
) call abort()
35 write(fmt
,'(a,i0,a)') '(b',len_trim(str
),')'
37 if(r
/= r2
) call abort()
40 write(fmt
,'(a,i0,a)') '(o',len_trim(str
),')'
42 if(r
/= r2
) call abort()
45 write(fmt
,'(a,i0,a)') '(z',len_trim(str
),')'
47 if(r
/= r2
) call abort()
51 write(fmt
,'(a,i0,a)') '(b',len_trim(str
),')'
53 if(c
/= c2
) call abort()
56 write(fmt
,'(a,i0,a)') '(o',len_trim(str
),')'
58 if(c
/= c2
) call abort()
61 write(fmt
,'(a,i0,a)') '(z',len_trim(str
),')'
63 if(c
/= c2
) call abort()