Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/reduction1.f90 @ 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 a06113de4d67
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
53 da = -1 53 da = -1
54 c = 1 54 c = 1
55 ca = cmplx (-1, 0) 55 ca = cmplx (-1, 0)
56 end if 56 end if
57 !$omp end parallel 57 !$omp end parallel
58 if (v) call abort 58 if (v) STOP 1
59 if (cnt .eq. 3) then 59 if (cnt .eq. 3) then
60 if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) call abort 60 if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 2
61 if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) call abort 61 if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 3
62 if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort 62 if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 4
63 if (c .ne. cmplx (11.5, -5)) call abort 63 if (c .ne. cmplx (11.5, -5)) STOP 5
64 if (ca(1) .ne. cmplx (12, 2)) call abort 64 if (ca(1) .ne. cmplx (12, 2)) STOP 6
65 if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) call abort 65 if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 7
66 end if 66 end if
67 67
68 i = 1 68 i = 1
69 ia = 2 69 ia = 2
70 r = 3 70 r = 3
111 da = -1 111 da = -1
112 c = 1 112 c = 1
113 ca = cmplx (-1, 0) 113 ca = cmplx (-1, 0)
114 end if 114 end if
115 !$omp end parallel 115 !$omp end parallel
116 if (v) call abort 116 if (v) STOP 8
117 if (cnt .eq. 3) then 117 if (cnt .eq. 3) then
118 if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) call abort 118 if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 9
119 if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) call abort 119 if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 10
120 if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort 120 if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 11
121 if (c .ne. cmplx (11.5, -5)) call abort 121 if (c .ne. cmplx (11.5, -5)) STOP 12
122 if (ca(1) .ne. cmplx (12, 2)) call abort 122 if (ca(1) .ne. cmplx (12, 2)) STOP 13
123 if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) call abort 123 if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 14
124 end if 124 end if
125 125
126 i = 1 126 i = 1
127 ia = 2 127 ia = 2
128 r = 4 128 r = 4
167 da = -1 167 da = -1
168 c = cmplx (0, -1) 168 c = cmplx (0, -1)
169 ca = cmplx (-1, 0) 169 ca = cmplx (-1, 0)
170 end if 170 end if
171 !$omp end parallel 171 !$omp end parallel
172 if (v) call abort 172 if (v) STOP 15
173 if (cnt .eq. 3) then 173 if (cnt .eq. 3) then
174 if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) call abort 174 if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) STOP 16
175 if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) call abort 175 if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) STOP 17
176 if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) call abort 176 if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) STOP 18
177 if (c .ne. cmplx (0, 15)) call abort 177 if (c .ne. cmplx (0, 15)) STOP 19
178 if (ca(1) .ne. cmplx (0, 10)) call abort 178 if (ca(1) .ne. cmplx (0, 10)) STOP 20
179 if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) call abort 179 if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) STOP 21
180 end if 180 end if
181 end 181 end