URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [dcomplex.f] - Rev 312
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log