OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR target/33120
[pf3gnuchains/gcc-fork.git]
/
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