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