gcc/testsuite/gfortran.dg/pr82314.f90

   1 ! { dg-do run }
   2 ! PR fortran/82314 - ICE in gfc_conv_expr_descriptor
   3
   4 program p
   5   implicit none
   6   integer, parameter :: karray(merge(3,7,.true.):merge(3,7,.false.)) = 1
   7   integer, parameter :: i = size   (karray)
   8   integer, parameter :: l = lbound (karray,1)
   9   integer, parameter :: u = ubound (karray,1)
  10   if (l /= 3 .or. u /= 7 .or. i /= 5) stop 1
  11 end