[PATCH] Fix AND, OR, and XOR

[Steve Kargl]

See the attached patch.  It's self explanatory.

2008-05-13  Steven G. Kargl,   <kargl@comcast.net>
	* gfortran.dg/and_or_xor.f90: New test

	* fortran/simplify.c (gfc_simplify_and, gfc_simplify_or, gfc_simplify_xor):
	Don't range check logical results.

-- 
Steve
-------------- next part --------------
A non-text attachment was scrubbed...
Name: james.diff
Type: text/x-diff
Size: 4480 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20080514/ed767c8c/attachment.bin>
-------------- next part --------------
! { dg-do run }
program L
   if (and(.TRUE._1, .TRUE._1) .neqv. .true.) call abort
   if (or(.TRUE._1, .TRUE._1) .neqv. .true.) call abort
   if (xor(.TRUE._1, .TRUE._1) .neqv. .false.) call abort
end program L