gcc/testsuite/gfortran.dg/pr36006-2.f90

   1 ! { dg-do compile }
   2 ! { dg-require-effective-target fortran_large_real }
   3 !
   4 subroutine 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)
  13 end