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