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