diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray/image_index_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray/image_index_1.f90 | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray/image_index_1.f90 b/gcc/testsuite/gfortran.dg/coarray/image_index_1.f90 index 00e5e09a74f..5f03cc67a12 100644 --- a/gcc/testsuite/gfortran.dg/coarray/image_index_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/image_index_1.f90 @@ -29,7 +29,7 @@ allocate(c(3,3)[*]) index1 = image_index(a, [3, -4, 88] ) index2 = image_index(b, [-1, 0] ) index3 = image_index(c, [1] ) -if (index1 /= 1 .or. index2 /= 1 .or. index3 /= 1) call abort() +if (index1 /= 1 .or. index2 /= 1 .or. index3 /= 1) STOP 1 index1 = image_index(a, [3, -3, 88] ) @@ -37,26 +37,26 @@ index2 = image_index(b, [0, 0] ) index3 = image_index(c, [2] ) if (one .and. (index1 /= 0 .or. index2 /= 0 .or. index3 /= 0)) & - call abort() + STOP 2 if (.not. one .and. (index1 /= 2 .or. index2 /= 2 .or. index3 /= 2)) & - call abort() + STOP 3 index1 = image_index(d, [-1, 1] ) index2 = image_index(d, [0, 1] ) if (one .and. (index1 /= 1 .or. index2 /= 0)) & - call abort() + STOP 4 if (.not. one .and. (index1 /= 1 .or. index2 /= 2)) & - call abort() + STOP 5 index1 = image_index(e, [-1, 3] ) index2 = image_index(e, [-1, 4] ) if (one .and. (index1 /= 1 .or. index2 /= 0)) & - call abort() + STOP 6 if (.not. one .and. (index1 /= 1 .or. index2 /= 2)) & - call abort() + STOP 7 call test(1, a,b,c) @@ -69,11 +69,11 @@ index2 = image_index(a, [3, 1, 2] ) ! = 213, yeah! index3 = image_index(a, [3, 1, 0] ) ! = 13 if (num_images() < 13 .and. (index1 /= 1 .or. index2 /= 0 .or. index3 /= 0)) & - call abort() + STOP 8 if (num_images() >= 213 .and. (index1 /= 1 .or. index2 /= 213 .or. index3 /= 13)) & - call abort() + STOP 9 if (num_images() >= 13 .and. (index1 /= 1 .or. index2 /= 0 .or. index3 /= 13)) & - call abort() + STOP 10 contains @@ -84,7 +84,7 @@ subroutine test(n, a, b, c) index1 = image_index(a, [3, -4, 88] ) index2 = image_index(b, [-1, 0] ) index3 = image_index(c, [1] ) - if (index1 /= 1 .or. index2 /= 1 .or. index3 /= 1) call abort() + if (index1 /= 1 .or. index2 /= 1 .or. index3 /= 1) STOP 11 index1 = image_index(a, [3, -3, 88] ) @@ -92,8 +92,8 @@ subroutine test(n, a, b, c) index3 = image_index(c, [2] ) if (one .and. (index1 /= 0 .or. index2 /= 0 .or. index3 /= 0)) & - call abort() + STOP 12 if (.not. one .and. (index1 /= 2 .or. index2 /= 2 .or. index3 /= 2)) & - call abort() + STOP 13 end subroutine test end program test_image_index |