13 Oct 2018 8:48
#22664
Can somebody tell me what's wrong with line 12 in the following code, which generates a run time error 'Invalid tabulation error'. 😦
program test
implicit none
include<windows.ins>
integer i
integer, parameter :: dp=kind(1.d0)
real(kind=dp):: x=2.d0
i = winio@('%1tl&',30) ! This works
i = winio@('%ws%ta%rf&','Input',x)
i = winio@('%nl%cn%bt[OK]')
i = winio@('%2tl&',15,15) ! This does not work
i = winio@('%ws%2ta%rf&','Input',x)
i = winio@('%nl%cn%bt[OK]')
end program test
Thanks
Ken