gcc/testsuite/gfortran.dg/shape_11.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 ! PR fortran/103610 - ICE while simplifying SHAPE
   4 ! Contributed by G.Steinmetz
   5
   6 program p
   7   integer, parameter :: a(-1) = 1
   8   integer, parameter :: b(1)  = maskl(shape(a))
   9   integer, parameter :: c(1)  = shape(a)
  10   integer, parameter :: d(1)  = maskr(shape(a))
  11   if (b(1) /= 0) stop 1
  12   if (c(1) /= 0) stop 2
  13   if (d(1) /= 0) stop 3
  14 end
  15
  16 ! { dg-final { scan-tree-dump-not "_gfortran_stop_numeric" "original" } }