1! { dg-do compile }
2! { dg-require-effective-target fortran_large_real }
3!
4subroutine test_large
5  integer, parameter :: wp = selected_real_kind (precision (0.0_8) + 1)
6  complex(wp), parameter :: i = (0._wp, 1._wp)
7  complex(wp) :: c(12)
8  integer :: m, N
9
10  N = 12
11  c = (/(exp(i*m),m=1,N)/)
12  print *, c(1)
13end
14