URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [dcomplex.f] - Rev 12
Compare with Previous | Blame | View Log
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