diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90 b/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90 index f24ce887643..d94f81af3c6 100644 --- a/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90 +++ b/gcc/testsuite/gfortran.dg/auto_char_dummy_array_1.f90 @@ -14,20 +14,20 @@ program oh_no_not_pr15908_again nullify(ptr) call a (ptr, 12) - if (.not.associated (ptr) ) call abort () - if (any (ptr.ne."abc")) call abort () + if (.not.associated (ptr) ) STOP 1 + if (any (ptr.ne."abc")) STOP 2 ptr => null () ! ptr points to 't' here. allocate (ptr(3)) ptr = "xyz" call a (ptr, 12) - if (.not.associated (ptr)) call abort () - if (any (ptr.ne."lmn")) call abort () + if (.not.associated (ptr)) STOP 3 + if (any (ptr.ne."lmn")) STOP 4 call a (ptr, 0) - if (associated (ptr)) call abort () + if (associated (ptr)) STOP 5 contains @@ -48,8 +48,8 @@ contains t = "abc" p => t else - if (size (p,1).ne.3) call abort () - if (any (p.ne."xyz")) call abort () + if (size (p,1).ne.3) STOP 6 + if (any (p.ne."xyz")) STOP 7 p = s end if end subroutine a |