| Index: gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90 b/gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90
|
| index 55d1dcd86a32f10ce1e773d7804127e3281250e8..655f6514c57950bf2b74da32a2ca700b2b52c2e8 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/integer_exponentiation_4.f90
|
| @@ -38,7 +38,9 @@ program test
|
| print *, nearest(1.0,-1.0)**(-huge(0)) ! { dg-error "Arithmetic overflow" }
|
|
|
| !!!!!! COMPLEX BASE !!!!!!
|
| - print *, (2.0,-4.3)**huge(0) ! { dg-error "Arithmetic NaN" }
|
| - print *, (2.0,-4.3)**(-huge(0)) ! { dg-error "Arithmetic NaN" }
|
| + print *, (2.0,-4.3)**huge(0) ! { dg-error "Arithmetic overflow" }
|
| + print *, (2.0,-4.3)**huge(0_8) ! { dg-error "Arithmetic overflow" }
|
| + print *, (2.0,-4.3)**(-huge(0))
|
| + print *, (2.0,-4.3)**(-huge(0_8))
|
|
|
| end program test
|
|
|