mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-14 20:40:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

cmplx.f90: Add test for bug in constant folding.

Browse Source 
* gfortran.fortran-torture/execute/cmplx.f90: Add test for bug in
constant folding.

From-SVN: r81961
This commit is contained in:
Tobias Schlüter 2004-05-18 02:13:51 +02:00 committed by Tobias Schlüter
parent f12f786b86
commit 24f8f5ec56
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2004-05-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.fortran-torture/execute/cmplx.f90: Add test for bug in
constant folding.
2004-05-17 Steven Bosscher <stevenb@suse.de>
* gcc.dg/tree-ssa/20040517-1.c: New test.

3
gcc/testsuite/gfortran.fortran-torture/execute/cmplx.f90
View File

@ -42,4 +42,7 @@ program testcmplx
if (c + d .ne. ( 6, 5)) call abort
if (c - d .ne. (-4, 1)) call abort
if (c * d .ne. (-1, 17)) call abort
! test for constant folding
if ((35.,-10.)**0.NE.(1.,0.)) call abort
end program