Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/coarray_allocate_9.f08 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
18 type(vector) :: outbox[*] 18 type(vector) :: outbox[*]
19 type(particles), allocatable :: object(:)[:] 19 type(particles), allocatable :: object(:)[:]
20 20
21 allocate(outbox%v(1), source=particles(this_image())) 21 allocate(outbox%v(1), source=particles(this_image()))
22 22
23 if (any( outbox[1]%v(1)%x(1:2) /= [ 1.0, 1.0] )) call abort() 23 if (any( outbox[1]%v(1)%x(1:2) /= [ 1.0, 1.0] )) STOP 1
24 if (any( outbox[1]%v(1)%x(:) /= [ 1.0, 1.0] )) call abort() 24 if (any( outbox[1]%v(1)%x(:) /= [ 1.0, 1.0] )) STOP 2
25 if (any( outbox[1]%v(1)%x /= [ 1.0, 1.0] )) call abort() 25 if (any( outbox[1]%v(1)%x /= [ 1.0, 1.0] )) STOP 3
26 26
27 allocate(object(1)[*], source=particles(this_image())) 27 allocate(object(1)[*], source=particles(this_image()))
28 28
29 if (any( object(1)[1]%x(1:2) /= [ 1.0, 1.0] )) call abort() 29 if (any( object(1)[1]%x(1:2) /= [ 1.0, 1.0] )) STOP 4
30 if (any( object(1)[1]%x(:) /= [ 1.0, 1.0] )) call abort() 30 if (any( object(1)[1]%x(:) /= [ 1.0, 1.0] )) STOP 5
31 if (any( object(1)[1]%x /= [ 1.0, 1.0] )) call abort() 31 if (any( object(1)[1]%x /= [ 1.0, 1.0] )) STOP 6
32 end program 32 end program