gcc/testsuite/gfortran.dg/array_constructor_31.f90

   1 ! { dg-do compile }
   2 ! Test the fix for pr40018 in which the elements in the array
   3 ! constructor would be of default type and this would cause an
   4 ! ICE in the backend because of the type mistmatch with 'i'.
   5 !
   6 ! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
   7 !
   8   integer(kind=8) :: i
   9   write(*,*) [(i, i = 1, 10)]
  10   end