gcc/testsuite/gfortran.dg/pr107680.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 ! PR fortran/107680 - ICE in arith_power
   4 ! Contributed by G.Steinmetz
   5
   6 program p
   7   real,    parameter :: x(*) = [real    :: ([1])]   **  2.0
   8   complex, parameter :: y(*) = [real    :: ([1])]   ** (2.0,1.0)
   9   complex, parameter :: z(*) = [complex :: ([1])]   ** (2.0,1.0)
  10   complex, parameter :: u(*) = [complex :: ([1.0])] ** (2.0,1.0)
  11   complex, parameter :: v(*) = [real    :: ([(1.0,2.0)])] ** (3.0,1.0)
  12   complex, parameter :: w(*) = [integer :: ([(1.0,2.0)])] ** (3.0,1.0)
  13   print *, [real    :: ([3])]   **  2
  14   print *, [real    :: ([3])]   **  2.0
  15   print *, [real    :: ([1])]   ** (1.0,2.0)
  16   print *, [real    :: ([1.0])] ** (1.0,2.0)
  17   print *, [complex :: ([3])]   **  2
  18   print *, [complex :: ([3])]   **  2.0
  19   print *, [complex :: ([1])]   ** (1.0,2.0)
  20   print *, [complex :: ([1.0])] ** (1.0,2.0)
  21   print *, [integer :: ([3.0])] **  2
  22   print *, [integer :: ([3.0])] **  2.0
  23   print *, [integer :: ([1.0])] ** (1.0,2.0)
  24   print *, [integer :: ([(1.0,2.0)])] ** (3.0,1.0)
  25   print *, v(1)
  26   if (u(1) /= 1) stop 1
  27   if (v(1) /= 1) stop 2
  28   if (w(1) /= 1) stop 3
  29   if (x(1) /= 1) stop 4
  30   if (y(1) /= 1) stop 5
  31   if (z(1) /= 1) stop 6
  32 end
  33
  34 ! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "original" } }