diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/dependency_24.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dependency_24.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/dependency_24.f90 b/gcc/testsuite/gfortran.dg/dependency_24.f90 index 81c2be288ac..f6bb53acd42 100644 --- a/gcc/testsuite/gfortran.dg/dependency_24.f90 +++ b/gcc/testsuite/gfortran.dg/dependency_24.f90 @@ -49,10 +49,10 @@ contains where (l) a = p%i ! Comment #1 of PR38863 concerned WHERE assignment end where - if (any (a%j .ne. [101, 102, 103])) call abort + if (any (a%j .ne. [101, 102, 103])) STOP 1 a = p%i ! Ordinary assignment was wrong too. - if (any (a%j .ne. [101, 102, 103])) call abort + if (any (a%j .ne. [101, 102, 103])) STOP 2 end subroutine subroutine test_ti @@ -72,9 +72,9 @@ contains where (l) a = p%i end where - if (any (a%j .ne. 99)) call abort + if (any (a%j .ne. 99)) STOP 3 a = p%i - if (any (a%j .ne. 99)) call abort + if (any (a%j .ne. 99)) STOP 4 end subroutine end |