Bug with use of TRn and nX editting in formatting and non advancing output

Question

Hello.
I am using non-advancing output to print data values in columns in tables. Where a column doesn't have values
I use the TRn editor to skip over the column field. However, this doesn't work with non advancing output.
e.g., the following code doesn't work properly. The output is missing the 10 spaces between the data items.
(I tried changing TR10 to 10X and that didn't work either).
a = 1.0
b = 2.0
! Write data
write(10,'(F10.4)',advance="no") a
! Skip 10 places
write(10,'(TR10)',advance="no")
! Write data
write(10,'(F10.4)',advance="no") b
This works fine on all my other compilers, just not the one that comes with oracle studio 12.2.
Edited by: davidb on 16-Oct-2011 15:06

Answer 1

My original post wasn't too clear (sorry). The bug is with TR.
The following code should write the numbers 1 to 10 with four spaces separating each value. But no spaces are written.
program tst2
integer :: i
do i=1,10
write(10,'(I4)',advance='no')i
write(10,'(TR4)',advance='no')
end do
close(10)
end program tst2
In fact the file fort.10 which is produced contains
12345678910
Whereas, with gfortran, open64, ifort, nag Fortran compilers I get (there are four spaces, this forum just doesn't show them all):
1 2 3 4 5 6 7 8 9 10
Edited by: davidb on 16-Oct-2011 15:07