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()