gcc/testsuite/gfortran.dg/integer_exponentiation_1.f90

   1 ! { dg-do run }
   2 ! { dg-add-options ieee }
   3 ! PR 30981 - this used to go into an endless loop during execution.
   4 program test
   5   a = 3.0
   6   b = a**(-2147483647_4-1_4) ! { dg-warning "Integer outside symmetric range" }
   7 end program test