diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray/collectives_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray/collectives_3.f90 | 128 |
1 files changed, 64 insertions, 64 deletions
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 |