diff options
author | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
---|---|---|
committer | ian <ian@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-02-23 22:36:54 +0000 |
commit | 88a3ea34080ad3087a8191fbf479543153175d59 (patch) | |
tree | 34eaec34d3588e09f9a77abba776266f124dc823 /gcc/testsuite/gfortran.dg/coarray/image_index_1.f90 | |
parent | 25e15aaed275cdfef34b3ee6eb3cb4b43a48d44f (diff) | |
parent | e65055a558093bd4fc0b1b0024b7814cc187b8e8 (diff) | |
download | gccgo.tar.gz |
Merge from trunk revision 257954.gccgo
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/gccgo@257955 138bc75d-0d04-0410-961f-82ee72b054a4
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 |