help with internal write

[kkajino]

program test
integer Num
character NumTex*6
Num=123450
!write(UNIT=numtex,fmt=('a6')) num
!write(UNIT=numtex,fmt=('i6')) num
write(UNIT=numtex,fmt=*) num
write(*,*) numtex
end

After reading the manual on internal writes, I wrote the above test program to try it, but, one of the above internal write statements work.

When I use fmt=*, I get the error, "output statement overflow record, unit -5, file internal list-directed write".

When I use fmt=('a6'), I get a syntax error on the formatting during runtime.

Could anyone point out what I'm doing wrong?

I'm using compaq visual fortran v6.6 on windows XP.

Thanks,

Kent

[pjrichar]

Try

program test
integer Num
character NumTex*6
Num=123450
write(numtex,'(a6)') num
write(numtex,'(i6)') num
stop
end

[kkajino]

Thanks for the help.

'(i6)' gave me the correct result. '(a6)' gave me a smiley-face. : )