diff options
author | Tobias Burnus <tobias@codesourcery.com> | 2019-10-30 11:44:54 +0000 |
---|---|---|
committer | Tobias Burnus <burnus@gcc.gnu.org> | 2019-10-30 12:44:54 +0100 |
commit | c425e66b27eb0aa79f1100a6da87f65731ecd8b5 (patch) | |
tree | 3d67d31fb84a86189d94374d510305b5a9a2e34b /libgomp/testsuite/libgomp.fortran | |
parent | 3c56d8d8de26c7d7ac46733b7b3c01ae34e144f1 (diff) | |
download | gcc-c425e66b27eb0aa79f1100a6da87f65731ecd8b5.zip gcc-c425e66b27eb0aa79f1100a6da87f65731ecd8b5.tar.gz gcc-c425e66b27eb0aa79f1100a6da87f65731ecd8b5.tar.bz2 |
libgomp/testsuite – use 'stop'
libgomp/
* testsuite/libgomp.fortran/: Replace 'STOP' by 'stop'.
From-SVN: r277609
Diffstat (limited to 'libgomp/testsuite/libgomp.fortran')
221 files changed, 1165 insertions, 1165 deletions
diff --git a/libgomp/testsuite/libgomp.fortran/aligned1.f03 b/libgomp/testsuite/libgomp.fortran/aligned1.f03 index 19daed8..a0b80d4 100644 --- a/libgomp/testsuite/libgomp.fortran/aligned1.f03 +++ b/libgomp/testsuite/libgomp.fortran/aligned1.f03 @@ -42,12 +42,12 @@ end do call foo (p, q, c_loc (r(1)), s) do i = 1, 1024 - if (p(i) /= i * i + 3 * i + 2) STOP 1 + if (p(i) /= i * i + 3 * i + 2) stop 1 p(i) = i end do call bar (p, q, c_loc (r(1)), s) do i = 1, 1024 - if (p(i) /= i * i + 3 * i + 2) STOP 2 + if (p(i) /= i * i + 3 * i + 2) stop 2 end do ! Attempt to create 64-byte aligned allocatable do i = 1, 64 @@ -65,7 +65,7 @@ end do call baz (p, c) do i = 1, 1024 - if (p(i) /= i * i + 5 * i + 2) STOP 3 + if (p(i) /= i * i + 5 * i + 2) stop 3 end do end if end diff --git a/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 b/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 index fac0365..ea76bc1 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-comp-1.f90 @@ -22,19 +22,19 @@ contains type (dl), intent (in) :: obj integer, intent (in) :: val, cl1, cu1, cl2, cu2 logical, intent (in) :: c, f - if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) STOP 1 + if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) stop 1 if (c) then - if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) STOP 2 - if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) STOP 3 + if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) stop 2 + if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) stop 3 end if if (val /= 0) then - if (obj%a /= val .or. obj%b /= val) STOP 4 - if (obj%d /= val .or. obj%e /= val) STOP 5 + if (obj%a /= val .or. obj%b /= val) stop 4 + if (obj%d /= val .or. obj%e /= val) stop 5 if (c) then - if (any (obj%c /= val)) STOP 6 + if (any (obj%c /= val)) stop 6 end if if (f) then - if (obj%f /= val) STOP 7 + if (obj%f /= val) stop 7 end if end if end subroutine ver_dl @@ -43,9 +43,9 @@ contains integer, intent (in) :: val, hl, hu, cl1, cu1, cl2, cu2 logical, intent (in) :: h, k, c, f integer :: i, j - if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) STOP 8 + if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) stop 8 if (h) then - if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) STOP 9 + if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) stop 9 do i = hl, hu call ver_dl (obj%h(i), val, c, cl1, cu1, cl2, cu2, f) end do @@ -57,7 +57,7 @@ contains end do if (k) call ver_dl (obj%k, val, c, cl1, cu1, cl2, cu2, f) if (val /= 0) then - if (obj%g /= val .or. obj%i /= val) STOP 10 + if (obj%g /= val .or. obj%i /= val) stop 10 end if end subroutine ver_dt subroutine alloc_dl (obj, val, c, cl1, cu1, cl2, cu2, f) diff --git a/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 b/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 index 7d03538..111005e 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-comp-2.f90 @@ -22,19 +22,19 @@ contains type (dl), intent (in) :: obj integer, intent (in) :: val, cl1, cu1, cl2, cu2 logical, intent (in) :: c, f - if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) STOP 1 + if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) stop 1 if (c) then - if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) STOP 2 - if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) STOP 3 + if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) stop 2 + if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) stop 3 end if if (val /= 0) then - if (obj%a /= val .or. obj%b /= val) STOP 4 - if (obj%d /= val .or. obj%e /= val) STOP 5 + if (obj%a /= val .or. obj%b /= val) stop 4 + if (obj%d /= val .or. obj%e /= val) stop 5 if (c) then - if (any (obj%c /= val)) STOP 6 + if (any (obj%c /= val)) stop 6 end if if (f) then - if (obj%f /= val) STOP 7 + if (obj%f /= val) stop 7 end if end if end subroutine ver_dl @@ -43,9 +43,9 @@ contains integer, intent (in) :: val, hl, hu, cl1, cu1, cl2, cu2 logical, intent (in) :: h, k, c, f integer :: i, j - if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) STOP 8 + if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) stop 8 if (h) then - if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) STOP 9 + if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) stop 9 do i = hl, hu call ver_dl (obj%h(i), val, c, cl1, cu1, cl2, cu2, f) end do @@ -57,7 +57,7 @@ contains end do if (k) call ver_dl (obj%k, val, c, cl1, cu1, cl2, cu2, f) if (val /= 0) then - if (obj%g /= val .or. obj%i /= val) STOP 10 + if (obj%g /= val .or. obj%i /= val) stop 10 end if end subroutine ver_dt subroutine alloc_dl (obj, val, c, cl1, cu1, cl2, cu2, f) @@ -122,20 +122,20 @@ contains logical, parameter :: T = .true. logical :: l !$omp parallel private (x, y, z) - if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 11 + if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 11 !$omp end parallel !$omp parallel firstprivate (x, y, z) - if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 12 + if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 12 !$omp end parallel l = F !$omp parallel sections lastprivate (x, y, z) firstprivate (l) !$omp section if (.not. l) then - if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 13 + if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 13 end if !$omp section if (.not. l) then - if (allocated (x) .or. allocated (y) .or. allocated (z)) STOP 14 + if (allocated (x) .or. allocated (y) .or. allocated (z)) stop 14 end if allocate (x, y, z(-3:-3,2:3)) call alloc_dt (x, 5, F, 0, 0, T, T, -1, -1, -1, -1, T) @@ -148,10 +148,10 @@ contains call ver_dt (z(-3,3), 23, T, 0, 1, T, T, 2, 2, 2, 2, F) !$omp section !$omp end parallel sections - if (.not.allocated (x) .or. .not.allocated (y)) STOP 15 - if (.not.allocated (z)) STOP 16 - if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) STOP 17 - if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) STOP 18 + if (.not.allocated (x) .or. .not.allocated (y)) stop 15 + if (.not.allocated (z)) stop 16 + if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) stop 17 + if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) stop 18 call ver_dt (x, 5, F, 0, 0, T, T, -1, -1, -1, -1, T) call ver_dt (y, 23, T, 0, 1, T, T, 2, 2, 2, 2, F) call ver_dt (z(-3,2), 5, F, 0, 0, T, T, -1, -1, -1, -1, T) diff --git a/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 b/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 index 42ba7b4..0185859 100644 --- a/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/alloc-comp-3.f90 @@ -22,19 +22,19 @@ contains type (dl), intent (in) :: obj integer, intent (in) :: val, cl1, cu1, cl2, cu2 logical, intent (in) :: c, f - if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) STOP 1 + if ((c .neqv. allocated (obj%c)) .or. (f .neqv. allocated (obj%f))) stop 1 if (c) then - if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) STOP 2 - if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) STOP 3 + if (lbound (obj%c, 1) /= cl1 .or. ubound (obj%c, 1) /= cu1) stop 2 + if (lbound (obj%c, 2) /= cl2 .or. ubound (obj%c, 2) /= cu2) stop 3 end if if (val /= 0) then - if (obj%a /= val .or. obj%b /= val) STOP 4 - if (obj%d /= val .or. obj%e /= val) STOP 5 + if (obj%a /= val .or. obj%b /= val) stop 4 + if (obj%d /= val .or. obj%e /= val) stop 5 if (c) then - if (any (obj%c /= val)) STOP 6 + if (any (obj%c /= val)) stop 6 end if if (f) then - if (obj%f /= val) STOP 7 + if (obj%f /= val) stop 7 end if end if end subroutine ver_dl @@ -43,9 +43,9 @@ contains integer, intent (in) :: val, hl, hu, cl1, cu1, cl2, cu2 logical, intent (in) :: h, k, c, f integer :: i, j - if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) STOP 8 + if ((h .neqv. allocated (obj%h)) .or. (k .neqv. allocated (obj%k))) stop 8 if (h) then - if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) STOP 9 + if (lbound (obj%h, 1) /= hl .or. ubound (obj%h, 1) /= hu) stop 9 do i = hl, hu call ver_dl (obj%h(i), val, c, cl1, cu1, cl2, cu2, f) end do @@ -57,7 +57,7 @@ contains end do if (k) call ver_dl (obj%k, val, c, cl1, cu1, cl2, cu2, f) if (val /= 0) then - if (obj%g /= val .or. obj%i /= val) STOP 10 + if (obj%g /= val .or. obj%i /= val) stop 10 end if end subroutine ver_dt subroutine alloc_dl (obj, val, c, cl1, cu1, cl2, cu2, f) @@ -124,27 +124,27 @@ contains logical, parameter :: F = .false. logical, parameter :: T = .true. logical :: l - if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) STOP 11 - if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) STOP 12 + if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) stop 11 + if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) stop 12 call ver_dt (x(2), 0, F, 0, 0, F, F, 0, 0, 0, 0, F) call ver_dt (x(n), 0, F, 0, 0, F, F, 0, 0, 0, 0, F) call ver_dt (y(3), 0, F, 0, 0, F, F, 0, 0, 0, 0, F) call ver_dt (y(4), 0, F, 0, 0, F, F, 0, 0, 0, 0, F) !$omp parallel private (z) - if (allocated (z)) STOP 13 + if (allocated (z)) stop 13 !$omp end parallel !$omp parallel firstprivate (z) - if (allocated (z)) STOP 14 + if (allocated (z)) stop 14 !$omp end parallel l = F !$omp parallel sections lastprivate (z) firstprivate (l) !$omp section if (.not. l) then - if (allocated (z)) STOP 15 + if (allocated (z)) stop 15 end if !$omp section if (.not. l) then - if (allocated (z)) STOP 16 + if (allocated (z)) stop 16 end if allocate (z(-3:-3,2:3)) call alloc_dt (z(-3,2), 5, F, 0, 0, T, T, -1, -1, -1, -1, T) @@ -153,9 +153,9 @@ contains call ver_dt (z(-3,3), 23, T, 0, 1, T, T, 2, 2, 2, 2, F) !$omp section !$omp end parallel sections - if (.not.allocated (z)) STOP 17 - if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) STOP 18 - if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) STOP 19 + if (.not.allocated (z)) stop 17 + if (lbound (z, 1) /= -3 .or. ubound (z, 1) /= -3) stop 18 + if (lbound (z, 2) /= 2 .or. ubound (z, 2) /= 3) stop 19 call ver_dt (z(-3,2), 5, F, 0, 0, T, T, -1, -1, -1, -1, T) call ver_dt (z(-3,3), 23, T, 0, 1, T, T, 2, 2, 2, 2, F) call ver_dt (x(n - 1), 0, F, 0, 0, F, F, 0, 0, 0, 0, F) @@ -203,8 +203,8 @@ contains call alloc_dt (z(-3,2), 5, T, 1, 2, F, T, 2, 3, -2, -2, F) call alloc_dt (z(-3,3), 15, F, 0, 0, T, T, 2, 2, 2, 2, T) !$omp parallel firstprivate (x, y, z) - if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) STOP 20 - if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) STOP 21 + if (lbound (x, 1) /= 2 .or. ubound (x, 1) /= 4) stop 20 + if (lbound (y, 1) /= 3 .or. ubound (y, 1) /= 4) stop 21 call ver_dt (x(n - 1), 5, T, 1, 2, F, T, 2, 3, -2, -2, F) call alloc_dt (x(n - 1), 4, T, -3, -1, T, T, -1, -1, 2, 3, T) call ver_dt (x(n - 1), 4, T, -3, -1, T, T, -1, -1, 2, 3, T) diff --git a/libgomp/testsuite/libgomp.fortran/allocatable1.f90 b/libgomp/testsuite/libgomp.fortran/allocatable1.f90 index b9fd2ee..59e1440 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable1.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable1.f90 @@ -7,7 +7,7 @@ logical :: k, l b(:, :) = 16 l = .false. - if (allocated (a)) STOP 1 + if (allocated (a)) stop 1 !$omp parallel private (a, b) reduction (.or.:l) l = l.or.allocated (a) allocate (a(3, 6)) @@ -18,18 +18,18 @@ deallocate (a) l = l.or.allocated (a) !$omp end parallel - if (allocated (a).or.l) STOP 2 + if (allocated (a).or.l) stop 2 allocate (a(6, 3)) a(:, :) = 3 - if (.not.allocated (a)) STOP 3 + if (.not.allocated (a)) stop 3 l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3 - if (l) STOP 4 + if (l) stop 4 !$omp parallel private (a, b) reduction (.or.:l) l = l.or..not.allocated (a) a(3, 2) = 1 b(3, 2) = 1 !$omp end parallel - if (l.or..not.allocated (a)) STOP 5 + if (l.or..not.allocated (a)) stop 5 !$omp parallel firstprivate (a, b) reduction (.or.:l) l = l.or..not.allocated (a) l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3 @@ -41,7 +41,7 @@ a(:, :) = omp_get_thread_num () b(:, :) = omp_get_thread_num () !$omp end parallel - if (any (a.ne.3).or.any (b.ne.16).or.l) STOP 6 + if (any (a.ne.3).or.any (b.ne.16).or.l) stop 6 k = .true. !$omp parallel do firstprivate (a, b, k) lastprivate (a, b) & !$omp & reduction (.or.:l) @@ -59,9 +59,9 @@ a(:, :) = i + 2 b(:, :) = i end do - if (any (a.ne.38).or.any (b.ne.36).or.l) STOP 7 + if (any (a.ne.38).or.any (b.ne.36).or.l) stop 7 deallocate (a) - if (allocated (a)) STOP 8 + if (allocated (a)) stop 8 allocate (a (0:1, 0:3)) a(:, :) = 0 !$omp parallel do reduction (+:a) reduction (.or.:l) & @@ -72,10 +72,10 @@ a(modulo (i, 2), i / 2) = a(modulo (i, 2), i / 2) + i a(i / 4, modulo (i, 4)) = a(i / 4, modulo (i, 4)) + i end do - if (l) STOP 9 + if (l) stop 9 do i = 0, 1 do j = 0, 3 - if (a(i, j) .ne. (5*i + 3*j)) STOP 10 + if (a(i, j) .ne. (5*i + 3*j)) stop 10 end do end do end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable10.f90 b/libgomp/testsuite/libgomp.fortran/allocatable10.f90 index 9b05dc7..9ebceb8 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable10.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable10.f90 @@ -4,109 +4,109 @@ integer :: i !$omp declare reduction (foo : integer : omp_out = omp_out + omp_in) & !$omp & initializer (omp_priv = 0) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1 allocate (a, b(6:9), c(3, 8:9)) a = 0 b = 0 c = 0 - if (.not.allocated (a)) STOP 2 - if (.not.allocated (b) .or. size (b) /= 4) STOP 3 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 4 - if (.not.allocated (c) .or. size (c) /= 6) STOP 5 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 6 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 7 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 8 + if (.not.allocated (a)) stop 2 + if (.not.allocated (b) .or. size (b) /= 4) stop 3 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 4 + if (.not.allocated (c) .or. size (c) /= 6) stop 5 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 6 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 7 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 8 !$omp parallel do reduction (+:a, b, c) do i = 1, 10 - if (.not.allocated (a)) STOP 9 - if (.not.allocated (b) .or. size (b) /= 4) STOP 10 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 11 - if (.not.allocated (c) .or. size (c) /= 6) STOP 12 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 13 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 14 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 15 + if (.not.allocated (a)) stop 9 + if (.not.allocated (b) .or. size (b) /= 4) stop 10 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 11 + if (.not.allocated (c) .or. size (c) /= 6) stop 12 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 13 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 14 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 15 a = a + i b = b + 2 * i c = c + 3 * i end do - if (.not.allocated (a)) STOP 16 - if (.not.allocated (b) .or. size (b) /= 4) STOP 17 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 18 - if (.not.allocated (c) .or. size (c) /= 6) STOP 19 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 20 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 21 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 22 - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 23 + if (.not.allocated (a)) stop 16 + if (.not.allocated (b) .or. size (b) /= 4) stop 17 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 18 + if (.not.allocated (c) .or. size (c) /= 6) stop 19 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 20 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 21 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 22 + if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 23 a = 0 b = 0 c = 0 !$omp parallel do reduction (foo : a, b, c) do i = 1, 10 - if (.not.allocated (a)) STOP 24 - if (.not.allocated (b) .or. size (b) /= 4) STOP 25 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 26 - if (.not.allocated (c) .or. size (c) /= 6) STOP 27 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 28 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 29 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 30 + if (.not.allocated (a)) stop 24 + if (.not.allocated (b) .or. size (b) /= 4) stop 25 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 26 + if (.not.allocated (c) .or. size (c) /= 6) stop 27 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 28 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 29 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 30 a = a + i b = b + 2 * i c = c + 3 * i end do - if (.not.allocated (a)) STOP 31 - if (.not.allocated (b) .or. size (b) /= 4) STOP 32 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 33 - if (.not.allocated (c) .or. size (c) /= 6) STOP 34 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 35 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 36 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 37 - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 38 + if (.not.allocated (a)) stop 31 + if (.not.allocated (b) .or. size (b) /= 4) stop 32 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 33 + if (.not.allocated (c) .or. size (c) /= 6) stop 34 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 35 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 36 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 37 + if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 38 a = 0 b = 0 c = 0 !$omp simd reduction (+:a, b, c) do i = 1, 10 - if (.not.allocated (a)) STOP 39 - if (.not.allocated (b) .or. size (b) /= 4) STOP 40 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 41 - if (.not.allocated (c) .or. size (c) /= 6) STOP 42 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 43 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 44 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 45 + if (.not.allocated (a)) stop 39 + if (.not.allocated (b) .or. size (b) /= 4) stop 40 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 41 + if (.not.allocated (c) .or. size (c) /= 6) stop 42 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 43 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 44 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 45 a = a + i b = b + 2 * i c = c + 3 * i end do - if (.not.allocated (a)) STOP 46 - if (.not.allocated (b) .or. size (b) /= 4) STOP 47 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 48 - if (.not.allocated (c) .or. size (c) /= 6) STOP 49 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 50 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 51 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 52 - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 53 + if (.not.allocated (a)) stop 46 + if (.not.allocated (b) .or. size (b) /= 4) stop 47 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 48 + if (.not.allocated (c) .or. size (c) /= 6) stop 49 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 50 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 51 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 52 + if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 53 a = 0 b = 0 c = 0 !$omp simd reduction (foo : a, b, c) do i = 1, 10 - if (.not.allocated (a)) STOP 54 - if (.not.allocated (b) .or. size (b) /= 4) STOP 55 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 56 - if (.not.allocated (c) .or. size (c) /= 6) STOP 57 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 58 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 59 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 60 + if (.not.allocated (a)) stop 54 + if (.not.allocated (b) .or. size (b) /= 4) stop 55 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 56 + if (.not.allocated (c) .or. size (c) /= 6) stop 57 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 58 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 59 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 60 a = a + i b = b + 2 * i c = c + 3 * i end do - if (.not.allocated (a)) STOP 61 - if (.not.allocated (b) .or. size (b) /= 4) STOP 62 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 63 - if (.not.allocated (c) .or. size (c) /= 6) STOP 64 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 65 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 66 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 67 - if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) STOP 68 + if (.not.allocated (a)) stop 61 + if (.not.allocated (b) .or. size (b) /= 4) stop 62 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 63 + if (.not.allocated (c) .or. size (c) /= 6) stop 64 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 65 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 66 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 67 + if (a /= 55 .or. any (b /= 110) .or. any (c /= 165)) stop 68 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable11.f90 b/libgomp/testsuite/libgomp.fortran/allocatable11.f90 index 916dc6e..c3b8294 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable11.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable11.f90 @@ -5,68 +5,68 @@ integer, allocatable, save :: a, b(:), c(:,:) integer :: p !$omp threadprivate (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1 call omp_set_dynamic (.false.) call omp_set_num_threads (4) !$omp parallel num_threads (4) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 2 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 2 !$omp end parallel allocate (a, b(6:9), c(3, 8:9)) a = 4 b = 5 c = 6 - if (.not.allocated (a)) STOP 3 - if (.not.allocated (b) .or. size (b) /= 4) STOP 4 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 5 - if (.not.allocated (c) .or. size (c) /= 6) STOP 6 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 7 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 8 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 9 + if (.not.allocated (a)) stop 3 + if (.not.allocated (b) .or. size (b) /= 4) stop 4 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 5 + if (.not.allocated (c) .or. size (c) /= 6) stop 6 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 7 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 8 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 9 !$omp parallel num_threads (4) copyin (a, b, c) private (p) p = omp_get_thread_num () - if (.not.allocated (a)) STOP 10 - if (.not.allocated (b) .or. size (b) /= 4) STOP 11 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 12 - if (.not.allocated (c) .or. size (c) /= 6) STOP 13 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 14 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 15 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 16 - if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) STOP 17 + if (.not.allocated (a)) stop 10 + if (.not.allocated (b) .or. size (b) /= 4) stop 11 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 12 + if (.not.allocated (c) .or. size (c) /= 6) stop 13 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 14 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 15 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 16 + if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) stop 17 deallocate (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 18 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 18 allocate (a, b(p:9), c(3, p:7)) a = p b = p c = p - if (.not.allocated (a)) STOP 19 - if (.not.allocated (b) .or. size (b) /= (10 - p)) STOP 20 - if (lbound (b, 1) /= p .or. ubound (b, 1) /= 9) STOP 21 - if (.not.allocated (c) .or. size (c) /= (3 * (8 - p))) STOP 22 - if (size (c, 1) /= 3 .or. size (c, 2) /= (8 - p)) STOP 23 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 24 - if (lbound (c, 2) /= p .or. ubound (c, 2) /= 7) STOP 25 - if (a /= p .or. any (b /= p) .or. any (c /= p)) STOP 26 + if (.not.allocated (a)) stop 19 + if (.not.allocated (b) .or. size (b) /= (10 - p)) stop 20 + if (lbound (b, 1) /= p .or. ubound (b, 1) /= 9) stop 21 + if (.not.allocated (c) .or. size (c) /= (3 * (8 - p))) stop 22 + if (size (c, 1) /= 3 .or. size (c, 2) /= (8 - p)) stop 23 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 24 + if (lbound (c, 2) /= p .or. ubound (c, 2) /= 7) stop 25 + if (a /= p .or. any (b /= p) .or. any (c /= p)) stop 26 !$omp end parallel !$omp parallel num_threads (4) copyin (a, b, c) - if (.not.allocated (a)) STOP 27 - if (.not.allocated (b) .or. size (b) /= 10) STOP 28 - if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 9) STOP 29 - if (.not.allocated (c) .or. size (c) /= 24) STOP 30 - if (size (c, 1) /= 3 .or. size (c, 2) /= 8) STOP 31 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 32 - if (lbound (c, 2) /= 0 .or. ubound (c, 2) /= 7) STOP 33 - if (a /= 0 .or. any (b /= 0) .or. any (c /= 0)) STOP 34 + if (.not.allocated (a)) stop 27 + if (.not.allocated (b) .or. size (b) /= 10) stop 28 + if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 9) stop 29 + if (.not.allocated (c) .or. size (c) /= 24) stop 30 + if (size (c, 1) /= 3 .or. size (c, 2) /= 8) stop 31 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 32 + if (lbound (c, 2) /= 0 .or. ubound (c, 2) /= 7) stop 33 + if (a /= 0 .or. any (b /= 0) .or. any (c /= 0)) stop 34 !$omp end parallel deallocate (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 35 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 35 !$omp parallel num_threads (4) copyin (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 36 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 36 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable12.f90 b/libgomp/testsuite/libgomp.fortran/allocatable12.f90 index 6ccf1c03..8ce4dd2 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable12.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable12.f90 @@ -2,11 +2,11 @@ integer, allocatable :: a, b(:), c(:,:) logical :: l - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1 !$omp parallel private (a, b, c, l) l = .false. - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 2 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 2 !$omp single allocate (a, b(6:9), c(3, 8:9)) @@ -15,60 +15,60 @@ c = 6 !$omp end single copyprivate (a, b, c) - if (.not.allocated (a)) STOP 3 - if (.not.allocated (b) .or. size (b) /= 4) STOP 4 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 5 - if (.not.allocated (c) .or. size (c) /= 6) STOP 6 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 7 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 8 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 9 - if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) STOP 10 + if (.not.allocated (a)) stop 3 + if (.not.allocated (b) .or. size (b) /= 4) stop 4 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 5 + if (.not.allocated (c) .or. size (c) /= 6) stop 6 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 7 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 8 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 9 + if (a /= 4 .or. any (b /= 5) .or. any (c /= 6)) stop 10 !$omp single deallocate (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 11 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 11 allocate (a, b(0:4), c(3, 2:7)) a = 1 b = 2 c = 3 !$omp end single copyprivate (a, b, c) - if (.not.allocated (a)) STOP 12 - if (.not.allocated (b) .or. size (b) /= 5) STOP 13 - if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) STOP 14 - if (.not.allocated (c) .or. size (c) /= 18) STOP 15 - if (size (c, 1) /= 3 .or. size (c, 2) /= 6) STOP 16 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 17 - if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) STOP 18 - if (a /= 1 .or. any (b /= 2) .or. any (c /= 3)) STOP 19 + if (.not.allocated (a)) stop 12 + if (.not.allocated (b) .or. size (b) /= 5) stop 13 + if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) stop 14 + if (.not.allocated (c) .or. size (c) /= 18) stop 15 + if (size (c, 1) /= 3 .or. size (c, 2) /= 6) stop 16 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 17 + if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) stop 18 + if (a /= 1 .or. any (b /= 2) .or. any (c /= 3)) stop 19 !$omp single l = .true. deallocate (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 20 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 20 allocate (a, b(2:6), c(3:5, 3:8)) a = 7 b = 8 c = 9 !$omp end single copyprivate (a, b, c) - if (.not.allocated (a)) STOP 21 - if (.not.allocated (b) .or. size (b) /= 5) STOP 22 + if (.not.allocated (a)) stop 21 + if (.not.allocated (b) .or. size (b) /= 5) stop 22 if (l) then - if (lbound (b, 1) /= 2 .or. ubound (b, 1) /= 6) STOP 23 + if (lbound (b, 1) /= 2 .or. ubound (b, 1) /= 6) stop 23 else - if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) STOP 24 + if (lbound (b, 1) /= 0 .or. ubound (b, 1) /= 4) stop 24 end if - if (.not.allocated (c) .or. size (c) /= 18) STOP 25 - if (size (c, 1) /= 3 .or. size (c, 2) /= 6) STOP 26 + if (.not.allocated (c) .or. size (c) /= 18) stop 25 + if (size (c, 1) /= 3 .or. size (c, 2) /= 6) stop 26 if (l) then - if (lbound (c, 1) /= 3 .or. ubound (c, 1) /= 5) STOP 27 - if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 8) STOP 28 + if (lbound (c, 1) /= 3 .or. ubound (c, 1) /= 5) stop 27 + if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 8) stop 28 else - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 29 - if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) STOP 30 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 29 + if (lbound (c, 2) /= 2 .or. ubound (c, 2) /= 7) stop 30 end if - if (a /= 7 .or. any (b /= 8) .or. any (c /= 9)) STOP 31 + if (a /= 7 .or. any (b /= 8) .or. any (c /= 9)) stop 31 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable2.f90 b/libgomp/testsuite/libgomp.fortran/allocatable2.f90 index 1361e6d..fa2e774 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable2.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable2.f90 @@ -7,7 +7,7 @@ integer :: n logical :: l !$omp threadprivate (a) - if (allocated (a)) STOP 1 + if (allocated (a)) stop 1 call omp_set_dynamic (.false.) l = .false. !$omp parallel num_threads (4) reduction(.or.:l) @@ -16,7 +16,7 @@ l = l.or..not.allocated (a) l = l.or.size(a).ne.12.or.size(a,1).ne.3.or.size(a,2).ne.4 !$omp end parallel - if (l.or.any(a.ne.6)) STOP 1 + if (l.or.any(a.ne.6)) stop 1 !$omp parallel num_threads (4) copyin (a) reduction(.or.:l) private (b) l = l.or.allocated (b) l = l.or..not.allocated (a) @@ -37,11 +37,11 @@ deallocate (b) l = l.or.allocated (b) !$omp end parallel - if (n.lt.0 .or. n.ge.4) STOP 2 - if (l.or.any(a.ne.(n + 36))) STOP 3 + if (n.lt.0 .or. n.ge.4) stop 2 + if (l.or.any(a.ne.(n + 36))) stop 3 !$omp parallel num_threads (4) reduction(.or.:l) deallocate (a) l = l.or.allocated (a) !$omp end parallel - if (l.or.allocated (a)) STOP 4 + if (l.or.allocated (a)) stop 4 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable3.f90 b/libgomp/testsuite/libgomp.fortran/allocatable3.f90 index df69fff..4663b15 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable3.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable3.f90 @@ -4,7 +4,7 @@ integer :: i logical :: l l = .false. - if (allocated (a)) STOP 1 + if (allocated (a)) stop 1 !$omp parallel private (a) reduction (.or.:l) allocate (a (-7:-5)) l = l.or..not.allocated (a) @@ -18,5 +18,5 @@ l = l.or.any (a.ne.0) deallocate (a) !$omp end parallel - if (l.or.allocated (a)) STOP 2 + if (l.or.allocated (a)) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable4.f90 b/libgomp/testsuite/libgomp.fortran/allocatable4.f90 index 0b0ac17..2a8cf22 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable4.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable4.f90 @@ -6,7 +6,7 @@ logical :: k, l b(:, :) = 16 l = .false. - if (allocated (a)) STOP 1 + if (allocated (a)) stop 1 !$omp task private (a, b) shared (l) l = l.or.allocated (a) allocate (a(3, 6)) @@ -18,19 +18,19 @@ l = l.or.allocated (a) !$omp end task !$omp taskwait - if (allocated (a).or.l) STOP 2 + if (allocated (a).or.l) stop 2 allocate (a(6, 3)) a(:, :) = 3 - if (.not.allocated (a)) STOP 3 + if (.not.allocated (a)) stop 3 l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3 - if (l) STOP 4 + if (l) stop 4 !$omp task private (a, b) shared (l) l = l.or..not.allocated (a) a(3, 2) = 1 b(3, 2) = 1 !$omp end task !$omp taskwait - if (l.or..not.allocated (a)) STOP 5 + if (l.or..not.allocated (a)) stop 5 !$omp task firstprivate (a, b) shared (l) l = l.or..not.allocated (a) l = l.or.size(a).ne.18.or.size(a,1).ne.6.or.size(a,2).ne.3 @@ -43,5 +43,5 @@ b(:, :) = 8 !$omp end task !$omp taskwait - if (any (a.ne.3).or.any (b.ne.16).or.l) STOP 6 + if (any (a.ne.3).or.any (b.ne.16).or.l) stop 6 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable5.f90 b/libgomp/testsuite/libgomp.fortran/allocatable5.f90 index 20ac601..73027e7 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable5.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable5.f90 @@ -12,6 +12,6 @@ program pr42866 a = a + 2 !$omp end sections !$omp end parallel - if (any (a.ne.3)) STOP 1 + if (any (a.ne.3)) stop 1 deallocate (a) end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable6.f90 b/libgomp/testsuite/libgomp.fortran/allocatable6.f90 index 444af1d..b7bfba9 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable6.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable6.f90 @@ -25,10 +25,10 @@ else if (i .gt. 1 .and. i .lt. 9) then j = 7 end if - if (c(i) .ne. j) STOP 1 + if (c(i) .ne. j) stop 1 j = 179 - modulo (i, 11) if (i .gt. 1 .and. i .lt. 9) j = i - if (d(i) .ne. j) STOP 2 + if (d(i) .ne. j) stop 2 end do deallocate (a, b, c, d) end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable7.f90 b/libgomp/testsuite/libgomp.fortran/allocatable7.f90 index 787b035..77cd5be 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable7.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable7.f90 @@ -12,5 +12,5 @@ deallocate (a) l = l .or. allocated (a) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable8.f90 b/libgomp/testsuite/libgomp.fortran/allocatable8.f90 index 84b18f3..d1a216a 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable8.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable8.f90 @@ -5,10 +5,10 @@ integer, save, allocatable :: a(:, :) logical :: l !$omp threadprivate (a) - if (allocated (a)) STOP 1 + if (allocated (a)) stop 1 l = .false. !$omp parallel copyin (a) num_threads (4) reduction(.or.:l) l = l.or.allocated (a) !$omp end parallel - if (l.or.allocated (a)) STOP 2 + if (l.or.allocated (a)) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/allocatable9.f90 b/libgomp/testsuite/libgomp.fortran/allocatable9.f90 index c7decfb..a9929f7 100644 --- a/libgomp/testsuite/libgomp.fortran/allocatable9.f90 +++ b/libgomp/testsuite/libgomp.fortran/allocatable9.f90 @@ -2,155 +2,155 @@ integer, allocatable :: a, b(:), c(:,:) logical :: l - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 1 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 1 !$omp parallel private (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 2 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 2 allocate (a, b(-7:-1), c(2:3, 3:5)) - if (.not.allocated (a)) STOP 3 - if (.not.allocated (b) .or. size (b) /= 7) STOP 4 - if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) STOP 5 - if (.not.allocated (c) .or. size (c) /= 6) STOP 6 - if (size (c, 1) /= 2 .or. size (c, 2) /= 3) STOP 7 - if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) STOP 8 - if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) STOP 9 + if (.not.allocated (a)) stop 3 + if (.not.allocated (b) .or. size (b) /= 7) stop 4 + if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) stop 5 + if (.not.allocated (c) .or. size (c) /= 6) stop 6 + if (size (c, 1) /= 2 .or. size (c, 2) /= 3) stop 7 + if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) stop 8 + if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) stop 9 a = 4 b = 3 c = 2 !$omp end parallel - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 10 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 10 !$omp parallel firstprivate (a, b, c) - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 11 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 11 allocate (a, b(-7:-1), c(2:3, 3:5)) - if (.not.allocated (a)) STOP 12 - if (.not.allocated (b) .or. size (b) /= 7) STOP 13 - if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) STOP 14 - if (.not.allocated (c) .or. size (c) /= 6) STOP 15 - if (size (c, 1) /= 2 .or. size (c, 2) /= 3) STOP 16 - if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) STOP 17 - if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) STOP 18 + if (.not.allocated (a)) stop 12 + if (.not.allocated (b) .or. size (b) /= 7) stop 13 + if (lbound (b, 1) /= -7 .or. ubound (b, 1) /= -1) stop 14 + if (.not.allocated (c) .or. size (c) /= 6) stop 15 + if (size (c, 1) /= 2 .or. size (c, 2) /= 3) stop 16 + if (lbound (c, 1) /= 2 .or. ubound (c, 1) /= 3) stop 17 + if (lbound (c, 2) /= 3 .or. ubound (c, 2) /= 5) stop 18 a = 4 b = 3 c = 2 !$omp end parallel - if (allocated (a) .or. allocated (b) .or. allocated (c)) STOP 19 + if (allocated (a) .or. allocated (b) .or. allocated (c)) stop 19 allocate (a, b(6:9), c(3, 8:9)) a = 2 b = 4 c = 5 - if (.not.allocated (a)) STOP 20 - if (.not.allocated (b) .or. size (b) /= 4) STOP 21 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 22 - if (.not.allocated (c) .or. size (c) /= 6) STOP 23 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 24 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 25 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 26 + if (.not.allocated (a)) stop 20 + if (.not.allocated (b) .or. size (b) /= 4) stop 21 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 22 + if (.not.allocated (c) .or. size (c) /= 6) stop 23 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 24 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 25 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 26 !$omp parallel firstprivate (a, b, c) - if (.not.allocated (a)) STOP 27 - if (.not.allocated (b) .or. size (b) /= 4) STOP 28 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 29 - if (.not.allocated (c) .or. size (c) /= 6) STOP 30 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 31 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 32 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 33 - if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) STOP 34 + if (.not.allocated (a)) stop 27 + if (.not.allocated (b) .or. size (b) /= 4) stop 28 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 29 + if (.not.allocated (c) .or. size (c) /= 6) stop 30 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 31 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 32 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 33 + if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) stop 34 deallocate (a) - if (allocated (a)) STOP 35 + if (allocated (a)) stop 35 allocate (a) a = 8 b = (/ 1, 2, 3 /) c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 2, 4 /)) - if (.not.allocated (a)) STOP 36 - if (.not.allocated (b) .or. size (b) /= 3) STOP 37 - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) STOP 38 - if (.not.allocated (c) .or. size (c) /= 8) STOP 39 - if (size (c, 1) /= 2 .or. size (c, 2) /= 4) STOP 40 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) STOP 41 - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) STOP 42 - if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) STOP 43 + if (.not.allocated (a)) stop 36 + if (.not.allocated (b) .or. size (b) /= 3) stop 37 + if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) stop 38 + if (.not.allocated (c) .or. size (c) /= 8) stop 39 + if (size (c, 1) /= 2 .or. size (c, 2) /= 4) stop 40 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) stop 41 + if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) stop 42 + if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) stop 43 !$omp end parallel - if (.not.allocated (a)) STOP 44 - if (.not.allocated (b) .or. size (b) /= 4) STOP 45 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 46 - if (.not.allocated (c) .or. size (c) /= 6) STOP 47 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 48 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 49 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 50 - if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) STOP 51 + if (.not.allocated (a)) stop 44 + if (.not.allocated (b) .or. size (b) /= 4) stop 45 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 46 + if (.not.allocated (c) .or. size (c) /= 6) stop 47 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 48 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 49 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 50 + if (a /= 2 .or. any (b .ne. 4) .or. any (c .ne. 5)) stop 51 l = .false. !$omp parallel sections lastprivate (a, b, c) firstprivate (l) !$omp section - if (.not.allocated (a)) STOP 52 + if (.not.allocated (a)) stop 52 if (l) then - if (.not.allocated (b) .or. size (b) /= 6) STOP 53 - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) STOP 54 - if (.not.allocated (c) .or. size (c) /= 8) STOP 55 - if (size (c, 1) /= 4 .or. size (c, 2) /= 2) STOP 56 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) STOP 57 - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) STOP 58 - if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) STOP 59 + if (.not.allocated (b) .or. size (b) /= 6) stop 53 + if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) stop 54 + if (.not.allocated (c) .or. size (c) /= 8) stop 55 + if (size (c, 1) /= 4 .or. size (c, 2) /= 2) stop 56 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) stop 57 + if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) stop 58 + if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) stop 59 else - if (.not.allocated (b) .or. size (b) /= 4) STOP 60 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 61 - if (.not.allocated (c) .or. size (c) /= 6) STOP 62 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 63 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 64 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 65 + if (.not.allocated (b) .or. size (b) /= 4) stop 60 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 61 + if (.not.allocated (c) .or. size (c) /= 6) stop 62 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 63 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 64 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 65 end if l = .true. deallocate (a) - if (allocated (a)) STOP 66 + if (allocated (a)) stop 66 allocate (a) a = 8 b = (/ 1, 2, 3 /) c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 2, 4 /)) - if (.not.allocated (a)) STOP 67 - if (.not.allocated (b) .or. size (b) /= 3) STOP 68 - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) STOP 69 - if (.not.allocated (c) .or. size (c) /= 8) STOP 70 - if (size (c, 1) /= 2 .or. size (c, 2) /= 4) STOP 71 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) STOP 72 - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) STOP 73 - if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) STOP 74 + if (.not.allocated (a)) stop 67 + if (.not.allocated (b) .or. size (b) /= 3) stop 68 + if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) stop 69 + if (.not.allocated (c) .or. size (c) /= 8) stop 70 + if (size (c, 1) /= 2 .or. size (c, 2) /= 4) stop 71 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) stop 72 + if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) stop 73 + if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) stop 74 !$omp section - if (.not.allocated (a)) STOP 75 + if (.not.allocated (a)) stop 75 if (l) then - if (.not.allocated (b) .or. size (b) /= 3) STOP 76 - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) STOP 77 - if (.not.allocated (c) .or. size (c) /= 8) STOP 78 - if (size (c, 1) /= 2 .or. size (c, 2) /= 4) STOP 79 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) STOP 80 - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) STOP 81 - if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) STOP 82 + if (.not.allocated (b) .or. size (b) /= 3) stop 76 + if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 3) stop 77 + if (.not.allocated (c) .or. size (c) /= 8) stop 78 + if (size (c, 1) /= 2 .or. size (c, 2) /= 4) stop 79 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 2) stop 80 + if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 4) stop 81 + if (a /= 8 .or. b(2) /= 2 .or. c(1, 2) /= 3) stop 82 else - if (.not.allocated (b) .or. size (b) /= 4) STOP 83 - if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) STOP 84 - if (.not.allocated (c) .or. size (c) /= 6) STOP 85 - if (size (c, 1) /= 3 .or. size (c, 2) /= 2) STOP 86 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) STOP 87 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) STOP 88 + if (.not.allocated (b) .or. size (b) /= 4) stop 83 + if (lbound (b, 1) /= 6 .or. ubound (b, 1) /= 9) stop 84 + if (.not.allocated (c) .or. size (c) /= 6) stop 85 + if (size (c, 1) /= 3 .or. size (c, 2) /= 2) stop 86 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 3) stop 87 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 9) stop 88 end if l = .true. deallocate (a) - if (allocated (a)) STOP 89 + if (allocated (a)) stop 89 allocate (a) a = 12 b = (/ 9, 8, 7, 6, 5, 4 /) c = reshape ((/ 1, 2, 3, 4, 5, 6, 7, 8 /), (/ 4, 2 /)) - if (.not.allocated (a)) STOP 90 - if (.not.allocated (b) .or. size (b) /= 6) STOP 91 - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) STOP 92 - if (.not.allocated (c) .or. size (c) /= 8) STOP 93 - if (size (c, 1) /= 4 .or. size (c, 2) /= 2) STOP 94 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) STOP 95 - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) STOP 96 - if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) STOP 97 + if (.not.allocated (a)) stop 90 + if (.not.allocated (b) .or. size (b) /= 6) stop 91 + if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) stop 92 + if (.not.allocated (c) .or. size (c) /= 8) stop 93 + if (size (c, 1) /= 4 .or. size (c, 2) /= 2) stop 94 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) stop 95 + if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) stop 96 + if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) stop 97 !$omp end parallel sections - if (.not.allocated (a)) STOP 98 - if (.not.allocated (b) .or. size (b) /= 6) STOP 99 - if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) STOP 100 - if (.not.allocated (c) .or. size (c) /= 8) STOP 101 - if (size (c, 1) /= 4 .or. size (c, 2) /= 2) STOP 102 - if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) STOP 103 - if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) STOP 104 - if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) STOP 105 + if (.not.allocated (a)) stop 98 + if (.not.allocated (b) .or. size (b) /= 6) stop 99 + if (lbound (b, 1) /= 1 .or. ubound (b, 1) /= 6) stop 100 + if (.not.allocated (c) .or. size (c) /= 8) stop 101 + if (size (c, 1) /= 4 .or. size (c, 2) /= 2) stop 102 + if (lbound (c, 1) /= 1 .or. ubound (c, 1) /= 4) stop 103 + if (lbound (c, 2) /= 1 .or. ubound (c, 2) /= 2) stop 104 + if (a /= 12 .or. b(2) /= 8 .or. c(1, 2) /= 5) stop 105 end diff --git a/libgomp/testsuite/libgomp.fortran/associate1.f90 b/libgomp/testsuite/libgomp.fortran/associate1.f90 index c7930c7..31ecaf0 100644 --- a/libgomp/testsuite/libgomp.fortran/associate1.f90 +++ b/libgomp/testsuite/libgomp.fortran/associate1.f90 @@ -12,12 +12,12 @@ program associate1 !$omp parallel private(v, a) default(none) v = -1 a = 2.5 - if (v /= -1 .or. u /= 15) STOP 1 - if (a(2,1) /= 2.5 .or. b /= 3.5) STOP 2 + if (v /= -1 .or. u /= 15) stop 1 + if (a(2,1) /= 2.5 .or. b /= 3.5) stop 2 associate(u => v, b => a(2, 1)) - if (u /= -1 .or. b /= 2.5) STOP 3 + if (u /= -1 .or. b /= 2.5) stop 3 end associate - if (u /= 15 .or. b /= 3.5) STOP 4 + if (u /= 15 .or. b /= 3.5) stop 4 !$omp end parallel end associate end program diff --git a/libgomp/testsuite/libgomp.fortran/associate2.f90 b/libgomp/testsuite/libgomp.fortran/associate2.f90 index fbeae95..63d172b 100644 --- a/libgomp/testsuite/libgomp.fortran/associate2.f90 +++ b/libgomp/testsuite/libgomp.fortran/associate2.f90 @@ -20,12 +20,12 @@ program associate2 !$omp parallel private(v, a) default(none) v = -1 forall (k = 1:3, l = 1:3) a(k, l)%a(:,:) = 2.5 - if (v(3) /= -1 .or. u(3) /= 15) STOP 1 - if (a(2,1)%a(1,2) /= 2.5 .or. b(1,2) /= 3.5) STOP 2 + if (v(3) /= -1 .or. u(3) /= 15) stop 1 + if (a(2,1)%a(1,2) /= 2.5 .or. b(1,2) /= 3.5) stop 2 associate(u => v, b => a(2, 1)%a) - if (u(3) /= -1 .or. b(1,2) /= 2.5) STOP 3 + if (u(3) /= -1 .or. b(1,2) /= 2.5) stop 3 end associate - if (u(3) /= 15 .or. b(1,2) /= 3.5) STOP 4 + if (u(3) /= 15 .or. b(1,2) /= 3.5) stop 4 !$omp end parallel end associate forall (k = 1:3, l = 1:3) a(k, l)%c(:,:)%i = 7 @@ -35,12 +35,12 @@ program associate2 associate(d => a(i, j)%c(2,:)%i) !$omp parallel private(a) default(none) forall (k = 1:3, l = 1:3) a(k, l)%c(:,:)%i = 15 - if (a(1,2)%c(2,1)%i /= 15 .or. d(1) /= 9) STOP 5 - if (a(1,2)%c(2,2)%i /= 15 .or. d(2) /= 7) STOP 6 + if (a(1,2)%c(2,1)%i /= 15 .or. d(1) /= 9) stop 5 + if (a(1,2)%c(2,2)%i /= 15 .or. d(2) /= 7) stop 6 associate(d => a(2,1)%c(2,:)%i) - if (d(1) /= 15 .or. d(2) /= 15) STOP 7 + if (d(1) /= 15 .or. d(2) /= 15) stop 7 end associate - if (d(1) /= 9 .or. d(2) /= 7) STOP 8 + if (d(1) /= 9 .or. d(2) /= 7) stop 8 !$omp end parallel end associate end program diff --git a/libgomp/testsuite/libgomp.fortran/associate3.f90 b/libgomp/testsuite/libgomp.fortran/associate3.f90 index da788a4..29c2dd3 100644 --- a/libgomp/testsuite/libgomp.fortran/associate3.f90 +++ b/libgomp/testsuite/libgomp.fortran/associate3.f90 @@ -16,5 +16,5 @@ if (j.eq.1) k = 7 end do end associate - if (any (v%f(:).ne.21.) .or. i.ne.7) STOP 1 + if (any (v%f(:).ne.21.) .or. i.ne.7) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/async_io_4.f90 b/libgomp/testsuite/libgomp.fortran/async_io_4.f90 index a21ffae..1ff76b4 100644 --- a/libgomp/testsuite/libgomp.fortran/async_io_4.f90 +++ b/libgomp/testsuite/libgomp.fortran/async_io_4.f90 @@ -17,13 +17,13 @@ program main i = 41 read (20,*, asynchronous="yes") i wait (20) - if (i .ne. 1) STOP 1 + if (i .ne. 1) stop 1 write (*,*) ' ' backspace (20) i = 42 read (20,*, asynchronous="yes") i close (20) - if (i .ne. 1) STOP 2 + if (i .ne. 1) stop 2 ! PR libfortran/20125 open (20, status='scratch', asynchronous="yes") @@ -31,14 +31,14 @@ program main backspace (20) read (20,*, asynchronous="yes") i wait (20) - if (i .ne. 7) STOP 3 + if (i .ne. 7) stop 3 close (20) open (20, status='scratch', form='unformatted') write (20) 8 backspace (20) read (20) i - if (i .ne. 8) STOP 4 + if (i .ne. 8) stop 4 close (20) ! PR libfortran/20471 @@ -52,7 +52,7 @@ program main read (3) (y(n),n=1,10) do n = 1, 10 - if (abs(x(n)-y(n)) > 0.00001) STOP 5 + if (abs(x(n)-y(n)) > 0.00001) stop 5 end do close (3) @@ -69,7 +69,7 @@ program main nr = nr + 1 goto 20 30 continue - if (nr .ne. 5) STOP 6 + if (nr .ne. 5) stop 6 do i = 1, nr+1 backspace (3) @@ -77,14 +77,14 @@ program main do i = 1, nr read(3,end=70,err=90) n, (x(n),n=1,10) - if (abs(x(1) - i) .gt. 0.001) STOP 7 + if (abs(x(1) - i) .gt. 0.001) stop 7 end do close (3) stop 70 continue - STOP 8 + stop 8 90 continue - STOP 9 + stop 9 end program diff --git a/libgomp/testsuite/libgomp.fortran/async_io_5.f90 b/libgomp/testsuite/libgomp.fortran/async_io_5.f90 index 916e78a..56487bb 100644 --- a/libgomp/testsuite/libgomp.fortran/async_io_5.f90 +++ b/libgomp/testsuite/libgomp.fortran/async_io_5.f90 @@ -20,20 +20,20 @@ close(99) ! Test character kind open(99, file="test.dat") read (99,*, iostat=stat) cvar -if (stat /= 0 .or. cvar /= "1") STOP 1 +if (stat /= 0 .or. cvar /= "1") stop 1 read (99,*, iostat=stat) cvar -if (stat /= 0 .or. cvar /= "2") STOP 2 +if (stat /= 0 .or. cvar /= "2") stop 2 read (99,*, iostat=stat) cvar ! << FAILS: stat /= 0 -if (stat /= 0 .or. cvar /= "3") STOP 3 ! << aborts here +if (stat /= 0 .or. cvar /= "3") stop 3 ! << aborts here ! Test real kind rewind(99) read (99,*, iostat=stat) var -if (stat /= 0 .or. var /= 1.0) STOP 4 +if (stat /= 0 .or. var /= 1.0) stop 4 read (99,*, iostat=stat) var -if (stat /= 0 .or. var /= 2.0) STOP 5 +if (stat /= 0 .or. var /= 2.0) stop 5 read (99,*, iostat=stat) var ! << FAILS: stat /= 0 -if (stat /= 0 .or. var /= 3.0) STOP 6 +if (stat /= 0 .or. var /= 3.0) stop 6 close(99, status="delete") ! Test real kind with exponents @@ -45,11 +45,11 @@ close(99) open(99, file="test.dat") read (99,*, iostat=stat) var -if (stat /= 0) STOP 7 +if (stat /= 0) stop 7 read (99,*, iostat=stat) var -if (stat /= 0) STOP 8 +if (stat /= 0) stop 8 read (99,*) var ! << FAILS: stat /= 0 -if (stat /= 0) STOP 9 +if (stat /= 0) stop 9 close(99, status="delete") ! Test logical kind @@ -61,11 +61,11 @@ close(99) open(99, file="test.dat") read (99,*, iostat=stat) lvar -if (stat /= 0 .or. (.not.lvar)) STOP 10 +if (stat /= 0 .or. (.not.lvar)) stop 10 read (99,*, iostat=stat) lvar -if (stat /= 0 .or. lvar) STOP 11 +if (stat /= 0 .or. lvar) stop 11 read (99,*) lvar ! << FAILS: stat /= 0 -if (stat /= 0 .or. (.not.lvar)) STOP 12 +if (stat /= 0 .or. (.not.lvar)) stop 12 close(99, status="delete") ! Test combinations of Inf and Nan @@ -77,11 +77,11 @@ close(99) open(99, file="test.dat") read (99,*, iostat=stat) var -if (stat /= 0) STOP 13 +if (stat /= 0) stop 13 read (99,*, iostat=stat) var -if (stat /= 0) STOP 14 +if (stat /= 0) stop 14 read (99,*) var ! << FAILS: stat /= 0 -if (stat /= 0) STOP 1! << aborts here +if (stat /= 0) stop 1! << aborts here close(99, status="delete") open(99, file="test.dat", access="stream", form="unformatted", status="new") @@ -92,11 +92,11 @@ close(99) open(99, file="test.dat") read (99,*, iostat=stat) var -if (stat /= 0) STOP 15 +if (stat /= 0) stop 15 read (99,*, iostat=stat) var -if (stat /= 0) STOP 16 +if (stat /= 0) stop 16 read (99,*) var ! << FAILS: stat /= 0 -if (stat /= 0) STOP 2! << aborts here +if (stat /= 0) stop 2! << aborts here close(99, status="delete") open(99, file="test.dat", access="stream", form="unformatted", status="new") @@ -107,11 +107,11 @@ close(99) open(99, file="test.dat") read (99,*, iostat=stat) var -if (stat /= 0) STOP 17 +if (stat /= 0) stop 17 read (99,*, iostat=stat) var -if (stat /= 0) STOP 18 +if (stat /= 0) stop 18 read (99,*) var ! << FAILS: stat /= 0 -if (stat /= 0) STOP 3! << aborts here +if (stat /= 0) stop 3! << aborts here close(99, status="delete") ! Test complex kind @@ -123,10 +123,10 @@ close(99) open(99, file="test.dat") read (99,*, iostat=stat) cval -if (stat /= 0 .or. cval /= cmplx(1,2)) STOP 19 +if (stat /= 0 .or. cval /= cmplx(1,2)) stop 19 read (99,*, iostat=stat) cval -if (stat /= 0 .or. cval /= cmplx(2,3)) STOP 20 +if (stat /= 0 .or. cval /= cmplx(2,3)) stop 20 read (99,*, iostat=stat) cval ! << FAILS: stat /= 0, value is okay -if (stat /= 0 .or. cval /= cmplx(4,5)) STOP 21 +if (stat /= 0 .or. cval /= cmplx(4,5)) stop 21 close(99, status="delete") end diff --git a/libgomp/testsuite/libgomp.fortran/async_io_6.f90 b/libgomp/testsuite/libgomp.fortran/async_io_6.f90 index f19c037..75f5ca7 100644 --- a/libgomp/testsuite/libgomp.fortran/async_io_6.f90 +++ b/libgomp/testsuite/libgomp.fortran/async_io_6.f90 @@ -17,12 +17,12 @@ program flush_1 write (10, *) 42 flush(unit=10, iostat=ios) - if (ios /= 0) STOP 1 + if (ios /= 0) stop 1 write (10, *) 42 flush (unit=10, err=20) goto 30 -20 STOP 2 +20 stop 2 30 continue call flush(10) diff --git a/libgomp/testsuite/libgomp.fortran/async_io_7.f90 b/libgomp/testsuite/libgomp.fortran/async_io_7.f90 index a7ce9ba..0c8dd1b 100644 --- a/libgomp/testsuite/libgomp.fortran/async_io_7.f90 +++ b/libgomp/testsuite/libgomp.fortran/async_io_7.f90 @@ -16,7 +16,7 @@ program newunit_1 rewind(myunit) rewind(myunit2) read(myunit2,'(a)') str - if (str.ne." abcdefghijklmnop") STOP 1 + if (str.ne." abcdefghijklmnop") stop 1 close(myunit) close(myunit2, status="delete") end program newunit_1 diff --git a/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 b/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 index 84009ec..1c44e25 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-do-1.f90 @@ -8,7 +8,7 @@ !$omp do do i = 0, 999 !$omp cancel do - if (omp_get_cancellation ()) STOP 1 + if (omp_get_cancellation ()) stop 1 enddo !$omp endparallel end diff --git a/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 b/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 index 9d8e91c..b5cca93 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-do-2.f90 @@ -22,7 +22,7 @@ contains !$omp do do i = 0, 999 !$omp cancel do if (x(1)) - STOP 1 + stop 1 end do !$omp do do i = 0, 999 @@ -47,7 +47,7 @@ contains end do !$omp end do !$omp end parallel - if (v.ne.3000.or.w.ne.0) STOP 2 + if (v.ne.3000.or.w.ne.0) stop 2 !$omp parallel num_threads (32) shared (v, w) ! None of these cancel directives should actually cancel anything, ! but the compiler shouldn't know that and thus should use cancellable @@ -56,7 +56,7 @@ contains !$omp do do i = 0, 999 !$omp cancel do if (x(1)) - STOP 3 + stop 3 end do !$omp cancel parallel if (omp_get_thread_num ().eq.2.and.x(5)) !$omp do @@ -85,6 +85,6 @@ contains !$omp end do !$omp cancel parallel if (omp_get_thread_num ().eq.5.and.x(5)) !$omp end parallel - if (v.ne.6000.or.w.ne.0) STOP 4 + if (v.ne.6000.or.w.ne.0) stop 4 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 b/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 index dc0f69b..7598701 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-parallel-1.f90 @@ -5,6 +5,6 @@ !$omp parallel num_threads(32) !$omp cancel parallel - if (omp_get_cancellation ()) STOP 1 + if (omp_get_cancellation ()) stop 1 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 b/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 index 7e1d4b3..cfc3903 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-sections-1.f90 @@ -7,16 +7,16 @@ !$omp parallel num_threads(32) !$omp sections !$omp cancel sections - STOP 1 + stop 1 !$omp section !$omp cancel sections - STOP 2 + stop 2 !$omp section !$omp cancel sections - STOP 3 + stop 3 !$omp section !$omp cancel sections - STOP 4 + stop 4 !$omp end sections !$omp end parallel end if diff --git a/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 b/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 index 54c5220..693241e 100644 --- a/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/cancel-taskgroup-2.f90 @@ -8,7 +8,7 @@ !$omp taskgroup !$omp task !$omp cancel taskgroup - STOP 1 + stop 1 !$omp endtask !$omp endtaskgroup !$omp endparallel diff --git a/libgomp/testsuite/libgomp.fortran/character1.f90 b/libgomp/testsuite/libgomp.fortran/character1.f90 index a672b7d..eb3c21d 100644 --- a/libgomp/testsuite/libgomp.fortran/character1.f90 +++ b/libgomp/testsuite/libgomp.fortran/character1.f90 @@ -67,6 +67,6 @@ contains l = l .or. f .ne. 'YY' .or. p .ne. 'm3' .or. r .ne. 'M3' end if !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine test end diff --git a/libgomp/testsuite/libgomp.fortran/character2.f90 b/libgomp/testsuite/libgomp.fortran/character2.f90 index 20a3f07..67ce63a 100644 --- a/libgomp/testsuite/libgomp.fortran/character2.f90 +++ b/libgomp/testsuite/libgomp.fortran/character2.f90 @@ -56,6 +56,6 @@ contains l = l .or. t .ne. '456' end if !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine test end diff --git a/libgomp/testsuite/libgomp.fortran/collapse1.f90 b/libgomp/testsuite/libgomp.fortran/collapse1.f90 index 3777b52..c220855 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse1.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse1.f90 @@ -22,5 +22,5 @@ program collapse1 end do end do !$omp end parallel do - if (l) STOP 1 + if (l) stop 1 end program collapse1 diff --git a/libgomp/testsuite/libgomp.fortran/collapse2.f90 b/libgomp/testsuite/libgomp.fortran/collapse2.f90 index 32d9fdd..47cd7c9 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse2.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse2.f90 @@ -25,7 +25,7 @@ firstdo: do i = 1, 3 end do end do firstdo !$omp end parallel do - if (l) STOP 1 + if (l) stop 1 end subroutine test1 subroutine test2 @@ -38,7 +38,7 @@ firstdo: do i = 1, 3 enddo enddo dokk 115 continue - if (any(a(1:3,1:3,1:3).ne.1)) STOP 2 + if (any(a(1:3,1:3,1:3).ne.1)) stop 2 !$omp do collapse(3) dol: do 120 l=1,3 @@ -48,7 +48,7 @@ firstdo: do i = 1, 3 enddo enddo doll 120 end do dol - if (any(a(1:3,1:3,1:3).ne.2)) STOP 3 + if (any(a(1:3,1:3,1:3).ne.2)) stop 3 end subroutine test2 end program collapse2 diff --git a/libgomp/testsuite/libgomp.fortran/collapse3.f90 b/libgomp/testsuite/libgomp.fortran/collapse3.f90 index 001dc2a..d463b4f 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse3.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse3.f90 @@ -24,8 +24,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 1 - if (m.ne.(600+40+18)) STOP 2 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 1 + if (m.ne.(600+40+18)) stop 2 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -56,8 +56,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 3 - if (m.ne.(600+40+18)) STOP 4 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 3 + if (m.ne.(600+40+18)) stop 4 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -88,8 +88,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 5 - if (m.ne.(600+40+18)) STOP 6 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 5 + if (m.ne.(600+40+18)) stop 6 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -120,8 +120,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 7 - if (m.ne.(600+40+18)) STOP 8 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 7 + if (m.ne.(600+40+18)) stop 8 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -153,8 +153,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 9 - if (m.ne.(600+40+18)) STOP 10 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 9 + if (m.ne.(600+40+18)) stop 10 do i = 1, 7 do j = -3, 5 do k = 12, 19 @@ -186,8 +186,8 @@ contains end do end do end do - if (i.ne.7.or.j.ne.5.or.k.ne.19) STOP 11 - if (m.ne.(600+40+18)) STOP 12 + if (i.ne.7.or.j.ne.5.or.k.ne.19) stop 11 + if (m.ne.(600+40+18)) stop 12 do i = 1, 7 do j = -3, 5 do k = 12, 19 diff --git a/libgomp/testsuite/libgomp.fortran/collapse4.f90 b/libgomp/testsuite/libgomp.fortran/collapse4.f90 index 2019d8d..8c28571 100644 --- a/libgomp/testsuite/libgomp.fortran/collapse4.f90 +++ b/libgomp/testsuite/libgomp.fortran/collapse4.f90 @@ -8,5 +8,5 @@ end do end do end do - if (i .ne. 18 .or. j .ne. 7 .or. k .ne. 6) STOP 1 + if (i .ne. 18 .or. j .ne. 7 .or. k .ne. 6) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/crayptr1.f90 b/libgomp/testsuite/libgomp.fortran/crayptr1.f90 index 28e2aa6..2340257 100644 --- a/libgomp/testsuite/libgomp.fortran/crayptr1.f90 +++ b/libgomp/testsuite/libgomp.fortran/crayptr1.f90 @@ -26,7 +26,7 @@ l = l .or. p .ne. 3 !$omp end parallel - if (l) STOP 1 + if (l) stop 1 l = .false. !$omp parallel num_threads (2) reduction (.or.:l) default (private) @@ -41,6 +41,6 @@ l = l .or. p .ne. 3 * omp_get_thread_num () + 5 !$omp end parallel - if (l) STOP 2 + if (l) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/crayptr2.f90 b/libgomp/testsuite/libgomp.fortran/crayptr2.f90 index 2847de9..3014be8 100644 --- a/libgomp/testsuite/libgomp.fortran/crayptr2.f90 +++ b/libgomp/testsuite/libgomp.fortran/crayptr2.f90 @@ -27,5 +27,5 @@ l = l .or. (p .ne. d + 1) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/crayptr3.f90 b/libgomp/testsuite/libgomp.fortran/crayptr3.f90 index bb48f9e..2d360fa 100644 --- a/libgomp/testsuite/libgomp.fortran/crayptr3.f90 +++ b/libgomp/testsuite/libgomp.fortran/crayptr3.f90 @@ -18,7 +18,7 @@ l = l .or. (p .ne. (2 + omp_get_thread_num ())) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 l = .false. ip = loc (a) @@ -31,6 +31,6 @@ l = l .or. (p .ne. (2 + i)) end do - if (l) STOP 2 - if (p .ne. 3) STOP 3 + if (l) stop 2 + if (p .ne. 3) stop 3 end diff --git a/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 b/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 index c5b021d..cb8f4df 100644 --- a/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/declare-simd-1.f90 @@ -61,7 +61,7 @@ end module declare_simd_1_mod do i = 1, 128 b(i) = bar (a(i), 2 * i, b(i)) end do - if (any (b.ne.d)) STOP 1 + if (any (b.ne.d)) stop 1 !$omp simd do i = 1, 128 b(i) = i * 2.0 @@ -71,7 +71,7 @@ end module declare_simd_1_mod b(i) = baz (7.0_8, 2, b(i)) end do do i = 1, 128 - if (b(i).ne.(7.0 + 4.0 * i)) STOP 2 + if (b(i).ne.(7.0 + 4.0 * i)) stop 2 end do contains function baz (x, y, z) diff --git a/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 b/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 index 85cea9c..3a20e0a 100644 --- a/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/declare-simd-3.f90 @@ -17,6 +17,6 @@ subroutine bar b(i) = foo (7.0_8, 5 * i, b(i)) end do do i = 1, 128 - if (b(i).ne.(7.0 + 10.0 * i * i)) STOP 1 + if (b(i).ne.(7.0 + 10.0 * i * i)) stop 1 end do end subroutine bar diff --git a/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 b/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 index 1fbc0dc..85fc68c 100644 --- a/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/declare-target-2.f90 @@ -14,5 +14,5 @@ subroutine foo !$omp end target !$omp target update from(var_x) - if (var_x /= 20) STOP 1 + if (var_x /= 20) stop 1 end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/depend-1.f90 b/libgomp/testsuite/libgomp.fortran/depend-1.f90 index 5f7bb5f..85792fa 100644 --- a/libgomp/testsuite/libgomp.fortran/depend-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/depend-1.f90 @@ -21,7 +21,7 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 1 + if (x.ne.2) stop 1 !$omp end task !$omp end single !$omp end parallel @@ -36,7 +36,7 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 2 + if (x.ne.2) stop 2 !$omp end task !$omp taskwait !$omp end single @@ -52,7 +52,7 @@ contains x = 2 !$omp endtask !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 3 + if (x.ne.2) stop 3 !$omp endtask !$omp endsingle !$omp endparallel @@ -67,7 +67,7 @@ contains x = 2 !$omp end task !$omp task depend(in: x) - if (x.ne.1) STOP 4 + if (x.ne.1) stop 4 !$omp end task !$omp end single !$omp end parallel @@ -79,7 +79,7 @@ contains !$omp parallel !$omp single !$omp task shared(x) depend(in: x) - if (x.ne.1) STOP 5 + if (x.ne.1) stop 5 !$omp end task !$omp task shared(x) depend(out: x) x = 2 @@ -95,7 +95,7 @@ contains x = 1 !$omp taskgroup !$omp task shared(x) depend(in: x) - if (x.ne.1) STOP 6 + if (x.ne.1) stop 6 !$omp end task !$omp task shared(x) depend(out: x) x = 2 @@ -111,7 +111,7 @@ contains x = 1 !$omp single !$omp task shared(x) depend(in: x) - if (x.ne.1) STOP 7 + if (x.ne.1) stop 7 !$omp end task !$omp task shared(x) depend(out: x) x = 2 @@ -132,7 +132,7 @@ contains x = 2 !$omp end task !$omp taskwait - if (x.ne.2) STOP 8 + if (x.ne.2) stop 8 !$omp end single !$omp end parallel end subroutine outdep @@ -146,13 +146,13 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 9 + if (x.ne.2) stop 9 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 10 + if (x.ne.2) stop 10 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 11 + if (x.ne.2) stop 11 !$omp end task !$omp end single !$omp end parallel @@ -167,13 +167,13 @@ contains x = 2; !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 12 + if (x.ne.2) stop 12 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 13 + if (x.ne.2) stop 13 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 14 + if (x.ne.2) stop 14 !$omp end task !$omp taskwait !$omp end single @@ -189,13 +189,13 @@ contains x = 2 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 15 + if (x.ne.2) stop 15 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 16 + if (x.ne.2) stop 16 !$omp end task !$omp task shared (x) depend(in: x) - if (x.ne.2) STOP 17 + if (x.ne.2) stop 17 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/depend-2.f90 b/libgomp/testsuite/libgomp.fortran/depend-2.f90 index b53ba07..4384c1f 100644 --- a/libgomp/testsuite/libgomp.fortran/depend-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/depend-2.f90 @@ -6,7 +6,7 @@ !$omp single !$omp taskgroup !$omp task depend(in: x(:, :)) - if (y.ne.1) STOP 1 + if (y.ne.1) stop 1 !$omp end task !$omp task depend(out: x(:, :)) y = 2 @@ -14,7 +14,7 @@ !$omp end taskgroup !$omp taskgroup !$omp task depend(in: x(4, 7)) - if (y.ne.2) STOP 2 + if (y.ne.2) stop 2 !$omp end task !$omp task depend(out: x(4:4, 7:7)) y = 3 @@ -22,7 +22,7 @@ !$omp end taskgroup !$omp taskgroup !$omp task depend(in: x(4:, 8:)) - if (y.ne.3) STOP 3 + if (y.ne.3) stop 3 !$omp end task !$omp task depend(out: x(4:6, 8:12)) y = 4 @@ -30,5 +30,5 @@ !$omp end taskgroup !$omp end single !$omp end parallel - if (y.ne.4) STOP 4 + if (y.ne.4) stop 4 end diff --git a/libgomp/testsuite/libgomp.fortran/depend-3.f90 b/libgomp/testsuite/libgomp.fortran/depend-3.f90 index 09478da..aa948ed 100644 --- a/libgomp/testsuite/libgomp.fortran/depend-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/depend-3.f90 @@ -13,7 +13,7 @@ contains !$omp single !$omp taskgroup !$omp task depend(in: x) - if (y.ne.1) STOP 1 + if (y.ne.1) stop 1 !$omp end task !$omp task depend(out: x(1:2, 1:3)) y = 2 @@ -21,7 +21,7 @@ contains !$omp end taskgroup !$omp taskgroup !$omp task depend(in: z) - if (y.ne.2) STOP 2 + if (y.ne.2) stop 2 !$omp end task !$omp task depend(out: z(-2:3, 2:4)) y = 3 @@ -29,7 +29,7 @@ contains !$omp end taskgroup !$omp taskgroup !$omp task depend(in: x) - if (y.ne.3) STOP 3 + if (y.ne.3) stop 3 !$omp end task !$omp task depend(out: x(1:, 1:)) y = 4 @@ -37,6 +37,6 @@ contains !$omp end taskgroup !$omp end single !$omp end parallel - if (y.ne.4) STOP 4 + if (y.ne.4) stop 4 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/do1.f90 b/libgomp/testsuite/libgomp.fortran/do1.f90 index bb7b6d8..e85f637 100644 --- a/libgomp/testsuite/libgomp.fortran/do1.f90 +++ b/libgomp/testsuite/libgomp.fortran/do1.f90 @@ -47,7 +47,7 @@ !$omp end parallel - if (any (a .ne. b)) STOP 1 + if (any (a .ne. b)) stop 1 a = -1 !$omp parallel num_threads (4) @@ -79,7 +79,7 @@ !$omp end parallel - if (any (a .ne. b)) STOP 2 + if (any (a .ne. b)) stop 2 a = -1 !$omp parallel num_threads (4) @@ -111,7 +111,7 @@ !$omp end parallel - if (any (a .ne. b)) STOP 3 + if (any (a .ne. b)) stop 3 a = -1 !$omp parallel num_threads (4) @@ -143,7 +143,7 @@ !$omp end parallel - if (any (a .ne. b)) STOP 4 + if (any (a .ne. b)) stop 4 a = -1 !$omp parallel num_threads (4) @@ -175,5 +175,5 @@ !$omp end parallel - if (any (a .ne. b)) STOP 5 + if (any (a .ne. b)) stop 5 end diff --git a/libgomp/testsuite/libgomp.fortran/do2.f90 b/libgomp/testsuite/libgomp.fortran/do2.f90 index 11e3b8c..b608183 100644 --- a/libgomp/testsuite/libgomp.fortran/do2.f90 +++ b/libgomp/testsuite/libgomp.fortran/do2.f90 @@ -86,7 +86,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) STOP 1 + if (any (a .ne. b) .or. k) stop 1 a = -1 k = .false. j = 8 @@ -155,7 +155,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) STOP 2 + if (any (a .ne. b) .or. k) stop 2 a = -1 k = .false. j = 8 @@ -224,7 +224,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) STOP 3 + if (any (a .ne. b) .or. k) stop 3 a = -1 k = .false. j = 8 @@ -293,7 +293,7 @@ !$omp end parallel - if (any (a .ne. b) .or. k) STOP 4 + if (any (a .ne. b) .or. k) stop 4 a = -1 k = .false. j = 8 @@ -362,5 +362,5 @@ !$omp end parallel - if (any (a .ne. b) .or. k) STOP 5 + if (any (a .ne. b) .or. k) stop 5 end diff --git a/libgomp/testsuite/libgomp.fortran/do_concurrent_5.f90 b/libgomp/testsuite/libgomp.fortran/do_concurrent_5.f90 index 6fb9d1e..971cd63 100644 --- a/libgomp/testsuite/libgomp.fortran/do_concurrent_5.f90 +++ b/libgomp/testsuite/libgomp.fortran/do_concurrent_5.f90 @@ -33,7 +33,7 @@ program main do concurrent (i = 1:nsplit) pi(i) = sum(compute( low(i), high(i) )) end do - if (abs (sum(pi) - atan(1.0d0)) > 1e-5) STOP 1 + if (abs (sum(pi) - atan(1.0d0)) > 1e-5) stop 1 contains diff --git a/libgomp/testsuite/libgomp.fortran/doacross1.f90 b/libgomp/testsuite/libgomp.fortran/doacross1.f90 index e3beda0..2b15e7d 100644 --- a/libgomp/testsuite/libgomp.fortran/doacross1.f90 +++ b/libgomp/testsuite/libgomp.fortran/doacross1.f90 @@ -17,14 +17,14 @@ if (i.gt.1) then !$omp atomic read l = a(i - 1) - if (l.lt.2) STOP 1 + if (l.lt.2) stop 1 end if !$omp atomic write a(i) = 2 if (i.lt.N) then !$omp atomic read l = a(i + 1) - if (l.eq.3) STOP 2 + if (l.eq.3) stop 2 end if !$omp ordered depend(source) !$omp atomic write @@ -43,19 +43,19 @@ if (j.gt.2.and.k.gt.2) then !$omp atomic read l = b(i,j-2,k-1) - if (l.lt.2) STOP 3 + if (l.lt.2) stop 3 end if !$omp atomic write b(i,j,k) = 2 if (i.gt.4.and.j.gt.2.and.k.lt.4) then !$omp atomic read l = b(i-2,j-2, k+1) - if (l.lt.2) STOP 4 + if (l.lt.2) stop 4 end if if (i.gt.5.and.j.le.N/16-3.and.k.eq.4) then !$omp atomic read l = b( i - 3, j+2, k-2) - if (l.lt.2) STOP 5 + if (l.lt.2) stop 5 end if !$omp ordered depend(source) !$omp atomic write @@ -94,19 +94,19 @@ if (k.le.5) then !$omp atomic read l = c(i, j, k + 2) - if (l.lt.2) STOP 6 + if (l.lt.2) stop 6 end if !$omp atomic write c(i, j, k) = 2 if (i.ge.3.and.j.lt.8.and.k.ge.5) then !$omp atomic read l = c(i - 2, j + 1, k - 4) - if (l.lt.2) STOP 7 + if (l.lt.2) stop 7 end if if (i.ge.2.and.j.ge.5.and.k.ge.3) then !$omp atomic read l = c(i - 1, j - 2, k - 2) - if (l.lt.2) STOP 8 + if (l.lt.2) stop 8 end if !$omp ordered depend ( source ) !$omp atomic write @@ -137,13 +137,13 @@ do l = 0, d + 1 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) STOP 9 + if (e.eq.0) stop 9 end do end do end do end do !$omp single - if (i.ne.1.or.j.ne.-1.or.k.ne.0) STOP 10 + if (i.ne.1.or.j.ne.-1.or.k.ne.0) stop 10 i = 8; j = 9; k = 10 !$omp end single !$omp do ordered(4) collapse(2) lastprivate (i, j, k, m) @@ -153,13 +153,13 @@ do m = 0, d-1 !$omp ordered depend(source) !$omp ordered depend(sink: i - 2, j + 2, k - 2, m) - STOP 11 + stop 11 end do end do end do end do !$omp single - if (i.ne.1.or.j.ne.-1.or.k.ne.2.or.m.ne.0) STOP 12 + if (i.ne.1.or.j.ne.-1.or.k.ne.2.or.m.ne.0) stop 12 !$omp end single !$omp do collapse(2) ordered(4) lastprivate (i,j,k) do i = 0, d @@ -168,7 +168,7 @@ do l = 0, d + 3 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) STOP 13 + if (e.eq.0) stop 13 end do end do end do @@ -176,7 +176,7 @@ !$omp end do nowait !$omp do do i = 1, N - if (a(i) .ne. 3) STOP 14 + if (a(i) .ne. 3) stop 14 end do !$omp end do nowait !$omp do collapse(2) private(k) @@ -184,9 +184,9 @@ do j = 1, 8 do k = 1, 4 if (i.ge.3.and.i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.2) then - if (b(i,j,k).ne.3) STOP 15 + if (b(i,j,k).ne.3) stop 15 else - if (b(i,j,k).ne.0) STOP 16 + if (b(i,j,k).ne.0) stop 16 end if end do end do @@ -197,9 +197,9 @@ do j = 1, 8 do k = 1, 4 if (j.ge.3.and.iand(k,1).ne.0) then - if (c(i,j,k).ne.3) STOP 17 + if (c(i,j,k).ne.3) stop 17 else - if (c(i,j,k).ne.0) STOP 18 + if (c(i,j,k).ne.0) stop 18 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/doacross2.f90 b/libgomp/testsuite/libgomp.fortran/doacross2.f90 index 226dbe2..213ac71 100644 --- a/libgomp/testsuite/libgomp.fortran/doacross2.f90 +++ b/libgomp/testsuite/libgomp.fortran/doacross2.f90 @@ -20,14 +20,14 @@ if (i.gt.2) then !$omp atomic read l = a(i - 1) - if (l.lt.2) STOP 1 + if (l.lt.2) stop 1 end if !$omp atomic write a(i) = 2 if (i.lt.N) then !$omp atomic read l = a(i + 1) - if (l.eq.3) STOP 2 + if (l.eq.3) stop 2 end if !$omp ordered depend(source) !$omp atomic write @@ -46,19 +46,19 @@ if (j.gt.2.and.k.gt.2) then !$omp atomic read l = b(i,j-2,k-1) - if (l.lt.2) STOP 3 + if (l.lt.2) stop 3 end if !$omp atomic write b(i,j,k) = 2 if (i.gt.5.and.j.gt.2.and.k.lt.4) then !$omp atomic read l = b(i-2,j-2, k+1) - if (l.lt.2) STOP 4 + if (l.lt.2) stop 4 end if if (i.gt.6.and.j.le.N/16-3.and.k.eq.4) then !$omp atomic read l = b( i - 3, j+2, k-2) - if (l.lt.2) STOP 5 + if (l.lt.2) stop 5 end if !$omp ordered depend(source) !$omp atomic write @@ -97,19 +97,19 @@ if (k.le.5) then !$omp atomic read l = c(i, j, k + 2) - if (l.lt.2) STOP 6 + if (l.lt.2) stop 6 end if !$omp atomic write c(i, j, k) = 2 if (i.ge.5.and.j.lt.8.and.k.ge.5) then !$omp atomic read l = c(i - 2, j + 1, k - 4) - if (l.lt.2) STOP 7 + if (l.lt.2) stop 7 end if if (i.ge.4.and.j.ge.5.and.k.ge.3) then !$omp atomic read l = c(i - 1, j - 2, k - 2) - if (l.lt.2) STOP 8 + if (l.lt.2) stop 8 end if !$omp ordered depend ( source ) !$omp atomic write @@ -145,19 +145,19 @@ if (k.gt.2.and.i.gt.4) then !$omp atomic read l = g(j,k-2,i-1) - if (l.lt.2) STOP 9 + if (l.lt.2) stop 9 end if !$omp atomic write g(j,k,i) = 2 if (j.gt.2.and.k.gt.2.and.i.lt.6) then !$omp atomic read l = g(j-2,k-2, i+1) - if (l.lt.2) STOP 10 + if (l.lt.2) stop 10 end if if (j.gt.3.and.k.le.N/16-3.and.i.eq.6) then !$omp atomic read l = g( j - 3, k+2, i-2) - if (l.lt.2) STOP 11 + if (l.lt.2) stop 11 end if !$omp ordered depend(source) !$omp atomic write @@ -173,13 +173,13 @@ do l = 0, d + 1 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) STOP 12 + if (e.eq.0) stop 12 end do end do end do end do !$omp single - if (i.ne.3.or.j.ne.-1.or.k.ne.0) STOP 13 + if (i.ne.3.or.j.ne.-1.or.k.ne.0) stop 13 i = 8; j = 9; k = 10 !$omp end single !$omp do ordered(4) collapse(2) lastprivate (i, j, k, m) @@ -189,13 +189,13 @@ do m = 0, d-1 !$omp ordered depend(source) !$omp ordered depend(sink: i - 2, j + 2, k - 2, m) - STOP 14 + stop 14 end do end do end do end do !$omp single - if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) STOP 15 + if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) stop 15 !$omp end single !$omp do collapse(2) ordered(4) lastprivate (i,j,k) do i = 2, f + 2 @@ -204,18 +204,18 @@ do l = 0, d + 3 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) STOP 16 + if (e.eq.0) stop 16 end do end do end do end do !$omp end do nowait !$omp single - if (a(1) .ne. 0) STOP 17 + if (a(1) .ne. 0) stop 17 !$omp end single nowait !$omp do do i = 2, N - if (a(i) .ne. 3) STOP 18 + if (a(i) .ne. 3) stop 18 end do !$omp end do nowait !$omp do collapse(2) private(k) @@ -223,9 +223,9 @@ do j = 1, 8 do k = 1, 4 if (i.ge.4.and.i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.2) then - if (b(i,j,k).ne.3) STOP 19 + if (b(i,j,k).ne.3) stop 19 else - if (b(i,j,k).ne.0) STOP 20 + if (b(i,j,k).ne.0) stop 20 end if end do end do @@ -236,9 +236,9 @@ do j = 1, 8 do k = 1, 4 if (i.ge.3.and.j.ge.3.and.iand(k,1).ne.0) then - if (c(i,j,k).ne.3) STOP 21 + if (c(i,j,k).ne.3) stop 21 else - if (c(i,j,k).ne.0) STOP 22 + if (c(i,j,k).ne.0) stop 22 end if end do end do @@ -249,9 +249,9 @@ do j = 1, 8 do k = 1, 6 if (i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.4) then - if (g(i,j,k).ne.3) STOP 23 + if (g(i,j,k).ne.3) stop 23 else - if (g(i,j,k).ne.0) STOP 24 + if (g(i,j,k).ne.0) stop 24 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/doacross3.f90 b/libgomp/testsuite/libgomp.fortran/doacross3.f90 index 6649894..5ba5700 100644 --- a/libgomp/testsuite/libgomp.fortran/doacross3.f90 +++ b/libgomp/testsuite/libgomp.fortran/doacross3.f90 @@ -20,14 +20,14 @@ if (i.gt.2) then !$omp atomic read l = a(i - 1) - if (l.lt.2) STOP 1 + if (l.lt.2) stop 1 end if !$omp atomic write a(i) = 2 if (i.lt.N) then !$omp atomic read l = a(i + 1) - if (l.eq.3) STOP 2 + if (l.eq.3) stop 2 end if !$omp ordered depend(source) !$omp atomic write @@ -46,19 +46,19 @@ if (j.gt.2.and.k.gt.2) then !$omp atomic read l = b(i,j-2,k-1) - if (l.lt.2) STOP 3 + if (l.lt.2) stop 3 end if !$omp atomic write b(i,j,k) = 2 if (i.gt.5.and.j.gt.2.and.k.lt.4) then !$omp atomic read l = b(i-2,j-2, k+1) - if (l.lt.2) STOP 4 + if (l.lt.2) stop 4 end if if (i.gt.6.and.j.le.N/16-3.and.k.eq.4) then !$omp atomic read l = b( i - 3, j+2, k-2) - if (l.lt.2) STOP 5 + if (l.lt.2) stop 5 end if !$omp ordered depend(source) !$omp atomic write @@ -97,19 +97,19 @@ if (k.le.5) then !$omp atomic read l = c(i, j, k + 2) - if (l.lt.2) STOP 6 + if (l.lt.2) stop 6 end if !$omp atomic write c(i, j, k) = 2 if (i.ge.5.and.j.lt.8.and.k.ge.5) then !$omp atomic read l = c(i - 2, j + 1, k - 4) - if (l.lt.2) STOP 7 + if (l.lt.2) stop 7 end if if (i.ge.4.and.j.ge.5.and.k.ge.3) then !$omp atomic read l = c(i - 1, j - 2, k - 2) - if (l.lt.2) STOP 8 + if (l.lt.2) stop 8 end if !$omp ordered depend ( source ) !$omp atomic write @@ -145,19 +145,19 @@ if (k.gt.2.and.i.gt.4) then !$omp atomic read l = g(j,k-2,i-1) - if (l.lt.2) STOP 9 + if (l.lt.2) stop 9 end if !$omp atomic write g(j,k,i) = 2 if (j.gt.2.and.k.gt.2.and.i.lt.6) then !$omp atomic read l = g(j-2,k-2, i+1) - if (l.lt.2) STOP 10 + if (l.lt.2) stop 10 end if if (j.gt.3.and.k.le.N/16-3.and.i.eq.6) then !$omp atomic read l = g( j - 3, k+2, i-2) - if (l.lt.2) STOP 11 + if (l.lt.2) stop 11 end if !$omp ordered depend(source) !$omp atomic write @@ -173,13 +173,13 @@ do l = 0, d + 1, 1 + d !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) STOP 12 + if (e.eq.0) stop 12 end do end do end do end do !$omp single - if (i.ne.3.or.j.ne.-1.or.k.ne.0) STOP 13 + if (i.ne.3.or.j.ne.-1.or.k.ne.0) stop 13 i = 8; j = 9; k = 10 !$omp end single !$omp do ordered(4) collapse(2) lastprivate (i, j, k, m) @@ -189,13 +189,13 @@ do m = 0, d-1, d+1 !$omp ordered depend(source) !$omp ordered depend(sink: i - 2, j + 2, k - 2, m) - STOP 14 + stop 14 end do end do end do end do !$omp single - if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) STOP 15 + if (i.ne.3.or.j.ne.-1.or.k.ne.2.or.m.ne.0) stop 15 !$omp end single !$omp do collapse(2) ordered(4) lastprivate (i,j,k) do i = 2, f + 2, 1 + f @@ -204,18 +204,18 @@ do l = 0, d + 3, d + 1 !$omp ordered depend(source) !$omp ordered depend(sink: i-2,j+2,k-2,l) - if (e.eq.0) STOP 16 + if (e.eq.0) stop 16 end do end do end do end do !$omp end do nowait !$omp single - if (a(1) .ne. 0) STOP 17 + if (a(1) .ne. 0) stop 17 !$omp end single nowait !$omp do do i = 2, N - if (a(i) .ne. 3) STOP 18 + if (a(i) .ne. 3) stop 18 end do !$omp end do nowait !$omp do collapse(2) private(k) @@ -223,9 +223,9 @@ do j = 1, 8 do k = 1, 4 if (i.ge.4.and.i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.2) then - if (b(i,j,k).ne.3) STOP 19 + if (b(i,j,k).ne.3) stop 19 else - if (b(i,j,k).ne.0) STOP 20 + if (b(i,j,k).ne.0) stop 20 end if end do end do @@ -236,9 +236,9 @@ do j = 1, 8 do k = 1, 4 if (i.ge.3.and.j.ge.3.and.iand(k,1).ne.0) then - if (c(i,j,k).ne.3) STOP 21 + if (c(i,j,k).ne.3) stop 21 else - if (c(i,j,k).ne.0) STOP 22 + if (c(i,j,k).ne.0) stop 22 end if end do end do @@ -249,9 +249,9 @@ do j = 1, 8 do k = 1, 6 if (i.lt.N/16.and.iand(j,1).ne.0.and.k.ge.4) then - if (g(i,j,k).ne.3) STOP 23 + if (g(i,j,k).ne.3) stop 23 else - if (g(i,j,k).ne.0) STOP 24 + if (g(i,j,k).ne.0) stop 24 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 index 08091b8..50c7130 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-3.f90 @@ -12,6 +12,6 @@ contains p(9) = 777 !$omp end target !$omp end target data - if (A(3) /= 777 .or. A(9) /= 777) STOP 1 + if (A(3) /= 777 .or. A(9) /= 777) stop 1 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 index f730894..e6715e3 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/array_sections-4.f90 @@ -13,6 +13,6 @@ contains A(9) = 999 !$omp end target !$omp end target data - if (A(3) /= 777 .or. A(9) /= 999) STOP 1 + if (A(3) /= 777 .or. A(9) /= 999) stop 1 end subroutine end diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 index dd6f7f5..6d1fc98 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-1.f90 @@ -27,7 +27,7 @@ subroutine check () else err = (Y(i) - Z(i)) / Z(i) end if - if (err > EPS .or. err < -EPS) STOP 1 + if (err > EPS .or. err < -EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 index 2380f3a..ad35539 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/async_target-2.f90 @@ -17,7 +17,7 @@ subroutine check (p, N) real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine @@ -30,14 +30,14 @@ subroutine vec_mult (p, N) !$omp target data map(to: v1, v2, N) map(from: p) !$omp task shared(v1, v2, p) depend(out: v1, v2) !$omp target map(to: v1, v2, N) - if (omp_is_initial_device ()) STOP 2 + if (omp_is_initial_device ()) stop 2 allocate (v1(N), v2(N)) call init (v1, v2, N) !$omp end target !$omp end task !$omp task shared(v1, v2, p) depend(in: v1, v2) !$omp target map(to: v1, v2, N) map(from: p) - if (omp_is_initial_device ()) STOP 3 + if (omp_is_initial_device ()) stop 3 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 index 51de6b2..e439fe1 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-1.f90 @@ -26,8 +26,8 @@ end module program e_53_1 use e_53_1_mod, only : fib, fib_wrapper - if (fib (15) /= fib_wrapper (15)) STOP 1 + if (fib (15) /= fib_wrapper (15)) stop 1 ! Reduced from 25 to 23, otherwise execution runs out of thread stack on ! Nvidia Titan V. - if (fib (23) /= fib_wrapper (23)) STOP 2 + if (fib (23) /= fib_wrapper (23)) stop 2 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 index 76cce01..ee582b2 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-2.f90 @@ -8,7 +8,7 @@ program e_53_2 ! Nvidia Titan V. x = fib (23) !$omp end target - if (x /= fib (23)) STOP 1 + if (x /= fib (23)) stop 1 end program integer recursive function fib (n) result (f) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 index 1405ea7..1d33249 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-3.f90 @@ -21,7 +21,7 @@ subroutine check (p, N) real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 index 47d6cd8..a1f6478 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-4.f90 @@ -53,7 +53,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) STOP 1 + if (err > EPS .or. err < -EPS) stop 1 end subroutine program e_53_4 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 index 8fd6af7..5b33451 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/declare_target-5.f90 @@ -68,7 +68,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) STOP 1 + if (err > EPS .or. err < -EPS) stop 1 end subroutine program e_53_5 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 index a141e05..f7db7bd 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-1.f90 @@ -20,7 +20,7 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 100 .or. .not. c .or. d) STOP 1 + if (b /= 100 .or. .not. c .or. d) stop 1 a = a + 200 b = 0 @@ -36,7 +36,7 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 0 .or. c .or. d) STOP 2 + if (b /= 0 .or. c .or. d) stop 2 a = a + 200 b = 0 @@ -52,5 +52,5 @@ program e_57_1 !$omp end target !$omp end target data - if (b /= 100 .or. .not. c .or. d) STOP 3 + if (b /= 100 .or. .not. c .or. d) stop 3 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 index a7d4f24..a631621 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-2.f90 @@ -15,10 +15,10 @@ program e_57_2 end do do i = 1, num - if (offload(i)) STOP 1 + if (offload(i)) stop 1 end do do i = num+1, N - if (.not. offload(i)) STOP 2 + if (.not. offload(i)) stop 2 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 index d6bc042..50c75c0 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/device-3.f90 @@ -11,11 +11,11 @@ program e_57_3 !$omp target map(from: res) res = omp_is_initial_device () !$omp end target - if (res) STOP 1 + if (res) stop 1 call omp_set_default_device (omp_get_num_devices ()) !$omp target map(from: res) res = omp_is_initial_device () !$omp end target - if (.not. res) STOP 2 + if (.not. res) stop 2 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 index 1d705535..04f659a 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-1.f90 @@ -28,7 +28,7 @@ contains double precision :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 index c9c162f..3bb8838 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-2.f90 @@ -49,7 +49,7 @@ contains double precision :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine end module diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 index eb84970..5e376f6 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-3.f90 @@ -57,6 +57,6 @@ program SIMD3 diff = sum - sum_ref - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 index cb78e2c..551b839 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-4.f90 @@ -47,7 +47,7 @@ contains real :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 index 561deb7..d2c266c 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-5.f90 @@ -56,7 +56,7 @@ contains do j = 1, n do i = 1, n diff = a(i,j) - b(i,j) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 index 7f7c51014..7540a94 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-6.f90 @@ -109,14 +109,14 @@ contains real :: diff, a(*), b(*) do i = 1, n diff = a(i) - b(i) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine subroutine checkint (a, b, n) integer :: i, n, a(*), b(*) do i = 1, n - if (a(i) .ne. b(i)) STOP 2 + if (a(i) .ne. b(i)) stop 2 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 index e6af9c8..1e2233e 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-7.f90 @@ -23,7 +23,7 @@ program fibonacci call fib_ref (a_ref, N) do i = 0, N-1 - if (a(i) .ne. a_ref(i)) STOP 1 + if (a(i) .ne. a_ref(i)) stop 1 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 index 722d982..5fa4db5 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/simd-8.f90 @@ -47,6 +47,6 @@ program simd_8f diff = pri - 8237.25 - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 index 2ec4f68..b5dfd09 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-1.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 index e995ef5..7e01c57 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-2.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 index 338189f..76eb6d1 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-3.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 index 856ccdb..71f0f69 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-4.f90 @@ -17,7 +17,7 @@ contains real, pointer, dimension(:) :: p do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 index bae3041..b4fd99e 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target-5.f90 @@ -19,7 +19,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine @@ -29,7 +29,7 @@ contains real :: p(N), v1(N), v2(N) call init (v1, v2, N) !$omp target if(N > THRESHOLD1) map(to: v1,v2) map(from: p) - if (omp_is_initial_device ()) STOP 2 + if (omp_is_initial_device ()) stop 2 !$omp parallel do if(N > THRESHOLD2) do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 index f9cceb9..b3b2a48 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-1.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 index 219b450..217cc73 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-2.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 index b48dbe2..6d470cf 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-3.f90 @@ -19,7 +19,7 @@ contains do k = 1, cols do i = 1, rows diff = P(i,k) - Q(i,k) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 index 7499e3b..24554aa 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-4.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 index 8057d05..364e2f3 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-5.f90 @@ -17,7 +17,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 index ba6d879..c578eba 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-6.f90 @@ -28,7 +28,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine @@ -39,7 +39,7 @@ contains call init (v1, v2, N) !$omp target data if(N > THRESHOLD) map(from: p) !$omp target if(N > THRESHOLD) map(to: v1, v2) - if (omp_is_initial_device ()) STOP 2 + if (omp_is_initial_device ()) stop 2 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) @@ -47,7 +47,7 @@ contains !$omp end target call init_again (v1, v2, N) !$omp target if(N > THRESHOLD) map(to: v1, v2) - if (omp_is_initial_device ()) STOP 3 + if (omp_is_initial_device ()) stop 3 !$omp parallel do do i = 1, N p(i) = p(i) + v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 index 629ef2c..ec8ef07 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_data-7.f90 @@ -19,7 +19,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine @@ -30,7 +30,7 @@ contains call init (v1, v2, N) !$omp target data if(N > THRESHOLD) map(to: v1, v2) map(from: p) !$omp target - if (omp_is_initial_device ()) STOP 2 + if (omp_is_initial_device ()) stop 2 !$omp parallel do do i = 1, N p(i) = v1(i) * v2(i) diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 index 1861d44..8a6b230 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-1.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - 2 * (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 index 7734a6a..1494492 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/target_update-2.f90 @@ -26,7 +26,7 @@ contains real :: diff, p(N) do i = 1, N diff = p(i) - (i * i + (i + 2.0) * (i - 3.0)) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 index f40e36f..1e24a40 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-1.f90 @@ -9,7 +9,7 @@ program example x = 2 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) STOP 1 + if (x .ne. 2) stop 1 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 index 7debb60..e13b3d6 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-2.f90 @@ -6,7 +6,7 @@ program example !$omp parallel !$omp single !$omp task shared(x) depend(in: x) - if (x .ne. 1) STOP 1 + if (x .ne. 1) stop 1 !$omp end task !$omp task shared(x) depend(out: x) x = 2 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 index 34cd2c7..a12998d 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-3.f90 @@ -12,7 +12,7 @@ program example x = 2 !$omp end task !$omp taskwait - if ((x .ne. 1) .and. (x .ne. 2)) STOP 1 + if ((x .ne. 1) .and. (x .ne. 2)) stop 1 !$omp end single !$omp end parallel end program diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 index 47e93f9..ab78626 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-4.f90 @@ -9,10 +9,10 @@ program example x = 2 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) STOP 1 + if (x .ne. 2) stop 1 !$omp end task !$omp task shared(x) depend(in: x) - if (x .ne. 2) STOP 2 + if (x .ne. 2) stop 2 !$omp end task !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 index 9e12db3..45054df 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/task_dep-5.f90 @@ -51,7 +51,7 @@ contains do j = 1, N diff = A(i, j) - B(i, j) if (diff > EPS .or. -diff > EPS) then - STOP 1 + stop 1 end if end do end do diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 index 794c907..a288c3a 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-2.f90 @@ -49,7 +49,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) STOP 1 + if (err > EPS .or. err < -EPS) stop 1 end subroutine program e_54_1 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 index 1c8f7d8..f4d9585 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-3.f90 @@ -42,7 +42,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) STOP 1 + if (err > EPS .or. err < -EPS) stop 1 end subroutine program e_54_3 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 index 94de777..4911ea4 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-4.f90 @@ -44,7 +44,7 @@ subroutine check (a, b) else err = (a - b) / b end if - if (err > EPS .or. err < -EPS) STOP 1 + if (err > EPS .or. err < -EPS) stop 1 end subroutine program e_54_4 diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 index 7e380ad..243164e 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-5.f90 @@ -18,7 +18,7 @@ contains real :: diff do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 b/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 index 8121fba..677ce01 100644 --- a/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 +++ b/libgomp/testsuite/libgomp.fortran/examples-4/teams-6.f90 @@ -18,7 +18,7 @@ contains real :: diff do i = 1, N diff = p(i) - (i + 2.0) * (i - 3.0) - if (diff > EPS .or. -diff > EPS) STOP 1 + if (diff > EPS .or. -diff > EPS) stop 1 end do end subroutine diff --git a/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 b/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 index 62a5ef9..4eae92b 100644 --- a/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 +++ b/libgomp/testsuite/libgomp.fortran/lastprivate1.f90 @@ -5,15 +5,15 @@ program lastprivate !$omp parallel num_threads (4) call test1 !$omp end parallel - if (i .ne. 21) STOP 1 + if (i .ne. 21) stop 1 !$omp parallel num_threads (4) call test2 !$omp end parallel - if (i .ne. 64) STOP 2 + if (i .ne. 64) stop 2 !$omp parallel num_threads (4) call test3 !$omp end parallel - if (i .ne. 14) STOP 3 + if (i .ne. 14) stop 3 call test4 call test5 call test6 @@ -54,21 +54,21 @@ contains !$omp parallel do lastprivate (j) num_threads (4) default (none) do j = 1, 20 end do - if (j .ne. 21) STOP 4 + if (j .ne. 21) stop 4 end subroutine test4 subroutine test5 integer :: j !$omp parallel do lastprivate (j) num_threads (4) default (none) do j = 7, 61, 3 end do - if (j .ne. 64) STOP 5 + if (j .ne. 64) stop 5 end subroutine test5 subroutine test6 integer :: j !$omp parallel do lastprivate (j) num_threads (4) default (none) do j = -10, 11, ret3 () end do - if (j .ne. 14) STOP 6 + if (j .ne. 14) stop 6 end subroutine test6 subroutine test7 integer :: i @@ -76,7 +76,7 @@ contains !$omp parallel do lastprivate (i) num_threads (4) default (none) do i = 1, 20 end do - if (i .ne. 21) STOP 7 + if (i .ne. 21) stop 7 end subroutine test7 subroutine test8 integer :: i @@ -84,7 +84,7 @@ contains !$omp parallel do lastprivate (i) num_threads (4) default (none) do i = 7, 61, 3 end do - if (i .ne. 64) STOP 8 + if (i .ne. 64) stop 8 end subroutine test8 subroutine test9 integer :: i @@ -92,7 +92,7 @@ contains !$omp parallel do lastprivate (i) num_threads (4) default (none) do i = -10, 11, ret3 () end do - if (i .ne. 14) STOP 9 + if (i .ne. 14) stop 9 end subroutine test9 subroutine test10 integer :: i @@ -102,7 +102,7 @@ contains do i = 1, 20 end do !$omp end parallel - if (i .ne. 21) STOP 10 + if (i .ne. 21) stop 10 end subroutine test10 subroutine test11 integer :: i @@ -112,7 +112,7 @@ contains do i = 7, 61, 3 end do !$omp end parallel - if (i .ne. 64) STOP 11 + if (i .ne. 64) stop 11 end subroutine test11 subroutine test12 integer :: i @@ -122,6 +122,6 @@ contains do i = -10, 11, ret3 () end do !$omp end parallel - if (i .ne. 14) STOP 12 + if (i .ne. 14) stop 12 end subroutine test12 end program lastprivate diff --git a/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 b/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 index 97b6007..edaf823 100644 --- a/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 +++ b/libgomp/testsuite/libgomp.fortran/lastprivate2.f90 @@ -5,15 +5,15 @@ program lastprivate !$omp parallel num_threads (4) call test1 !$omp end parallel - if (i .ne. 21 .or. k .ne. 20) STOP 1 + if (i .ne. 21 .or. k .ne. 20) stop 1 !$omp parallel num_threads (4) call test2 !$omp end parallel - if (i .ne. 64 .or. k .ne. 61) STOP 2 + if (i .ne. 64 .or. k .ne. 61) stop 2 !$omp parallel num_threads (4) call test3 !$omp end parallel - if (i .ne. 14 .or. k .ne. 11) STOP 3 + if (i .ne. 14 .or. k .ne. 11) stop 3 call test4 call test5 call test6 @@ -58,7 +58,7 @@ contains do j = 1, 20 l = j end do - if (j .ne. 21 .or. l .ne. 20) STOP 4 + if (j .ne. 21 .or. l .ne. 20) stop 4 end subroutine test4 subroutine test5 integer :: j, l @@ -67,7 +67,7 @@ contains do j = 7, 61, 3 l = j end do - if (j .ne. 64 .or. l .ne. 61) STOP 5 + if (j .ne. 64 .or. l .ne. 61) stop 5 end subroutine test5 subroutine test6 integer :: j, l @@ -75,7 +75,7 @@ contains do j = -10, 11, ret3 () l = j end do - if (j .ne. 14 .or. l .ne. 11) STOP 6 + if (j .ne. 14 .or. l .ne. 11) stop 6 end subroutine test6 subroutine test7 integer :: i, k @@ -84,7 +84,7 @@ contains do i = 1, 20 k = i end do - if (i .ne. 21 .or. k .ne. 20) STOP 7 + if (i .ne. 21 .or. k .ne. 20) stop 7 end subroutine test7 subroutine test8 integer :: i, k @@ -93,7 +93,7 @@ contains do i = 7, 61, 3 k = i end do - if (i .ne. 64 .or. k .ne. 61) STOP 8 + if (i .ne. 64 .or. k .ne. 61) stop 8 end subroutine test8 subroutine test9 integer :: i, k @@ -103,7 +103,7 @@ contains do i = -10, 11, ret3 () k = i end do - if (i .ne. 14 .or. k .ne. 11) STOP 9 + if (i .ne. 14 .or. k .ne. 11) stop 9 end subroutine test9 subroutine test10 integer :: i, k @@ -114,7 +114,7 @@ contains k = i end do !$omp end parallel - if (i .ne. 21 .or. k .ne. 20) STOP 10 + if (i .ne. 21 .or. k .ne. 20) stop 10 end subroutine test10 subroutine test11 integer :: i, k @@ -125,7 +125,7 @@ contains k = i end do !$omp end parallel - if (i .ne. 64 .or. k .ne. 61) STOP 11 + if (i .ne. 64 .or. k .ne. 61) stop 11 end subroutine test11 subroutine test12 integer :: i, k @@ -137,6 +137,6 @@ contains k = i end do !$omp end parallel - if (i .ne. 14 .or. k .ne. 11) STOP 12 + if (i .ne. 14 .or. k .ne. 11) stop 12 end subroutine test12 end program lastprivate diff --git a/libgomp/testsuite/libgomp.fortran/lib1.f90 b/libgomp/testsuite/libgomp.fortran/lib1.f90 index 92c3250..4e7f9b2 100644 --- a/libgomp/testsuite/libgomp.fortran/lib1.f90 +++ b/libgomp/testsuite/libgomp.fortran/lib1.f90 @@ -11,42 +11,42 @@ call omp_init_lock (lck) call omp_set_lock (lck) - if (omp_test_lock (lck)) STOP 1 + if (omp_test_lock (lck)) stop 1 call omp_unset_lock (lck) - if (.not. omp_test_lock (lck)) STOP 2 - if (omp_test_lock (lck)) STOP 3 + if (.not. omp_test_lock (lck)) stop 2 + if (omp_test_lock (lck)) stop 3 call omp_unset_lock (lck) call omp_destroy_lock (lck) call omp_init_nest_lock (nlck) - if (omp_test_nest_lock (nlck) .ne. 1) STOP 4 + if (omp_test_nest_lock (nlck) .ne. 1) stop 4 call omp_set_nest_lock (nlck) - if (omp_test_nest_lock (nlck) .ne. 3) STOP 5 + if (omp_test_nest_lock (nlck) .ne. 3) stop 5 call omp_unset_nest_lock (nlck) call omp_unset_nest_lock (nlck) - if (omp_test_nest_lock (nlck) .ne. 2) STOP 6 + if (omp_test_nest_lock (nlck) .ne. 2) stop 6 call omp_unset_nest_lock (nlck) call omp_unset_nest_lock (nlck) call omp_destroy_nest_lock (nlck) call omp_set_dynamic (.true.) - if (.not. omp_get_dynamic ()) STOP 7 + if (.not. omp_get_dynamic ()) stop 7 call omp_set_dynamic (.false.) - if (omp_get_dynamic ()) STOP 8 + if (omp_get_dynamic ()) stop 8 call omp_set_nested (.true.) - if (.not. omp_get_nested ()) STOP 9 + if (.not. omp_get_nested ()) stop 9 call omp_set_nested (.false.) - if (omp_get_nested ()) STOP 10 + if (omp_get_nested ()) stop 10 call omp_set_num_threads (5) - if (omp_get_num_threads () .ne. 1) STOP 11 - if (omp_get_max_threads () .ne. 5) STOP 12 - if (omp_get_thread_num () .ne. 0) STOP 13 + if (omp_get_num_threads () .ne. 1) stop 11 + if (omp_get_max_threads () .ne. 5) stop 12 + if (omp_get_thread_num () .ne. 0) stop 13 call omp_set_num_threads (3) - if (omp_get_num_threads () .ne. 1) STOP 14 - if (omp_get_max_threads () .ne. 3) STOP 15 - if (omp_get_thread_num () .ne. 0) STOP 16 + if (omp_get_num_threads () .ne. 1) stop 14 + if (omp_get_max_threads () .ne. 3) stop 15 + if (omp_get_thread_num () .ne. 0) stop 16 l = .false. !$omp parallel reduction (.or.:l) l = omp_get_num_threads () .ne. 3 @@ -56,22 +56,22 @@ l = l .or. (omp_get_thread_num () .ne. 0) !$omp end master !$omp end parallel - if (l) STOP 17 + if (l) stop 17 - if (omp_get_num_procs () .le. 0) STOP 18 - if (omp_in_parallel ()) STOP 19 + if (omp_get_num_procs () .le. 0) stop 18 + if (omp_in_parallel ()) stop 19 !$omp parallel reduction (.or.:l) l = .not. omp_in_parallel () !$omp end parallel !$omp parallel reduction (.or.:l) if (.true.) l = .not. omp_in_parallel () !$omp end parallel - if (l) STOP 20 + if (l) stop 20 e = omp_get_wtime () - if (d .gt. e) STOP 21 + if (d .gt. e) stop 21 d = omp_get_wtick () ! Negative precision is definitely wrong, ! bigger than 1s clock resolution is also strange - if (d .le. 0 .or. d .gt. 1.) STOP 22 + if (d .le. 0 .or. d .gt. 1.) stop 22 end diff --git a/libgomp/testsuite/libgomp.fortran/lib4.f90 b/libgomp/testsuite/libgomp.fortran/lib4.f90 index ce6aa00..d551cde 100644 --- a/libgomp/testsuite/libgomp.fortran/lib4.f90 +++ b/libgomp/testsuite/libgomp.fortran/lib4.f90 @@ -6,11 +6,11 @@ program lib4 integer :: modifier call omp_set_schedule (omp_sched_static, 32) call omp_get_schedule (kind, modifier) - if (kind.ne.omp_sched_static.or.modifier.ne.32) STOP 1 + if (kind.ne.omp_sched_static.or.modifier.ne.32) stop 1 call omp_set_schedule (omp_sched_dynamic, 4) call omp_get_schedule (kind, modifier) - if (kind.ne.omp_sched_dynamic.or.modifier.ne.4) STOP 2 - if (omp_get_thread_limit ().lt.0) STOP 3 + if (kind.ne.omp_sched_dynamic.or.modifier.ne.4) stop 2 + if (omp_get_thread_limit ().lt.0) stop 3 call omp_set_max_active_levels (6) - if (omp_get_max_active_levels ().ne.6) STOP 4 + if (omp_get_max_active_levels ().ne.6) stop 4 end program lib4 diff --git a/libgomp/testsuite/libgomp.fortran/lock-1.f90 b/libgomp/testsuite/libgomp.fortran/lock-1.f90 index b340838..2111607 100644 --- a/libgomp/testsuite/libgomp.fortran/lock-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/lock-1.f90 @@ -7,16 +7,16 @@ l = .false. call omp_init_nest_lock (lock) - if (omp_test_nest_lock (lock) .ne. 1) STOP 1 - if (omp_test_nest_lock (lock) .ne. 2) STOP 2 + if (omp_test_nest_lock (lock) .ne. 1) stop 1 + if (omp_test_nest_lock (lock) .ne. 2) stop 2 !$omp parallel if (.false.) reduction (.or.:l) ! In OpenMP 2.5 this was supposed to return 3, ! but in OpenMP 3.0 the parallel region has a different ! task and omp_*_lock_t are owned by tasks, not by threads. if (omp_test_nest_lock (lock) .ne. 0) l = .true. !$omp end parallel - if (l) STOP 3 - if (omp_test_nest_lock (lock) .ne. 3) STOP 4 + if (l) stop 3 + if (omp_test_nest_lock (lock) .ne. 3) stop 4 call omp_unset_nest_lock (lock) call omp_unset_nest_lock (lock) call omp_unset_nest_lock (lock) diff --git a/libgomp/testsuite/libgomp.fortran/lock-2.f90 b/libgomp/testsuite/libgomp.fortran/lock-2.f90 index 8608027e..ddf53c1 100644 --- a/libgomp/testsuite/libgomp.fortran/lock-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/lock-2.f90 @@ -8,8 +8,8 @@ l = .false. call omp_init_nest_lock (lock) !$omp parallel num_threads (1) reduction (.or.:l) - if (omp_test_nest_lock (lock) .ne. 1) STOP 1 - if (omp_test_nest_lock (lock) .ne. 2) STOP 2 + if (omp_test_nest_lock (lock) .ne. 1) stop 1 + if (omp_test_nest_lock (lock) .ne. 2) stop 2 !$omp task if (.false.) shared (lock, l) if (omp_test_nest_lock (lock) .ne. 0) l = .true. !$omp end task @@ -19,6 +19,6 @@ call omp_unset_nest_lock (lock) call omp_unset_nest_lock (lock) !$omp end parallel - if (l) STOP 3 + if (l) stop 3 call omp_destroy_nest_lock (lock) end diff --git a/libgomp/testsuite/libgomp.fortran/nested1.f90 b/libgomp/testsuite/libgomp.fortran/nested1.f90 index ed1e832..f521b7b 100644 --- a/libgomp/testsuite/libgomp.fortran/nested1.f90 +++ b/libgomp/testsuite/libgomp.fortran/nested1.f90 @@ -8,16 +8,16 @@ program nested1 e3 = 0 call omp_set_nested (.true.) call omp_set_dynamic (.false.) - if (omp_in_parallel ()) STOP 1 - if (omp_get_num_threads ().ne.1) STOP 2 - if (omp_get_level ().ne.0) STOP 3 - if (omp_get_ancestor_thread_num (0).ne.0) STOP 4 - if (omp_get_ancestor_thread_num (-1).ne.-1) STOP 5 - if (omp_get_ancestor_thread_num (1).ne.-1) STOP 6 - if (omp_get_team_size (0).ne.1) STOP 7 - if (omp_get_team_size (-1).ne.-1) STOP 8 - if (omp_get_team_size (1).ne.-1) STOP 9 - if (omp_get_active_level ().ne.0) STOP 10 + if (omp_in_parallel ()) stop 1 + if (omp_get_num_threads ().ne.1) stop 2 + if (omp_get_level ().ne.0) stop 3 + if (omp_get_ancestor_thread_num (0).ne.0) stop 4 + if (omp_get_ancestor_thread_num (-1).ne.-1) stop 5 + if (omp_get_ancestor_thread_num (1).ne.-1) stop 6 + if (omp_get_team_size (0).ne.1) stop 7 + if (omp_get_team_size (-1).ne.-1) stop 8 + if (omp_get_team_size (1).ne.-1) stop 9 + if (omp_get_active_level ().ne.0) stop 10 !$omp parallel num_threads (4) private (e, tn1) e = 0 tn1 = omp_get_thread_num () @@ -83,5 +83,5 @@ program nested1 !$omp end parallel !$omp end parallel !$omp end parallel - if (e1.ne.0.or.e2.ne.0.or.e3.ne.0) STOP 11 + if (e1.ne.0.or.e2.ne.0.or.e3.ne.0) stop 11 end program nested1 diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 index 833cb9a..9949071 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn1.f90 @@ -5,7 +5,7 @@ b = 2 c = 3 call foo - if (a .ne. 7) STOP 1 + if (a .ne. 7) stop 1 contains subroutine foo use omp_lib @@ -38,6 +38,6 @@ contains if (a .ne. 7 .or. b .ne. 8 .or. c .ne. 9) l = .true. end if !$omp end parallel - if (l) STOP 2 + if (l) stop 2 end subroutine foo end diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 index 34054ad..cd2e505 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn2.f90 @@ -24,8 +24,8 @@ contains subroutine test3 integer :: i common /c/ i - if (i .lt. 0 .or. i .ge. 4) STOP 1 - if (i + 10 .ne. vari) STOP 2 + if (i .lt. 0 .or. i .ge. 4) stop 1 + if (i + 10 .ne. vari) stop 2 end subroutine test3 subroutine test4 use omp_lib diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 index 4e8a18a..fa82d2f 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn3.f90 @@ -5,7 +5,7 @@ program nestomp integer :: j j = 8 call bar - if (j.ne.10) STOP 1 + if (j.ne.10) stop 1 contains subroutine foo (i) integer :: i diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 index 6143bfb..6e41268 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn4.f90 @@ -7,19 +7,19 @@ program foo call test1 call test2 do i = 1, 10 - if (a(i) .ne. 10 * i) STOP 1 + if (a(i) .ne. 10 * i) stop 1 end do !$omp parallel do reduction (+:c) do i = 1, 10 c = c + a end do do i = 1, 10 - if (c(i) .ne. 10 * a(i)) STOP 2 + if (c(i) .ne. 10 * a(i)) stop 2 end do !$omp parallel do lastprivate (j) do j = 1, 10, k end do - if (j .ne. 11) STOP 3 + if (j .ne. 11) stop 3 contains subroutine test1 integer :: i @@ -37,6 +37,6 @@ contains !$omp parallel do lastprivate (j) do j = 1, 10, k end do - if (j .ne. 11) STOP 4 + if (j .ne. 11) stop 4 end subroutine test2 end program foo diff --git a/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 b/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 index e65019e..28c9b00 100644 --- a/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 +++ b/libgomp/testsuite/libgomp.fortran/nestedfn5.f90 @@ -30,7 +30,7 @@ contains b = b + 1 end do !$omp end simd - if (a /= 21 .or. b /= 12) STOP 1 + if (a /= 21 .or. b /= 12) stop 1 !$omp simd aligned(f : c_sizeof (e(1))) do b = 1, 64 g(b) = f @@ -44,8 +44,8 @@ contains d(2:2,4:5) = d(2:2,4:5) + 1 !$omp end task !$omp task depend(in : a, d(2:2,4:5)) - if (a /= 22) STOP 2 - if (any (d(2:2,4:5) /= 5)) STOP 3 + if (a /= 22) stop 2 + if (any (d(2:2,4:5) /= 5)) stop 3 !$omp end task !$omp end taskgroup !$omp end single @@ -64,8 +64,8 @@ contains d(2:3,4:4) = 9 !$omp end target !$omp target update from (a, q, d(2:3,4:4), l) - if (a /= 6 .or. l .or. b /= 11 .or. any (q /= 8)) STOP 4 - if (any (d(2:3,4:4) /= 9) .or. d(2,5) /= 5 .or. d(3,5) /= 4) STOP 5 + if (a /= 6 .or. l .or. b /= 11 .or. any (q /= 8)) stop 4 + if (any (d(2:3,4:4) /= 9) .or. d(2,5) /= 5 .or. d(3,5) /= 4) stop 5 a = 12 b = 13 q = 14 @@ -82,7 +82,7 @@ contains m = 0 n = 64 o = 16 - if (l) STOP 6 + if (l) stop 6 !$omp target teams distribute parallel do simd if (.not.l) device(a) & !$omp & num_teams(b) dist_schedule(static, c) num_threads (h) & !$omp & reduction (+: m) safelen (n) schedule(static, o) & @@ -91,7 +91,7 @@ contains m = m + 1 end do !$omp end target teams distribute parallel do simd - if (m /= 64) STOP 7 + if (m /= 64) stop 7 !$omp end target data end subroutine foo end subroutine bar diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 index cec0528..57b7c00 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic1.f90 @@ -18,22 +18,22 @@ c = c * 2 !$omp atomic d = 2 / d - if (a .ne. 5 .or. b .ne. 2 .or. c .ne. 6 .or. d .ne. 0.5) STOP 1 + if (a .ne. 5 .or. b .ne. 2 .or. c .ne. 6 .or. d .ne. 0.5) stop 1 d = 1.2 !$omp atomic a = a + c + d !$omp atomic b = b - (a + c + d) - if (a .ne. 12 .or. b .ne. -17) STOP 2 + if (a .ne. 12 .or. b .ne. -17) stop 2 !$omp atomic a = c + d + a !$omp atomic b = a + c + d - b - if (a .ne. 19 .or. b .ne. 43) STOP 3 + if (a .ne. 19 .or. b .ne. 43) stop 3 !$omp atomic b = (a + c + d) - b a = 32 !$omp atomic a = a / 3.4 - if (a .ne. 9 .or. b .ne. -16) STOP 4 + if (a .ne. 9 .or. b .ne. -16) stop 4 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 index 68df316..3748e30 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 @@ -13,28 +13,28 @@ n = 20 call foo (r, d, n) - if (n .ne. 22) STOP 1 - if (any (r .ne. 33)) STOP 2 + if (n .ne. 22) stop 1 + if (any (r .ne. 33)) stop 2 i = 1 j = 18 k = 23 !$omp atomic i = min (i, j, k, n) - if (i .ne. 1) STOP 3 + if (i .ne. 1) stop 3 !$omp atomic i = max (j, n, k, i) - if (i .ne. 23) STOP 4 + if (i .ne. 23) stop 4 a = 1 b = 18 c = 23 !$omp atomic a = min (a, b, c) - if (a .ne. 1) STOP 5 + if (a .ne. 1) stop 5 !$omp atomic a = max (a, b, c) - if (a .ne. 23) STOP 6 + if (a .ne. 23) stop 6 contains function bar (i) diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 index e4a1a6e..454b167 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic3.f90 @@ -36,23 +36,23 @@ c2 = c !$omp atomic read d2 = d - if (a2 .ne. 5 .or. b2 .ne. 2 .or. c2 .ne. 6 .or. d2 .ne. 0.5) STOP 1 + if (a2 .ne. 5 .or. b2 .ne. 2 .or. c2 .ne. 6 .or. d2 .ne. 0.5) stop 1 !$omp atomic write d = 1.2 !$omp atomic a = a + c + d !$omp atomic b = b - (a + c + d) - if (a .ne. 12 .or. b .ne. -17) STOP 2 + if (a .ne. 12 .or. b .ne. -17) stop 2 !$omp atomic a = c + d + a !$omp atomic b = a + c + d - b - if (a .ne. 19 .or. b .ne. 43) STOP 3 + if (a .ne. 19 .or. b .ne. 43) stop 3 !$omp atomic b = (a + c + d) - b a = 32 !$omp atomic a = a / 3.4 - if (a .ne. 9 .or. b .ne. -16) STOP 4 + if (a .ne. 9 .or. b .ne. -16) stop 4 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 index c4cb5cf..75da9f3 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic4.f90 @@ -28,10 +28,10 @@ d = d / 2.0 d2 = d !$omp end atomic - if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) STOP 1 + if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) stop 1 !$omp atomic read a2 = a !$omp atomic read c2 = c - if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) STOP 2 + if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 b/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 index 1303ba4..292a7f6 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_atomic5.f90 @@ -30,30 +30,30 @@ d = d / 2.0 d2 = d !$omp end atomic - if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) STOP 1 + if (a2 .ne. 1 .or. b2 .ne. -16 .or. c2 .ne. 3 .or. d2 .ne. 2) stop 1 !$omp atomic read seq_cst a2 = a !$omp atomic seq_cst, read c2 = c - if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) STOP 2 + if (a2 .ne. 5 .or. b2 .ne. -16 .or. c2 .ne. 6 .or. d2 .ne. 2) stop 2 a2 = 10 - if (a2 .ne. 10) STOP 3 + if (a2 .ne. 10) stop 3 !$omp atomic capture a2 = a a = e(1) + e(6) + e(7) * 2 !$omp endatomic - if (a2 .ne. 5) STOP 4 + if (a2 .ne. 5) stop 4 !$omp atomic read a2 = a !$omp end atomic - if (a2 .ne. 28) STOP 5 + if (a2 .ne. 28) stop 5 !$omp atomic capture seq_cst b2 = b b = e(1) + e(7) + e(5) * 2 !$omp end atomic - if (b2 .ne. -16) STOP 6 + if (b2 .ne. -16) stop 6 !$omp atomic seq_cst, read b2 = b !$omp end atomic - if (b2 .ne. 24) STOP 7 + if (b2 .ne. 24) stop 7 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond1.f b/libgomp/testsuite/libgomp.fortran/omp_cond1.f index f050f51..d98e6cc 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond1.f +++ b/libgomp/testsuite/libgomp.fortran/omp_cond1.f @@ -1,13 +1,13 @@ C Test conditional compilation in fixed form if -fopenmp 10 foo = 2 &56 - if (foo.ne.256) STOP 1 + if (foo.ne.256) stop 1 bar = 26 !$2 0 ba c$ +r = 42 !$ bar = 62 !$ bar = bar + 1 - if (bar.ne.43) STOP 2 + if (bar.ne.43) stop 2 baz = bar *$ 0baz = 5 C$ +12! Comment @@ -17,5 +17,5 @@ c$ !4 !$ X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 c$ 10&baz = 2 - if (baz.ne.51242) STOP 3 + if (baz.ne.51242) stop 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond2.f b/libgomp/testsuite/libgomp.fortran/omp_cond2.f index 83e79dc..e54edea 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond2.f +++ b/libgomp/testsuite/libgomp.fortran/omp_cond2.f @@ -2,13 +2,13 @@ c Test conditional compilation in fixed form if -fno-openmp ! { dg-options "-fno-openmp" } 10 foo = 2 &56 - if (foo.ne.256) STOP 1 + if (foo.ne.256) stop 1 bar = 26 !$2 0 ba c$ +r = 42 !$ bar = 62 !$ bar = bar + 1 - if (bar.ne.26) STOP 2 + if (bar.ne.26) stop 2 baz = bar *$ 0baz = 5 C$ +12! Comment @@ -18,5 +18,5 @@ c$ !4 !$ X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 c$ 10&baz = 2 - if (baz.ne.26) STOP 3 + if (baz.ne.26) stop 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 b/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 index 3db2fd1..6a8ce52 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 +++ b/libgomp/testsuite/libgomp.fortran/omp_cond3.F90 @@ -1,7 +1,7 @@ ! Test conditional compilation in free form if -fopenmp 10 foo = 2& &56 - if (foo.ne.256) STOP 1 + if (foo.ne.256) stop 1 bar = 26 !$ 20 ba& !$ &r = 4& @@ -11,7 +11,7 @@ #ifdef _OPENMP bar = bar - 1 #endif - if (bar.ne.43) STOP 2 + if (bar.ne.43) stop 2 baz = bar !$ 30 baz = 5& ! Comment !$12 & @@ -19,5 +19,5 @@ bar = bar - 1 !$X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 baz = baz + 1 !$ baz = 2 - if (baz.ne.515) STOP 3 + if (baz.ne.515) stop 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 b/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 index ae2e932..644f7e3 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 +++ b/libgomp/testsuite/libgomp.fortran/omp_cond4.F90 @@ -2,7 +2,7 @@ ! { dg-options "-fno-openmp" } 10 foo = 2& &56 - if (foo.ne.256) STOP 1 + if (foo.ne.256) stop 1 bar = 26 !$ 20 ba& !$ &r = 4& @@ -12,7 +12,7 @@ #ifdef _OPENMP bar = bar - 1 #endif - if (bar.ne.26) STOP 2 + if (bar.ne.26) stop 2 baz = bar !$ 30 baz = 5& ! Comment !$12 & @@ -20,5 +20,5 @@ bar = bar - 1 !$X baz = 0 ! Not valid OpenMP conditional compilation lines ! $ baz = 1 baz = baz + 1 !$ baz = 2 - if (baz.ne.27) STOP 3 + if (baz.ne.27) stop 3 end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 index db89401..f3b4bc5 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse1.f90 @@ -43,16 +43,16 @@ contains d(b + 1) = c if (f .ne. g .or. f .ne. b) h = .true. !$omp endparallel - if (h) STOP 1 - if (a .ne. 6) STOP 2 - if (j .ne. 24) STOP 3 - if (d(1) .eq. -1) STOP 4 + if (h) stop 1 + if (a .ne. 6) stop 2 + if (j .ne. 24) stop 3 + if (d(1) .eq. -1) stop 4 e = 1 do g = 1, d(1) - if (d(g) .ne. d(1)) STOP 5 + if (d(g) .ne. d(1)) stop 5 e = e * 2 end do - if (e .ne. i) STOP 6 + if (e .ne. i) stop 6 end subroutine test_parallel subroutine test_do_orphan @@ -79,7 +79,7 @@ contains call test_do_orphan !$omp do schedule (static) firstprivate (n) do 200 i = 1, j - if (i .eq. 1 .and. n .ne. 24) STOP 7 + if (i .eq. 1 .and. n .ne. 24) stop 7 n = i 200 d(n) = omp_get_thread_num () !$omp enddo nowait @@ -103,11 +103,11 @@ contains end do ! Implied omp end do here !$omp end parallel - if (.not. m) STOP 8 + if (.not. m) stop 8 j = 0 do i = 1, 64 - if (d(i) .lt. j .or. d(i) .ge. j + k) STOP 9 + if (d(i) .lt. j .or. d(i) .ge. j + k) stop 9 if (i .eq. 16) j = 1024 if (i .eq. 32) j = 2048 if (i .eq. 48) j = 4096 @@ -152,9 +152,9 @@ contains n = 7 !$omp endsections !$omp end parallel - if (j .ne. 271 .or. l .ne. 0) STOP 10 - if (m .ne. 4 + 6 + 8 + 10) STOP 11 - if (n .ne. 7) STOP 12 + if (j .ne. 271 .or. l .ne. 0) stop 10 + if (m .ne. 4 + 6 + 8 + 10) stop 11 + if (n .ne. 7) stop 12 end subroutine test_sections subroutine test_single @@ -182,6 +182,6 @@ contains !$omp end single copyprivate (j) if (i .ne. omp_get_thread_num () .or. j .ne. -2) m = .true. !$omp endparallel - if (m) STOP 13 + if (m) stop 13 end subroutine test_single end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 index e63f55f..3de6968 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse2.f90 @@ -16,7 +16,7 @@ contains j = omp_get_thread_num () .eq. 0 !$omp endmaster !$omp end parallel - if (.not. (i .or. j)) STOP 1 + if (.not. (i .or. j)) stop 1 end subroutine test_master subroutine test_critical_1 (i, j) @@ -45,7 +45,7 @@ contains i = i + 1 !$omp endcritical (critical_foo) !$omp end parallel - if (n .lt. 1 .or. i .ne. n * 3 .or. j .ne. n * 3) STOP 2 + if (n .lt. 1 .or. i .ne. n * 3 .or. j .ne. n * 3) stop 2 end subroutine test_critical subroutine test_barrier @@ -62,7 +62,7 @@ contains j = j .or. .true. end if !$omp end parallel - if (i .ne. 5 .or. j) STOP 3 + if (i .ne. 5 .or. j) stop 3 end subroutine test_barrier subroutine test_atomic @@ -89,14 +89,14 @@ contains f = max (omp_get_thread_num (), f) if (omp_get_thread_num () .eq. 0) g = omp_get_num_threads () !$omp end parallel - if (g .le. 0 .or. g .gt. 8) STOP 4 - if (a .ne. 6 * g .or. b .ne. 3 ** g) STOP 5 + if (g .le. 0 .or. g .gt. 8) stop 4 + if (a .ne. 6 * g .or. b .ne. 3 ** g) stop 5 if (iand (g, 1) .eq. 1) then - if (c .ne. 8) STOP 6 + if (c .ne. 8) stop 6 else if (c .ne. 0) then - STOP 7 + stop 7 end if - if (d .ne. 1024 / (2 ** g)) STOP 8 - if (e .ne. 0 .or. f .ne. g - 1) STOP 9 + if (d .ne. 1024 / (2 ** g)) stop 8 + if (e .ne. 0 .or. f .ne. g - 1) stop 9 end subroutine test_atomic end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 index a61d546..6076c7a 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse3.f90 @@ -45,10 +45,10 @@ contains j = 1 do 100 i = 1, 100 if (i .eq. j) then - if (d(i) .ne. i) STOP 1 + if (d(i) .ne. i) stop 1 j = i + 5 else - if (d(i) .ne. -1) STOP 2 + if (d(i) .ne. -1) stop 2 end if 100 d(i) = -1 end subroutine test_ordered @@ -69,17 +69,17 @@ contains !$omp parallel copyin (/tlsblock/, z) reduction (.or.:m) & !$omp& num_threads (4) if (omp_get_thread_num () .eq. 0) i = omp_get_num_threads () - if (x .ne. 6 .or. y .ne. 7 .or. z .ne. 8) STOP 3 + if (x .ne. 6 .or. y .ne. 7 .or. z .ne. 8) stop 3 x = omp_get_thread_num () y = omp_get_thread_num () + 1024 z = omp_get_thread_num () + 4096 !$omp end parallel - if (x .ne. 0 .or. y .ne. 1024 .or. z .ne. 4096) STOP 4 + if (x .ne. 0 .or. y .ne. 1024 .or. z .ne. 4096) stop 4 !$omp parallel num_threads (4), private (j) reduction (.or.:n) if (omp_get_num_threads () .eq. i) then j = omp_get_thread_num () if (x .ne. j .or. y .ne. j + 1024 .or. z .ne. j + 4096) & -& STOP 5 +& stop 5 end if !$omp end parallel m = m .or. n @@ -89,9 +89,9 @@ contains if (z .ne. 4096) n = .true. if (omp_get_num_threads () .eq. i) then j = omp_get_thread_num () - if (x .ne. j .or. y .ne. j + 1024) STOP 6 + if (x .ne. j .or. y .ne. j + 1024) stop 6 end if !$omp end parallel - if (m .or. n) STOP 7 + if (m .or. n) stop 7 end subroutine test_threadprivate end diff --git a/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 b/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 index 273ce53..09b0fa2 100644 --- a/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 +++ b/libgomp/testsuite/libgomp.fortran/omp_parse4.f90 @@ -59,14 +59,14 @@ contains !$omp end parallel if (any (f .ne. (/100, 100, 100, 210, 210, 210, 310, 310, 337, 337/))) & -& STOP 1 - if (any (g .ne. (/-1, -1, -1, 0, 0, 0, 0, 0, 0, 0/))) STOP 2 - if (i .ne. 20) STOP 3 -!$ if (l .ne. 128 + m) STOP 4 - if (any (d .ne. 1 .or. e .ne. 1)) STOP 5 - if (any (b .ne. transpose (a))) STOP 6 - if (any (c .ne. b)) STOP 7 +& stop 1 + if (any (g .ne. (/-1, -1, -1, 0, 0, 0, 0, 0, 0, 0/))) stop 2 + if (i .ne. 20) stop 3 +!$ if (l .ne. 128 + m) stop 4 + if (any (d .ne. 1 .or. e .ne. 1)) stop 5 + if (any (b .ne. transpose (a))) stop 6 + if (any (c .ne. b)) stop 7 if (any (n .ne. (/1, 2, 6, 12, 5, 30, 42, 56, 9, 90, & -& 110, 132, 13, 182, 210, 240/))) STOP 8 +& 110, 132, 13, 182, 210, 240/))) stop 8 end subroutine test_workshare end diff --git a/libgomp/testsuite/libgomp.fortran/openmp_version-1.f b/libgomp/testsuite/libgomp.fortran/openmp_version-1.f index de16933..78d4b98 100644 --- a/libgomp/testsuite/libgomp.fortran/openmp_version-1.f +++ b/libgomp/testsuite/libgomp.fortran/openmp_version-1.f @@ -4,6 +4,6 @@ implicit none include "omp_lib.h" - if (openmp_version .ne. 201511) STOP 1; + if (openmp_version .ne. 201511) stop 1; end program main diff --git a/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 b/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 index b2e0d3a..693dba0 100644 --- a/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/openmp_version-2.f90 @@ -4,6 +4,6 @@ program main use omp_lib implicit none - if (openmp_version .ne. 201511) STOP 1; + if (openmp_version .ne. 201511) stop 1; end program main diff --git a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 index bb165cd..0f800e6 100644 --- a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 +++ b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt-2.f95 @@ -34,7 +34,7 @@ program main call foo () do i = 0, n - 1 - if (c(i) .ne. (i + MODULO ((i * 3), 7))) STOP 1 + if (c(i) .ne. (i + MODULO ((i * 3), 7))) stop 1 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 index 5ed4a38..1485683 100644 --- a/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 +++ b/libgomp/testsuite/libgomp.fortran/parloops-exit-first-loop-alt.f95 @@ -35,7 +35,7 @@ program main call foo (n) do i = 0, n - 1 - if (c(i) .ne. (i + MODULO ((i * 3), 7))) STOP 1 + if (c(i) .ne. (i + MODULO ((i * 3), 7))) stop 1 end do end program diff --git a/libgomp/testsuite/libgomp.fortran/pointer1.f90 b/libgomp/testsuite/libgomp.fortran/pointer1.f90 index 817006a..3332000 100644 --- a/libgomp/testsuite/libgomp.fortran/pointer1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pointer1.f90 @@ -21,7 +21,7 @@ contains c(1) = c(1) + 1 r = r + 1 !$omp end parallel - if (a.ne.r.or.c(1).ne.r) STOP 1 + if (a.ne.r.or.c(1).ne.r) stop 1 r2 = r b => a d => c @@ -33,7 +33,7 @@ contains d(1) = d(1) + 1 r = r + 1 !$omp end parallel - if (b.ne.r+r2.or.d(1).ne.r+r2) STOP 2 + if (b.ne.r+r2.or.d(1).ne.r+r2) stop 2 end subroutine foo subroutine bar (a, c) integer, pointer :: a, c(:), b, d(:) @@ -55,8 +55,8 @@ contains end if end do !$omp end parallel do - if (b.ne.100.or.any(d.ne.10)) STOP 3 - if (a.ne.17.or.any(c.ne.21)) STOP 4 + if (b.ne.100.or.any(d.ne.10)) stop 3 + if (a.ne.17.or.any(c.ne.21)) stop 4 a => b c => d !$omp parallel do firstprivate (b, d) lastprivate (b, d) @@ -71,7 +71,7 @@ contains end if end do !$omp end parallel do - if (a.ne.200.or.any(c.ne.20)) STOP 5 - if (b.ne.17.or.any(d.ne.21)) STOP 6 + if (a.ne.200.or.any(c.ne.20)) stop 5 + if (b.ne.17.or.any(d.ne.21)) stop 6 end subroutine bar end diff --git a/libgomp/testsuite/libgomp.fortran/pointer2.f90 b/libgomp/testsuite/libgomp.fortran/pointer2.f90 index 859c0e4..3db052e 100644 --- a/libgomp/testsuite/libgomp.fortran/pointer2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pointer2.f90 @@ -21,8 +21,8 @@ thr(1) = thr(1) + 1 i = i + 1 !$omp end parallel - if (l) STOP 1 - if (thr(1).ne.14) STOP 2 - if (s(1).ne.1+i) STOP 3 - if (u(1).ne.14) STOP 4 + if (l) stop 1 + if (thr(1).ne.14) stop 2 + if (s(1).ne.1+i) stop 3 + if (u(1).ne.14) stop 4 end diff --git a/libgomp/testsuite/libgomp.fortran/pr25219.f90 b/libgomp/testsuite/libgomp.fortran/pr25219.f90 index 3b10fce..6795efa 100644 --- a/libgomp/testsuite/libgomp.fortran/pr25219.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr25219.f90 @@ -12,5 +12,5 @@ end do !$omp end do !$omp end parallel - if (k .ne. 100) STOP 1 + if (k .ne. 100) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 index 8930c78..855a346 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27395-1.f90 @@ -8,7 +8,7 @@ program pr27395_1 integer, dimension(n) :: sumarray call foo(n,m,sumarray) do i=1,n - if (sumarray(i).ne.m*i) STOP 1 + if (sumarray(i).ne.m*i) stop 1 end do end program pr27395_1 diff --git a/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 b/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 index f55b701..55229cc 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27395-2.f90 @@ -25,6 +25,6 @@ subroutine foo(n,m) !$OMP END DO !$OMP END PARALLEL do i=1,n - if (sumarray(i).ne.m*i) STOP 1 + if (sumarray(i).ne.m*i) stop 1 end do end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 index 7bc5d3e..e62a784 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27416-1.f90 @@ -6,7 +6,7 @@ !$omp parallel num_threads (4) call foo (j) !$omp end parallel - if (j.ne.6+16) STOP 1 + if (j.ne.6+16) stop 1 end subroutine foo (j) diff --git a/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 b/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 index bb75af9..1a1b0c3 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27916-1.f90 @@ -22,5 +22,5 @@ program pr27916 r = r .or. allocated (a) end do !$omp end parallel do - if (r) STOP 1 + if (r) stop 1 end program pr27916 diff --git a/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 b/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 index 7973726..c0bc666 100644 --- a/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr27916-2.f90 @@ -22,5 +22,5 @@ program pr27916 r = r .or. allocated (a) end do !$omp end parallel do - if (r) STOP 1 + if (r) stop 1 end program pr27916 diff --git a/libgomp/testsuite/libgomp.fortran/pr28390.f b/libgomp/testsuite/libgomp.fortran/pr28390.f index 9b2d29d..9a0832a 100644 --- a/libgomp/testsuite/libgomp.fortran/pr28390.f +++ b/libgomp/testsuite/libgomp.fortran/pr28390.f @@ -5,5 +5,5 @@ !$omp parallel do lastprivate(i) do i=1,100 end do - if (i.ne.101) STOP 1 + if (i.ne.101) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr29629.f90 b/libgomp/testsuite/libgomp.fortran/pr29629.f90 index 4b802c5..1920ac0 100644 --- a/libgomp/testsuite/libgomp.fortran/pr29629.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr29629.f90 @@ -4,7 +4,7 @@ program pr29629 integer :: n n = 10000 - if (any (func(n).ne.10000)) STOP 1 + if (any (func(n).ne.10000)) stop 1 contains function func(n) integer, intent(in) :: n diff --git a/libgomp/testsuite/libgomp.fortran/pr32550.f90 b/libgomp/testsuite/libgomp.fortran/pr32550.f90 index ce496ca..99852df 100644 --- a/libgomp/testsuite/libgomp.fortran/pr32550.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr32550.f90 @@ -17,5 +17,5 @@ e = e + 1 end if !$omp end parallel - if (e.ne.0) STOP 1 + if (e.ne.0) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr33880.f90 b/libgomp/testsuite/libgomp.fortran/pr33880.f90 index e6a26f4..ec00dd8 100644 --- a/libgomp/testsuite/libgomp.fortran/pr33880.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr33880.f90 @@ -9,7 +9,7 @@ program pr33880 !$omp atomic j = j + 1 end do - if (j .ne. 1000) STOP 1 + if (j .ne. 1000) stop 1 contains subroutine something() i = 0 diff --git a/libgomp/testsuite/libgomp.fortran/pr34020.f90 b/libgomp/testsuite/libgomp.fortran/pr34020.f90 index 6d23164..31aaecd 100644 --- a/libgomp/testsuite/libgomp.fortran/pr34020.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr34020.f90 @@ -16,5 +16,5 @@ do i = 1, 300000 call atomic_add(lhs, rhs) enddo - if (lhs .ne. 300000) STOP 1 + if (lhs .ne. 300000) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr35130.f90 b/libgomp/testsuite/libgomp.fortran/pr35130.f90 index 940531e..05d00a6 100644 --- a/libgomp/testsuite/libgomp.fortran/pr35130.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr35130.f90 @@ -11,7 +11,7 @@ program pr35130 call inner(k) end do !$omp end parallel do - if (any (a.ne.42)) STOP 1 + if (any (a.ne.42)) stop 1 contains subroutine inner(i) implicit none diff --git a/libgomp/testsuite/libgomp.fortran/pr42162.f90 b/libgomp/testsuite/libgomp.fortran/pr42162.f90 index 3792a33..fd75f55 100644 --- a/libgomp/testsuite/libgomp.fortran/pr42162.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr42162.f90 @@ -49,5 +49,5 @@ program pr42162 !$omp parallel num_threads(3) call sub3 (k, c) !$omp end parallel - if (k.ne.4.or.any(a.ne.2).or.any(b.ne.3).or.any(c.ne.4)) STOP 1 + if (k.ne.4.or.any(a.ne.2).or.any(b.ne.3).or.any(c.ne.4)) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr46753.f90 b/libgomp/testsuite/libgomp.fortran/pr46753.f90 index 0d9debc..5caa4d7 100644 --- a/libgomp/testsuite/libgomp.fortran/pr46753.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr46753.f90 @@ -7,11 +7,11 @@ do i = 2147483636, 2147483646 j = j + 1 end do - if (j.ne.11) STOP 1 + if (j.ne.11) stop 1 j = 0 !$omp parallel do reduction(+:j) do i = -2147483637, -2147483647, -1 j = j + 1 end do - if (j.ne.11) STOP 2 + if (j.ne.11) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/pr48894.f90 b/libgomp/testsuite/libgomp.fortran/pr48894.f90 index 0f7bfad..e906f45 100644 --- a/libgomp/testsuite/libgomp.fortran/pr48894.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr48894.f90 @@ -19,5 +19,5 @@ endif !$omp end parallel !$omp end parallel - if (err .ne. 0) STOP 1 + if (err .ne. 0) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 b/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 index 18643ac..5a9d470 100644 --- a/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr49792-1.f90 @@ -14,5 +14,5 @@ program pr49792 real(kind=8) :: b(16) b(:) = a(16:1:-1) call reverse (16,a) - if (any (a.ne.b)) STOP 1 + if (any (a.ne.b)) stop 1 end program pr49792 diff --git a/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 b/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 index 689f7de..570901d 100644 --- a/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr49792-2.f90 @@ -17,6 +17,6 @@ program pr49792 !$omp parallel workshare a = b !$omp end parallel workshare - if (size(a).ne.size(b)) STOP 1 - if (any (a.ne.b)) STOP 2 + if (size(a).ne.size(b)) stop 1 + if (any (a.ne.b)) stop 2 end program pr49792 diff --git a/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 b/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 index eb85500..4cc8be7 100644 --- a/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr63938-1.f90 @@ -10,5 +10,5 @@ program pr63938_1 x(1) = x(1) + 1 end do !$omp end parallel do - if (x(1) .ne. 1000) STOP 1 + if (x(1) .ne. 1000) stop 1 end program pr63938_1 diff --git a/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 b/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 index 934e800..d0a17ac 100644 --- a/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr63938-2.f90 @@ -14,5 +14,5 @@ program pr63938_2 x%x = x%x + 1 end do !$omp end parallel do - if (x%x .ne. 1000) STOP 1 + if (x%x .ne. 1000) stop 1 end program pr63938_2 diff --git a/libgomp/testsuite/libgomp.fortran/pr65597.f90 b/libgomp/testsuite/libgomp.fortran/pr65597.f90 index 2575431..29d1c9e 100644 --- a/libgomp/testsuite/libgomp.fortran/pr65597.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr65597.f90 @@ -13,9 +13,9 @@ end do do i = 1, 151 if (mod (i, 31) .eq. 1) then - if (a(i) .ne. 2) STOP 1 + if (a(i) .ne. 2) stop 1 else - if (a(i) .ne. 0) STOP 2 + if (a(i) .ne. 0) stop 2 end if end do end diff --git a/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 b/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 index ecf6245..38cac5e 100644 --- a/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr66199-1.f90 @@ -10,7 +10,7 @@ do d = a, b u(d) = v(d) + w(d) end do - if (d .ne. 1025) STOP 1 + if (d .ne. 1025) stop 1 c = 17 d = 75 !$omp parallel do simd default(none) firstprivate (a, b) shared(u, v, w) & @@ -20,8 +20,8 @@ c = c + 5 e = c end do - if (d .ne. 1025 .or. c .ne. (17 + 5 * 1024)) STOP 2 - if (e .ne. (17 + 5 * 1024)) STOP 3 + if (d .ne. 1025 .or. c .ne. (17 + 5 * 1024)) stop 2 + if (e .ne. (17 + 5 * 1024)) stop 3 a1 = 0 a2 = 0 b1 = 31 @@ -35,7 +35,7 @@ u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1) end do end do - if (d1 .ne. 32 .or. d2 .ne. 32) STOP 4 + if (d1 .ne. 32 .or. d2 .ne. 32) stop 4 d1 = 7 d2 = 9 !$omp parallel do simd default(none) firstprivate (a1, b1, a2, b2) & @@ -45,5 +45,5 @@ u(d1 * 32 + d2 + 1) = v(d1 * 32 + d2 + 1) + w(d1 * 32 + d2 + 1) end do end do - if (d1 .ne. 32 .or. d2 .ne. 32) STOP 5 + if (d1 .ne. 32 .or. d2 .ne. 32) stop 5 end diff --git a/libgomp/testsuite/libgomp.fortran/pr71014.f90 b/libgomp/testsuite/libgomp.fortran/pr71014.f90 index 7fcbf73..518df10 100644 --- a/libgomp/testsuite/libgomp.fortran/pr71014.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr71014.f90 @@ -16,5 +16,5 @@ program pr71014 end do end associate end do - if (any(s /= t)) STOP 1 + if (any(s /= t)) stop 1 end program pr71014 diff --git a/libgomp/testsuite/libgomp.fortran/pr81304.f90 b/libgomp/testsuite/libgomp.fortran/pr81304.f90 index c741934..3f7406a 100644 --- a/libgomp/testsuite/libgomp.fortran/pr81304.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr81304.f90 @@ -13,5 +13,5 @@ program pr81304 a = min (a, c) b = max (b, c) end do - if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) STOP 1 + if (any (a /= (/ 1, -4, 6 /)) .or. any (b /= (/ 16, 11, 21 /))) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/pr81841.f90 b/libgomp/testsuite/libgomp.fortran/pr81841.f90 index ed75837..9ddc95a 100644 --- a/libgomp/testsuite/libgomp.fortran/pr81841.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr81841.f90 @@ -17,10 +17,10 @@ program pr81841 common /c/ e, f !$omp threadprivate (/c/) !$omp parallel num_threads(8) - if ((e /= 32) .or. any(f /= 1.)) STOP 1 + if ((e /= 32) .or. any(f /= 1.)) stop 1 e = omp_get_thread_num () f = e + 19. !$omp barrier - if ((e /= omp_get_thread_num ()) .or. any(f /= e + 19.)) STOP 2 + if ((e /= omp_get_thread_num ()) .or. any(f /= e + 19.)) stop 2 !$omp end parallel end diff --git a/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 b/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 index 5939121..8547fce 100644 --- a/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr84418-1.f90 @@ -15,7 +15,7 @@ c(i) = foo (a(i), b(i)) end do do i = 1, 1024 - if (c(i).ne.(2 * i)) STOP 1 + if (c(i).ne.(2 * i)) stop 1 end do contains real function foo (x, y) diff --git a/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 b/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 index f85fbf2..481e24e 100644 --- a/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 +++ b/libgomp/testsuite/libgomp.fortran/pr84418-2.f90 @@ -23,7 +23,7 @@ c(i) = foo (a(i), b(:,i)) end do do i = 1, 1024 - if (c(i).ne.(6 * i)) STOP 1 + if (c(i).ne.(6 * i)) stop 1 end do contains function foo (x, y) diff --git a/libgomp/testsuite/libgomp.fortran/procptr1.f90 b/libgomp/testsuite/libgomp.fortran/procptr1.f90 index 560d0da..44410d4 100644 --- a/libgomp/testsuite/libgomp.fortran/procptr1.f90 +++ b/libgomp/testsuite/libgomp.fortran/procptr1.f90 @@ -11,25 +11,25 @@ integer :: i ptr => foo !$omp parallel shared (ptr) - if (ptr () /= 1) STOP 1 + if (ptr () /= 1) stop 1 !$omp end parallel ptr => bar !$omp parallel firstprivate (ptr) - if (ptr () /= 2) STOP 2 + if (ptr () /= 2) stop 2 !$omp end parallel !$omp parallel sections lastprivate (ptr) !$omp section ptr => foo - if (ptr () /= 1) STOP 3 + if (ptr () /= 1) stop 3 !$omp section ptr => bar - if (ptr () /= 2) STOP 4 + if (ptr () /= 2) stop 4 !$omp section ptr => baz - if (ptr () /= 3) STOP 5 + if (ptr () /= 3) stop 5 !$omp end parallel sections - if (ptr () /= 3) STOP 6 - if (.not.associated (ptr, baz)) STOP 7 + if (ptr () /= 3) stop 6 + if (.not.associated (ptr, baz)) stop 7 end integer function foo () foo = 1 diff --git a/libgomp/testsuite/libgomp.fortran/recursion1.f90 b/libgomp/testsuite/libgomp.fortran/recursion1.f90 index c9aec7e..2546d09 100644 --- a/libgomp/testsuite/libgomp.fortran/recursion1.f90 +++ b/libgomp/testsuite/libgomp.fortran/recursion1.f90 @@ -14,7 +14,7 @@ do i=1,10 call sub(i) end do !$omp end parallel do -if (s/=55) STOP 1 +if (s/=55) stop 1 contains diff --git a/libgomp/testsuite/libgomp.fortran/reduction1.f90 b/libgomp/testsuite/libgomp.fortran/reduction1.f90 index bc036b0..622a705 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction1.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction1.f90 @@ -55,14 +55,14 @@ ca = cmplx (-1, 0) end if !$omp end parallel - if (v) STOP 1 + if (v) stop 1 if (cnt .eq. 3) then - if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 2 - if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 3 - if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 4 - if (c .ne. cmplx (11.5, -5)) STOP 5 - if (ca(1) .ne. cmplx (12, 2)) STOP 6 - if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 7 + if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) stop 2 + if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) stop 3 + if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) stop 4 + if (c .ne. cmplx (11.5, -5)) stop 5 + if (ca(1) .ne. cmplx (12, 2)) stop 6 + if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) stop 7 end if i = 1 @@ -113,14 +113,14 @@ ca = cmplx (-1, 0) end if !$omp end parallel - if (v) STOP 8 + if (v) stop 8 if (cnt .eq. 3) then - if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) STOP 9 - if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) STOP 10 - if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) STOP 11 - if (c .ne. cmplx (11.5, -5)) STOP 12 - if (ca(1) .ne. cmplx (12, 2)) STOP 13 - if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) STOP 14 + if (i .ne. 8 .or. any (ia .ne. (/3, 3, 1, 6, 6, 8/))) stop 9 + if (r .ne. 8 .or. any (ra .ne. (/9.5, 8.0, 1.5, 1.5/))) stop 10 + if (d .ne. 12.5 .or. any (da .ne. (/8.0, 16.5, 16.5, 14.0, 5.5/))) stop 11 + if (c .ne. cmplx (11.5, -5)) stop 12 + if (ca(1) .ne. cmplx (12, 2)) stop 13 + if (ca(2) .ne. cmplx (6.5, 3) .or. ca(2) .ne. ca(3)) stop 14 end if i = 1 @@ -169,13 +169,13 @@ ca = cmplx (-1, 0) end if !$omp end parallel - if (v) STOP 15 + if (v) stop 15 if (cnt .eq. 3) then - if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) STOP 16 - if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) STOP 17 - if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) STOP 18 - if (c .ne. cmplx (0, 15)) STOP 19 - if (ca(1) .ne. cmplx (0, 10)) STOP 20 - if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) STOP 21 + if (i .ne. 6 .or. any (ia .ne. (/4, 4, 8, -16, -16, -8/))) stop 16 + if (r .ne. 8 .or. any (ra .ne. (/4., -2., -1., -1./))) stop 17 + if (d .ne. -40 .or. any (da .ne. (/32., -64., -64., 64., -32./))) stop 18 + if (c .ne. cmplx (0, 15)) stop 19 + if (ca(1) .ne. cmplx (0, 10)) stop 20 + if (ca(2) .ne. cmplx (-2, 0) .or. ca(2) .ne. ca(3)) stop 21 end if end diff --git a/libgomp/testsuite/libgomp.fortran/reduction2.f90 b/libgomp/testsuite/libgomp.fortran/reduction2.f90 index 6af173d..75c2e0c 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction2.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction2.f90 @@ -31,10 +31,10 @@ ma(1) = .true. end if !$omp end parallel - if (v) STOP 1 + if (v) stop 1 if (cnt .eq. 3) then - if (l .or. any (la .neqv. (/.true., .false., .false., .false./))) STOP 2 - if (.not. m .or. any (ma .neqv. (/.true., .true., .false., .true./))) STOP 3 + if (l .or. any (la .neqv. (/.true., .false., .false., .false./))) stop 2 + if (.not. m .or. any (ma .neqv. (/.true., .true., .false., .true./))) stop 3 end if l = .true. @@ -64,10 +64,10 @@ ma(1) = .true. end if !$omp end parallel - if (v) STOP 4 + if (v) stop 4 if (cnt .eq. 3) then - if (.not. l .or. any (la .neqv. (/.true., .false., .true., .false./))) STOP 5 - if (.not. m .or. any (ma .neqv. (/.false., .true., .false., .true./))) STOP 6 + if (.not. l .or. any (la .neqv. (/.true., .false., .true., .false./))) stop 5 + if (.not. m .or. any (ma .neqv. (/.false., .true., .false., .true./))) stop 6 end if end diff --git a/libgomp/testsuite/libgomp.fortran/reduction3.f90 b/libgomp/testsuite/libgomp.fortran/reduction3.f90 index b0a858b..e19bac6 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction3.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction3.f90 @@ -46,11 +46,11 @@ da = -1 end if !$omp end parallel - if (v) STOP 1 + if (v) stop 1 if (cnt .eq. 3) then - if (i .ne. 4 .or. any (ia .ne. (/7, 2, 2, 5, 5, 5/))) STOP 2 - if (r .ne. 5 .or. any (ra .ne. (/6.5, 6.5, 4., 4./))) STOP 3 - if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) STOP 4 + if (i .ne. 4 .or. any (ia .ne. (/7, 2, 2, 5, 5, 5/))) stop 2 + if (r .ne. 5 .or. any (ra .ne. (/6.5, 6.5, 4., 4./))) stop 3 + if (d .ne. 8.5 .or. any (da .ne. (/6.5, 8.5, 8.5, 8.5, 6.5/))) stop 4 end if i = 1 @@ -94,10 +94,10 @@ da(1:4) = 6 end if !$omp end parallel - if (v) STOP 5 + if (v) stop 5 if (cnt .eq. 3) then - if (i .ne. 1 .or. any (ia .ne. (/1, 1, -2, -2, -2, 1/))) STOP 6 - if (r .ne. -1 .or. any (ra .ne. (/4., -1.5, -8.5, -1.5/))) STOP 7 - if (d .ne. -2.5 .or. any (da .ne. (/2.5, 2.5, 2.5, 6., 6.5/))) STOP 8 + if (i .ne. 1 .or. any (ia .ne. (/1, 1, -2, -2, -2, 1/))) stop 6 + if (r .ne. -1 .or. any (ra .ne. (/4., -1.5, -8.5, -1.5/))) stop 7 + if (d .ne. -2.5 .or. any (da .ne. (/2.5, 2.5, 2.5, 6., 6.5/))) stop 8 end if end diff --git a/libgomp/testsuite/libgomp.fortran/reduction4.f90 b/libgomp/testsuite/libgomp.fortran/reduction4.f90 index 498d546..2de903c 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction4.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction4.f90 @@ -44,13 +44,13 @@ ka(6:6) = int(Z'777') end if !$omp end parallel - if (v) STOP 1 + if (v) stop 1 if (cnt .eq. 3) then ta = (/int(Z'f0ff03'), int(Z'f0af03'), int(Z'f0af01'), int(Z'f0af01'), int(Z'f0af01'), int(Z'f0ff0f')/) - if (i .ne. int(Z'777f07') .or. any (ia .ne. ta)) STOP 2 + if (i .ne. int(Z'777f07') .or. any (ia .ne. ta)) stop 2 ta = (/int(Z'f5a01'), int(Z'f5a09'), int(Z'f5a09'), int(Z'f5a08'), int(Z'f5f08'), int(Z'f5f00')/) - if (j .ne. int(Z'fff80') .or. any (ja .ne. ta)) STOP 3 + if (j .ne. int(Z'fff80') .or. any (ja .ne. ta)) stop 3 ta = (/int(Z'5a5a5'), int(Z'5a5a5'), int(Z'aaba2'), int(Z'aaba2'), int(Z'5aaaa'), int(Z'5addd')/) - if (k .ne. int(Z'54a8f') .or. any (ka .ne. ta)) STOP 4 + if (k .ne. int(Z'54a8f') .or. any (ka .ne. ta)) stop 4 end if end diff --git a/libgomp/testsuite/libgomp.fortran/reduction5.f90 b/libgomp/testsuite/libgomp.fortran/reduction5.f90 index a1d1a8e..e2a17a9 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction5.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction5.f90 @@ -18,7 +18,7 @@ contains !$omp section n = bitwise_or (n, int(Z'2000')) !$omp end parallel sections - if (n .ne. int(Z'243f')) STOP 1 + if (n .ne. int(Z'243f')) stop 1 end subroutine subroutine test2 use reduction5, min => max, max => min @@ -36,7 +36,7 @@ contains if (m .gt. 3) m = 3 if (n .lt. -1) n = -1 !$omp end parallel sections - if (m .ne. 3 .or. n .ne. 15) STOP 2 + if (m .ne. 3 .or. n .ne. 15) stop 2 end subroutine test2 end diff --git a/libgomp/testsuite/libgomp.fortran/reduction6.f90 b/libgomp/testsuite/libgomp.fortran/reduction6.f90 index 99fb8d1..24d849c 100644 --- a/libgomp/testsuite/libgomp.fortran/reduction6.f90 +++ b/libgomp/testsuite/libgomp.fortran/reduction6.f90 @@ -8,7 +8,7 @@ call foo (a (2:4, 3:5), nthreads) if (nthreads .eq. 3) then write (c, '(36i1)') a - if (c .ne. '999999999999966699966699966699999999') STOP 1 + if (c .ne. '999999999999966699966699966699999999') stop 1 end if contains subroutine foo (b, nthreads) @@ -27,6 +27,6 @@ contains !$omp end master b = 2 !$omp end parallel - if (err .gt. 0) STOP 2 + if (err .gt. 0) stop 2 end subroutine foo end diff --git a/libgomp/testsuite/libgomp.fortran/reference1.f90 b/libgomp/testsuite/libgomp.fortran/reference1.f90 index 8c9631b..1d52c2f 100644 --- a/libgomp/testsuite/libgomp.fortran/reference1.f90 +++ b/libgomp/testsuite/libgomp.fortran/reference1.f90 @@ -8,10 +8,10 @@ k = 0 d = 24.5 call test (i, j, k, d) - if (i .ne. 38) STOP 1 - if (iand (k, 255) .ne. 0) STOP 2 + if (i .ne. 38) stop 1 + if (iand (k, 255) .ne. 0) stop 2 if (iand (k, 65280) .eq. 0) then - if (k .ne. 65536 * 4) STOP 3 + if (k .ne. 65536 * 4) stop 3 end if contains subroutine test (i, j, k, d) diff --git a/libgomp/testsuite/libgomp.fortran/reference2.f90 b/libgomp/testsuite/libgomp.fortran/reference2.f90 index 87efab2..6fcd05d 100644 --- a/libgomp/testsuite/libgomp.fortran/reference2.f90 +++ b/libgomp/testsuite/libgomp.fortran/reference2.f90 @@ -11,7 +11,7 @@ contains a = 15 l = bar (a) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine function bar (a) real, dimension (5) :: a diff --git a/libgomp/testsuite/libgomp.fortran/retval1.f90 b/libgomp/testsuite/libgomp.fortran/retval1.f90 index db49a0d..604e14e 100644 --- a/libgomp/testsuite/libgomp.fortran/retval1.f90 +++ b/libgomp/testsuite/libgomp.fortran/retval1.f90 @@ -14,7 +14,7 @@ function f1 () l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 8.5) l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 14.5) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 f1 = -2.5 end function f1 function f2 () @@ -32,7 +32,7 @@ entry e2 () l = l .or. (omp_get_thread_num () .eq. 0 .and. e2 .ne. 8.5) l = l .or. (omp_get_thread_num () .eq. 1 .and. e2 .ne. 14.5) !$omp end parallel - if (l) STOP 2 + if (l) stop 2 e2 = 7.5 end function f2 function f3 () @@ -53,7 +53,7 @@ entry e3 () l = l .or. (omp_get_thread_num () .eq. 1 .and. e3 .ne. 14.5) l = l .or. f3 .ne. e3 - 4.5 !$omp end parallel - if (l) STOP 3 + if (l) stop 3 e3 = 0.5 end function f3 function f4 () result (r4) @@ -74,7 +74,7 @@ entry e4 () result (s4) l = l .or. (omp_get_thread_num () .eq. 1 .and. s4 .ne. 14.5) l = l .or. r4 .ne. s4 - 4.5 !$omp end parallel - if (l) STOP 4 + if (l) stop 4 s4 = -0.5 end function f4 function f5 (is_f5) @@ -101,20 +101,20 @@ entry e5 (is_f5) l = l .or. (omp_get_thread_num () .eq. 1 .and. e5 .ne. 14) l = l .or. f5 .ne. e5 - 4.5 !$omp end parallel - if (l) STOP 5 + if (l) stop 5 if (is_f5) f5 = -2.5 if (.not. is_f5) e5 = 8 end function f5 real :: f1, f2, e2, f3, e3, f4, e4, f5 integer :: e5 - if (f1 () .ne. -2.5) STOP 6 - if (f2 () .ne. 7.5) STOP 7 - if (e2 () .ne. 7.5) STOP 8 - if (f3 () .ne. 0.5) STOP 9 - if (e3 () .ne. 0.5) STOP 10 - if (f4 () .ne. -0.5) STOP 11 - if (e4 () .ne. -0.5) STOP 12 - if (f5 (.true.) .ne. -2.5) STOP 13 - if (e5 (.false.) .ne. 8) STOP 14 + if (f1 () .ne. -2.5) stop 6 + if (f2 () .ne. 7.5) stop 7 + if (e2 () .ne. 7.5) stop 8 + if (f3 () .ne. 0.5) stop 9 + if (e3 () .ne. 0.5) stop 10 + if (f4 () .ne. -0.5) stop 11 + if (e4 () .ne. -0.5) stop 12 + if (f5 (.true.) .ne. -2.5) stop 13 + if (e5 (.false.) .ne. 8) stop 14 end diff --git a/libgomp/testsuite/libgomp.fortran/retval2.f90 b/libgomp/testsuite/libgomp.fortran/retval2.f90 index a2fd5b9..2851e05 100644 --- a/libgomp/testsuite/libgomp.fortran/retval2.f90 +++ b/libgomp/testsuite/libgomp.fortran/retval2.f90 @@ -17,11 +17,11 @@ contains l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 8.5) l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 14.5) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 f1 = -2.5 end subroutine sub1 end function f1 real :: f1 - if (f1 () .ne. -2.5) STOP 2 + if (f1 () .ne. -2.5) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/sharing1.f90 b/libgomp/testsuite/libgomp.fortran/sharing1.f90 index 03633e9..48c21aa 100644 --- a/libgomp/testsuite/libgomp.fortran/sharing1.f90 +++ b/libgomp/testsuite/libgomp.fortran/sharing1.f90 @@ -25,5 +25,5 @@ !$omp barrier if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true. !$omp end parallel - if (l .or. j .ne. 25) STOP 1 + if (l .or. j .ne. 25) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/sharing2.f90 b/libgomp/testsuite/libgomp.fortran/sharing2.f90 index 0b01059..3f76475 100644 --- a/libgomp/testsuite/libgomp.fortran/sharing2.f90 +++ b/libgomp/testsuite/libgomp.fortran/sharing2.f90 @@ -27,6 +27,6 @@ !$omp barrier if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true. !$omp end parallel - if (l) STOP 1 - if (j .ne. 25) STOP 2 + if (l) stop 1 + if (j .ne. 25) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/simd1.f90 b/libgomp/testsuite/libgomp.fortran/simd1.f90 index 558e141..353f16d 100644 --- a/libgomp/testsuite/libgomp.fortran/simd1.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd1.f90 @@ -30,6 +30,6 @@ s = s + l t%x = t%x + l end do - if (r.ne.2700.or.j.ne.70.or.k.ne.80.or.s.ne.2700) STOP 1 - if (t%x.ne.2700) STOP 2 + if (r.ne.2700.or.j.ne.70.or.k.ne.80.or.s.ne.2700) stop 1 + if (t%x.ne.2700) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/simd2.f90 b/libgomp/testsuite/libgomp.fortran/simd2.f90 index 0062d5e..415ad9c 100644 --- a/libgomp/testsuite/libgomp.fortran/simd2.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd2.f90 @@ -13,42 +13,42 @@ end do s = foo (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 1 + if (a(i).ne.((i - 513) * b(i))) stop 1 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 2 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 3 + if (b(i).ne.(modulo (i - 52, 39))) stop 3 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 4 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 4 k = 4 m = 2 t = 1 s = bar (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 5 + if (a(i).ne.((i - 513) * b(i))) stop 5 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 6 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 7 + if (b(i).ne.(modulo (i - 52, 39))) stop 7 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 8 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 8 k = 4 m = 2 t = 1 s = baz (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 9 + if (a(i).ne.((i - 513) * b(i))) stop 9 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 10 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 11 + if (b(i).ne.(modulo (i - 52, 39))) stop 11 end if end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 12 contains function foo (p) integer :: p(1024), u, v, i, s, foo @@ -62,8 +62,8 @@ contains s = s + p(i) + k end do !$omp end simd - if (i.ne.1025) STOP 13 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 14 + if (i.ne.1025) stop 13 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 14 foo = s end function foo function bar (p) @@ -78,8 +78,8 @@ contains s = s + p(i) + k end do !$omp end simd - if (i.ne.1025) STOP 15 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 16 + if (i.ne.1025) stop 15 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 16 bar = s end function bar function baz (p) @@ -94,8 +94,8 @@ contains v = p(i) + k s = s + p(i) + k end do - if (i.ne.1025) STOP 17 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 18 + if (i.ne.1025) stop 17 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 18 baz = s end function baz end diff --git a/libgomp/testsuite/libgomp.fortran/simd3.f90 b/libgomp/testsuite/libgomp.fortran/simd3.f90 index 22ff564..29b98e1 100644 --- a/libgomp/testsuite/libgomp.fortran/simd3.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd3.f90 @@ -13,42 +13,42 @@ end do s = foo (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 1 + if (a(i).ne.((i - 513) * b(i))) stop 1 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 2 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 3 + if (b(i).ne.(modulo (i - 52, 39))) stop 3 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 4 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 4 k = 4 m = 2 t = 1 s = bar (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 5 + if (a(i).ne.((i - 513) * b(i))) stop 5 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 6 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 7 + if (b(i).ne.(modulo (i - 52, 39))) stop 7 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 8 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 8 k = 4 m = 2 t = 1 s = baz (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 9 + if (a(i).ne.((i - 513) * b(i))) stop 9 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 10 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 11 + if (b(i).ne.(modulo (i - 52, 39))) stop 11 end if end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 12 contains function foo (p) integer :: p(1024), u, v, i, s, foo @@ -65,8 +65,8 @@ contains end do !$omp end do simd !$omp end parallel - if (i.ne.1025) STOP 13 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 14 + if (i.ne.1025) stop 13 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 14 foo = s end function foo function bar (p) @@ -84,8 +84,8 @@ contains end do !$omp end do simd !$omp endparallel - if (i.ne.1025) STOP 15 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 16 + if (i.ne.1025) stop 15 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 16 bar = s end function bar function baz (p) @@ -102,8 +102,8 @@ contains s = s + p(i) + k end do !$omp end parallel - if (i.ne.1025) STOP 17 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 18 + if (i.ne.1025) stop 17 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 18 baz = s end function baz end diff --git a/libgomp/testsuite/libgomp.fortran/simd4.f90 b/libgomp/testsuite/libgomp.fortran/simd4.f90 index ceb1611..a81bc5e 100644 --- a/libgomp/testsuite/libgomp.fortran/simd4.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd4.f90 @@ -13,42 +13,42 @@ end do s = foo (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 1 + if (a(i).ne.((i - 513) * b(i))) stop 1 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 2 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 2 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 3 + if (b(i).ne.(modulo (i - 52, 39))) stop 3 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 4 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 4 k = 4 m = 2 t = 1 s = bar (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 5 + if (a(i).ne.((i - 513) * b(i))) stop 5 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 6 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 6 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 7 + if (b(i).ne.(modulo (i - 52, 39))) stop 7 end if a(i) = i - 513 end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 8 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 8 k = 4 m = 2 t = 1 s = baz (b) do i = 1, 1024 - if (a(i).ne.((i - 513) * b(i))) STOP 9 + if (a(i).ne.((i - 513) * b(i))) stop 9 if (i.lt.52.and.modulo (i - 52, 39).ne.0) then - if (b(i).ne.(modulo (i - 52, 39) - 39)) STOP 10 + if (b(i).ne.(modulo (i - 52, 39) - 39)) stop 10 else - if (b(i).ne.(modulo (i - 52, 39))) STOP 11 + if (b(i).ne.(modulo (i - 52, 39))) stop 11 end if end do - if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) STOP 12 + if (k.ne.(4 + 3 * 1024).or.s.ne.1596127) stop 12 contains function foo (p) integer :: p(1024), u, v, i, s, foo @@ -63,8 +63,8 @@ contains s = s + p(i) + k end do !$omp end parallel do simd - if (i.ne.1025) STOP 13 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 14 + if (i.ne.1025) stop 13 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 14 foo = s end function foo function bar (p) @@ -80,8 +80,8 @@ contains s = s + p(i) + k end do !$omp endparalleldosimd - if (i.ne.1025) STOP 15 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 16 + if (i.ne.1025) stop 15 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 16 bar = s end function bar function baz (p) @@ -96,8 +96,8 @@ contains v = p(i) + k s = s + p(i) + k end do - if (i.ne.1025) STOP 17 - if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) STOP 18 + if (i.ne.1025) stop 17 + if (u.ne.(36 + 4 + 3 * 1023).or.v.ne.(36 + 4 + 3 * 1024)) stop 18 baz = s end function baz end diff --git a/libgomp/testsuite/libgomp.fortran/simd5.f90 b/libgomp/testsuite/libgomp.fortran/simd5.f90 index e1383d2..099fec5 100644 --- a/libgomp/testsuite/libgomp.fortran/simd5.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd5.f90 @@ -12,7 +12,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 1 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 1 i = 4 j = 4 b = 7 @@ -21,7 +21,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 2 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 2 i = 4 j = 4 b = 7 @@ -30,7 +30,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 3 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 3 i = 4 j = 4 b = 7 @@ -39,7 +39,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 4 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 4 i = 4 j = 4 b = 7 @@ -50,7 +50,7 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 5 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 5 i = 4 j = 4 b = 7 @@ -61,7 +61,7 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 6 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 6 i = 4 j = 4 b = 7 @@ -70,7 +70,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 7 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 7 i = 4 j = 4 b = 7 @@ -79,7 +79,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 8 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 8 i = 4 j = 4 b = 7 @@ -88,7 +88,7 @@ c = c + b - (7 + 2 * i) b = b + 2 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 9 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 9 i = 4 j = 4 b = 7 @@ -97,7 +97,7 @@ c = c + b - (7 + i / 4 * 3) b = b + 3 end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 10 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 10 i = 4 j = 4 b = 7 @@ -108,7 +108,7 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 11 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 11 i = 4 j = 4 b = 7 @@ -120,5 +120,5 @@ b = b + 2 end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 12 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 12 end diff --git a/libgomp/testsuite/libgomp.fortran/simd6.f90 b/libgomp/testsuite/libgomp.fortran/simd6.f90 index b78bb4b..445ac4d 100644 --- a/libgomp/testsuite/libgomp.fortran/simd6.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd6.f90 @@ -18,7 +18,7 @@ c = c + b - (7 + 2 * i) call foo (b, i, j, 2) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 1 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 1 i = 4 j = 4 b = 7 @@ -27,7 +27,7 @@ c = c + b - (7 + i / 4 * 3) call foo (b, i, j, 3) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 2 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 2 i = 4 j = 4 b = 7 @@ -36,7 +36,7 @@ c = c + b - (7 + 2 * i) call foo (b, i, j, 2) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 3 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 3 i = 4 j = 4 b = 7 @@ -45,7 +45,7 @@ c = c + b - (7 + i / 4 * 3) call foo (b, i, j, 3) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 4 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 4 i = 4 j = 4 b = 7 @@ -56,7 +56,7 @@ call foo (b, i, j, 2) end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 5 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 5 i = 4 j = 4 b = 7 @@ -67,7 +67,7 @@ call foo (b, i, j, 2) end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 6 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 6 i = 4 j = 4 b = 7 @@ -76,7 +76,7 @@ c = c + b - (7 + 2 * i) call foo (b, i, j, 2) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 7 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 7 i = 4 j = 4 b = 7 @@ -85,7 +85,7 @@ c = c + b - (7 + i / 4 * 3) call foo (b, i, j, 3) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 8 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 8 i = 4 j = 4 b = 7 @@ -94,7 +94,7 @@ c = c + b - (7 + 2 * i) call foo (b, i, j, 2) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) STOP 9 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 64 * 2) stop 9 i = 4 j = 4 b = 7 @@ -103,7 +103,7 @@ c = c + b - (7 + i / 4 * 3) call foo (b, i, j, 3) end do - if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) STOP 10 + if (c /= 0 .or. i /= 64 .or. b /= 7 + 16 * 3) stop 10 i = 4 j = 4 b = 7 @@ -114,7 +114,7 @@ call foo (b, i, j, 2) end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 11 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 11 i = 4 j = 4 b = 7 @@ -126,7 +126,7 @@ call foo (b, i, j, 2) end do end do - if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) STOP 12 + if (c /= 0 .or. i /= 8 .or. j /= 8 .or. b /= 7 + 64 * 2) stop 12 end subroutine foo (b, i, j, x) integer, intent (inout) :: b diff --git a/libgomp/testsuite/libgomp.fortran/simd7.f90 b/libgomp/testsuite/libgomp.fortran/simd7.f90 index 4b5633e..28b2f25 100644 --- a/libgomp/testsuite/libgomp.fortran/simd7.f90 +++ b/libgomp/testsuite/libgomp.fortran/simd7.f90 @@ -30,20 +30,20 @@ subroutine foo (d, e, f, g, m, n) b = b + 1; c = c + 2; d = d + 3; e = e + 4; f = f + 5; g = g + 6 h = h + 7; k = k + 8; m = m + 9 end do - if (l .or. i /= 64) STOP 1 - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 2 - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 3 - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 4 - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 5 - if (m /= 15 + 9 * 64) STOP 6 - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 7 - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 8 - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 9 - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 10 - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 11 - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 12 - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 13 - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 14 + if (l .or. i /= 64) stop 1 + if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 2 + if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 3 + if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 4 + if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 5 + if (m /= 15 + 9 * 64) stop 6 + if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 7 + if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 8 + if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 9 + if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 10 + if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 11 + if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 12 + if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 13 + if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 14 i = 4; j = 4; b = 7; c = 8; d = 9; e = 10; f = 11; g = 12; h = 13; k = 14; m = 15 !$omp simd linear(b)linear(c:2)linear(d:3)linear(e:4)linear(f:5)linear(g:6) & !$omp & linear(h:7)linear(k:8)linear(m:9) reduction(.or.:l) collapse(2) @@ -68,20 +68,20 @@ subroutine foo (d, e, f, g, m, n) h = h + 7; k = k + 8; m = m + 9 end do end do - if (l .or. i /= 8 .or. j /= 8) STOP 15 - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 16 - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 17 - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 18 - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 19 - if (m /= 15 + 9 * 64) STOP 20 - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 21 - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 22 - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 23 - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 24 - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 25 - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 26 - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 27 - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 28 + if (l .or. i /= 8 .or. j /= 8) stop 15 + if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 16 + if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 17 + if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 18 + if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 19 + if (m /= 15 + 9 * 64) stop 20 + if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 21 + if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 22 + if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 23 + if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 24 + if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 25 + if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 26 + if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 27 + if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 28 i = 4; j = 4; b = 7; c = 8; d = 9; e = 10; f = 11; g = 12; h = 13; k = 14; m = 15 !$omp parallel do simd linear(b)linear(c:2)linear(d:3)linear(e:4)linear(f:5) & !$omp & linear(g:6)linear(h:7)linear(k:8)linear(m:9) reduction(.or.:l) @@ -104,20 +104,20 @@ subroutine foo (d, e, f, g, m, n) b = b + 1; c = c + 2; d = d + 3; e = e + 4; f = f + 5; g = g + 6 h = h + 7; k = k + 8; m = m + 9 end do - if (l .or. i /= 64) STOP 29 - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 30 - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 31 - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 32 - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 33 - if (m /= 15 + 9 * 64) STOP 34 - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 35 - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 36 - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 37 - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 38 - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 39 - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 40 - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 41 - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 42 + if (l .or. i /= 64) stop 29 + if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 30 + if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 31 + if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 32 + if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 33 + if (m /= 15 + 9 * 64) stop 34 + if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 35 + if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 36 + if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 37 + if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 38 + if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 39 + if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 40 + if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 41 + if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 42 i = 4; j = 4; b = 7; c = 8; d = 9; e = 10; f = 11; g = 12; h = 13; k = 14; m = 15 !$omp parallel do simd linear(b)linear(c:2)linear(d:3)linear(e:4)linear(f:5) & !$omp & linear(g:6)linear(h:7)linear(k:8)linear(m:9) reduction(.or.:l) collapse(2) @@ -142,20 +142,20 @@ subroutine foo (d, e, f, g, m, n) h = h + 7; k = k + 8; m = m + 9 end do end do - if (l .or. i /= 8 .or. j /= 8) STOP 43 - if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) STOP 44 - if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) STOP 45 - if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) STOP 46 - if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) STOP 47 - if (m /= 15 + 9 * 64) STOP 48 - if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) STOP 49 - if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) STOP 50 - if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) STOP 51 - if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) STOP 52 - if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) STOP 53 - if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) STOP 54 - if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) STOP 55 - if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) STOP 56 + if (l .or. i /= 8 .or. j /= 8) stop 43 + if (any (b /= 7 + 64) .or. any (c /= 8 + 2 * 64)) stop 44 + if (any (d /= 9 + 3 * 64) .or. any (e /= 10 + 4 * 64)) stop 45 + if (any (f /= 11 + 5 * 64) .or. any (g /= 12 + 6 * 64)) stop 46 + if (any (h /= 13 + 7 * 64) .or. (k /= 14 + 8 * 64)) stop 47 + if (m /= 15 + 9 * 64) stop 48 + if ((lbound (b, 1) /= 2) .or. (ubound (b, 1) /= 9)) stop 49 + if ((lbound (c, 1) /= 3) .or. (ubound (c, 1) /= n)) stop 50 + if ((lbound (d, 1) /= 1) .or. (ubound (d, 1) /= 17)) stop 51 + if ((lbound (e, 1) /= 2) .or. (ubound (e, 1) /= n)) stop 52 + if ((lbound (f, 1) /= 2) .or. (ubound (f, 1) /= 3)) stop 53 + if ((lbound (f, 2) /= 3) .or. (ubound (f, 2) /= 5)) stop 54 + if ((lbound (g, 1) /= 7) .or. (ubound (g, 1) /= 10)) stop 55 + if ((lbound (h, 1) /= 2) .or. (ubound (h, 1) /= 7)) stop 56 end subroutine interface diff --git a/libgomp/testsuite/libgomp.fortran/stack.f90 b/libgomp/testsuite/libgomp.fortran/stack.f90 index f0babdd..da0ff74 100644 --- a/libgomp/testsuite/libgomp.fortran/stack.f90 +++ b/libgomp/testsuite/libgomp.fortran/stack.f90 @@ -11,7 +11,7 @@ program stack !$omp end parallel ! Check that the two threads are not sharing a location for ! the array x in foo() - if (ilocs(1) .eq. ilocs(2)) STOP 1 + if (ilocs(1) .eq. ilocs(2)) stop 1 end program stack integer function foo () diff --git a/libgomp/testsuite/libgomp.fortran/strassen.f90 b/libgomp/testsuite/libgomp.fortran/strassen.f90 index 84faced..e0dc0c8 100644 --- a/libgomp/testsuite/libgomp.fortran/strassen.f90 +++ b/libgomp/testsuite/libgomp.fortran/strassen.f90 @@ -19,7 +19,7 @@ program strassen_matmul call strassen (A, B, D, N) end = omp_get_wtime () write(*,'(a, f10.6)') ' Time for Strassen = ', end - start - if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) STOP 1 + if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) stop 1 D = 0 start = omp_get_wtime () !$omp parallel @@ -29,7 +29,7 @@ program strassen_matmul !$omp end parallel end = omp_get_wtime () write(*,'(a, f10.6)') ' Time for Strassen MP = ', end - start - if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) STOP 2 + if (sqrt (sum ((C - D) ** 2)) / N .gt. 0.1) stop 2 contains diff --git a/libgomp/testsuite/libgomp.fortran/tabs1.f90 b/libgomp/testsuite/libgomp.fortran/tabs1.f90 index 68dba38..da334dc 100644 --- a/libgomp/testsuite/libgomp.fortran/tabs1.f90 +++ b/libgomp/testsuite/libgomp.fortran/tabs1.f90 @@ -1,4 +1,4 @@ - if (b().ne.2) STOP 1 + if (b().ne.2) stop 1 contains subroutine a !$omp parallel diff --git a/libgomp/testsuite/libgomp.fortran/tabs2.f b/libgomp/testsuite/libgomp.fortran/tabs2.f index 07fca22..a018dd5 100644 --- a/libgomp/testsuite/libgomp.fortran/tabs2.f +++ b/libgomp/testsuite/libgomp.fortran/tabs2.f @@ -1,5 +1,5 @@ ! { dg-options "-ffixed-form" } - if (b().ne.2) STOP 1 + if (b().ne.2) stop 1 contains subroutine a !$omp parallel diff --git a/libgomp/testsuite/libgomp.fortran/target1.f90 b/libgomp/testsuite/libgomp.fortran/target1.f90 index 99c5087..36b1259 100644 --- a/libgomp/testsuite/libgomp.fortran/target1.f90 +++ b/libgomp/testsuite/libgomp.fortran/target1.f90 @@ -13,9 +13,9 @@ contains q(i) = p(i) end do !$omp end target - if (any (p /= q)) STOP 1 + if (any (p /= q)) stop 1 do i = 1, n - if (p(i) /= i * iand (i, 63)) STOP 2 + if (p(i) /= i * iand (i, 63)) stop 2 end do !$omp target data if (n > 256) map (to: v(1:n), w) map (from: p, q) !$omp target if (n > 256) @@ -38,7 +38,7 @@ contains end do !$omp end target !$omp end target data - if (any (p + 2.0 /= q)) STOP 3 + if (any (p + 2.0 /= q)) stop 3 end subroutine end module target1 use target1, only : foo @@ -52,7 +52,7 @@ end module target1 end do call foo (p, v, w, n) do i = 1, n - if (p(i) /= i * iand (i, 63) + 3) STOP 4 + if (p(i) /= i * iand (i, 63) + 3) stop 4 end do deallocate (p, v, w) end diff --git a/libgomp/testsuite/libgomp.fortran/target2.f90 b/libgomp/testsuite/libgomp.fortran/target2.f90 index 0595ed1..11b8af7 100644 --- a/libgomp/testsuite/libgomp.fortran/target2.f90 +++ b/libgomp/testsuite/libgomp.fortran/target2.f90 @@ -29,7 +29,7 @@ contains r = r .or. (j /= 16) r = r .or. (any (k /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n) !$omp end target - if (r) STOP 1 + if (r) stop 1 !$omp target map (to: b(3:n), c(5:n+4), d(2:n+1), e(1:,:2), g(3:n), i(3:n), k(4:n), n) map (from: r) r = (any (b /= 8)) .or. (lbound (b, 1) /= 3) .or. (ubound (b, 1) /= n) r = r .or. (any (c /= 9)) .or. (lbound (c, 1) /= 5) .or. (ubound (c, 1) /= n + 4) @@ -40,7 +40,7 @@ contains r = r .or. (any (i /= 15)) .or. (lbound (i, 1) /= 3) .or. (ubound (i, 1) /= n) r = r .or. (any (k /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n) !$omp end target - if (r) STOP 2 + if (r) stop 2 !$omp target map (to: b(5:n-2), c(7:n), d(4:n-2), e(1:,2:), g(5:n-3), i(6:n-4), k(5:n-5), n) map (from: r) r = (any (b(5:n-2) /= 8)) .or. (lbound (b, 1) /= 3) .or. (ubound (b, 1) /= n) r = r .or. (any (c(7:n) /= 9)) .or. (lbound (c, 1) /= 5) .or. (ubound (c, 1) /= n + 4) @@ -62,7 +62,7 @@ contains r = r .or. (any (i(6:n-4) /= 15)) .or. (lbound (i, 1) /= 3) .or. (ubound (i, 1) /= n) r = r .or. (any (k(5:n-5) /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n) !$omp end target - if (r) STOP 3 + if (r) stop 3 !$omp target map (to: d(2:n+1), n) r = a /= 7 r = r .or. (any (b /= 8)) .or. (lbound (b, 1) /= 3) .or. (ubound (b, 1) /= n) @@ -77,7 +77,7 @@ contains r = r .or. (j /= 16) r = r .or. (any (k /= 17)) .or. (lbound (k, 1) /= 4) .or. (ubound (k, 1) /= n) !$omp end target - if (r) STOP 4 + if (r) stop 4 end subroutine foo end module target2 use target2, only : foo diff --git a/libgomp/testsuite/libgomp.fortran/target3.f90 b/libgomp/testsuite/libgomp.fortran/target3.f90 index 6c45d11..d9b9ccf 100644 --- a/libgomp/testsuite/libgomp.fortran/target3.f90 +++ b/libgomp/testsuite/libgomp.fortran/target3.f90 @@ -13,12 +13,12 @@ contains r = associated (f) .or. associated (g) r = r .or. associated (j) .or. associated (k) !$omp end target - if (r) STOP 1 + if (r) stop 1 !$omp target r = associated (f) .or. associated (g) r = r .or. associated (j) .or. associated (k) !$omp end target - if (r) STOP 2 + if (r) stop 2 end subroutine foo end module target3 use target3, only : foo diff --git a/libgomp/testsuite/libgomp.fortran/target4.f90 b/libgomp/testsuite/libgomp.fortran/target4.f90 index 52575af..5dac76c 100644 --- a/libgomp/testsuite/libgomp.fortran/target4.f90 +++ b/libgomp/testsuite/libgomp.fortran/target4.f90 @@ -44,5 +44,5 @@ end module target4 & 30800.0d0, 33000.0d0, 23256.0d0, 25840.0d0, 28424.0d0, 31008.0d0, 33592.0d0, 36176.0d0, & & 38760.0d0, 41344.0d0, 30000.0d0, 33000.0d0, 36000.0d0, 39000.0d0, 42000.0d0, 45000.0d0, & & 48000.0d0, 51000.0d0 /), (/ 8, 9 /)) - if (any (a /= res)) STOP 1 + if (any (a /= res)) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/target5.f90 b/libgomp/testsuite/libgomp.fortran/target5.f90 index b03cb58..9d4662a 100644 --- a/libgomp/testsuite/libgomp.fortran/target5.f90 +++ b/libgomp/testsuite/libgomp.fortran/target5.f90 @@ -3,7 +3,7 @@ integer :: r r = 0 call foo (r) - if (r /= 11) STOP 1 + if (r /= 11) stop 1 contains subroutine foo (r) integer :: i, r diff --git a/libgomp/testsuite/libgomp.fortran/target6.f90 b/libgomp/testsuite/libgomp.fortran/target6.f90 index 82f49e2..c4105d7 100644 --- a/libgomp/testsuite/libgomp.fortran/target6.f90 +++ b/libgomp/testsuite/libgomp.fortran/target6.f90 @@ -16,7 +16,7 @@ contains !$omp end target !$omp target update if (n > 256) from (p) do i = 1, n - if (p(i) /= i * iand (i, 63)) STOP 1 + if (p(i) /= i * iand (i, 63)) stop 1 v(i) = v(i) + 1 end do !$omp target update if (n > 256) to (v(1:n)) @@ -28,8 +28,8 @@ contains !$omp end target !$omp end target data do i = 1, n - if (q(i) /= (v(i) - 1) * w(i)) STOP 2 - if (p(i) /= q(i) + w(i)) STOP 3 + if (q(i) /= (v(i) - 1) * w(i)) stop 2 + if (p(i) /= q(i) + w(i)) stop 3 end do end subroutine end module target6 @@ -44,7 +44,7 @@ end module target6 end do call foo (p, v, w, n) do i = 1, n - if (p(i) /= (i + 1) * iand (i, 63)) STOP 4 + if (p(i) /= (i + 1) * iand (i, 63)) stop 4 end do deallocate (p, v, w) end diff --git a/libgomp/testsuite/libgomp.fortran/target7.f90 b/libgomp/testsuite/libgomp.fortran/target7.f90 index 49ebb97..73a7485a 100644 --- a/libgomp/testsuite/libgomp.fortran/target7.f90 +++ b/libgomp/testsuite/libgomp.fortran/target7.f90 @@ -28,7 +28,7 @@ !$omp end single !$omp end parallel do i = 1, n - if (a(i) /= i + 1) STOP 1 + if (a(i) /= i + 1) stop 1 end do end real function foo (x) diff --git a/libgomp/testsuite/libgomp.fortran/target8.f90 b/libgomp/testsuite/libgomp.fortran/target8.f90 index e4874ae..5e7b1a4 100644 --- a/libgomp/testsuite/libgomp.fortran/target8.f90 +++ b/libgomp/testsuite/libgomp.fortran/target8.f90 @@ -22,7 +22,7 @@ !$omp end single !$omp end parallel do i = 1, n - if (a(i) /= i + 1) STOP 1 + if (a(i) /= i + 1) stop 1 end do contains real function foo (x) diff --git a/libgomp/testsuite/libgomp.fortran/task1.f90 b/libgomp/testsuite/libgomp.fortran/task1.f90 index 761226c..4eb6c10 100644 --- a/libgomp/testsuite/libgomp.fortran/task1.f90 +++ b/libgomp/testsuite/libgomp.fortran/task1.f90 @@ -13,7 +13,7 @@ program tasktest !$omp end task end if !$omp end parallel - if (j.gt.0) STOP 1 + if (j.gt.0) stop 1 contains subroutine subr (i) use omp_lib diff --git a/libgomp/testsuite/libgomp.fortran/task2.f90 b/libgomp/testsuite/libgomp.fortran/task2.f90 index 4f363b6..623c717 100644 --- a/libgomp/testsuite/libgomp.fortran/task2.f90 +++ b/libgomp/testsuite/libgomp.fortran/task2.f90 @@ -8,7 +8,7 @@ call test !$omp end single !$omp end parallel - if (err.ne.0) STOP 1 + if (err.ne.0) stop 1 contains subroutine check (x, y, l) integer :: x, y diff --git a/libgomp/testsuite/libgomp.fortran/task3.f90 b/libgomp/testsuite/libgomp.fortran/task3.f90 index fcff52a..a7b90d4 100644 --- a/libgomp/testsuite/libgomp.fortran/task3.f90 +++ b/libgomp/testsuite/libgomp.fortran/task3.f90 @@ -21,6 +21,6 @@ program F03_2_7_1d !$omp end parallel if (sum /= NT) then print *, "FAIL - sum == ", sum, " (expected ", NT, ")" - STOP 1 + stop 1 end if end program F03_2_7_1d diff --git a/libgomp/testsuite/libgomp.fortran/task4.f90 b/libgomp/testsuite/libgomp.fortran/task4.f90 index 6430f29..918bb1f 100644 --- a/libgomp/testsuite/libgomp.fortran/task4.f90 +++ b/libgomp/testsuite/libgomp.fortran/task4.f90 @@ -41,5 +41,5 @@ !$omp end parallel !$omp atomic read e = err - if (e .ne. 0) STOP 1 + if (e .ne. 0) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 b/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 index 145f54f..a32d444 100644 --- a/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskgroup1.f90 @@ -19,7 +19,7 @@ end do !$omp end taskgroup do i = 1, 16 - if (v(i).ne.(i + 1)) STOP 1 + if (v(i).ne.(i + 1)) stop 1 end do !$omp taskgroup do i = 1, 16, 2 @@ -35,7 +35,7 @@ end do !$omp endtaskgroup do i = 1, 16 - if (v(i).ne.(i + 2)) STOP 2 + if (v(i).ne.(i + 2)) stop 2 end do !$omp taskgroup do i = 1, 16, 2 @@ -54,8 +54,8 @@ end do !$omp end taskgroup do i = 1, 16, 2 - if (v(i).ne.(i + 3)) STOP 3 - if (v(i + 1).ne.(i + 5)) STOP 4 + if (v(i).ne.(i + 3)) stop 3 + if (v(i + 1).ne.(i + 5)) stop 4 end do !$omp taskgroup do i = 1, 16, 2 @@ -67,14 +67,14 @@ v(i + 1) = v(i + 1) + 1 !$omp end task !$omp end taskgroup - if (v(i).ne.(i + 4).or.v(i + 1).ne.(i + 6)) STOP 5 + if (v(i).ne.(i + 4).or.v(i + 1).ne.(i + 6)) stop 5 !$omp task v(i) = v(i) + 1 !$omp end task end do !$omp end taskgroup do i = 1, 16 - if (v(i).ne.(i + 5)) STOP 6 + if (v(i).ne.(i + 5)) stop 6 end do !$omp end single !$omp end parallel diff --git a/libgomp/testsuite/libgomp.fortran/taskloop1.f90 b/libgomp/testsuite/libgomp.fortran/taskloop1.f90 index 44a14c2..616d16a 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop1.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop1.f90 @@ -8,7 +8,7 @@ r = bar (12, 18) !$omp end single !$omp end parallel - if (q .ne. 6 .or. r .ne. 17 .or. e) STOP 1 + if (q .ne. 6 .or. r .ne. 17 .or. e) stop 1 contains subroutine foo (a, b) integer, intent (in) :: a, b diff --git a/libgomp/testsuite/libgomp.fortran/taskloop2.f90 b/libgomp/testsuite/libgomp.fortran/taskloop2.f90 index 0e92fcb..d564654 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop2.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop2.f90 @@ -13,7 +13,7 @@ !$omp end single !$omp end parallel do i = 1, 1024 - if (u(i) .ne. 2 * i + 1) STOP 1 + if (u(i) .ne. 2 * i + 1) stop 1 v(i) = 1024 - i w(i) = 512 - i end do @@ -24,45 +24,45 @@ !$omp end parallel do i = 1, 1024 if (i .lt. 2 .or. i .gt. 1022) then - if (u(i) .ne. 2 * i + 1) STOP 2 + if (u(i) .ne. 2 * i + 1) stop 2 else - if (u(i) .ne. 1536 - 2 * i) STOP 3 + if (u(i) .ne. 1536 - 2 * i) stop 3 end if v(i) = i w(i) = i + 1 end do - if (m .ne. (1023 + 2 * (1021 * 5 + 17) + 9)) STOP 4 + if (m .ne. (1023 + 2 * (1021 * 5 + 17) + 9)) stop 4 !$omp parallel !$omp single call f3 (1, 1024) !$omp end single !$omp end parallel do i = 1, 1024 - if (u(i) .ne. 2 * i + 1) STOP 5 + if (u(i) .ne. 2 * i + 1) stop 5 v(i) = 1024 - i w(i) = 512 - i end do - if (m .ne. 1025) STOP 6 + if (m .ne. 1025) stop 6 !$omp parallel !$omp single call f4 (0, 31, 1, 32) !$omp end single !$omp end parallel do i = 1, 1024 - if (u(i) .ne. 1536 - 2 * i) STOP 7 + if (u(i) .ne. 1536 - 2 * i) stop 7 v(i) = i w(i) = i + 1 end do - if (m .ne. 32 + 33 + 1024) STOP 8 + if (m .ne. 32 + 33 + 1024) stop 8 !$omp parallel !$omp single call f5 (0, 31, 1, 32) !$omp end single !$omp end parallel do i = 1, 1024 - if (u(i) .ne. 2 * i + 1) STOP 9 + if (u(i) .ne. 2 * i + 1) stop 9 end do - if (m .ne. 32 + 33) STOP 10 + if (m .ne. 32 + 33) stop 10 contains subroutine f1 (a, b) integer, intent(in) :: a, b diff --git a/libgomp/testsuite/libgomp.fortran/taskloop3.f90 b/libgomp/testsuite/libgomp.fortran/taskloop3.f90 index 75f4822..158966e 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop3.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop3.f90 @@ -5,14 +5,14 @@ integer :: i !$omp parallel !$omp single - if (f1 (74) .ne. 63 + 4) STOP 1 + if (f1 (74) .ne. 63 + 4) stop 1 g = 77 call f2 !$omp taskwait - if (g .ne. 63 + 9) STOP 2 - if (f3 (7_8, 11_8, 2_8) .ne. 11 * 7 + 13) STOP 3 + if (g .ne. 63 + 9) stop 2 + if (f3 (7_8, 11_8, 2_8) .ne. 11 * 7 + 13) stop 3 if (f4 (0_8, 31_8, 16_8, 46_8, 1_8, 2_8, 73) .ne. 32 + 5 * 48 & -& + 11 * 31 + 17 * 46) STOP 4 +& + 11 * 31 + 17 * 46) stop 4 !$omp end single !$omp end parallel contains @@ -22,7 +22,7 @@ contains x = y !$omp taskloop firstprivate(x)lastprivate(x) do i = 0, 63 - if (x .ne. 74) STOP 5 + if (x .ne. 74) stop 5 if (i .eq. 63) then x = i + 4 end if @@ -33,7 +33,7 @@ contains integer :: i !$omp taskloop firstprivate(g)lastprivate(g)nogroup do i = 0, 63 - if (g .ne. 77) STOP 6 + if (g .ne. 77) stop 6 if (i .eq. 63) then g = i + 9 end if @@ -60,7 +60,7 @@ contains !$omp & lastprivate (i, j, k, l) do i = a, b, e do j = c, d, f - if (k .ne. 73) STOP 7 + if (k .ne. 73) stop 7 if (i .eq. 31 .and. j .eq. 46) then k = i end if diff --git a/libgomp/testsuite/libgomp.fortran/taskloop4.f90 b/libgomp/testsuite/libgomp.fortran/taskloop4.f90 index 23067a3..8806280 100644 --- a/libgomp/testsuite/libgomp.fortran/taskloop4.f90 +++ b/libgomp/testsuite/libgomp.fortran/taskloop4.f90 @@ -11,22 +11,22 @@ ! >= grainsize && < 2 * grainsize, ! unless # of loop iterations is smaller than grainsize. call test (0, 79, 1, 17, fn, ntasks, min_iters, max_iters, cnt) - if (cnt .ne. 79) STOP 1 - if (min_iters .lt. 17 .or. max_iters .ge. 17 * 2) STOP 2 + if (cnt .ne. 79) stop 1 + if (min_iters .lt. 17 .or. max_iters .ge. 17 * 2) stop 2 call test (-49, 2541, 7, 28, fn, ntasks, min_iters, max_iters, cnt) - if (cnt .ne. 370) STOP 3 - if (min_iters .lt. 28 .or. max_iters .ge. 28 * 2) STOP 4 + if (cnt .ne. 370) stop 3 + if (min_iters .lt. 28 .or. max_iters .ge. 28 * 2) stop 4 call test (7, 21, 2, 15, fn, ntasks, min_iters, max_iters, cnt) - if (cnt .ne. 7) STOP 5 - if (min_iters .ne. 7 .or. max_iters .ne. 7) STOP 6 - if (ntasks .ne. 1) STOP 7 + if (cnt .ne. 7) stop 5 + if (min_iters .ne. 7 .or. max_iters .ne. 7) stop 6 + if (ntasks .ne. 1) stop 7 fn => num_tasks ! If num_tasks is present, # of task loop iters is ! min (# of loop iters, num_tasks). call test (-51, 2500, 48, 9, fn, ntasks, min_iters, max_iters, cnt) - if (cnt .ne. 54 .or. ntasks .ne. 9) STOP 8 + if (cnt .ne. 54 .or. ntasks .ne. 9) stop 8 call test (0, 25, 2, 17, fn, ntasks, min_iters, max_iters, cnt) - if (cnt .ne. 13 .or. ntasks .ne. 13) STOP 9 + if (cnt .ne. 13 .or. ntasks .ne. 13) stop 9 !$omp end single !$omp end parallel contains @@ -42,7 +42,7 @@ contains k = v v = v + 1 !$omp end atomic - if (k .ge. 64) STOP 10 + if (k .ge. 64) stop 10 end if j = j + 1 u(k + 1) = j @@ -60,7 +60,7 @@ contains k = v v = v + 1 !$omp end atomic - if (k .ge. 64) STOP 11 + if (k .ge. 64) stop 11 end if j = j + 1 u(k + 1) = j diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 index 4867cc2..4ee5644 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate1.f90 @@ -15,7 +15,7 @@ end module threadprivate1 !$omp barrier if (d .ne. omp_get_thread_num () + 6.5) l = .true. !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end ! { dg-final { cleanup-modules "threadprivate1" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 index c0aa5be..f1428d8 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate2.f90 @@ -53,16 +53,16 @@ end module threadprivate2 baz%b = omp_get_thread_num () * 2 + 1 !$omp end parallel - if (l) STOP 1 - if (.not.allocated (foo)) STOP 2 - if (size (foo).ne.18) STOP 3 - if (any (foo.ne.1)) STOP 4 - - if (associated (bar1)) STOP 5 - if (.not.associated (bar3)) STOP 6 - if (any (bar3 .ne. -2)) STOP 7 + if (l) stop 1 + if (.not.allocated (foo)) stop 2 + if (size (foo).ne.18) stop 3 + if (any (foo.ne.1)) stop 4 + + if (associated (bar1)) stop 5 + if (.not.associated (bar3)) stop 6 + if (any (bar3 .ne. -2)) stop 7 deallocate (bar3) - if (associated (bar3)) STOP 8 + if (associated (bar3)) stop 8 !$omp parallel num_threads (4) reduction (.or.:l) l = l.or..not.allocated (foo) @@ -85,12 +85,12 @@ end module threadprivate2 l = l.or.(baz%b.ne.(omp_get_thread_num () * 2 + 1)) !$omp end parallel - if (l) STOP 9 - if (.not.allocated (foo)) STOP 10 - if (size (foo).ne.18) STOP 11 - if (any (foo.ne.1)) STOP 12 + if (l) stop 9 + if (.not.allocated (foo)) stop 10 + if (size (foo).ne.18) stop 11 + if (any (foo.ne.1)) stop 12 deallocate (foo) - if (allocated (foo)) STOP 13 + if (allocated (foo)) stop 13 end ! { dg-final { cleanup-modules "threadprivate2" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 index 5bb6b29..e82cc8a 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate3.f90 @@ -44,7 +44,7 @@ end module threadprivate3 bar3 = omp_get_thread_num () - 2 if (omp_get_thread_num () .ne. 0) then deallocate (bar3) - if (associated (bar3)) STOP 1 + if (associated (bar3)) stop 1 else bar1 => var end if @@ -55,13 +55,13 @@ end module threadprivate3 baz%b = omp_get_thread_num () * 2 + 1 !$omp end parallel - if (l) STOP 2 - if (.not.associated (bar1)) STOP 3 - if (any (bar1.ne.6)) STOP 4 - if (.not.associated (bar3)) STOP 5 - if (any (bar3 .ne. -2)) STOP 6 + if (l) stop 2 + if (.not.associated (bar1)) stop 3 + if (any (bar1.ne.6)) stop 4 + if (.not.associated (bar3)) stop 5 + if (any (bar3 .ne. -2)) stop 6 deallocate (bar3) - if (associated (bar3)) STOP 7 + if (associated (bar3)) stop 7 allocate (bar3 (10)) bar3 = 17 @@ -102,7 +102,7 @@ end module threadprivate3 l = l.or.(baz%b .ne. omp_get_thread_num () * 3 + 5) !$omp end parallel - if (l) STOP 8 + if (l) stop 8 end ! { dg-final { cleanup-modules "threadprivate3" } } diff --git a/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 b/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 index 2e7a438..a428ed9 100644 --- a/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 +++ b/libgomp/testsuite/libgomp.fortran/threadprivate4.f90 @@ -72,7 +72,7 @@ end module threadprivate4 vi = -1 !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr1.f90 b/libgomp/testsuite/libgomp.fortran/udr1.f90 index 138bd587..a12016d 100644 --- a/libgomp/testsuite/libgomp.fortran/udr1.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr1.f90 @@ -28,24 +28,24 @@ end module udr1 do i = 1, 100 j = j + i end do - if (j .ne. 5050) STOP 1 + if (j .ne. 5050) stop 1 j = 3 !$omp parallel do reduction (bar : j) do i = 1, 100 j = j + 4 * i end do - if (j .ne. (5050 * 4 + 3)) STOP 2 + if (j .ne. (5050 * 4 + 3)) stop 2 !$omp parallel do reduction (+ : d) do i = 1, 100 - if (d%y .ne. 9) STOP 3 + if (d%y .ne. 9) stop 3 d%x = d%x + 8 * i end do - if (d%x .ne. (5050 * 8 + 7) .or. d%y .ne. 9) STOP 4 + if (d%x .ne. (5050 * 8 + 7) .or. d%y .ne. 9) stop 4 d = dt (5, 21) !$omp parallel do reduction (foo : d) do i = 1, 100 - if (d%y .ne. 21) STOP 5 + if (d%y .ne. 21) stop 5 d%x = d%x + 8 * i end do - if (d%x .ne. (5050 * 8 + 5) .or. d%y .ne. 21) STOP 6 + if (d%x .ne. (5050 * 8 + 5) .or. d%y .ne. 21) stop 6 end diff --git a/libgomp/testsuite/libgomp.fortran/udr10.f90 b/libgomp/testsuite/libgomp.fortran/udr10.f90 index a855c0b..15e0f86 100644 --- a/libgomp/testsuite/libgomp.fortran/udr10.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr10.f90 @@ -28,5 +28,5 @@ program udr10 j = j .localadd. dl(i) k = k + dl(i * 2) end do - if (j%x /= 5050 .or. k%x /= 10100) STOP 1 + if (j%x /= 5050 .or. k%x /= 10100) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr11.f90 b/libgomp/testsuite/libgomp.fortran/udr11.f90 index d69dd72..57989be 100644 --- a/libgomp/testsuite/libgomp.fortran/udr11.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr11.f90 @@ -88,8 +88,8 @@ end module udr11 t%x = t%x + 2 * i u%x = u%x + 3 * i end do - if (j%x /= 5050 .or. k%x /= 30300 .or. l%x /= 15150) STOP 1 - if (m%x /= 5050 .or. n%x /= 10100 .or. o%x /= 15150) STOP 2 - if (p%x /= 5050 .or. q%x /= 10100 .or. r%x /= 15150) STOP 3 - if (s%x /= 5050 .or. t%x /= 10100 .or. u%x /= 15150) STOP 4 + if (j%x /= 5050 .or. k%x /= 30300 .or. l%x /= 15150) stop 1 + if (m%x /= 5050 .or. n%x /= 10100 .or. o%x /= 15150) stop 2 + if (p%x /= 5050 .or. q%x /= 10100 .or. r%x /= 15150) stop 3 + if (s%x /= 5050 .or. t%x /= 10100 .or. u%x /= 15150) stop 4 end diff --git a/libgomp/testsuite/libgomp.fortran/udr12.f90 b/libgomp/testsuite/libgomp.fortran/udr12.f90 index c39f0ebc..d1ae1aa 100644 --- a/libgomp/testsuite/libgomp.fortran/udr12.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr12.f90 @@ -34,7 +34,7 @@ b = b + 3 r = r + 1 !$omp end parallel - if (any (a /= 2 * r) .or. b /= 3 * r) STOP 1 + if (any (a /= 2 * r) .or. b /= 3 * r) stop 1 a(:) = 0 b = 0 r = 0 @@ -43,7 +43,7 @@ b = b + 3 r = r + 1 !$omp end parallel - if (any (a /= 4 * r) .or. b /= 6 * r) STOP 2 + if (any (a /= 4 * r) .or. b /= 6 * r) stop 2 a(:) = 0 b = 0 r = 0 @@ -52,7 +52,7 @@ b = b + 3 r = r + 1 !$omp end parallel - if (any (a /= 2 * r) .or. b /= 3 * r) STOP 3 + if (any (a /= 2 * r) .or. b /= 3 * r) stop 3 end elemental function fn1 (x, y) integer, intent(in) :: x, y diff --git a/libgomp/testsuite/libgomp.fortran/udr13.f90 b/libgomp/testsuite/libgomp.fortran/udr13.f90 index 0ff53ad..d29e498 100644 --- a/libgomp/testsuite/libgomp.fortran/udr13.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr13.f90 @@ -41,38 +41,38 @@ a(:) = 0 r = 0 !$omp parallel reduction (bar : a) reduction (+: r) - if (lbound (a, 1) /= 1 .or. ubound (a, 1) /= 10) STOP 1 + if (lbound (a, 1) /= 1 .or. ubound (a, 1) /= 10) stop 1 a = a + 2 r = r + 1 !$omp end parallel - if (any (a /= 4 * r) ) STOP 2 + if (any (a /= 4 * r) ) stop 2 b(:,:) = 0 allocate (c (4:6,8:10)) c(:,:) = 0 r = 0 !$omp parallel reduction (baz : b, c) reduction (+: r) - if (lbound (b, 1) /= 3 .or. ubound (b, 1) /= 5) STOP 3 - if (lbound (b, 2) /= 7 .or. ubound (b, 2) /= 9) STOP 4 - if (.not. allocated (c)) STOP 5 - if (lbound (c, 1) /= 4 .or. ubound (c, 1) /= 6) STOP 6 - if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 10) STOP 7 + if (lbound (b, 1) /= 3 .or. ubound (b, 1) /= 5) stop 3 + if (lbound (b, 2) /= 7 .or. ubound (b, 2) /= 9) stop 4 + if (.not. allocated (c)) stop 5 + if (lbound (c, 1) /= 4 .or. ubound (c, 1) /= 6) stop 6 + if (lbound (c, 2) /= 8 .or. ubound (c, 2) /= 10) stop 7 b = b + 3 c = c + 4 r = r + 1 !$omp end parallel - if (any (b /= 3 * r) .or. any (c /= 4 * r)) STOP 8 + if (any (b /= 3 * r) .or. any (c /= 4 * r)) stop 8 deallocate (c) allocate (c (0:1,7:11)) c(:,:) = 0 r = 0 !$omp parallel reduction (foo : c) reduction (+: r) - if (.not. allocated (c)) STOP 9 - if (lbound (c, 1) /= 0 .or. ubound (c, 1) /= 1) STOP 10 - if (lbound (c, 2) /= 7 .or. ubound (c, 2) /= 11) STOP 11 + if (.not. allocated (c)) stop 9 + if (lbound (c, 1) /= 0 .or. ubound (c, 1) /= 1) stop 10 + if (lbound (c, 2) /= 7 .or. ubound (c, 2) /= 11) stop 11 c = c + 5 r = r + 1 !$omp end parallel - if (any (c /= 10 * r)) STOP 12 + if (any (c /= 10 * r)) stop 12 end function fn1 (x, y, m1, m2) integer, intent(in) :: x(:), y(:), m1, m2 diff --git a/libgomp/testsuite/libgomp.fortran/udr14.f90 b/libgomp/testsuite/libgomp.fortran/udr14.f90 index cb54f43..eed57e9 100644 --- a/libgomp/testsuite/libgomp.fortran/udr14.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr14.f90 @@ -13,31 +13,31 @@ a(7)%h = (/ 0, 0, 0 /) r = 0 !$omp parallel reduction(+:r) reduction (baz:a) - if (.not.allocated (a)) STOP 1 - if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) STOP 2 - if (.not.allocated (a(7)%h)) STOP 3 - if (allocated (a(8)%h)) STOP 4 - if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) STOP 5 + if (.not.allocated (a)) stop 1 + if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) stop 2 + if (.not.allocated (a(7)%h)) stop 3 + if (allocated (a(8)%h)) stop 4 + if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) stop 5 a(:)%g = a(:)%g + 2 a(7)%h = a(7)%h + 3 r = r + 1 !$omp end parallel - if (.not.allocated (a)) STOP 6 - if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) STOP 7 - if (.not.allocated (a(7)%h)) STOP 8 - if (allocated (a(8)%h)) STOP 9 - if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) STOP 10 - if (any (a(:)%g /= 2 * r) .or. any (a(7)%h(:) /= 3 * r)) STOP 11 + if (.not.allocated (a)) stop 6 + if (lbound (a, 1) /= 7 .or. ubound (a, 1) /= 8) stop 7 + if (.not.allocated (a(7)%h)) stop 8 + if (allocated (a(8)%h)) stop 9 + if (lbound (a(7)%h, 1) /= 1 .or. ubound (a(7)%h, 1) /= 3) stop 10 + if (any (a(:)%g /= 2 * r) .or. any (a(7)%h(:) /= 3 * r)) stop 11 contains subroutine foo (x, y) type (dt), allocatable :: x(:), y(:) - if (allocated (x) .neqv. allocated (y)) STOP 12 - if (lbound (x, 1) /= lbound (y, 1)) STOP 13 - if (ubound (x, 1) /= ubound (y, 1)) STOP 14 - if (allocated (x(7)%h) .neqv. allocated (y(7)%h)) STOP 15 - if (allocated (x(8)%h) .neqv. allocated (y(8)%h)) STOP 16 - if (lbound (x(7)%h, 1) /= lbound (y(7)%h, 1)) STOP 17 - if (ubound (x(7)%h, 1) /= ubound (y(7)%h, 1)) STOP 18 + if (allocated (x) .neqv. allocated (y)) stop 12 + if (lbound (x, 1) /= lbound (y, 1)) stop 13 + if (ubound (x, 1) /= ubound (y, 1)) stop 14 + if (allocated (x(7)%h) .neqv. allocated (y(7)%h)) stop 15 + if (allocated (x(8)%h) .neqv. allocated (y(8)%h)) stop 16 + if (lbound (x(7)%h, 1) /= lbound (y(7)%h, 1)) stop 17 + if (ubound (x(7)%h, 1) /= ubound (y(7)%h, 1)) stop 18 x(7)%g = 0 x(7)%h = 0 x(8)%g = 0 diff --git a/libgomp/testsuite/libgomp.fortran/udr15.f90 b/libgomp/testsuite/libgomp.fortran/udr15.f90 index ffdb9a7..f5f3139 100644 --- a/libgomp/testsuite/libgomp.fortran/udr15.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr15.f90 @@ -60,5 +60,5 @@ end module udr15m2 j = j.addthree.iand (i, -4) d = d + dt(i) end do - if (d%x /= 5050 .or. j /= 4903) STOP 1 + if (d%x /= 5050 .or. j /= 4903) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr2.f90 b/libgomp/testsuite/libgomp.fortran/udr2.f90 index 5b7d87b..81fc651 100644 --- a/libgomp/testsuite/libgomp.fortran/udr2.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr2.f90 @@ -28,24 +28,24 @@ end module udr2 do i = 1, 100 j = j + i end do - if (any(j .ne. 5050)) STOP 1 + if (any(j .ne. 5050)) stop 1 j = 3 !$omp parallel do reduction (bar : j) do i = 1, 100 j = j + 4 * i end do - if (any(j .ne. (5050 * 4 + 3))) STOP 2 + if (any(j .ne. (5050 * 4 + 3))) stop 2 !$omp parallel do reduction (+ : d) do i = 1, 100 - if (any(d%y .ne. 9)) STOP 3 + if (any(d%y .ne. 9)) stop 3 d%x = d%x + 8 * i end do - if (any(d%x .ne. (5050 * 8 + 7)) .or. any(d%y .ne. 9)) STOP 4 + if (any(d%x .ne. (5050 * 8 + 7)) .or. any(d%y .ne. 9)) stop 4 d = dt (5, 21) !$omp parallel do reduction (foo : d) do i = 1, 100 - if (any(d%y .ne. 21)) STOP 5 + if (any(d%y .ne. 21)) stop 5 d%x = d%x + 8 * i end do - if (any(d%x .ne. (5050 * 8 + 5)) .or. any(d%y .ne. 21)) STOP 6 + if (any(d%x .ne. (5050 * 8 + 5)) .or. any(d%y .ne. 21)) stop 6 end diff --git a/libgomp/testsuite/libgomp.fortran/udr3.f90 b/libgomp/testsuite/libgomp.fortran/udr3.f90 index 50cecec..a54f8ba 100644 --- a/libgomp/testsuite/libgomp.fortran/udr3.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr3.f90 @@ -29,10 +29,10 @@ & // char (ichar (f(2:2)) + mod (i, 3)) end do do i = 1, 64 - if (index (c, char (ichar ('0') + i)) .eq. 0) STOP 1 - if (index (d, char (ichar ('0') + i)) .eq. 0) STOP 2 + if (index (c, char (ichar ('0') + i)) .eq. 0) stop 1 + if (index (d, char (ichar ('0') + i)) .eq. 0) stop 2 end do - if (e.ne.char (ichar ('0') + 64)) STOP 3 - if (f(1:1).ne.char (ichar ('0') + 32)) STOP 4 - if (f(2:2).ne.char (ichar ('0') + 64)) STOP 5 + if (e.ne.char (ichar ('0') + 64)) stop 3 + if (f(1:1).ne.char (ichar ('0') + 32)) stop 4 + if (f(2:2).ne.char (ichar ('0') + 64)) stop 5 end diff --git a/libgomp/testsuite/libgomp.fortran/udr4.f90 b/libgomp/testsuite/libgomp.fortran/udr4.f90 index 86d9515..5d70b6b 100644 --- a/libgomp/testsuite/libgomp.fortran/udr4.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr4.f90 @@ -36,12 +36,12 @@ & // char (ichar (f(:,:)(2:2)) + mod (i, 3)) end do do i = 1, 64 - if (any (index (c, char (ichar ('0') + i)) .eq. 0)) STOP 1 - if (any (index (d, char (ichar ('0') + i)) .eq. 0)) STOP 2 + if (any (index (c, char (ichar ('0') + i)) .eq. 0)) stop 1 + if (any (index (d, char (ichar ('0') + i)) .eq. 0)) stop 2 end do - if (any (e.ne.char (ichar ('0') + 64))) STOP 3 - if (any (f(:,:)(1:1).ne.char (ichar ('0') + 32))) STOP 4 - if (any (f(:,:)(2:2).ne.char (ichar ('0') + 64))) STOP 5 + if (any (e.ne.char (ichar ('0') + 64))) stop 3 + if (any (f(:,:)(1:1).ne.char (ichar ('0') + 32))) stop 4 + if (any (f(:,:)(2:2).ne.char (ichar ('0') + 64))) stop 5 end elemental function fn (x, y) character (len=64), intent (in) :: x, y diff --git a/libgomp/testsuite/libgomp.fortran/udr5.f90 b/libgomp/testsuite/libgomp.fortran/udr5.f90 index 8c6c525..725d0bfc 100644 --- a/libgomp/testsuite/libgomp.fortran/udr5.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr5.f90 @@ -52,6 +52,6 @@ program udr5 r4 = r4 + 1.0 call dp_add (dp, 1.0d0) !$omp end parallel - if (xdt%r .ne. r) STOP 1 - if (i4.ne.r.or.i8.ne.r.or.r4.ne.r.or.dp.ne.r) STOP 2 + if (xdt%r .ne. r) stop 1 + if (i4.ne.r.or.i8.ne.r.or.r4.ne.r.or.dp.ne.r) stop 2 end program udr5 diff --git a/libgomp/testsuite/libgomp.fortran/udr6.f90 b/libgomp/testsuite/libgomp.fortran/udr6.f90 index 159f6a4..7c7556b 100644 --- a/libgomp/testsuite/libgomp.fortran/udr6.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr6.f90 @@ -62,8 +62,8 @@ program udr6 call dp_add (dp(i), 1.0d0) end do !$omp end parallel - if (any (xdt%r .ne. r)) STOP 1 - if (any (i4.ne.r).or.any(i8.ne.r)) STOP 2 - if (any(r4.ne.r).or.any(dp.ne.r)) STOP 3 + if (any (xdt%r .ne. r)) stop 1 + if (any (i4.ne.r).or.any(i8.ne.r)) stop 2 + if (any(r4.ne.r).or.any(dp.ne.r)) stop 3 deallocate (xdt, i4, i8, r4, dp) end program udr6 diff --git a/libgomp/testsuite/libgomp.fortran/udr7.f90 b/libgomp/testsuite/libgomp.fortran/udr7.f90 index 92b24a1..9e60ac1 100644 --- a/libgomp/testsuite/libgomp.fortran/udr7.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr7.f90 @@ -22,7 +22,7 @@ program udr7 do i = 1, 64 x = x + i end do - if (any (x /= 2080.0)) STOP 1 + if (any (x /= 2080.0)) stop 1 contains elemental subroutine omp_out (x, y) real, intent (out) :: x diff --git a/libgomp/testsuite/libgomp.fortran/udr8.f90 b/libgomp/testsuite/libgomp.fortran/udr8.f90 index 6b8eac2..fb1fc2e 100644 --- a/libgomp/testsuite/libgomp.fortran/udr8.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr8.f90 @@ -42,5 +42,5 @@ end module udr8m2 j = j.add.iand (i, -4) d = d + dt(i) end do - if (d%x /= 5050 .or. j /= 4903) STOP 1 + if (d%x /= 5050 .or. j /= 4903) stop 1 end diff --git a/libgomp/testsuite/libgomp.fortran/udr9.f90 b/libgomp/testsuite/libgomp.fortran/udr9.f90 index a8ba78d..7b96f88 100644 --- a/libgomp/testsuite/libgomp.fortran/udr9.f90 +++ b/libgomp/testsuite/libgomp.fortran/udr9.f90 @@ -23,7 +23,7 @@ contains end subroutine subroutine initializer1 (x, y) integer :: x, y - if (y .ne. 3) STOP 1 + if (y .ne. 3) stop 1 x = y end subroutine end module udr9m1 @@ -61,5 +61,5 @@ end module udr9m2 j = j.add.iand (i, -4) d = d + dt(i) end do - if (d%x /= 5050 .or. j /= 4903) STOP 2 + if (d%x /= 5050 .or. j /= 4903) stop 2 end diff --git a/libgomp/testsuite/libgomp.fortran/vla1.f90 b/libgomp/testsuite/libgomp.fortran/vla1.f90 index bf25e89..63d17e7 100644 --- a/libgomp/testsuite/libgomp.fortran/vla1.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla1.f90 @@ -156,7 +156,7 @@ contains call check (size (k, 3), 3, l) call check (size (k), 15, l) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla2.f90 b/libgomp/testsuite/libgomp.fortran/vla2.f90 index 1bda078..ef337d4 100644 --- a/libgomp/testsuite/libgomp.fortran/vla2.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla2.f90 @@ -124,7 +124,7 @@ contains call check (size (k, 3), 3, l) call check (size (k), 15, l) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla3.f90 b/libgomp/testsuite/libgomp.fortran/vla3.f90 index e31aaaf..c210483 100644 --- a/libgomp/testsuite/libgomp.fortran/vla3.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla3.f90 @@ -162,7 +162,7 @@ contains call check (size (k, 3), 3, l) call check (size (k), 15, l) !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla4.f90 b/libgomp/testsuite/libgomp.fortran/vla4.f90 index 3388e87..2d1a940 100644 --- a/libgomp/testsuite/libgomp.fortran/vla4.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla4.f90 @@ -166,7 +166,7 @@ contains call check (size (k), 15, l) 110 continue !$omp end parallel do - if (l) STOP 1 + if (l) stop 1 if (z2 == 6) then x = 5 w = 'thread5thr_number_5THREAD5THR_NUMBER_5' @@ -202,7 +202,7 @@ contains do 115, q = 4, 6 l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 115 continue - if (l) STOP 2 + if (l) stop 2 end if end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/vla5.f90 b/libgomp/testsuite/libgomp.fortran/vla5.f90 index 3b040c7..3b28c51 100644 --- a/libgomp/testsuite/libgomp.fortran/vla5.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla5.f90 @@ -138,7 +138,7 @@ contains call check (size (k), 15, l) 110 continue !$omp end parallel do - if (l) STOP 1 + if (l) stop 1 if (z2 == 6) then x = 5 w = 'thread5thr_number_5THREAD5THR_NUMBER_5' @@ -174,7 +174,7 @@ contains do 115, q = 4, 6 l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 115 continue - if (l) STOP 2 + if (l) stop 2 end if end subroutine foo diff --git a/libgomp/testsuite/libgomp.fortran/vla6.f90 b/libgomp/testsuite/libgomp.fortran/vla6.f90 index ccc91ec..c2ea7f3 100644 --- a/libgomp/testsuite/libgomp.fortran/vla6.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla6.f90 @@ -173,7 +173,7 @@ contains l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 115 continue !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/vla7.f90 b/libgomp/testsuite/libgomp.fortran/vla7.f90 index a97132d..1e27a2e 100644 --- a/libgomp/testsuite/libgomp.fortran/vla7.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla7.f90 @@ -4,13 +4,13 @@ character (6) :: c, f2 character (6) :: d(2) c = f1 (6) - if (c .ne. 'opqrst') STOP 1 + if (c .ne. 'opqrst') stop 1 c = f2 (6) - if (c .ne. '_/!!/_') STOP 2 + if (c .ne. '_/!!/_') stop 2 d = f3 (6) - if (d(1) .ne. 'opqrst' .or. d(2) .ne. 'a') STOP 3 + if (d(1) .ne. 'opqrst' .or. d(2) .ne. 'a') stop 3 d = f4 (6) - if (d(1) .ne. 'Opqrst' .or. d(2) .ne. 'A') STOP 4 + if (d(1) .ne. 'Opqrst' .or. d(2) .ne. 'A') stop 4 contains function f1 (n) use omp_lib @@ -40,7 +40,7 @@ contains !$omp barrier l = l .or. f1 .ne. 'def' !$omp end parallel - if (l) STOP 5 + if (l) stop 5 f1 = 'opqrst' end function f1 function f3 (n) @@ -71,7 +71,7 @@ contains !$omp barrier l = l .or. any (f3 .ne. 'def') !$omp end parallel - if (l) STOP 6 + if (l) stop 6 f3(1) = 'opqrst' f3(2) = 'a' end function f3 @@ -105,7 +105,7 @@ contains l = l .or. any (f4 .ne. 'def') l = l .or. size (f4) .ne. 2 !$omp end parallel - if (l) STOP 7 + if (l) stop 7 f4(1) = 'Opqrst' f4(2) = 'A' end function f4 @@ -138,6 +138,6 @@ function f2 (n) !$omp barrier l = l .or. f2 .ne. 'def' !$omp end parallel - if (l) STOP 8 + if (l) stop 8 f2 = '_/!!/_' end function f2 diff --git a/libgomp/testsuite/libgomp.fortran/vla8.f90 b/libgomp/testsuite/libgomp.fortran/vla8.f90 index ee756d4..fbf3308 100644 --- a/libgomp/testsuite/libgomp.fortran/vla8.f90 +++ b/libgomp/testsuite/libgomp.fortran/vla8.f90 @@ -237,7 +237,7 @@ contains l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q 125 continue !$omp end parallel - if (l) STOP 1 + if (l) stop 1 end subroutine foo subroutine test diff --git a/libgomp/testsuite/libgomp.fortran/workshare1.f90 b/libgomp/testsuite/libgomp.fortran/workshare1.f90 index f50928e..a9baef4 100644 --- a/libgomp/testsuite/libgomp.fortran/workshare1.f90 +++ b/libgomp/testsuite/libgomp.fortran/workshare1.f90 @@ -25,7 +25,7 @@ end b = 20 a(1:5) = max (a(1:5), b(1:5)) !$omp end parallel workshare - if (any (a(1:5) .ne. 20)) STOP 1 - if (any (a(6:10) .ne. 10)) STOP 2 - if (.not. foo_seen .or. .not. bar_seen) STOP 3 + if (any (a(1:5) .ne. 20)) stop 1 + if (any (a(6:10) .ne. 10)) stop 2 + if (.not. foo_seen .or. .not. bar_seen) stop 3 end diff --git a/libgomp/testsuite/libgomp.fortran/workshare2.f90 b/libgomp/testsuite/libgomp.fortran/workshare2.f90 index 88b50fb..299e577 100644 --- a/libgomp/testsuite/libgomp.fortran/workshare2.f90 +++ b/libgomp/testsuite/libgomp.fortran/workshare2.f90 @@ -4,7 +4,7 @@ subroutine f1 !$omp parallel workshare a(:,:) = 17 !$omp end parallel workshare - if (any (a.ne.17)) STOP 1 + if (any (a.ne.17)) stop 1 end subroutine f1 subroutine f2 integer a(20:50,70:90),d(15),e(15),f(15) @@ -21,14 +21,14 @@ subroutine f2 f = 7 where (e.ge.5) f = f + 1 !$omp end parallel workshare - if (any (a.ne.17)) STOP 2 - if (c.ne.5.or.b.ne.4) STOP 3 - if (any(d.ne.0)) STOP 4 + if (any (a.ne.17)) stop 2 + if (c.ne.5.or.b.ne.4) stop 3 + if (any(d.ne.0)) stop 4 do i = 1, 15 if (e(i).ge.5) then - if (f(i).ne.8) STOP 5 + if (f(i).ne.8) stop 5 else - if (f(i).ne.7) STOP 6 + if (f(i).ne.7) stop 6 end if end do end subroutine f2 |