drikosev

     program main
     implicit one       !implicit=one
     integer i;
     real    r;
     print *, i, r
         
     if (1.NE.i) print *, "1.NE.i"
     if (1./= r) print *, "1./= r"
     
     end program main