diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/dcomplex.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/dcomplex.f | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/dcomplex.f b/gcc/testsuite/gfortran.dg/g77/dcomplex.f index f25e7c570bd..1d286e63d0a 100644 --- a/gcc/testsuite/gfortran.dg/g77/dcomplex.f +++ b/gcc/testsuite/gfortran.dg/g77/dcomplex.f @@ -4,16 +4,16 @@ c { dg-do run } z0 = dcmplx(0.,.5) z1 = 1./z0 - if (z1 .ne. dcmplx(0.,-2)) call abort + if (z1 .ne. dcmplx(0.,-2)) STOP 1 z0 = 10.*z0 - if (z0 .ne. dcmplx(0.,5.)) call abort + if (z0 .ne. dcmplx(0.,5.)) STOP 2 z2 = cmplx(1.,2.) z1 = z0/z2 - if (z1 .ne. dcmplx(2.,1.)) call abort + if (z1 .ne. dcmplx(2.,1.)) STOP 3 z1 = z0*z2 - if (z1 .ne. dcmplx(-10.,5.)) call abort + if (z1 .ne. dcmplx(-10.,5.)) STOP 4 end |