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
11