re PR fortran/33500 (ICE in copy_to_mode_reg with logical(kind=1) expression)

PR fortran/33500
	* gfortran.fortran-torture/compile/logical-1.f90: New testcase.

From-SVN: r129225
This commit is contained in:
Uros Bizjak 2007-10-11 07:14:08 +02:00 committed by Uros Bizjak
parent d05d4c4eab
commit e494bf2c83
2 changed files with 13 additions and 0 deletions

View File

@ -1,3 +1,8 @@
2007-10-11 Uros Bizjak <ubizjak@gmail.com>
PR fortran/33500
* gfortran.fortran-torture/compile/logical-1.f90: New testcase.
2007-10-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR testsuite/33391

View File

@ -0,0 +1,8 @@
! PR fortran/33500
subroutine whatever()
logical(kind=1) :: l1, l2, l3
if ((l1 .and. l2) .neqv. l3) then
l1 = .true.
endif
end