comparison gcc/testsuite/gfortran.dg/intrinsic_unpack_2.f90 @ 131:84e7813d76e9

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 ark = reshape ((/1._k, 0._k, 0._k, 0._k, 1._k, 0._k, 0._k, 0._k, 1._k/), & 18 ark = reshape ((/1._k, 0._k, 0._k, 0._k, 1._k, 0._k, 0._k, 0._k, 1._k/), &
19 (/3, 3/)); 19 (/3, 3/));
20 brk = unpack ((/2._k, 3._k, 4._k/), mask, ark) 20 brk = unpack ((/2._k, 3._k, 4._k/), mask, ark)
21 if (any (brk .ne. reshape ((/1._k, 2._k, 0._k, 3._k, 1._k, 0._k, & 21 if (any (brk .ne. reshape ((/1._k, 2._k, 0._k, 3._k, 1._k, 0._k, &
22 0._k, 0._k, 4._k/), (/3, 3/)))) & 22 0._k, 0._k, 4._k/), (/3, 3/)))) &
23 call abort 23 STOP 1
24 write (line1,'(9F9.5)') brk 24 write (line1,'(9F9.5)') brk
25 write (line2,'(9F9.5)') unpack((/2._k, 3._k, 4._k/), mask, ark) 25 write (line2,'(9F9.5)') unpack((/2._k, 3._k, 4._k/), mask, ark)
26 if (line1 .ne. line2) call abort 26 if (line1 .ne. line2) STOP 2
27 brk = -1._k 27 brk = -1._k
28 brk = unpack ((/2._k, 3._k, 4._k/), mask, 0._k) 28 brk = unpack ((/2._k, 3._k, 4._k/), mask, 0._k)
29 if (any (brk .ne. reshape ((/0._k, 2._k, 0._k, 3._k, 0._k, 0._k, & 29 if (any (brk .ne. reshape ((/0._k, 2._k, 0._k, 3._k, 0._k, 0._k, &
30 0._k, 0._k, 4._k/), (/3, 3/)))) & 30 0._k, 0._k, 4._k/), (/3, 3/)))) &
31 call abort 31 STOP 3
32 32
33 ack = reshape ((/1._k, 0._k, 0._k, 0._k, 1._k, 0._k, 0._k, 0._k, 1._k/), & 33 ack = reshape ((/1._k, 0._k, 0._k, 0._k, 1._k, 0._k, 0._k, 0._k, 1._k/), &
34 (/3, 3/)); 34 (/3, 3/));
35 bck = unpack ((/(2._k, 0._k), (3._k, 0._k), (4._k, 0._k)/), mask, ack) 35 bck = unpack ((/(2._k, 0._k), (3._k, 0._k), (4._k, 0._k)/), mask, ack)
36 if (any (real(bck) .ne. reshape ((/1._k, 2._k, 0._k, 3._k, 1._k, 0._k, & 36 if (any (real(bck) .ne. reshape ((/1._k, 2._k, 0._k, 3._k, 1._k, 0._k, &
37 0._k, 0._k, 4._k/), (/3, 3/)))) & 37 0._k, 0._k, 4._k/), (/3, 3/)))) &
38 call abort 38 STOP 4
39 write (line1,'(18F9.5)') bck 39 write (line1,'(18F9.5)') bck
40 write (line2,'(18F9.5)') unpack((/(2._k, 0._k), (3._k, 0._k), (4._k,0._k)/), & 40 write (line2,'(18F9.5)') unpack((/(2._k, 0._k), (3._k, 0._k), (4._k,0._k)/), &
41 mask, ack) 41 mask, ack)
42 if (line1 .ne. line2) call abort 42 if (line1 .ne. line2) STOP 5
43 43
44 end program 44 end program