1! { dg-do compile }
2!
3subroutine test4
4  integer, parameter :: wp = 4
5  complex(wp), parameter :: i = (0._wp, 1._wp)
6  complex(wp) :: c(12)
7  integer :: m, N
8
9  N = 12
10  c = (/(exp(i*m),m=1,N)/)
11  print *, c(1)
12end
13
14subroutine test8
15  integer, parameter :: wp = 8
16  complex(wp), parameter :: i = (0._wp, 1._wp)
17  complex(wp) :: c(12)
18  integer :: m, N
19
20  N = 12
21  c = (/(exp(i*m),m=1,N)/)
22  print *, c(1)
23end
24