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 |