diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_2.f90 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray_2.f90 b/gcc/testsuite/gfortran.dg/coarray_2.f90 index 902a0dd9820..1aff4d354ce 100644 --- a/gcc/testsuite/gfortran.dg/coarray_2.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_2.f90 @@ -16,20 +16,20 @@ end critical myCr sync all ( ) 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 sync all (errmsg=str) sync memory sync memory ( ) 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 sync memory (errmsg=str) sync images (*, stat=n) @@ -40,7 +40,7 @@ sync images (*) sync images (1) sync images ([1]) -if (num_images() /= 1) call abort() +if (num_images() /= 1) STOP 5 error stop 'stop' end |