From e494bf2c832da84c84df0f5a13ce0880c3c985ec Mon Sep 17 00:00:00 2001 From: Uros Bizjak Date: Thu, 11 Oct 2007 07:14:08 +0200 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.fortran-torture/compile/logical-1.f90 | 8 ++++++++ 2 files changed, 13 insertions(+) create mode 100644 gcc/testsuite/gfortran.fortran-torture/compile/logical-1.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b1f1e50eecd..cb4f5d986f2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-10-11 Uros Bizjak + + PR fortran/33500 + * gfortran.fortran-torture/compile/logical-1.f90: New testcase. + 2007-10-10 Francois-Xavier Coudert PR testsuite/33391 diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/logical-1.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/logical-1.f90 new file mode 100644 index 00000000000..03cad93a550 --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/logical-1.f90 @@ -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