Article ID: 150137
Article Last Modified on 12/10/2003
! Compile options needed: none
integer i, j, k
character*10 str /"123456789"/
print *, 'should print: 1 3 5'
read (str, '(T5,I1,T3,I1,T1,I1)') k, j, i
print *, i, j, k ! Prints 7 6 5
print *, 'Work-around #1: only tab forward'
read (str, '(T1,I1,T3,I1,T5,I1)') i, j, k
print *, i, j, k
print *, 'Work-around #2: use TL edit descriptor'
read (str, '(T5,I1,TL3,I1,TL3,I1)') k, j, i
print *, i, j, k
end
Additional query words: 1.00 1.00a 4.00
Keywords: kblangfortran KB150137