diff options
| author | Uros Bizjak <ubizjak@gmail.com> | 2007-10-11 07:14:08 +0200 |
|---|---|---|
| committer | Uros Bizjak <uros@gcc.gnu.org> | 2007-10-11 07:14:08 +0200 |
| commit | e494bf2c832da84c84df0f5a13ce0880c3c985ec (patch) | |
| tree | e3b5e4de7e5ae354017077c2242cf0073cd7a1c6 | |
| parent | d05d4c4eabf14e2cdfa62bd852c6ceb133f73584 (diff) | |
| download | gcc-e494bf2c832da84c84df0f5a13ce0880c3c985ec.zip gcc-e494bf2c832da84c84df0f5a13ce0880c3c985ec.tar.gz gcc-e494bf2c832da84c84df0f5a13ce0880c3c985ec.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/logical-1.f90 | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b1f1e50..cb4f5d9 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -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 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 0000000..03cad93 --- /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 |