1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
subroutine test_complex_param
! COMPLEX PARAMETER from real literal (incl. negative)
implicit none
complex :: pos_one, neg_one, zero
parameter (pos_one = 1.0, neg_one = -1.0, zero = 0.0)
if (real(pos_one) /= 1.0) error stop
if (aimag(pos_one) /= 0.0) error stop
if (real(neg_one) /= -1.0) error stop
if (aimag(neg_one) /= 0.0) error stop
if (real(zero) /= 0.0) error stop
if (aimag(zero) /= 0.0) error stop
print *, "PASS: complex parameter with negative real literal"
end subroutine
program parameter_16
call test_complex_param
end program
|
