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 | |
| 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')
38 files changed, 730 insertions, 730 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 b/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 index f1136e30e60..f809a5f4d11 100644 --- a/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/alloc_comp_1.f90 @@ -8,9 +8,9 @@ end type t type(t) :: a allocate (a%caf[3:*]) a%caf = 7 -if (a%caf /= 7) call abort () +if (a%caf /= 7) STOP 1 if (any (lcobound (a%caf) /= [ 3 ]) & .or. ucobound (a%caf, dim=1) /= this_image ()+2) & - call abort () + STOP 2 deallocate (a%caf) end diff --git a/gcc/testsuite/gfortran.dg/coarray/alloc_comp_4.f90 b/gcc/testsuite/gfortran.dg/coarray/alloc_comp_4.f90 index 0bae25c3923..2ee8ff0253d 100644 --- a/gcc/testsuite/gfortran.dg/coarray/alloc_comp_4.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/alloc_comp_4.f90 @@ -17,5 +17,5 @@ program main allocate(object%indices(me)) object%indices = 42 - if ( any( object[me]%indices(:) /= 42 ) ) call abort() + if ( any( object[me]%indices(:) /= 42 ) ) STOP 1 end program diff --git a/gcc/testsuite/gfortran.dg/coarray/allocate_errgmsg.f90 b/gcc/testsuite/gfortran.dg/coarray/allocate_errgmsg.f90 index e5a19543742..5d5987242b1 100644 --- a/gcc/testsuite/gfortran.dg/coarray/allocate_errgmsg.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/allocate_errgmsg.f90 @@ -13,24 +13,24 @@ str = repeat('X', len(str)) allocate(a[*], stat=stat, errmsg=str) !print *, stat, trim(str) if (stat == 0 .or. str /= "Attempt to allocate an allocated object") & - call abort () + STOP 1 str = repeat('Y', len(str)) allocate(b(2)[*], stat=stat, errmsg=str) !print *, stat, trim(str) if (stat == 0 .or. str /= "Attempt to allocate an allocated object") & - call abort () + STOP 2 str = repeat('Q', len(str)) allocate(c, stat=stat, errmsg=str) !print *, stat, trim(str) if (stat == 0 .or. str /= "Attempt to allocate an allocated object") & - call abort () + STOP 3 str = repeat('P', len(str)) allocate(d(3), stat=stat, errmsg=str) !print *, stat, trim(str) if (stat == 0 .or. str /= "Attempt to allocate an allocated object") & - call abort () + STOP 4 end diff --git a/gcc/testsuite/gfortran.dg/coarray/atomic_1.f90 b/gcc/testsuite/gfortran.dg/coarray/atomic_1.f90 index 1cf621287a6..4fdfa3c2cdb 100644 --- a/gcc/testsuite/gfortran.dg/coarray/atomic_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/atomic_1.f90 @@ -16,12 +16,12 @@ logical(1) :: d call atomic_define(a(1), 7_2) call atomic_ref(b, a(1)) -if (b /= a(1)) call abort() +if (b /= a(1)) STOP 1 call atomic_define(c, .false.) call atomic_ref(d, c[this_image()]) -if (d .neqv. .false.) call abort() +if (d .neqv. .false.) STOP 2 call atomic_define(c[this_image()], .true.) call atomic_ref(d, c) -if (d .neqv. .true.) call abort() +if (d .neqv. .true.) STOP 3 end diff --git a/gcc/testsuite/gfortran.dg/coarray/atomic_2.f90 b/gcc/testsuite/gfortran.dg/coarray/atomic_2.f90 index 20b6890a967..5e1c4967248 100644 --- a/gcc/testsuite/gfortran.dg/coarray/atomic_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/atomic_2.f90 @@ -24,26 +24,26 @@ sync all if (this_image() == 1) then call atomic_define(caf[num_images()], 5, stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 1 call atomic_define(caf_log[num_images()], .true., stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 2 end if sync all if (this_image() == num_images()) then - if (caf /= 5) call abort() - if (.not. caf_log) call abort() + if (caf /= 5) STOP 3 + if (.not. caf_log) STOP 4 var = 99 call atomic_ref(var, caf, stat=stat) - if (stat /= 0 .or. var /= 5) call abort() + if (stat /= 0 .or. var /= 5) STOP 5 var2 = .false. call atomic_ref(var2, caf_log, stat=stat) - if (stat /= 0 .or. .not. var2) call abort() + if (stat /= 0 .or. .not. var2) STOP 6 end if call atomic_ref(var, caf[num_images()], stat=stat) -if (stat /= 0 .or. var /= 5) call abort() +if (stat /= 0 .or. var /= 5) STOP 7 call atomic_ref(var2, caf_log[num_images()], stat=stat) -if (stat /= 0 .or. .not. var2) call abort() +if (stat /= 0 .or. .not. var2) STOP 8 sync all ! ADD @@ -51,20 +51,20 @@ caf = 0 sync all call atomic_add(caf, this_image(), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 9 do i = 1, num_images() call atomic_add(caf[i], 1, stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 10 call atomic_ref(var, caf, stat=stat) - if (stat /= 0 .or. var < this_image()) call abort() + if (stat /= 0 .or. var < this_image()) STOP 11 end do sync all call atomic_ref(var, caf[num_images()], stat=stat) -if (stat /= 0 .or. var /= num_images() + this_image()) call abort() +if (stat /= 0 .or. var /= num_images() + this_image()) STOP 12 do i = 1, num_images() call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= num_images() + i) call abort() + if (stat /= 0 .or. var /= num_images() + i) STOP 13 end do sync all @@ -75,7 +75,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_and(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 14 end do end if sync all @@ -85,10 +85,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = iand(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 15 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 16 end if end do end if @@ -101,7 +101,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_and(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 17 end do end if sync all @@ -111,10 +111,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = iand(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 18 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 19 end if end do end if @@ -131,7 +131,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_and(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 20 end do end if sync all @@ -140,10 +140,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = iand(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 21 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 22 end if end do end if @@ -156,7 +156,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_or(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 23 end do end if sync all @@ -166,10 +166,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ior(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 24 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 25 end if end do end if @@ -182,7 +182,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_or(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 26 end do end if sync all @@ -192,10 +192,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ior(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 27 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 28 end if end do end if @@ -212,7 +212,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_or(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 29 end do end if sync all @@ -221,10 +221,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ior(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 30 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 31 end if end do end if @@ -237,7 +237,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_xor(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 32 end do end if sync all @@ -247,10 +247,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ieor(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 33 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 34 end if end do end if @@ -263,7 +263,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_xor(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 35 end do end if sync all @@ -273,10 +273,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ieor(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 36 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 37 end if end do end if @@ -293,7 +293,7 @@ sync all if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) call atomic_xor(caf[i], shiftl(1, this_image()), stat=stat) - if (stat /= 0) call abort() + if (stat /= 0) STOP 38 end do end if sync all @@ -302,10 +302,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ieor(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 39 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 40 end if end do end if @@ -316,22 +316,22 @@ caf = 0 sync all var = -99 call atomic_fetch_add(caf, this_image(), var, stat=stat) -if (stat /= 0 .or. var < 0) call abort() -if (num_images() == 1 .and. var /= 0) call abort() +if (stat /= 0 .or. var < 0) STOP 41 +if (num_images() == 1 .and. var /= 0) STOP 42 do i = 1, num_images() var = -99 call atomic_fetch_add(caf[i], 1, var, stat=stat) - if (stat /= 0 .or. var < 0) call abort() + if (stat /= 0 .or. var < 0) STOP 43 call atomic_ref(var, caf, stat=stat) - if (stat /= 0 .or. var < this_image()) call abort() + if (stat /= 0 .or. var < this_image()) STOP 44 end do sync all call atomic_ref(var, caf[num_images()], stat=stat) -if (stat /= 0 .or. var /= num_images() + this_image()) call abort() +if (stat /= 0 .or. var /= num_images() + this_image()) STOP 45 do i = 1, num_images() call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= num_images() + i) call abort() + if (stat /= 0 .or. var /= num_images() + i) STOP 46 end do sync all @@ -344,7 +344,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = 99 call atomic_fetch_and(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. var /= 0) call abort() + if (stat /= 0 .or. var /= 0) STOP 47 end do end if sync all @@ -354,10 +354,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = iand(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 48 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 49 end if end do end if @@ -371,7 +371,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_and(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. var == shiftl(1, this_image())) call abort() + if (stat /= 0 .or. var == shiftl(1, this_image())) STOP 50 end do end if sync all @@ -381,10 +381,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = iand(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 51 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 52 end if end do end if @@ -403,7 +403,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_and(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. var <= 0) call abort() + if (stat /= 0 .or. var <= 0) STOP 53 end do end if sync all @@ -412,10 +412,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = iand(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 54 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 55 end if end do end if @@ -431,7 +431,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_or(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. var < 0 .or. var == shiftl(1, this_image())) call abort() + if (stat /= 0 .or. var < 0 .or. var == shiftl(1, this_image())) STOP 56 end do end if sync all @@ -441,10 +441,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ior(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 57 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 58 end if end do end if @@ -458,7 +458,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_or(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. (var < 0 .and. var /= -1)) call abort() + if (stat /= 0 .or. (var < 0 .and. var /= -1)) STOP 59 end do end if sync all @@ -468,10 +468,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ior(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 60 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 61 end if end do end if @@ -490,7 +490,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_or(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. var <= 0) call abort() + if (stat /= 0 .or. var <= 0) STOP 62 end do end if sync all @@ -499,10 +499,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ior(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 63 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 64 end if end do end if @@ -517,7 +517,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_xor(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. var < 0 .or. var == shiftl(1, this_image())) call abort() + if (stat /= 0 .or. var < 0 .or. var == shiftl(1, this_image())) STOP 65 end do end if sync all @@ -527,10 +527,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ieor(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 66 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 67 end if end do end if @@ -544,7 +544,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_xor(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. (var < 0 .and. var /= -1)) call abort() + if (stat /= 0 .or. (var < 0 .and. var /= -1)) STOP 68 end do end if sync all @@ -554,10 +554,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ieor(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 69 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 70 end if end do end if @@ -576,7 +576,7 @@ if (this_image() < storage_size(caf)-2) then do i = this_image(), min(num_images(), storage_size(caf)-2) var = -99 call atomic_fetch_xor(caf[i], shiftl(1, this_image()), var, stat=stat) - if (stat /= 0 .or. var <= 0) call abort() + if (stat /= 0 .or. var <= 0) STOP 71 end do end if sync all @@ -585,10 +585,10 @@ if (this_image() < storage_size(caf)-2) then do i = 1, min(num_images(), storage_size(caf)-2) var3 = ieor(var3, shiftl(1, i)) call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 72 if (i == this_image()) then call atomic_ref(var, caf[i], stat=stat) - if (stat /= 0 .or. var /= var3) call abort() + if (stat /= 0 .or. var /= var3) STOP 73 end if end do end if @@ -601,53 +601,53 @@ sync all if (this_image() == 1) then call atomic_cas(caf[num_images()], compare=5, new=3, old=var, stat=stat) - if (stat /= 0 .or. var /= 9) call abort() + if (stat /= 0 .or. var /= 9) STOP 74 call atomic_ref(var, caf[num_images()], stat=stat) - if (stat /= 0 .or. var /= 9) call abort() + if (stat /= 0 .or. var /= 9) STOP 75 end if sync all -if (this_image() == num_images() .and. caf /= 9) call abort() +if (this_image() == num_images() .and. caf /= 9) STOP 76 call atomic_ref(var, caf[num_images()], stat=stat) -if (stat /= 0 .or. var /= 9) call abort() +if (stat /= 0 .or. var /= 9) STOP 77 sync all if (this_image() == 1) then call atomic_cas(caf[num_images()], compare=9, new=3, old=var, stat=stat) - if (stat /= 0 .or. var /= 9) call abort() + if (stat /= 0 .or. var /= 9) STOP 78 call atomic_ref(var, caf[num_images()], stat=stat) - if (stat /= 0 .or. var /= 3) call abort() + if (stat /= 0 .or. var /= 3) STOP 79 end if sync all -if (this_image() == num_images() .and. caf /= 3) call abort() +if (this_image() == num_images() .and. caf /= 3) STOP 80 call atomic_ref(var, caf[num_images()], stat=stat) -if (stat /= 0 .or. var /= 3) call abort() +if (stat /= 0 .or. var /= 3) STOP 81 sync all if (this_image() == 1) then call atomic_cas(caf_log[num_images()], compare=.false., new=.false., old=var2, stat=stat) - if (stat /= 0 .or. var2 .neqv. .true.) call abort() + if (stat /= 0 .or. var2 .neqv. .true.) STOP 82 call atomic_ref(var2, caf_log[num_images()], stat=stat) - if (stat /= 0 .or. var2 .neqv. .true.) call abort() + if (stat /= 0 .or. var2 .neqv. .true.) STOP 83 end if sync all -if (this_image() == num_images() .and. caf_log .neqv. .true.) call abort() +if (this_image() == num_images() .and. caf_log .neqv. .true.) STOP 84 call atomic_ref(var2, caf_log[num_images()], stat=stat) -if (stat /= 0 .or. var2 .neqv. .true.) call abort() +if (stat /= 0 .or. var2 .neqv. .true.) STOP 85 sync all if (this_image() == 1) then call atomic_cas(caf_log[num_images()], compare=.true., new=.false., old=var2, stat=stat) - if (stat /= 0 .or. var2 .neqv. .true.) call abort() + if (stat /= 0 .or. var2 .neqv. .true.) STOP 86 call atomic_ref(var2, caf_log[num_images()], stat=stat) - if (stat /= 0 .or. var2 .neqv. .false.) call abort() + if (stat /= 0 .or. var2 .neqv. .false.) STOP 87 end if sync all -if (this_image() == num_images() .and. caf_log .neqv. .false.) call abort() +if (this_image() == num_images() .and. caf_log .neqv. .false.) STOP 88 call atomic_ref(var2, caf_log[num_images()], stat=stat) -if (stat /= 0 .or. var2 .neqv. .false.) call abort() +if (stat /= 0 .or. var2 .neqv. .false.) STOP 89 end diff --git a/gcc/testsuite/gfortran.dg/coarray/codimension.f90 b/gcc/testsuite/gfortran.dg/coarray/codimension.f90 index 706048f33ef..077cbefb393 100644 --- a/gcc/testsuite/gfortran.dg/coarray/codimension.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/codimension.f90 @@ -25,10 +25,10 @@ contains call expl (y) i = lcobound(x, dim=1) j = ucobound(x, dim=1) - if (i /= 1 .or. j /= num_images()) call abort() + if (i /= 1 .or. j /= num_images()) STOP 1 i = lcobound(y, dim=1) j = ucobound(y, dim=1) - if (i /= 1 .or. j /= num_images()) call abort() + if (i /= 1 .or. j /= num_images()) STOP 2 end subroutine foo subroutine bar(y) @@ -36,7 +36,7 @@ contains integer :: i, j i = lcobound(y, dim=1) j = ucobound(y, dim=1) - if (i /= 1 .or. j /= num_images()) call abort() + if (i /= 1 .or. j /= num_images()) STOP 3 end subroutine bar subroutine expl(z) @@ -44,6 +44,6 @@ contains integer :: i, j i = lcobound(z, dim=1) j = ucobound(z, dim=1) - if (i /= 1 .or. j /= num_images()) call abort() + if (i /= 1 .or. j /= num_images()) STOP 4 end subroutine expl end program test_caf diff --git a/gcc/testsuite/gfortran.dg/coarray/coindexed_1.f90 b/gcc/testsuite/gfortran.dg/coarray/coindexed_1.f90 index 86f86d1af2c..f90b65cb389 100644 --- a/gcc/testsuite/gfortran.dg/coarray/coindexed_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/coindexed_1.f90 @@ -26,9 +26,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str2a /= 1_"abc ") call abort() + if (str2a /= 1_"abc ") STOP 1 else - if (str2a /= 1_"XXXXXXX") call abort() + if (str2a /= 1_"XXXXXXX") STOP 2 end if ! SCALAR - kind 4 - with padding @@ -42,9 +42,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr2a /= 4_"abc ") call abort() + if (ustr2a /= 4_"abc ") STOP 3 else - if (ustr2a /= 4_"XXXXXXX") call abort() + if (ustr2a /= 4_"XXXXXXX") STOP 4 end if ! SCALAR - kind 1 - with trimming @@ -58,9 +58,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str1a /= 1_"abc") call abort() + if (str1a /= 1_"abc") STOP 5 else - if (str1a /= 1_"XXX") call abort() + if (str1a /= 1_"XXX") STOP 6 end if ! SCALAR - kind 4 - with trimming @@ -74,9 +74,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr1a /= 4_"abc") call abort() + if (ustr1a /= 4_"abc") STOP 7 else - if (ustr1a /= 4_"XXX") call abort() + if (ustr1a /= 4_"XXX") STOP 8 end if ! - - - - - array = array @@ -97,10 +97,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"def " & - .or. str2b(3) /= 1_"gjh ") call abort() + .or. str2b(3) /= 1_"gjh ") STOP 9 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 10 end if ! contiguous ARRAY - kind 4 - with padding @@ -119,10 +119,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"def " & - .or. ustr2b(3) /= 4_"gjh ") call abort() + .or. ustr2b(3) /= 4_"gjh ") STOP 11 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 12 end if ! contiguous ARRAY - kind 1 - with trimming @@ -141,10 +141,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" & - .or. str1b(3) /= 1_"opq") call abort() + .or. str1b(3) /= 1_"opq") STOP 13 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 14 end if ! contiguous ARRAY - kind 4 - with trimming @@ -163,10 +163,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" & - .or. ustr1b(3) /= 4_"opq") call abort() + .or. ustr1b(3) /= 4_"opq") STOP 15 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 16 end if ! - - - - - array = scalar @@ -185,10 +185,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"abc " & - .or. str2b(3) /= 1_"abc ") call abort() + .or. str2b(3) /= 1_"abc ") STOP 17 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 18 end if ! contiguous ARRAY - kind 4 - with padding @@ -205,10 +205,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"abc " & - .or. ustr2b(3) /= 4_"abc ") call abort() + .or. ustr2b(3) /= 4_"abc ") STOP 19 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 20 end if ! contiguous ARRAY - kind 1 - with trimming @@ -225,10 +225,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" & - .or. str1b(3) /= 1_"abc") call abort() + .or. str1b(3) /= 1_"abc") STOP 21 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 22 end if ! contiguous ARRAY - kind 4 - with trimming @@ -245,10 +245,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" & - .or. ustr1b(3) /= 4_"abc") call abort() + .or. ustr1b(3) /= 4_"abc") STOP 23 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 24 end if ! ---------- Take from a coindexed variable ------------- @@ -266,9 +266,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (str2a /= 1_"abc ") call abort() + if (str2a /= 1_"abc ") STOP 25 else - if (str2a /= 1_"XXXXXXX") call abort() + if (str2a /= 1_"XXXXXXX") STOP 26 end if ! SCALAR - kind 4 - with padding @@ -282,9 +282,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (ustr2a /= 4_"abc ") call abort() + if (ustr2a /= 4_"abc ") STOP 27 else - if (ustr2a /= 4_"XXXXXXX") call abort() + if (ustr2a /= 4_"XXXXXXX") STOP 28 end if ! SCALAR - kind 1 - with trimming @@ -298,9 +298,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (str1a /= 1_"abc") call abort() + if (str1a /= 1_"abc") STOP 29 else - if (str1a /= 1_"XXX") call abort() + if (str1a /= 1_"XXX") STOP 30 end if ! SCALAR - kind 4 - with trimming @@ -314,9 +314,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (ustr1a /= 4_"abc") call abort() + if (ustr1a /= 4_"abc") STOP 31 else - if (ustr1a /= 4_"XXX") call abort() + if (ustr1a /= 4_"XXX") STOP 32 end if ! - - - - - array = array @@ -337,10 +337,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"def " & - .or. str2b(3) /= 1_"gjh ") call abort() + .or. str2b(3) /= 1_"gjh ") STOP 33 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 34 end if ! contiguous ARRAY - kind 4 - with padding @@ -359,10 +359,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"def " & - .or. ustr2b(3) /= 4_"gjh ") call abort() + .or. ustr2b(3) /= 4_"gjh ") STOP 35 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 36 end if ! contiguous ARRAY - kind 1 - with trimming @@ -381,10 +381,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" & - .or. str1b(3) /= 1_"opq") call abort() + .or. str1b(3) /= 1_"opq") STOP 37 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 38 end if ! contiguous ARRAY - kind 4 - with trimming @@ -403,10 +403,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" & - .or. ustr1b(3) /= 4_"opq") call abort() + .or. ustr1b(3) /= 4_"opq") STOP 39 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 40 end if ! - - - - - array = scalar @@ -425,10 +425,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"abc " & - .or. str2b(3) /= 1_"abc ") call abort() + .or. str2b(3) /= 1_"abc ") STOP 41 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 42 end if ! contiguous ARRAY - kind 4 - with padding @@ -445,10 +445,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"abc " & - .or. ustr2b(3) /= 4_"abc ") call abort() + .or. ustr2b(3) /= 4_"abc ") STOP 43 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 44 end if ! contiguous ARRAY - kind 1 - with trimming @@ -465,10 +465,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" & - .or. str1b(3) /= 1_"abc") call abort() + .or. str1b(3) /= 1_"abc") STOP 45 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 46 end if ! contiguous ARRAY - kind 4 - with trimming @@ -485,10 +485,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" & - .or. ustr1b(3) /= 4_"abc") call abort() + .or. ustr1b(3) /= 4_"abc") STOP 47 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 48 end if @@ -507,9 +507,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str2a /= 1_"abc ") call abort() + if (str2a /= 1_"abc ") STOP 49 else - if (str2a /= 1_"XXXXXXX") call abort() + if (str2a /= 1_"XXXXXXX") STOP 50 end if ! SCALAR - kind 4 - with padding @@ -523,9 +523,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr2a /= 4_"abc ") call abort() + if (ustr2a /= 4_"abc ") STOP 51 else - if (ustr2a /= 4_"XXXXXXX") call abort() + if (ustr2a /= 4_"XXXXXXX") STOP 52 end if ! SCALAR - kind 1 - with trimming @@ -539,9 +539,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str1a /= 1_"abc") call abort() + if (str1a /= 1_"abc") STOP 53 else - if (str1a /= 1_"XXX") call abort() + if (str1a /= 1_"XXX") STOP 54 end if ! SCALAR - kind 4 - with trimming @@ -555,9 +555,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr1a /= 4_"abc") call abort() + if (ustr1a /= 4_"abc") STOP 55 else - if (ustr1a /= 4_"XXX") call abort() + if (ustr1a /= 4_"XXX") STOP 56 end if ! - - - - - array = array @@ -578,10 +578,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"def " & - .or. str2b(3) /= 1_"gjh ") call abort() + .or. str2b(3) /= 1_"gjh ") STOP 57 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 58 end if ! contiguous ARRAY - kind 4 - with padding @@ -600,10 +600,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"def " & - .or. ustr2b(3) /= 4_"gjh ") call abort() + .or. ustr2b(3) /= 4_"gjh ") STOP 59 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 60 end if ! contiguous ARRAY - kind 1 - with trimming @@ -622,10 +622,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" & - .or. str1b(3) /= 1_"opq") call abort() + .or. str1b(3) /= 1_"opq") STOP 61 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 62 end if ! contiguous ARRAY - kind 4 - with trimming @@ -644,10 +644,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" & - .or. ustr1b(3) /= 4_"opq") call abort() + .or. ustr1b(3) /= 4_"opq") STOP 63 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 64 end if ! - - - - - array = scalar @@ -666,10 +666,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"abc " & - .or. str2b(3) /= 1_"abc ") call abort() + .or. str2b(3) /= 1_"abc ") STOP 65 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 66 end if ! contiguous ARRAY - kind 4 - with padding @@ -686,10 +686,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"abc " & - .or. ustr2b(3) /= 4_"abc ") call abort() + .or. ustr2b(3) /= 4_"abc ") STOP 67 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 68 end if ! contiguous ARRAY - kind 1 - with trimming @@ -706,10 +706,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" & - .or. str1b(3) /= 1_"abc") call abort() + .or. str1b(3) /= 1_"abc") STOP 69 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 70 end if ! contiguous ARRAY - kind 4 - with trimming @@ -726,10 +726,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" & - .or. ustr1b(3) /= 4_"abc") call abort() + .or. ustr1b(3) /= 4_"abc") STOP 71 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 72 end if ! ============== char1 <-> char4 ===================== @@ -749,9 +749,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str2a /= 1_"abc ") call abort() + if (str2a /= 1_"abc ") STOP 73 else - if (str2a /= 1_"XXXXXXX") call abort() + if (str2a /= 1_"XXXXXXX") STOP 74 end if ! SCALAR - kind 4 <- 1 - with padding @@ -765,9 +765,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr2a /= 4_"abc ") call abort() + if (ustr2a /= 4_"abc ") STOP 75 else - if (ustr2a /= 4_"XXXXXXX") call abort() + if (ustr2a /= 4_"XXXXXXX") STOP 76 end if ! SCALAR - kind 1 <- 4 - with trimming @@ -781,9 +781,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str1a /= 1_"abc") call abort() + if (str1a /= 1_"abc") STOP 77 else - if (str1a /= 1_"XXX") call abort() + if (str1a /= 1_"XXX") STOP 78 end if ! SCALAR - kind 4 <- 1 - with trimming @@ -797,9 +797,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr1a /= 4_"abc") call abort() + if (ustr1a /= 4_"abc") STOP 79 else - if (ustr1a /= 4_"XXX") call abort() + if (ustr1a /= 4_"XXX") STOP 80 end if ! - - - - - array = array @@ -820,10 +820,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"def " & - .or. str2b(3) /= 1_"gjh ") call abort() + .or. str2b(3) /= 1_"gjh ") STOP 81 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 82 end if ! contiguous ARRAY - kind 4 <- 1 - with padding @@ -842,10 +842,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"def " & - .or. ustr2b(3) /= 4_"gjh ") call abort() + .or. ustr2b(3) /= 4_"gjh ") STOP 83 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 84 end if ! contiguous ARRAY - kind 1 <- 4 - with trimming @@ -864,10 +864,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" & - .or. str1b(3) /= 1_"opq") call abort() + .or. str1b(3) /= 1_"opq") STOP 85 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 86 end if ! contiguous ARRAY - kind 4 <- 1 - with trimming @@ -886,10 +886,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" & - .or. ustr1b(3) /= 4_"opq") call abort() + .or. ustr1b(3) /= 4_"opq") STOP 87 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 88 end if ! - - - - - array = scalar @@ -908,10 +908,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"abc " & - .or. str2b(3) /= 1_"abc ") call abort() + .or. str2b(3) /= 1_"abc ") STOP 89 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 90 end if ! contiguous ARRAY - kind 4 <- 1 - with padding @@ -928,10 +928,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"abc " & - .or. ustr2b(3) /= 4_"abc ") call abort() + .or. ustr2b(3) /= 4_"abc ") STOP 91 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 92 end if ! contiguous ARRAY - kind 1 <- 4 - with trimming @@ -948,10 +948,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" & - .or. str1b(3) /= 1_"abc") call abort() + .or. str1b(3) /= 1_"abc") STOP 93 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 94 end if ! contiguous ARRAY - kind 4 <- 1 - with trimming @@ -968,10 +968,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" & - .or. ustr1b(3) /= 4_"abc") call abort() + .or. ustr1b(3) /= 4_"abc") STOP 95 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 96 end if ! ---------- Take from a coindexed variable ------------- @@ -989,9 +989,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (str2a /= 1_"abc ") call abort() + if (str2a /= 1_"abc ") STOP 97 else - if (str2a /= 1_"XXXXXXX") call abort() + if (str2a /= 1_"XXXXXXX") STOP 98 end if ! SCALAR - kind 4 <- 1 - with padding @@ -1005,9 +1005,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (ustr2a /= 4_"abc ") call abort() + if (ustr2a /= 4_"abc ") STOP 99 else - if (ustr2a /= 4_"XXXXXXX") call abort() + if (ustr2a /= 4_"XXXXXXX") STOP 100 end if ! SCALAR - kind 1 <- 4 - with trimming @@ -1021,9 +1021,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (str1a /= 1_"abc") call abort() + if (str1a /= 1_"abc") STOP 101 else - if (str1a /= 1_"XXX") call abort() + if (str1a /= 1_"XXX") STOP 102 end if ! SCALAR - kind 4 <- 1 - with trimming @@ -1037,9 +1037,9 @@ subroutine char_test() end if sync all if (this_image() == num_images()) then - if (ustr1a /= 4_"abc") call abort() + if (ustr1a /= 4_"abc") STOP 103 else - if (ustr1a /= 4_"XXX") call abort() + if (ustr1a /= 4_"XXX") STOP 104 end if ! - - - - - array = array @@ -1060,10 +1060,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"def " & - .or. str2b(3) /= 1_"gjh ") call abort() + .or. str2b(3) /= 1_"gjh ") STOP 105 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 106 end if ! contiguous ARRAY - kind 4 <- 1 - with padding @@ -1082,10 +1082,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"def " & - .or. ustr2b(3) /= 4_"gjh ") call abort() + .or. ustr2b(3) /= 4_"gjh ") STOP 107 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 108 end if ! contiguous ARRAY - kind 1 <- 4 - with trimming @@ -1104,10 +1104,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" & - .or. str1b(3) /= 1_"opq") call abort() + .or. str1b(3) /= 1_"opq") STOP 109 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 110 end if ! contiguous ARRAY - kind 4 <- 1 - with trimming @@ -1126,10 +1126,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" & - .or. ustr1b(3) /= 4_"opq") call abort() + .or. ustr1b(3) /= 4_"opq") STOP 111 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 112 end if ! - - - - - array = scalar @@ -1148,10 +1148,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"abc " & - .or. str2b(3) /= 1_"abc ") call abort() + .or. str2b(3) /= 1_"abc ") STOP 113 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 114 end if ! contiguous ARRAY - kind 4 <- 1 - with padding @@ -1168,10 +1168,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"abc " & - .or. ustr2b(3) /= 4_"abc ") call abort() + .or. ustr2b(3) /= 4_"abc ") STOP 115 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 116 end if ! contiguous ARRAY - kind 1 <- 4 - with trimming @@ -1188,10 +1188,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" & - .or. str1b(3) /= 1_"abc") call abort() + .or. str1b(3) /= 1_"abc") STOP 117 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 118 end if ! contiguous ARRAY - kind 4 <- 1 - with trimming @@ -1208,10 +1208,10 @@ subroutine char_test() sync all if (this_image() == num_images()) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" & - .or. ustr1b(3) /= 4_"abc") call abort() + .or. ustr1b(3) /= 4_"abc") STOP 119 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 120 end if @@ -1230,9 +1230,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str2a /= 1_"abc ") call abort() + if (str2a /= 1_"abc ") STOP 121 else - if (str2a /= 1_"XXXXXXX") call abort() + if (str2a /= 1_"XXXXXXX") STOP 122 end if ! SCALAR - kind 4 <- 1 - with padding @@ -1246,9 +1246,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr2a /= 4_"abc ") call abort() + if (ustr2a /= 4_"abc ") STOP 123 else - if (ustr2a /= 4_"XXXXXXX") call abort() + if (ustr2a /= 4_"XXXXXXX") STOP 124 end if ! SCALAR - kind 1 <- 4 - with trimming @@ -1262,9 +1262,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (str1a /= 1_"abc") call abort() + if (str1a /= 1_"abc") STOP 125 else - if (str1a /= 1_"XXX") call abort() + if (str1a /= 1_"XXX") STOP 126 end if ! SCALAR - kind 4 <- 1 - with trimming @@ -1278,9 +1278,9 @@ subroutine char_test() end if sync all if (this_image() == 1) then - if (ustr1a /= 4_"abc") call abort() + if (ustr1a /= 4_"abc") STOP 127 else - if (ustr1a /= 4_"XXX") call abort() + if (ustr1a /= 4_"XXX") STOP 128 end if ! - - - - - array = array @@ -1301,10 +1301,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"def " & - .or. str2b(3) /= 1_"gjh ") call abort() + .or. str2b(3) /= 1_"gjh ") STOP 129 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 130 end if ! contiguous ARRAY - kind 4 <- 1 - with padding @@ -1323,10 +1323,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"def " & - .or. ustr2b(3) /= 4_"gjh ") call abort() + .or. ustr2b(3) /= 4_"gjh ") STOP 131 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 132 end if ! contiguous ARRAY - kind 1 <- 4 - with trimming @@ -1345,10 +1345,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"hij" & - .or. str1b(3) /= 1_"opq") call abort() + .or. str1b(3) /= 1_"opq") STOP 133 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 134 end if ! contiguous ARRAY - kind 4 <- 1 - with trimming @@ -1367,10 +1367,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"hij" & - .or. ustr1b(3) /= 4_"opq") call abort() + .or. ustr1b(3) /= 4_"opq") STOP 135 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 136 end if ! - - - - - array = scalar @@ -1389,10 +1389,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str2b(1) /= 1_"abc " .or. str2b(2) /= 1_"abc " & - .or. str2b(3) /= 1_"abc ") call abort() + .or. str2b(3) /= 1_"abc ") STOP 137 else if (str2b(1) /= 1_"XXXXXXX" .or. str2b(2) /= 1_"YYYYYYY" & - .or. str2b(3) /= 1_"ZZZZZZZ") call abort() + .or. str2b(3) /= 1_"ZZZZZZZ") STOP 138 end if ! contiguous ARRAY - kind 4 <- 1 - with padding @@ -1409,10 +1409,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr2b(1) /= 4_"abc " .or. ustr2b(2) /= 4_"abc " & - .or. ustr2b(3) /= 4_"abc ") call abort() + .or. ustr2b(3) /= 4_"abc ") STOP 139 else if (ustr2b(1) /= 4_"XXXXXXX" .or. ustr2b(2) /= 4_"YYYYYYY" & - .or. ustr2b(3) /= 4_"ZZZZZZZ") call abort() + .or. ustr2b(3) /= 4_"ZZZZZZZ") STOP 140 end if ! contiguous ARRAY - kind 1 <- 4 - with trimming @@ -1429,10 +1429,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (str1b(1) /= 1_"abc" .or. str1b(2) /= 1_"abc" & - .or. str1b(3) /= 1_"abc") call abort() + .or. str1b(3) /= 1_"abc") STOP 141 else if (str1b(1) /= 1_"XXX" .or. str1b(2) /= 1_"YYY" & - .or. str1b(3) /= 1_"ZZZ") call abort() + .or. str1b(3) /= 1_"ZZZ") STOP 142 end if ! contiguous ARRAY - kind 4 <- 1 - with trimming @@ -1449,10 +1449,10 @@ subroutine char_test() sync all if (this_image() == 1) then if (ustr1b(1) /= 4_"abc" .or. ustr1b(2) /= 4_"abc" & - .or. ustr1b(3) /= 4_"abc") call abort() + .or. ustr1b(3) /= 4_"abc") STOP 143 else if (ustr1b(1) /= 4_"XXX" .or. ustr1b(2) /= 4_"YYY" & - .or. ustr1b(3) /= 4_"ZZZ") call abort() + .or. ustr1b(3) /= 4_"ZZZ") STOP 144 end if end subroutine char_test diff --git a/gcc/testsuite/gfortran.dg/coarray/collectives_1.f90 b/gcc/testsuite/gfortran.dg/coarray/collectives_1.f90 index 68b19a0dda8..d9a8c73f93c 100644 --- a/gcc/testsuite/gfortran.dg/coarray/collectives_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/collectives_1.f90 @@ -17,7 +17,7 @@ contains call co_max (val, result_image=1) if (this_image() == 1) then !write(*,*) "Maximal value", val - if (val /= num_images()) call abort() + if (val /= num_images()) STOP 1 end if end subroutine test_max @@ -27,7 +27,7 @@ contains call co_min (val, result_image=1) if (this_image() == 1) then !write(*,*) "Minimal value", val - if (val /= 1) call abort() + if (val /= 1) STOP 2 end if end subroutine test_min @@ -38,7 +38,7 @@ contains if (this_image() == 1) then !write(*,*) "The sum is ", val n = num_images() - if (val /= (n**2 + n)/2) call abort() + if (val /= (n**2 + n)/2) STOP 3 end if end subroutine test_sum end program test diff --git a/gcc/testsuite/gfortran.dg/coarray/collectives_2.f90 b/gcc/testsuite/gfortran.dg/coarray/collectives_2.f90 index 3ff9383b8eb..7a7204b2310 100644 --- a/gcc/testsuite/gfortran.dg/coarray/collectives_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/collectives_2.f90 @@ -32,17 +32,17 @@ contains integer :: tmp call co_max (val(::2)) if (num_images() > 1) then - if (any (val /= [42, this_image(), 101])) call abort() + if (any (val /= [42, this_image(), 101])) STOP 1 else - if (any (val /= [42, this_image(), -55])) call abort() + if (any (val /= [42, this_image(), -55])) STOP 2 endif val = tmp_val call co_max (val(:)) if (num_images() > 1) then - if (any (val /= [42, num_images(), 101])) call abort() + if (any (val /= [42, num_images(), 101])) STOP 3 else - if (any (val /= [42, num_images(), -55])) call abort() + if (any (val /= [42, num_images(), -55])) STOP 4 endif end subroutine test_max @@ -51,12 +51,12 @@ contains if (this_image() == num_images()) then !write(*,*) "Minimal value", val if (num_images() > 1) then - if (any (val /= [-99, 1, -55])) call abort() + if (any (val /= [-99, 1, -55])) STOP 5 else - if (any (val /= [42, 1, -55])) call abort() + if (any (val /= [42, 1, -55])) STOP 6 endif else - if (any (val /= tmp_val)) call abort() + if (any (val /= tmp_val)) STOP 7 endif end subroutine test_min @@ -64,13 +64,13 @@ contains integer :: n n = 88 call co_sum (val, result_image=1, stat=n) - if (n /= 0) call abort() + if (n /= 0) STOP 8 if (this_image() == 1) then n = num_images() !write(*,*) "The sum is ", val - if (any (val /= [42 + (n-1)*(-99), (n**2 + n)/2, -55+(n-1)*101])) call abort() + if (any (val /= [42 + (n-1)*(-99), (n**2 + n)/2, -55+(n-1)*101])) STOP 9 else - if (any (val /= tmp_val)) call abort() + if (any (val /= tmp_val)) STOP 10 end if end subroutine test_sum end program test diff --git a/gcc/testsuite/gfortran.dg/coarray/collectives_3.f90 b/gcc/testsuite/gfortran.dg/coarray/collectives_3.f90 index 123a85702a5..42387f8387e 100644 --- a/gcc/testsuite/gfortran.dg/coarray/collectives_3.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/collectives_3.f90 @@ -37,41 +37,41 @@ program test sync all call co_broadcast(i, source_image=num_images(), stat=stat, errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() - if (i /= 2) call abort() + if (stat /= 0) STOP 1 + if (errstr /= "ZZZZZ") STOP 2 + if (i /= 2) STOP 3 call co_broadcast(j, source_image=num_images(), stat=stat, errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() - if (any (j /= 66)) call abort + if (stat /= 0) STOP 4 + if (errstr /= "ZZZZZ") STOP 5 + if (any (j /= 66)) STOP 1 call co_broadcast(a, source_image=num_images(), stat=stat, errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() - if (any (a /= -99.0)) call abort + if (stat /= 0) STOP 6 + if (errstr /= "ZZZZZ") STOP 7 + if (any (a /= -99.0)) STOP 2 call co_broadcast(str1, source_image=num_images(), stat=stat, errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() - if (str1 /= "abcd") call abort() + if (stat /= 0) STOP 8 + if (errstr /= "ZZZZZ") STOP 9 + if (str1 /= "abcd") STOP 10 call co_broadcast(str2, source_image=num_images(), stat=stat, errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() - if (any (str2 /= 4_"12 3 4 5")) call abort + if (stat /= 0) STOP 11 + if (errstr /= "ZZZZZ") STOP 12 + if (any (str2 /= 4_"12 3 4 5")) STOP 3 call co_broadcast(dt, source_image=num_images(), stat=stat, errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() - if (any (dt(:)%i /= -1)) call abort() - if (any (dt(:)%c /= 'a')) call abort() - if (any (dt(:)%x(1) /= 3.)) call abort() - if (any (dt(:)%x(2) /= 1.)) call abort() - if (any (dt(:)%x(3) /= 8.)) call abort() - if (any (dt(:)%y(1) /= 99.)) call abort() - if (any (dt(:)%y(2) /= 24.)) call abort() - if (any (dt(:)%y(3) /= 5.)) call abort() + if (stat /= 0) STOP 13 + if (errstr /= "ZZZZZ") STOP 14 + if (any (dt(:)%i /= -1)) STOP 15 + if (any (dt(:)%c /= 'a')) STOP 16 + if (any (dt(:)%x(1) /= 3.)) STOP 17 + if (any (dt(:)%x(2) /= 1.)) STOP 18 + if (any (dt(:)%x(3) /= 8.)) STOP 19 + if (any (dt(:)%y(1) /= 99.)) STOP 20 + if (any (dt(:)%y(2) /= 24.)) STOP 21 + if (any (dt(:)%y(3) /= 5.)) STOP 22 sync all dt = t(1, 'C', [1.,2.,3.], [3,3,3]) @@ -83,54 +83,54 @@ program test call co_broadcast(str2(::2), source_image=num_images(), stat=stat, & errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() - if (str2(1) /= 4_"001122") call abort() + if (stat /= 0) STOP 23 + if (errstr /= "ZZZZZ") STOP 24 + if (str2(1) /= 4_"001122") STOP 25 if (this_image() == num_images()) then - if (str2(1) /= 4_"001122") call abort() + if (str2(1) /= 4_"001122") STOP 26 else - if (str2(2) /= 4_"12 3 4 5") call abort() + if (str2(2) /= 4_"12 3 4 5") STOP 27 end if call co_broadcast(dt(2::2), source_image=num_images(), stat=stat, & errmsg=errstr) - if (stat /= 0) call abort() - if (errstr /= "ZZZZZ") call abort() + if (stat /= 0) STOP 28 + if (errstr /= "ZZZZZ") STOP 29 if (this_image() == num_images()) then - if (any (dt(1:1)%i /= 1)) call abort() - if (any (dt(1:1)%c /= 'C')) call abort() - if (any (dt(1:1)%x(1) /= 1.)) call abort() - if (any (dt(1:1)%x(2) /= 2.)) call abort() - if (any (dt(1:1)%x(3) /= 3.)) call abort() - if (any (dt(1:1)%y(1) /= 3.)) call abort() - if (any (dt(1:1)%y(2) /= 3.)) call abort() - if (any (dt(1:1)%y(3) /= 3.)) call abort() + if (any (dt(1:1)%i /= 1)) STOP 30 + if (any (dt(1:1)%c /= 'C')) STOP 31 + if (any (dt(1:1)%x(1) /= 1.)) STOP 32 + if (any (dt(1:1)%x(2) /= 2.)) STOP 33 + if (any (dt(1:1)%x(3) /= 3.)) STOP 34 + if (any (dt(1:1)%y(1) /= 3.)) STOP 35 + if (any (dt(1:1)%y(2) /= 3.)) STOP 36 + if (any (dt(1:1)%y(3) /= 3.)) STOP 37 - if (any (dt(2:)%i /= -2)) call abort() - if (any (dt(2:)%c /= 'i')) call abort() - if (any (dt(2:)%x(1) /= 9.)) call abort() - if (any (dt(2:)%x(2) /= 2.)) call abort() - if (any (dt(2:)%x(3) /= 3.)) call abort() - if (any (dt(2:)%y(1) /= 4.)) call abort() - if (any (dt(2:)%y(2) /= 44.)) call abort() - if (any (dt(2:)%y(3) /= 321.)) call abort() + if (any (dt(2:)%i /= -2)) STOP 38 + if (any (dt(2:)%c /= 'i')) STOP 39 + if (any (dt(2:)%x(1) /= 9.)) STOP 40 + if (any (dt(2:)%x(2) /= 2.)) STOP 41 + if (any (dt(2:)%x(3) /= 3.)) STOP 42 + if (any (dt(2:)%y(1) /= 4.)) STOP 43 + if (any (dt(2:)%y(2) /= 44.)) STOP 44 + if (any (dt(2:)%y(3) /= 321.)) STOP 45 else - if (any (dt(1::2)%i /= 1)) call abort() - if (any (dt(1::2)%c /= 'C')) call abort() - if (any (dt(1::2)%x(1) /= 1.)) call abort() - if (any (dt(1::2)%x(2) /= 2.)) call abort() - if (any (dt(1::2)%x(3) /= 3.)) call abort() - if (any (dt(1::2)%y(1) /= 3.)) call abort() - if (any (dt(1::2)%y(2) /= 3.)) call abort() - if (any (dt(1::2)%y(3) /= 3.)) call abort() + if (any (dt(1::2)%i /= 1)) STOP 46 + if (any (dt(1::2)%c /= 'C')) STOP 47 + if (any (dt(1::2)%x(1) /= 1.)) STOP 48 + if (any (dt(1::2)%x(2) /= 2.)) STOP 49 + if (any (dt(1::2)%x(3) /= 3.)) STOP 50 + if (any (dt(1::2)%y(1) /= 3.)) STOP 51 + if (any (dt(1::2)%y(2) /= 3.)) STOP 52 + if (any (dt(1::2)%y(3) /= 3.)) STOP 53 - if (any (dt(2::2)%i /= -2)) call abort() - if (any (dt(2::2)%c /= 'i')) call abort() - if (any (dt(2::2)%x(1) /= 9.)) call abort() - if (any (dt(2::2)%x(2) /= 2.)) call abort() - if (any (dt(2::2)%x(3) /= 3.)) call abort() - if (any (dt(2::2)%y(1) /= 4.)) call abort() - if (any (dt(2::2)%y(2) /= 44.)) call abort() - if (any (dt(2::2)%y(3) /= 321.)) call abort() + if (any (dt(2::2)%i /= -2)) STOP 54 + if (any (dt(2::2)%c /= 'i')) STOP 55 + if (any (dt(2::2)%x(1) /= 9.)) STOP 56 + if (any (dt(2::2)%x(2) /= 2.)) STOP 57 + if (any (dt(2::2)%x(3) /= 3.)) STOP 58 + if (any (dt(2::2)%y(1) /= 4.)) STOP 59 + if (any (dt(2::2)%y(2) /= 44.)) STOP 60 + if (any (dt(2::2)%y(3) /= 321.)) STOP 61 endif end program test diff --git a/gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 b/gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 index 6e7be46eb3c..870f9481960 100644 --- a/gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/collectives_4.f90 @@ -13,8 +13,8 @@ do i = 2, num_images() i4_2 = i4_2 * 21 * i end do call co_reduce(i4, op_i4, stat=stat) -if (stat /= 0) call abort() -if (i4_2 /= i4) call abort() +if (stat /= 0) STOP 1 +if (i4_2 /= i4) STOP 2 contains pure integer function op_i4(a,b) diff --git a/gcc/testsuite/gfortran.dg/coarray/cosubscript_1.f90 b/gcc/testsuite/gfortran.dg/coarray/cosubscript_1.f90 index 20ee454450f..426c1dd463a 100644 --- a/gcc/testsuite/gfortran.dg/coarray/cosubscript_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/cosubscript_1.f90 @@ -32,7 +32,7 @@ program cosubscript_test k = 1 j = -1 i = 0 - if (scalar[i,j,k] /= this_image()) call abort + if (scalar[i,j,k] /= this_image()) STOP 1 stop "OK" else if (num_images() == 2) then k = 1 @@ -40,7 +40,7 @@ program cosubscript_test counter = 0 do i = 0,P counter = counter+1 - if (counter /= scalar[i,j,k]) call abort() + if (counter /= scalar[i,j,k]) STOP 1 end do stop "OK" end if @@ -61,6 +61,6 @@ program cosubscript_test end do if (is_err) then - call abort() + STOP 2 end if end program cosubscript_test diff --git a/gcc/testsuite/gfortran.dg/coarray/dummy_1.f90 b/gcc/testsuite/gfortran.dg/coarray/dummy_1.f90 index 8e4b7d7fcf1..33e95853ad4 100644 --- a/gcc/testsuite/gfortran.dg/coarray/dummy_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/dummy_1.f90 @@ -33,38 +33,38 @@ subroutine sub(A,n) integer :: n integer :: A(n:)[n:2*n,3*n:*] - if (lbound(A,dim=1) /= n) call abort () - if (any (lcobound(A) /= [n, 3*n])) call abort () - if (ucobound(A, dim=1) /= 2*n) call abort() + if (lbound(A,dim=1) /= n) STOP 1 + if (any (lcobound(A) /= [n, 3*n])) STOP 2 + if (ucobound(A, dim=1) /= 2*n) STOP 3 end subroutine sub subroutine sub2(A,n) integer :: n integer :: A(:)[-n:*] - if (lbound(A,dim=1) /= 1) call abort () - if (lcobound(A, dim=1) /= -n) call abort () + if (lbound(A,dim=1) /= 1) STOP 4 + if (lcobound(A, dim=1) /= -n) STOP 5 end subroutine sub2 subroutine sub3(A) integer :: A(:)[0,*] - if (lbound(A,dim=1) /= 1) call abort () - if (lcobound(A, dim=1) /= 1) call abort () - if (ucobound(A, dim=1) /= 0) call abort () - if (lcobound(A, dim=2) /= 1) call abort () + if (lbound(A,dim=1) /= 1) STOP 6 + if (lcobound(A, dim=1) /= 1) STOP 7 + if (ucobound(A, dim=1) /= 0) STOP 8 + if (lcobound(A, dim=2) /= 1) STOP 9 end subroutine sub3 subroutine sub4(A) integer :: A(:)[*] - if (lbound(A,dim=1) /= 1) call abort () - if (lcobound(A, dim=1) /= 1) call abort () + if (lbound(A,dim=1) /= 1) STOP 10 + if (lcobound(A, dim=1) /= 1) STOP 11 end subroutine sub4 subroutine sub5(A) integer, allocatable :: A(:)[:,:] - if (lbound(A,dim=1) /= 1) call abort () - if (lcobound(A, dim=1) /= 2) call abort () - if (ucobound(A, dim=1) /= 3) call abort () - if (lcobound(A, dim=2) /= 5) call abort () + if (lbound(A,dim=1) /= 1) STOP 12 + if (lcobound(A, dim=1) /= 2) STOP 13 + if (ucobound(A, dim=1) /= 3) STOP 14 + if (lcobound(A, dim=2) /= 5) STOP 15 end subroutine sub5 end diff --git a/gcc/testsuite/gfortran.dg/coarray/event_1.f90 b/gcc/testsuite/gfortran.dg/coarray/event_1.f90 index b4385f340ed..81dc90b7197 100644 --- a/gcc/testsuite/gfortran.dg/coarray/event_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/event_1.f90 @@ -10,42 +10,42 @@ integer :: count, stat count = -42 call event_query (var, count) -if (count /= 0) call abort() +if (count /= 0) STOP 1 stat = 99 event post (var, stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 2 call event_query(var, count, stat=stat) -if (count /= 1 .or. stat /= 0) call abort() +if (count /= 1 .or. stat /= 0) STOP 3 stat = 99 event post (var[this_image()]) call event_query(var, count) -if (count /= 2) call abort() +if (count /= 2) STOP 4 stat = 99 event wait (var) call event_query(var, count) -if (count /= 1) call abort() +if (count /= 1) STOP 5 stat = 99 event post (var) call event_query(var, count) -if (count /= 2) call abort() +if (count /= 2) STOP 6 stat = 99 event post (var) call event_query(var, count) -if (count /= 3) call abort() +if (count /= 3) STOP 7 stat = 99 event wait (var, until_count=2) call event_query(var, count) -if (count /= 1) call abort() +if (count /= 1) STOP 8 stat = 99 event wait (var, stat=stat, until_count=1) -if (stat /= 0) call abort() +if (stat /= 0) STOP 9 call event_query(event=var, stat=stat, count=count) -if (count /= 0 .or. stat /= 0) call abort() +if (count /= 0 .or. stat /= 0) STOP 10 end diff --git a/gcc/testsuite/gfortran.dg/coarray/event_2.f90 b/gcc/testsuite/gfortran.dg/coarray/event_2.f90 index 2d451a557a9..d06c05b515c 100644 --- a/gcc/testsuite/gfortran.dg/coarray/event_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/event_2.f90 @@ -12,78 +12,78 @@ allocate(var(3)[*]) count = -42 call event_query (var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 1 call event_query (var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 2 call event_query (var(2), count) -if (count /= 0) call abort() +if (count /= 0) STOP 3 call event_query (var(3), count) -if (count /= 0) call abort() +if (count /= 0) STOP 4 stat = 99 event post (var(2), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 5 call event_query (var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 6 call event_query(var(2), count, stat=stat) -if (count /= 1 .or. stat /= 0) call abort() +if (count /= 1 .or. stat /= 0) STOP 7 call event_query (var(3), count) -if (count /= 0) call abort() +if (count /= 0) STOP 8 stat = 99 event post (var(2)[this_image()]) call event_query(var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 9 call event_query(var(2), count) -if (count /= 2) call abort() +if (count /= 2) STOP 10 call event_query(var(2), count) -if (count /= 2) call abort() +if (count /= 2) STOP 11 call event_query(var(3), count) -if (count /= 0) call abort() +if (count /= 0) STOP 12 stat = 99 event wait (var(2)) call event_query(var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 13 call event_query(var(2), count) -if (count /= 1) call abort() +if (count /= 1) STOP 14 call event_query(var(3), count) -if (count /= 0) call abort() +if (count /= 0) STOP 15 stat = 99 event post (var(2)) call event_query(var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 16 call event_query(var(2), count) -if (count /= 2) call abort() +if (count /= 2) STOP 17 call event_query(var(3), count) -if (count /= 0) call abort() +if (count /= 0) STOP 18 stat = 99 event post (var(2)) call event_query(var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 19 call event_query(var(2), count) -if (count /= 3) call abort() +if (count /= 3) STOP 20 call event_query(var(3), count) -if (count /= 0) call abort() +if (count /= 0) STOP 21 stat = 99 event wait (var(2), until_count=2) call event_query(var(1), count) -if (count /= 0) call abort() +if (count /= 0) STOP 22 call event_query(var(2), count) -if (count /= 1) call abort() +if (count /= 1) STOP 23 call event_query(var(3), count) -if (count /= 0) call abort() +if (count /= 0) STOP 24 stat = 99 event wait (var(2), stat=stat, until_count=1) -if (stat /= 0) call abort() +if (stat /= 0) STOP 25 call event_query(event=var(1), stat=stat, count=count) -if (count /= 0 .or. stat /= 0) call abort() +if (count /= 0 .or. stat /= 0) STOP 26 call event_query(event=var(2), stat=stat, count=count) -if (count /= 0 .or. stat /= 0) call abort() +if (count /= 0 .or. stat /= 0) STOP 27 call event_query(event=var(3), stat=stat, count=count) -if (count /= 0 .or. stat /= 0) call abort() +if (count /= 0 .or. stat /= 0) STOP 28 end diff --git a/gcc/testsuite/gfortran.dg/coarray/get_array.f90 b/gcc/testsuite/gfortran.dg/coarray/get_array.f90 index c4c96671f62..34f5d82ab44 100644 --- a/gcc/testsuite/gfortran.dg/coarray/get_array.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/get_array.f90 @@ -50,7 +50,7 @@ contains a(:,:) = b(:,:) c(:,:) = caf(:,:)[num_images()] if (any (a /= c)) then - call abort() + STOP 1 end if sync all @@ -75,7 +75,7 @@ contains end do end do if (any (a /= c)) then - call abort() + STOP 2 end if sync all @@ -101,7 +101,7 @@ contains c(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2) & = caf(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[num_images()] if (any (c /= a)) then - call abort() + STOP 3 end if sync all end do @@ -136,7 +136,7 @@ contains a(:,:) = b(:,:) c(:,:) = caf(:,:)[num_images()] if (any (a /= c)) then - call abort() + STOP 4 end if sync all @@ -161,7 +161,7 @@ contains end do end do if (any (a /= c)) then - call abort() + STOP 5 end if sync all @@ -187,7 +187,7 @@ contains c(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2) & = caf(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[num_images()] if (any (c /= a)) then - call abort() + STOP 6 end if sync all end do @@ -222,7 +222,7 @@ contains a(:,:) = b(:,:) c(:,:) = caf(:,:)[num_images()] if (any (a /= c)) then - call abort() + STOP 7 end if sync all @@ -247,7 +247,7 @@ contains end do end do if (any (a /= c)) then - call abort() + STOP 8 end if sync all @@ -273,7 +273,7 @@ contains c(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2) & = caf(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[num_images()] if (any (c /= a)) then - call abort() + STOP 9 end if sync all end do 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 diff --git a/gcc/testsuite/gfortran.dg/coarray/image_index_2.f90 b/gcc/testsuite/gfortran.dg/coarray/image_index_2.f90 index 794781c7add..2768f09c515 100644 --- a/gcc/testsuite/gfortran.dg/coarray/image_index_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/image_index_2.f90 @@ -27,17 +27,17 @@ index1 = image_index(d, [-1, 1] ) index2 = image_index(d, [0, 1] ) if (one .and. (index1 /= 1 .or. index2 /= 0)) & - call abort() + STOP 1 if (.not. one .and. (index1 /= 1 .or. index2 /= 2)) & - call abort() + STOP 2 index1 = image_index(e, [-1, 3] ) index2 = image_index(e, [-1, 4] ) if (one .and. (index1 /= 1 .or. index2 /= 0)) & - call abort() + STOP 3 if (.not. one .and. (index1 /= 1 .or. index2 /= 2)) & - call abort() + STOP 4 call test(1, e, d, e) call test(2, e, d, e) @@ -52,11 +52,11 @@ subroutine test(n, a, b, c) index3 = image_index(c, [1] ) if (n == 1) then - if (index1 /= 1 .or. index2 /= 1 .or. index3 /= 1) call abort() + if (index1 /= 1 .or. index2 /= 1 .or. index3 /= 1) STOP 5 else if (num_images() == 1) then - if (index1 /= 1 .or. index2 /= 0 .or. index3 /= 1) call abort() + if (index1 /= 1 .or. index2 /= 0 .or. index3 /= 1) STOP 6 else - if (index1 /= 1 .or. index2 /= 2 .or. index3 /= 1) call abort() + if (index1 /= 1 .or. index2 /= 2 .or. index3 /= 1) STOP 7 end if index1 = image_index(a, [3*n, -3*n, 88*n] ) @@ -64,13 +64,13 @@ 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 8 if (n == 1 .and. num_images() == 2) then if (index1 /= 2 .or. index2 /= 2 .or. index3 /= 2) & - call abort() + STOP 9 else if (n == 2 .and. num_images() == 2) then if (index1 /= 0 .or. index2 /= 0 .or. index3 /= 2) & - call abort() + STOP 10 end if end subroutine test end program test_image_index diff --git a/gcc/testsuite/gfortran.dg/coarray/image_index_3.f90 b/gcc/testsuite/gfortran.dg/coarray/image_index_3.f90 index 9bfa02db3e6..3f9a79c165e 100644 --- a/gcc/testsuite/gfortran.dg/coarray/image_index_3.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/image_index_3.f90 @@ -33,7 +33,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] ) @@ -41,26 +41,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) @@ -73,11 +73,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 @@ -88,7 +88,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] ) @@ -96,8 +96,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 diff --git a/gcc/testsuite/gfortran.dg/coarray/lib_realloc_1.f90 b/gcc/testsuite/gfortran.dg/coarray/lib_realloc_1.f90 index f3d7f35f271..73fe74ed9cb 100644 --- a/gcc/testsuite/gfortran.dg/coarray/lib_realloc_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/lib_realloc_1.f90 @@ -16,14 +16,14 @@ integer, pointer :: ptr allocate(x%caf[*], y%caf[*]) ptr => y%caf ptr = 6 -if (.not.allocated(x%caf)) call abort() -if (.not.allocated(y%caf)) call abort() -if (y%caf /= 6) call abort () +if (.not.allocated(x%caf)) STOP 1 +if (.not.allocated(y%caf)) STOP 2 +if (y%caf /= 6) STOP 3 x = y -if (x%caf /= 6) call abort () -if (.not. associated (ptr,y%caf)) call abort() -if (associated (ptr,x%caf)) call abort() +if (x%caf /= 6) STOP 4 +if (.not. associated (ptr,y%caf)) STOP 5 +if (associated (ptr,x%caf)) STOP 6 ptr = 123 -if (y%caf /= 123) call abort () -if (x%caf /= 6) call abort () +if (y%caf /= 123) STOP 7 +if (x%caf /= 6) STOP 8 end program main diff --git a/gcc/testsuite/gfortran.dg/coarray/lock_1.f90 b/gcc/testsuite/gfortran.dg/coarray/lock_1.f90 index db4fbc8f7cb..1ec5984a4d3 100644 --- a/gcc/testsuite/gfortran.dg/coarray/lock_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/lock_1.f90 @@ -17,15 +17,15 @@ UNLOCK(lock) stat = 99 LOCK(lock, stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 1 stat = 99 UNLOCK(lock, stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 2 if (this_image() == 1) then acquired = .false. LOCK (lock[this_image()], acquired_lock=acquired) - if (.not. acquired) call abort() + if (.not. acquired) STOP 3 UNLOCK (lock[1]) end if end diff --git a/gcc/testsuite/gfortran.dg/coarray/lock_2.f90 b/gcc/testsuite/gfortran.dg/coarray/lock_2.f90 index 3afd8246ff4..8e96154996d 100644 --- a/gcc/testsuite/gfortran.dg/coarray/lock_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/lock_2.f90 @@ -32,52 +32,52 @@ UNLOCK(lock3(4)) stat = 99 LOCK(lock1, stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 1 LOCK(lock2(1,1), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 2 LOCK(lock2(2,2), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 3 LOCK(lock3(3), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 4 LOCK(lock3(4), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 5 stat = 99 UNLOCK(lock1, stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 6 UNLOCK(lock2(1,1), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 7 UNLOCK(lock2(2,2), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 8 UNLOCK(lock3(3), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 9 UNLOCK(lock3(4), stat=stat) -if (stat /= 0) call abort() +if (stat /= 0) STOP 10 if (this_image() == 1) then acquired = .false. LOCK (lock1[this_image()], acquired_lock=acquired) - if (.not. acquired) call abort() + if (.not. acquired) STOP 11 acquired = .false. LOCK (lock2(1,1)[this_image()], acquired_lock=acquired) - if (.not. acquired) call abort() + if (.not. acquired) STOP 12 acquired = .false. LOCK (lock2(2,2)[this_image()], acquired_lock=acquired) - if (.not. acquired) call abort() + if (.not. acquired) STOP 13 acquired = .false. LOCK (lock3(3)[this_image()], acquired_lock=acquired) - if (.not. acquired) call abort() + if (.not. acquired) STOP 14 acquired = .false. LOCK (lock3(4)[this_image()], acquired_lock=acquired) - if (.not. acquired) call abort() + if (.not. acquired) STOP 15 UNLOCK (lock1[1]) UNLOCK (lock2(1,1)[1]) diff --git a/gcc/testsuite/gfortran.dg/coarray/move_alloc_1.f90 b/gcc/testsuite/gfortran.dg/coarray/move_alloc_1.f90 index 1f320522489..3cd71febcce 100644 --- a/gcc/testsuite/gfortran.dg/coarray/move_alloc_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/move_alloc_1.f90 @@ -9,16 +9,16 @@ integer, allocatable :: u[:], v[:], w(:)[:,:], x(:)[:,:] allocate (u[4:*]) call move_alloc (u, v) -if (allocated (u)) call abort () -if (lcobound (v, dim=1) /= 4) call abort () -if (ucobound (v, dim=1) /= 3 + num_images()) call abort () +if (allocated (u)) STOP 1 +if (lcobound (v, dim=1) /= 4) STOP 2 +if (ucobound (v, dim=1) /= 3 + num_images()) STOP 3 allocate (w(-2:3)[4:5,-1:*]) call move_alloc (w, x) -if (allocated (w)) call abort () -if (lbound (x, dim=1) /= -2) call abort () -if (ubound (x, dim=1) /= 3) call abort () -if (any (lcobound (x) /= [4, -1])) call abort () -if (any (ucobound (x) /= [5, -2 + (num_images()+1)/2])) call abort () +if (allocated (w)) STOP 4 +if (lbound (x, dim=1) /= -2) STOP 5 +if (ubound (x, dim=1) /= 3) STOP 6 +if (any (lcobound (x) /= [4, -1])) STOP 7 +if (any (ucobound (x) /= [5, -2 + (num_images()+1)/2])) STOP 8 end diff --git a/gcc/testsuite/gfortran.dg/coarray/poly_run_1.f90 b/gcc/testsuite/gfortran.dg/coarray/poly_run_1.f90 index 436c1d410fd..43525d96663 100644 --- a/gcc/testsuite/gfortran.dg/coarray/poly_run_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/poly_run_1.f90 @@ -6,11 +6,11 @@ type t end type t class(t), allocatable :: A(:)[:,:] allocate (A(2)[1:4,-5:*]) -if (any (lcobound(A) /= [1, -5])) call abort () +if (any (lcobound(A) /= [1, -5])) STOP 1 if (num_images() == 1) then - if (any (ucobound(A) /= [4, -5])) call abort () + if (any (ucobound(A) /= [4, -5])) STOP 2 else - if (ucobound(A,dim=1) /= 4) call abort () + if (ucobound(A,dim=1) /= 4) STOP 3 end if if (allocated(A)) i = 5 call s(A) @@ -20,31 +20,31 @@ contains subroutine s(x) class(t),allocatable :: x(:)[:,:] - if (any (lcobound(x) /= [1, -5])) call abort () + if (any (lcobound(x) /= [1, -5])) STOP 4 if (num_images() == 1) then - if (any (ucobound(x) /= [4, -5])) call abort () + if (any (ucobound(x) /= [4, -5])) STOP 5 else - if (ucobound(x,dim=1) /= 4) call abort () + if (ucobound(x,dim=1) /= 4) STOP 6 end if end subroutine s subroutine st(x) class(t) :: x(:)[4,2:*] ! FIXME -! if (any (lcobound(x) /= [1, 2])) call abort () -! if (lcobound(x, dim=1) /= 1) call abort () -! if (lcobound(x, dim=2) /= 2) call abort () +! if (any (lcobound(x) /= [1, 2])) STOP 7 +! if (lcobound(x, dim=1) /= 1) STOP 8 +! if (lcobound(x, dim=2) /= 2) STOP 9 ! if (this_image() == 1) then -! if (any (this_image(x) /= lcobound(x))) call abort () -! if (this_image(x, dim=1) /= lcobound(x, dim=1)) call abort () -! if (this_image(x, dim=2) /= lcobound(x, dim=2)) call abort () +! if (any (this_image(x) /= lcobound(x))) STOP 10 +! if (this_image(x, dim=1) /= lcobound(x, dim=1)) STOP 11 +! if (this_image(x, dim=2) /= lcobound(x, dim=2)) STOP 12 ! end if ! if (num_images() == 1) then -! if (any (ucobound(x) /= [4, 2])) call abort () -! if (ucobound(x, dim=1) /= 4) call abort () -! if (ucobound(x, dim=2) /= 2) call abort () +! if (any (ucobound(x) /= [4, 2])) STOP 13 +! if (ucobound(x, dim=1) /= 4) STOP 14 +! if (ucobound(x, dim=2) /= 2) STOP 15 ! else -! if (ucobound(x,dim=1) /= 4) call abort () +! if (ucobound(x,dim=1) /= 4) STOP 16 ! end if end subroutine st end diff --git a/gcc/testsuite/gfortran.dg/coarray/poly_run_2.f90 b/gcc/testsuite/gfortran.dg/coarray/poly_run_2.f90 index 02704dd7796..48a6f7b4cc0 100644 --- a/gcc/testsuite/gfortran.dg/coarray/poly_run_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/poly_run_2.f90 @@ -7,11 +7,11 @@ end type t class(t), allocatable :: A[:,:] allocate (A[1:4,-5:*]) if (allocated(A)) stop -if (any (lcobound(A) /= [1, -5])) call abort () +if (any (lcobound(A) /= [1, -5])) STOP 1 if (num_images() == 1) then - if (any (ucobound(A) /= [4, -5])) call abort () + if (any (ucobound(A) /= [4, -5])) STOP 2 else - if (ucobound(A,dim=1) /= 4) call abort () + if (ucobound(A,dim=1) /= 4) STOP 3 end if if (allocated(A)) i = 5 call s(A) @@ -19,20 +19,20 @@ call st(A) contains subroutine s(x) class(t) :: x[4,2:*] - if (any (lcobound(x) /= [1, 2])) call abort () + if (any (lcobound(x) /= [1, 2])) STOP 4 if (num_images() == 1) then - if (any (ucobound(x) /= [4, 2])) call abort () + if (any (ucobound(x) /= [4, 2])) STOP 5 else - if (ucobound(x,dim=1) /= 4) call abort () + if (ucobound(x,dim=1) /= 4) STOP 6 end if end subroutine s subroutine st(x) class(t) :: x[:,:] - if (any (lcobound(x) /= [1, -5])) call abort () + if (any (lcobound(x) /= [1, -5])) STOP 7 if (num_images() == 1) then - if (any (ucobound(x) /= [4, -5])) call abort () + if (any (ucobound(x) /= [4, -5])) STOP 8 else - if (ucobound(x,dim=1) /= 4) call abort () + if (ucobound(x,dim=1) /= 4) STOP 9 end if end subroutine st end diff --git a/gcc/testsuite/gfortran.dg/coarray/poly_run_3.f90 b/gcc/testsuite/gfortran.dg/coarray/poly_run_3.f90 index 17a010844eb..c284a566760 100644 --- a/gcc/testsuite/gfortran.dg/coarray/poly_run_3.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/poly_run_3.f90 @@ -10,30 +10,30 @@ class(t), allocatable :: b[:], d[:] allocate(a(1)[*]) if (this_image() == 1 .and. any (this_image(a) /= lcobound(a))) & - call abort () -if (any (lcobound(a) /= 1)) call abort() -if (any (ucobound(a) /= this_image())) call abort () + STOP 1 +if (any (lcobound(a) /= 1)) STOP 2 +if (any (ucobound(a) /= this_image())) STOP 3 deallocate(a) allocate(b[*]) if (this_image() == 1 .and. any (this_image(b) /= lcobound(b))) & - call abort () -if (any (lcobound(b) /= 1)) call abort() -if (any (ucobound(b) /= this_image())) call abort () + STOP 4 +if (any (lcobound(b) /= 1)) STOP 5 +if (any (ucobound(b) /= this_image())) STOP 6 deallocate(b) allocate(a(1)[-10:*]) if (this_image() == 1 .and. any (this_image(a) /= lcobound(a))) & - call abort () -if (any (lcobound(a) /= -10)) call abort() -if (any (ucobound(a) /= -11+this_image())) call abort () + STOP 7 +if (any (lcobound(a) /= -10)) STOP 8 +if (any (ucobound(a) /= -11+this_image())) STOP 9 deallocate(a) allocate(d[23:*]) if (this_image() == 1 .and. any (this_image(d) /= lcobound(d))) & - call abort () -if (any (lcobound(d) /= 23)) call abort() -if (any (ucobound(d) /= 22+this_image())) call abort () + STOP 10 +if (any (lcobound(d) /= 23)) STOP 11 +if (any (ucobound(d) /= 22+this_image())) STOP 12 deallocate(d) end diff --git a/gcc/testsuite/gfortran.dg/coarray/ptr_comp_3.f08 b/gcc/testsuite/gfortran.dg/coarray/ptr_comp_3.f08 index ad7137f009e..fca6d54a60f 100644 --- a/gcc/testsuite/gfortran.dg/coarray/ptr_comp_3.f08 +++ b/gcc/testsuite/gfortran.dg/coarray/ptr_comp_3.f08 @@ -18,5 +18,5 @@ program main allocate(object%indices(me)) object%indices = 42 - if ( any( object[me]%indices(:) /= 42 ) ) call abort() + if ( any( object[me]%indices(:) /= 42 ) ) STOP 1 end program diff --git a/gcc/testsuite/gfortran.dg/coarray/registering_1.f90 b/gcc/testsuite/gfortran.dg/coarray/registering_1.f90 index a18ba615af7..3e266324eec 100644 --- a/gcc/testsuite/gfortran.dg/coarray/registering_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/registering_1.f90 @@ -9,33 +9,33 @@ module m end module m use m -if (any (a /= 7)) call abort() +if (any (a /= 7)) STOP 1 a = 88 -if (any (a /= 88)) call abort() +if (any (a /= 88)) STOP 2 block integer :: b[*] = 8494 - if (b /= 8494) call abort() + if (b /= 8494) STOP 3 end block -if (any (a /= 88)) call abort() +if (any (a /= 88)) STOP 4 call test () end subroutine test() real :: z[*] = sqrt(2.0) - if (z /= sqrt(2.0)) call abort() + if (z /= sqrt(2.0)) STOP 5 call sub1() contains subroutine sub1 real :: r[4,*] = -1 - if (r /= -1) call abort + if (r /= -1) STOP 1 r = 10 - if (r /= 10) call abort + if (r /= 10) STOP 2 end subroutine sub1 subroutine uncalled() integer :: not_refed[2:*] = 784 - if (not_refed /= 784) call abort() + if (not_refed /= 784) STOP 6 end subroutine uncalled end subroutine test diff --git a/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_1.f90 b/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_1.f90 index 528dd3e092f..b0d27bdfb8f 100644 --- a/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_1.f90 @@ -4,36 +4,36 @@ implicit none integer, allocatable :: A[:], B[:,:] integer :: n1, n2, n3 -if (allocated (a)) call abort () -if (allocated (b)) call abort () +if (allocated (a)) STOP 1 +if (allocated (b)) STOP 2 allocate(a[*]) a = 5 + this_image () -if (a[this_image ()] /= 5 + this_image ()) call abort +if (a[this_image ()] /= 5 + this_image ()) STOP 1 a[this_image ()] = 8 - 2*this_image () -if (a[this_image ()] /= 8 - 2*this_image ()) call abort +if (a[this_image ()] /= 8 - 2*this_image ()) STOP 2 if (lcobound(a, dim=1) /= 1 .or. ucobound(a,dim=1) /= num_images()) & - call abort () + STOP 3 deallocate(a) allocate(a[4:*]) a[this_image ()] = 8 - 2*this_image () if (lcobound(a, dim=1) /= 4 .or. ucobound(a,dim=1) /= 3 + num_images()) & - call abort () + STOP 4 n1 = -1 n2 = 5 n3 = 3 allocate (B[n1:n2, n3:*]) if (any (lcobound(b) /= [-1, 3]) .or. lcobound(B, dim=2) /= n3) & - call abort() + STOP 5 call sub(A, B) -if (allocated (a)) call abort () -if (.not.allocated (b)) call abort () +if (allocated (a)) STOP 6 +if (.not.allocated (b)) STOP 7 call two(.true.) call two(.false.) @@ -44,10 +44,10 @@ contains integer, allocatable :: x[:], y[:,:] if (any (lcobound(y) /= [-1, 3]) .or. lcobound(y, dim=2) /= n3) & - call abort() + STOP 8 if (lcobound(x, dim=1) /= 4 .or. ucobound(x,dim=1) /= 3 + num_images()) & - call abort () - if (x[this_image ()] /= 8 - 2*this_image ()) call abort + STOP 9 + if (x[this_image ()] /= 8 - 2*this_image ()) STOP 3 deallocate(x) end subroutine sub @@ -56,12 +56,12 @@ contains integer, allocatable, SAVE :: a[:] if (init) then - if (allocated(a)) call abort() + if (allocated(a)) STOP 10 allocate(a[*]) a = 45 else - if (.not. allocated(a)) call abort() - if (a /= 45) call abort() + if (.not. allocated(a)) STOP 11 + if (a /= 45) STOP 12 deallocate(a) end if end subroutine two diff --git a/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_2.f90 b/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_2.f90 index 50c3dfb2ea8..a7c3074f6ee 100644 --- a/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/scalar_alloc_2.f90 @@ -17,13 +17,13 @@ p%x = 11 p%y = 13 p%z = 15 -if (a /= 7) call abort() +if (a /= 7) STOP 1 a = 88 -if (a /= 88) call abort() +if (a /= 88) STOP 2 -if (p%x /= 11) call abort() +if (p%x /= 11) STOP 3 p%x = 17 -if (p%x /= 17) call abort() +if (p%x /= 17) STOP 4 block integer, allocatable :: b[:] @@ -31,10 +31,10 @@ if (p%x /= 17) call abort() allocate(b[*]) b = 8494 - if (b /= 8494) call abort() + if (b /= 8494) STOP 5 end block -if (a /= 88) call abort() +if (a /= 88) STOP 6 call test () end @@ -54,7 +54,7 @@ subroutine test() v%y = 23 v%z = 25 - if (z /= sqrt(2.0)) call abort() - if (v%x /= 21) call abort() + if (z /= sqrt(2.0)) STOP 7 + if (v%x /= 21) STOP 8 end subroutine test diff --git a/gcc/testsuite/gfortran.dg/coarray/send_array.f90 b/gcc/testsuite/gfortran.dg/coarray/send_array.f90 index dc4700785c3..01b76703398 100644 --- a/gcc/testsuite/gfortran.dg/coarray/send_array.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/send_array.f90 @@ -42,7 +42,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 1 end if sync all @@ -57,7 +57,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 2 end if sync all @@ -90,7 +90,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 3 end if sync all @@ -136,7 +136,7 @@ contains print *, a print *, caf print *, a-caf - call abort() + STOP 4 endif end if sync all @@ -171,7 +171,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 5 end if ! Whole array: ARRAY = ARRAY @@ -185,7 +185,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 6 end if sync all @@ -218,7 +218,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 7 end if sync all @@ -264,7 +264,7 @@ contains print *, a print *, caf print *, a-caf - call abort() + STOP 8 endif end if sync all @@ -299,7 +299,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 9 end if ! Whole array: ARRAY = ARRAY @@ -313,7 +313,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 10 end if sync all @@ -346,7 +346,7 @@ contains sync all if (this_image() == num_images()) then if (any (a /= caf)) & - call abort() + STOP 11 end if ! Array sections with different ranges and pos/neg strides @@ -391,7 +391,7 @@ contains print *, a print *, caf print *, a-caf - call abort() + STOP 12 endif end if sync all diff --git a/gcc/testsuite/gfortran.dg/coarray/send_char_array_1.f90 b/gcc/testsuite/gfortran.dg/coarray/send_char_array_1.f90 index 800a8acc34c..3e16fa83685 100644 --- a/gcc/testsuite/gfortran.dg/coarray/send_char_array_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/send_char_array_1.f90 @@ -26,28 +26,28 @@ program send_convert_char_array ! First check send/copy to self co_str_k1_scal[1] = str_k1_scal - if (co_str_k1_scal /= str_k1_scal // ' ') call abort() + if (co_str_k1_scal /= str_k1_scal // ' ') STOP 1 co_str_k4_scal[1] = str_k4_scal - if (co_str_k4_scal /= str_k4_scal // 4_' ') call abort() + if (co_str_k4_scal /= str_k4_scal // 4_' ') STOP 2 co_str_k4_scal[1] = str_k1_scal - if (co_str_k4_scal /= str_k4_scal // 4_' ') call abort() + if (co_str_k4_scal /= str_k4_scal // 4_' ') STOP 3 co_str_k1_scal[1] = str_k4_scal - if (co_str_k1_scal /= str_k1_scal // ' ') call abort() + if (co_str_k1_scal /= str_k1_scal // ' ') STOP 4 co_str_k1_arr(:)[1] = str_k1_arr - if (any(co_str_k1_arr /= ['abc ', 'EFG ', 'klm ', 'NOP '])) call abort() + if (any(co_str_k1_arr /= ['abc ', 'EFG ', 'klm ', 'NOP '])) STOP 5 co_str_k4_arr(:)[1] = [4_'abc', 4_'EFG', 4_'klm', 4_'NOP']! str_k4_arr - if (any(co_str_k4_arr /= [4_'abc ', 4_'EFG ', 4_'klm ', 4_'NOP '])) call abort() + if (any(co_str_k4_arr /= [4_'abc ', 4_'EFG ', 4_'klm ', 4_'NOP '])) STOP 6 co_str_k4_arr(:)[1] = str_k1_arr - if (any(co_str_k4_arr /= [ 4_'abc ', 4_'EFG ', 4_'klm ', 4_'NOP '])) call abort() + if (any(co_str_k4_arr /= [ 4_'abc ', 4_'EFG ', 4_'klm ', 4_'NOP '])) STOP 7 co_str_k1_arr(:)[1] = str_k4_arr - if (any(co_str_k1_arr /= ['abc ', 'EFG ', 'klm ', 'NOP '])) call abort() + if (any(co_str_k1_arr /= ['abc ', 'EFG ', 'klm ', 'NOP '])) STOP 8 end program send_convert_char_array diff --git a/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90 b/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90 index a53d3d3ac25..f5c50025cd1 100644 --- a/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/sendget_array.f90 @@ -50,7 +50,7 @@ contains a(:,:) = b(:,:) caf2(:,:)[this_image()] = caf(:,:)[num_images()] if (any (a /= caf2)) then - call abort() + STOP 1 end if sync all @@ -75,7 +75,7 @@ contains end do end do if (any (a /= caf2)) then - call abort() + STOP 2 end if sync all @@ -101,7 +101,7 @@ contains caf2(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[this_image()] & = caf(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[num_images()] if (any (caf2 /= a)) then - call abort() + STOP 3 end if sync all end do @@ -136,7 +136,7 @@ contains a(:,:) = b(:,:) caf2(:,:)[this_image()] = caf(:,:)[num_images()] if (any (a /= caf2)) then - call abort() + STOP 4 end if sync all @@ -161,7 +161,7 @@ contains end do end do if (any (a /= caf2)) then - call abort() + STOP 5 end if sync all @@ -187,7 +187,7 @@ contains caf2(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[this_image()] & = caf(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[num_images()] if (any (caf2 /= a)) then - call abort() + STOP 6 end if sync all end do @@ -222,7 +222,7 @@ contains a(:,:) = b(:,:) caf2(:,:)[this_image()] = caf(:,:)[num_images()] if (any (a /= caf2)) then - call abort() + STOP 7 end if sync all @@ -247,7 +247,7 @@ contains end do end do if (any (a /= caf2)) then - call abort() + STOP 8 end if sync all @@ -273,7 +273,7 @@ contains caf2(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[this_image()] & = caf(i:i_e:i_s*i_sgn1, j:j_e:j_s*i_sgn2)[num_images()] if (any (caf2 /= a)) then - call abort() + STOP 9 end if sync all end do diff --git a/gcc/testsuite/gfortran.dg/coarray/subobject_1.f90 b/gcc/testsuite/gfortran.dg/coarray/subobject_1.f90 index 028c24a8e65..9ada95849e4 100644 --- a/gcc/testsuite/gfortran.dg/coarray/subobject_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/subobject_1.f90 @@ -22,22 +22,22 @@ allocate(b%a[lb:*]) b%a%i = 7 - if (b%a%i /= 7) call abort - if (any (lcobound(b%a) /= (/ lb /))) call abort - if (ucobound(b%a, dim=1) /= num_images() + lb - 1) call abort - if (any (lcobound(b%a%i) /= (/ lb /))) call abort - if (ucobound(b%a%i, dim=1) /= num_images() + lb - 1) call abort + if (b%a%i /= 7) STOP 1 + if (any (lcobound(b%a) /= (/ lb /))) STOP 2 + if (ucobound(b%a, dim=1) /= num_images() + lb - 1) STOP 3 + if (any (lcobound(b%a%i) /= (/ lb /))) STOP 4 + if (ucobound(b%a%i, dim=1) /= num_images() + lb - 1) STOP 5 allocate(c%a(la)[lc:*]) c%a%i = init - if (any(c%a%i /= init)) call abort - if (any (lcobound(c%a) /= (/ lc /))) call abort - if (ucobound(c%a, dim=1) /= num_images() + lc - 1) call abort - if (any (lcobound(c%a%i) /= (/ lc /))) call abort - if (ucobound(c%a%i, dim=1) /= num_images() + lc - 1) call abort - if (c%a(2)%i /= init(2)) call abort - if (any (lcobound(c%a(2)) /= (/ lc /))) call abort - if (ucobound(c%a(2), dim=1) /= num_images() + lc - 1) call abort - if (any (lcobound(c%a(2)%i) /= (/ lc /))) call abort - if (ucobound(c%a(2)%i, dim=1) /= num_images() + lc - 1) call abort + if (any(c%a%i /= init)) STOP 6 + if (any (lcobound(c%a) /= (/ lc /))) STOP 7 + if (ucobound(c%a, dim=1) /= num_images() + lc - 1) STOP 8 + if (any (lcobound(c%a%i) /= (/ lc /))) STOP 9 + if (ucobound(c%a%i, dim=1) /= num_images() + lc - 1) STOP 10 + if (c%a(2)%i /= init(2)) STOP 11 + if (any (lcobound(c%a(2)) /= (/ lc /))) STOP 12 + if (ucobound(c%a(2), dim=1) /= num_images() + lc - 1) STOP 13 + if (any (lcobound(c%a(2)%i) /= (/ lc /))) STOP 14 + if (ucobound(c%a(2)%i, dim=1) /= num_images() + lc - 1) STOP 15 deallocate(b%a, c%a) end diff --git a/gcc/testsuite/gfortran.dg/coarray/sync_1.f90 b/gcc/testsuite/gfortran.dg/coarray/sync_1.f90 index 7c084e0bf46..8633c4aa527 100644 --- a/gcc/testsuite/gfortran.dg/coarray/sync_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/sync_1.f90 @@ -20,11 +20,11 @@ sync all (errmsg=str) n = 5 sync all (stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 1 n = 5 sync all (stat=n,errmsg=str) -if (n /= 0) call abort() +if (n /= 0) STOP 2 ! @@ -36,11 +36,11 @@ sync memory (errmsg=str) n = 5 sync memory (stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 3 n = 5 sync memory (errmsg=str,stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 4 ! @@ -55,10 +55,10 @@ end if n = 5 sync images (*, stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 5 n = 5 sync images (*,errmsg=str,stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 6 end diff --git a/gcc/testsuite/gfortran.dg/coarray/sync_3.f90 b/gcc/testsuite/gfortran.dg/coarray/sync_3.f90 index 205a7877678..fe1e4c548c8 100644 --- a/gcc/testsuite/gfortran.dg/coarray/sync_3.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/sync_3.f90 @@ -25,11 +25,11 @@ sync all (errmsg=str) n = 5 sync all (stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 1 n = 5 sync all (stat=n,errmsg=str) -if (n /= 0) call abort() +if (n /= 0) STOP 2 ! @@ -41,11 +41,11 @@ sync memory (errmsg=str) n = 5 sync memory (stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 3 n = 5 sync memory (errmsg=str,stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 4 ! @@ -60,11 +60,11 @@ end if n = 5 sync images (*, stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 5 n = 5 sync images (*,errmsg=str,stat=n) -if (n /= 0) call abort() +if (n /= 0) STOP 6 n = -1 sync images ( num_images() ) diff --git a/gcc/testsuite/gfortran.dg/coarray/this_image_1.f90 b/gcc/testsuite/gfortran.dg/coarray/this_image_1.f90 index 9ee4b153231..28942ff3ca0 100644 --- a/gcc/testsuite/gfortran.dg/coarray/this_image_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/this_image_1.f90 @@ -14,82 +14,82 @@ integer :: b(:)[:, :,:] allocatable :: b integer :: i -if (this_image(A, dim=1) /= 2) call abort() +if (this_image(A, dim=1) /= 2) STOP 1 i = 1 -if (this_image(A, dim=i) /= 2) call abort() +if (this_image(A, dim=i) /= 2) STOP 2 select case (this_image()) case (1) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 7) call abort() + if (this_image(A, dim=2) /= 3) STOP 3 + if (this_image(A, dim=3) /= 7) STOP 4 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 5 i = 3 - if (this_image(A, dim=i) /= 7) call abort() - if (any (this_image(A) /= [2,3,7])) call abort() + if (this_image(A, dim=i) /= 7) STOP 6 + if (any (this_image(A) /= [2,3,7])) STOP 7 case (2) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 7) call abort() + if (this_image(A, dim=2) /= 4) STOP 8 + if (this_image(A, dim=3) /= 7) STOP 9 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 10 i = 3 - if (this_image(A, dim=i) /= 7) call abort() - if (any (this_image(A) /= [2,4,7])) call abort() + if (this_image(A, dim=i) /= 7) STOP 11 + if (any (this_image(A) /= [2,4,7])) STOP 12 case (3) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 8) call abort() + if (this_image(A, dim=2) /= 3) STOP 13 + if (this_image(A, dim=3) /= 8) STOP 14 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 15 i = 3 - if (this_image(A, dim=i) /= 8) call abort() - if (any (this_image(A) /= [2,3,8])) call abort() + if (this_image(A, dim=i) /= 8) STOP 16 + if (any (this_image(A) /= [2,3,8])) STOP 17 case (4) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 8) call abort() + if (this_image(A, dim=2) /= 4) STOP 18 + if (this_image(A, dim=3) /= 8) STOP 19 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 20 i = 3 - if (this_image(A, dim=i) /= 8) call abort() - if (any (this_image(A) /= [2,4,8])) call abort() + if (this_image(A, dim=i) /= 8) STOP 21 + if (any (this_image(A) /= [2,4,8])) STOP 22 case (5) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 9) call abort() + if (this_image(A, dim=2) /= 3) STOP 23 + if (this_image(A, dim=3) /= 9) STOP 24 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 25 i = 3 - if (this_image(A, dim=i) /= 9) call abort() - if (any (this_image(A) /= [2,3,9])) call abort() + if (this_image(A, dim=i) /= 9) STOP 26 + if (any (this_image(A) /= [2,3,9])) STOP 27 case (6) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 9) call abort() + if (this_image(A, dim=2) /= 4) STOP 28 + if (this_image(A, dim=3) /= 9) STOP 29 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 30 i = 3 - if (this_image(A, dim=i) /= 9) call abort() - if (any (this_image(A) /= [2,4,9])) call abort() + if (this_image(A, dim=i) /= 9) STOP 31 + if (any (this_image(A) /= [2,4,9])) STOP 32 case (7) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 10) call abort() + if (this_image(A, dim=2) /= 3) STOP 33 + if (this_image(A, dim=3) /= 10) STOP 34 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 35 i = 3 - if (this_image(A, dim=i) /= 10) call abort() - if (any (this_image(A) /= [2,3,10])) call abort() + if (this_image(A, dim=i) /= 10) STOP 36 + if (any (this_image(A) /= [2,3,10])) STOP 37 case (8) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 10) call abort() + if (this_image(A, dim=2) /= 4) STOP 38 + if (this_image(A, dim=3) /= 10) STOP 39 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 40 i = 3 - if (this_image(A, dim=i) /= 10) call abort() - if (any (this_image(A) /= [2,4,10])) call abort() + if (this_image(A, dim=i) /= 10) STOP 41 + if (any (this_image(A) /= [2,4,10])) STOP 42 end select @@ -97,100 +97,100 @@ allocate (b(3)[-1:0,2:4,*]) select case (this_image()) case (1) - if (this_image(B, dim=1) /= -1) call abort() - if (this_image(B, dim=2) /= 2) call abort() - if (this_image(B, dim=3) /= 1) call abort() + if (this_image(B, dim=1) /= -1) STOP 43 + if (this_image(B, dim=2) /= 2) STOP 44 + if (this_image(B, dim=3) /= 1) STOP 45 i = 1 - if (this_image(B, dim=i) /= -1) call abort() + if (this_image(B, dim=i) /= -1) STOP 46 i = 2 - if (this_image(B, dim=i) /= 2) call abort() + if (this_image(B, dim=i) /= 2) STOP 47 i = 3 - if (this_image(B, dim=i) /= 1) call abort() - if (any (this_image(B) /= [-1,2,1])) call abort() + if (this_image(B, dim=i) /= 1) STOP 48 + if (any (this_image(B) /= [-1,2,1])) STOP 49 case (2) - if (this_image(B, dim=1) /= 0) call abort() - if (this_image(B, dim=2) /= 2) call abort() - if (this_image(B, dim=3) /= 1) call abort() + if (this_image(B, dim=1) /= 0) STOP 50 + if (this_image(B, dim=2) /= 2) STOP 51 + if (this_image(B, dim=3) /= 1) STOP 52 i = 1 - if (this_image(B, dim=i) /= 0) call abort() + if (this_image(B, dim=i) /= 0) STOP 53 i = 2 - if (this_image(B, dim=i) /= 2) call abort() + if (this_image(B, dim=i) /= 2) STOP 54 i = 3 - if (this_image(B, dim=i) /= 1) call abort() - if (any (this_image(B) /= [0,2,1])) call abort() + if (this_image(B, dim=i) /= 1) STOP 55 + if (any (this_image(B) /= [0,2,1])) STOP 56 case (3) - if (this_image(B, dim=1) /= -1) call abort() - if (this_image(B, dim=2) /= 3) call abort() - if (this_image(B, dim=3) /= 1) call abort() + if (this_image(B, dim=1) /= -1) STOP 57 + if (this_image(B, dim=2) /= 3) STOP 58 + if (this_image(B, dim=3) /= 1) STOP 59 i = 1 - if (this_image(B, dim=i) /= -1) call abort() + if (this_image(B, dim=i) /= -1) STOP 60 i = 2 - if (this_image(B, dim=i) /= 3) call abort() + if (this_image(B, dim=i) /= 3) STOP 61 i = 3 - if (this_image(B, dim=i) /= 1) call abort() - if (any (this_image(B) /= [-1,3,1])) call abort() + if (this_image(B, dim=i) /= 1) STOP 62 + if (any (this_image(B) /= [-1,3,1])) STOP 63 case (4) - if (this_image(B, dim=1) /= 0) call abort() - if (this_image(B, dim=2) /= 3) call abort() - if (this_image(B, dim=3) /= 1) call abort() + if (this_image(B, dim=1) /= 0) STOP 64 + if (this_image(B, dim=2) /= 3) STOP 65 + if (this_image(B, dim=3) /= 1) STOP 66 i = 1 - if (this_image(B, dim=i) /= 0) call abort() + if (this_image(B, dim=i) /= 0) STOP 67 i = 2 - if (this_image(B, dim=i) /= 3) call abort() + if (this_image(B, dim=i) /= 3) STOP 68 i = 3 - if (this_image(B, dim=i) /= 1) call abort() - if (any (this_image(B) /= [0,3,1])) call abort() + if (this_image(B, dim=i) /= 1) STOP 69 + if (any (this_image(B) /= [0,3,1])) STOP 70 case (5) - if (this_image(B, dim=1) /= -1) call abort() - if (this_image(B, dim=2) /= 4) call abort() - if (this_image(B, dim=3) /= 1) call abort() + if (this_image(B, dim=1) /= -1) STOP 71 + if (this_image(B, dim=2) /= 4) STOP 72 + if (this_image(B, dim=3) /= 1) STOP 73 i = 1 - if (this_image(B, dim=i) /= -1) call abort() + if (this_image(B, dim=i) /= -1) STOP 74 i = 2 - if (this_image(B, dim=i) /= 4) call abort() + if (this_image(B, dim=i) /= 4) STOP 75 i = 3 - if (this_image(B, dim=i) /= 1) call abort() - if (any (this_image(B) /= [-1,4,1])) call abort() + if (this_image(B, dim=i) /= 1) STOP 76 + if (any (this_image(B) /= [-1,4,1])) STOP 77 case (6) - if (this_image(B, dim=1) /= 0) call abort() - if (this_image(B, dim=2) /= 4) call abort() - if (this_image(B, dim=3) /= 1) call abort() + if (this_image(B, dim=1) /= 0) STOP 78 + if (this_image(B, dim=2) /= 4) STOP 79 + if (this_image(B, dim=3) /= 1) STOP 80 i = 1 - if (this_image(B, dim=i) /= 0) call abort() + if (this_image(B, dim=i) /= 0) STOP 81 i = 2 - if (this_image(B, dim=i) /= 4) call abort() + if (this_image(B, dim=i) /= 4) STOP 82 i = 3 - if (this_image(B, dim=i) /= 1) call abort() - if (any (this_image(B) /= [0,4,1])) call abort() + if (this_image(B, dim=i) /= 1) STOP 83 + if (any (this_image(B) /= [0,4,1])) STOP 84 case (7) - if (this_image(B, dim=1) /= -1) call abort() - if (this_image(B, dim=2) /= 2) call abort() - if (this_image(B, dim=3) /= 2) call abort() + if (this_image(B, dim=1) /= -1) STOP 85 + if (this_image(B, dim=2) /= 2) STOP 86 + if (this_image(B, dim=3) /= 2) STOP 87 i = 1 - if (this_image(B, dim=i) /= -1) call abort() + if (this_image(B, dim=i) /= -1) STOP 88 i = 2 - if (this_image(B, dim=i) /= 2) call abort() + if (this_image(B, dim=i) /= 2) STOP 89 i = 3 - if (this_image(B, dim=i) /= 2) call abort() - if (any (this_image(B) /= [-1,2,2])) call abort() + if (this_image(B, dim=i) /= 2) STOP 90 + if (any (this_image(B) /= [-1,2,2])) STOP 91 case (8) - if (this_image(B, dim=1) /= 0) call abort() - if (this_image(B, dim=2) /= 2) call abort() - if (this_image(B, dim=3) /= 2) call abort() + if (this_image(B, dim=1) /= 0) STOP 92 + if (this_image(B, dim=2) /= 2) STOP 93 + if (this_image(B, dim=3) /= 2) STOP 94 i = 1 - if (this_image(B, dim=i) /= 0) call abort() + if (this_image(B, dim=i) /= 0) STOP 95 i = 2 - if (this_image(B, dim=i) /= 2) call abort() + if (this_image(B, dim=i) /= 2) STOP 96 i = 3 - if (this_image(B, dim=i) /= 2) call abort() - if (any (this_image(B) /= [0,2,2])) call abort() + if (this_image(B, dim=i) /= 2) STOP 97 + if (any (this_image(B) /= [0,2,2])) STOP 98 end select end diff --git a/gcc/testsuite/gfortran.dg/coarray/this_image_2.f90 b/gcc/testsuite/gfortran.dg/coarray/this_image_2.f90 index d5a5eef8de1..f72c432a55b 100644 --- a/gcc/testsuite/gfortran.dg/coarray/this_image_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/this_image_2.f90 @@ -14,82 +14,82 @@ implicit none integer :: a[2:2, 3:4, 7:*] integer :: i -if (this_image(A, dim=1) /= 2) call abort() +if (this_image(A, dim=1) /= 2) STOP 1 i = 1 -if (this_image(A, dim=i) /= 2) call abort() +if (this_image(A, dim=i) /= 2) STOP 2 select case (this_image()) case (1) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 7) call abort() + if (this_image(A, dim=2) /= 3) STOP 3 + if (this_image(A, dim=3) /= 7) STOP 4 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 5 i = 3 - if (this_image(A, dim=i) /= 7) call abort() - if (any (this_image(A) /= [2,3,7])) call abort() + if (this_image(A, dim=i) /= 7) STOP 6 + if (any (this_image(A) /= [2,3,7])) STOP 7 case (2) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 7) call abort() + if (this_image(A, dim=2) /= 4) STOP 8 + if (this_image(A, dim=3) /= 7) STOP 9 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 10 i = 3 - if (this_image(A, dim=i) /= 7) call abort() - if (any (this_image(A) /= [2,4,7])) call abort() + if (this_image(A, dim=i) /= 7) STOP 11 + if (any (this_image(A) /= [2,4,7])) STOP 12 case (3) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 8) call abort() + if (this_image(A, dim=2) /= 3) STOP 13 + if (this_image(A, dim=3) /= 8) STOP 14 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 15 i = 3 - if (this_image(A, dim=i) /= 8) call abort() - if (any (this_image(A) /= [2,3,8])) call abort() + if (this_image(A, dim=i) /= 8) STOP 16 + if (any (this_image(A) /= [2,3,8])) STOP 17 case (4) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 8) call abort() + if (this_image(A, dim=2) /= 4) STOP 18 + if (this_image(A, dim=3) /= 8) STOP 19 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 20 i = 3 - if (this_image(A, dim=i) /= 8) call abort() - if (any (this_image(A) /= [2,4,8])) call abort() + if (this_image(A, dim=i) /= 8) STOP 21 + if (any (this_image(A) /= [2,4,8])) STOP 22 case (5) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 9) call abort() + if (this_image(A, dim=2) /= 3) STOP 23 + if (this_image(A, dim=3) /= 9) STOP 24 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 25 i = 3 - if (this_image(A, dim=i) /= 9) call abort() - if (any (this_image(A) /= [2,3,9])) call abort() + if (this_image(A, dim=i) /= 9) STOP 26 + if (any (this_image(A) /= [2,3,9])) STOP 27 case (6) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 9) call abort() + if (this_image(A, dim=2) /= 4) STOP 28 + if (this_image(A, dim=3) /= 9) STOP 29 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 30 i = 3 - if (this_image(A, dim=i) /= 9) call abort() - if (any (this_image(A) /= [2,4,9])) call abort() + if (this_image(A, dim=i) /= 9) STOP 31 + if (any (this_image(A) /= [2,4,9])) STOP 32 case (7) - if (this_image(A, dim=2) /= 3) call abort() - if (this_image(A, dim=3) /= 10) call abort() + if (this_image(A, dim=2) /= 3) STOP 33 + if (this_image(A, dim=3) /= 10) STOP 34 i = 2 - if (this_image(A, dim=i) /= 3) call abort() + if (this_image(A, dim=i) /= 3) STOP 35 i = 3 - if (this_image(A, dim=i) /= 10) call abort() - if (any (this_image(A) /= [2,3,10])) call abort() + if (this_image(A, dim=i) /= 10) STOP 36 + if (any (this_image(A) /= [2,3,10])) STOP 37 case (8) - if (this_image(A, dim=2) /= 4) call abort() - if (this_image(A, dim=3) /= 10) call abort() + if (this_image(A, dim=2) /= 4) STOP 38 + if (this_image(A, dim=3) /= 10) STOP 39 i = 2 - if (this_image(A, dim=i) /= 4) call abort() + if (this_image(A, dim=i) /= 4) STOP 40 i = 3 - if (this_image(A, dim=i) /= 10) call abort() - if (any (this_image(A) /= [2,4,10])) call abort() + if (this_image(A, dim=i) /= 10) STOP 41 + if (any (this_image(A) /= [2,4,10])) STOP 42 end select contains @@ -108,17 +108,17 @@ index1 = image_index(d, [-1, 1] ) index2 = image_index(d, [0, 1] ) if (one .and. (index1 /= 1 .or. index2 /= 0)) & - call abort() + STOP 43 if (.not. one .and. (index1 /= 1 .or. index2 /= 2)) & - call abort() + STOP 44 index1 = image_index(e, [-1, 3] ) index2 = image_index(e, [-1, 4] ) if (one .and. (index1 /= 1 .or. index2 /= 0)) & - call abort() + STOP 45 if (.not. one .and. (index1 /= 1 .or. index2 /= 2)) & - call abort() + STOP 46 end subroutine test_image_index |