diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90 b/gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90 index 2833d45e7ff..edd6b3b8feb 100644 --- a/gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_lib_token_1.f90 @@ -16,10 +16,10 @@ program main caf_dt = t (1,2) call sub (caf, caf_dt%b) print *,caf, caf_dt%b - if (caf /= -99 .or. caf_dt%b /= -101) call abort () + if (caf /= -99 .or. caf_dt%b /= -101) STOP 1 call sub_opt () call sub_opt (caf) - if (caf /= 124) call abort () + if (caf /= 124) STOP 2 contains subroutine sub (x1, x2) @@ -32,7 +32,7 @@ contains integer :: y1[*], y2[*] print *, y1, y2 - if (y1 /= 42 .or. y2 /= 2) call abort () + if (y1 /= 42 .or. y2 /= 2) STOP 3 y1 = -99 y2 = -101 end subroutine sub2 @@ -40,7 +40,7 @@ contains subroutine sub_opt (z) integer, optional :: z[*] if (present (z)) then - if (z /= -99) call abort () + if (z /= -99) STOP 4 z = 124 end if end subroutine sub_opt |