diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/module_equivalence_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/module_equivalence_3.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/module_equivalence_3.f90 b/gcc/testsuite/gfortran.dg/module_equivalence_3.f90 index 75b90285a2c..4aa4027a3e0 100644 --- a/gcc/testsuite/gfortran.dg/module_equivalence_3.f90 +++ b/gcc/testsuite/gfortran.dg/module_equivalence_3.f90 @@ -20,17 +20,17 @@ end module aap contains subroutine foo use aap, only : c=>b - if (any(c .ne. b)) call abort () + if (any(c .ne. b)) STOP 1 end subroutine subroutine bar use aap, only : a - if (any(a(3:5) .ne. b)) call abort () + if (any(a(3:5) .ne. b)) STOP 2 end subroutine ! Make sure that bad things do not happen if we do not USE a or b. subroutine foobar use aap, only : d - if (any(d(3:5) .ne. b)) call abort () + if (any(d(3:5) .ne. b)) STOP 3 end subroutine end |