The following code does not compile. It complains that 'ff'x is not an arithmetic entity which I believe it should be... Steve. program g77test1 implicit none integer i,j i = 1 j = 'ff'x print *,j,' = ','ff'x if (i .ne. j) then print *,'ok got here' endif if (i .ne. 'ff'x) then print *,'ok got further' endif end