diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/dcomplex.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/dcomplex.f | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/dcomplex.f b/gcc/testsuite/gfortran.dg/g77/dcomplex.f new file mode 100644 index 000000000..f25e7c570 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/dcomplex.f @@ -0,0 +1,19 @@ +c { dg-do run } + program foo + complex(kind=8) z0, z1, z2 + + z0 = dcmplx(0.,.5) + z1 = 1./z0 + if (z1 .ne. dcmplx(0.,-2)) call abort + + z0 = 10.*z0 + if (z0 .ne. dcmplx(0.,5.)) call abort + + z2 = cmplx(1.,2.) + z1 = z0/z2 + if (z1 .ne. dcmplx(2.,1.)) call abort + + z1 = z0*z2 + if (z1 .ne. dcmplx(-10.,5.)) call abort + end + |