The program
program repcnt
implicit none
logical :: b1,b2,b3,b4,b5,b6
character(len=9) :: line = ' 4*T 2*F '
!
read(line,*)b1,b2,b3,b4,b5,b6
print '(1x,6L3)',b1,b2,b3,b4,b5,b6
end program repcnt
works fine with FTN95 V 8.3 in 32-bit mode. With /64, an access violation occurs in CLEARWIN64.dll.