logical l
      l='aaron' .lt. 'baal'
      write(6,*)l
      write(6,*)('aaron' .lt. 'baal')
      write(6,*) 'f025 passed if both answers above are T'
      end