diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/common_equivalence_1.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/common_equivalence_1.f | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/common_equivalence_1.f b/gcc/testsuite/gfortran.dg/common_equivalence_1.f index 2f15b93a4ae..bea51824f8c 100644 --- a/gcc/testsuite/gfortran.dg/common_equivalence_1.f +++ b/gcc/testsuite/gfortran.dg/common_equivalence_1.f @@ -15,7 +15,7 @@ c integer a(2), b, c, d COMMON /foo/ a EQUIVALENCE (a(1),b), (c, a(2)) - if (b.ne.101) call abort () - if (c.ne.102) call abort () + if (b.ne.101) STOP 1 + if (c.ne.102) STOP 2 END |