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