LOGICAL l1,l2
      CHARACTER*4 A,B
      DATA A,B/'FRED','BERT'/
      l1=lge(a,b)
      l2=lge(b,a)
      if(l1.ne.l2)goto 1
      write(6,20)
  10  format(1h ,'mb006 passed')
      stop
  1   write(6,10)
  20  format(1h ,'mb006 failed')
      STOP
      END