Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/reduction2.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
29 la(3) = .false. 29 la(3) = .false.
30 m = .true. 30 m = .true.
31 ma(1) = .true. 31 ma(1) = .true.
32 end if 32 end if
33 !$omp end parallel 33 !$omp end parallel
34 if (v) call abort 34 if (v) STOP 1
35 if (cnt .eq. 3) then 35 if (cnt .eq. 3) then
36 if (l .or. any (la .neqv. (/.true., .false., .false., .false./))) call abort 36 if (l .or. any (la .neqv. (/.true., .false., .false., .false./))) STOP 2
37 if (.not. m .or. any (ma .neqv. (/.true., .true., .false., .true./))) call abort 37 if (.not. m .or. any (ma .neqv. (/.true., .true., .false., .true./))) STOP 3
38 end if 38 end if
39 39
40 l = .true. 40 l = .true.
41 la = (/.true., .false., .true., .true./) 41 la = (/.true., .false., .true., .true./)
42 m = .false. 42 m = .false.
62 la(3) = .false. 62 la(3) = .false.
63 m = .true. 63 m = .true.
64 ma(1) = .true. 64 ma(1) = .true.
65 end if 65 end if
66 !$omp end parallel 66 !$omp end parallel
67 if (v) call abort 67 if (v) STOP 4
68 if (cnt .eq. 3) then 68 if (cnt .eq. 3) then
69 if (.not. l .or. any (la .neqv. (/.true., .false., .true., .false./))) call abort 69 if (.not. l .or. any (la .neqv. (/.true., .false., .true., .false./))) STOP 5
70 if (.not. m .or. any (ma .neqv. (/.false., .true., .false., .true./))) call abort 70 if (.not. m .or. any (ma .neqv. (/.false., .true., .false., .true./))) STOP 6
71 end if 71 end if
72 72
73 end 73 end