blob: 5db0b795278b539724f463f4603e371205399eea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
!{ dg-do run }
! Check that complex numbers in coarrays can get assigned to.
! Contributed by Harald Anlauf <anlauf@gcc.gnu.org>
program pr108233
implicit none
complex :: c = (3.0,4.0), z[*] = (6.0, 7.0)
complex, allocatable :: y[:]
allocate (y[*])
y = c ! allocatable complex scalar coarray is OK
if (c /= y) error stop 1
z = c ! non-allocatable complex scalar coarray was bad
if (c /= z) error stop 2
call bcast_scalar (z, c) ! failed too
if (c /= z) error stop 3
call assign_scalar (z, c) ! this works
if (c /= z) error stop 4
contains
subroutine assign_scalar (out, in)
complex, intent(out) :: out
complex, intent(in) :: in
out = in
end subroutine assign_scalar
subroutine bcast_scalar (out, in)
complex, intent(out) :: out[*]
complex, intent(in) :: in
out = in
end subroutine bcast_scalar
end
|
