Subversion Repositories openrisc

! { dg-do compile }

! This is the list of intrinsics allowed as actual arguments

 intrinsic abs,acos,acosh,aimag,aint,alog,alog10,amod,anint,asin,asinh,atan,&

 atan2,atanh,cabs,ccos,cexp,clog,conjg,cos,cosh,csin,csqrt,dabs,dacos,&

 dacosh,dasin,dasinh,datan,datan2,datanh,dconjg,dcos,dcosh,ddim,dexp,dim,&

 dimag,dint,dlog,dlog10,dmod,dnint,dprod,dsign,dsin,dsinh,dsqrt,dtan,dtanh,&

 exp,iabs,idim,idnint,index,isign,len,mod,nint,sign,sin,sinh,sqrt,tan,&

 tanh,zabs,zcos,zexp,zlog,zsin,zsqrt

  call foo(abs)

  call foo(acos)

  call foo(acosh)

  call foo(aimag)

  call foo(aint)

  call foo(alog)

  call foo(alog10)

  call foo(amod)

  call foo(anint)

  call foo(asin)

  call foo(asinh)

  call foo(atan)

  call foo(atan2)

  call foo(atanh)

  call foo(cabs)

  call foo(ccos)

  call foo(cexp)

  call foo(clog)

  call foo(conjg)

  call foo(cos)

  call foo(cosh)

  call foo(csin)

  call foo(csqrt)

  call foo(dabs)

  call foo(dacos)

  call foo(dacosh)

  call foo(dasin)

  call foo(dasinh)

  call foo(datan)

  call foo(datan2)

  call foo(datanh)

  call foo(dconjg)

  call foo(dcos)

  call foo(dcosh)

  call foo(ddim)

  call foo(dexp)

  call foo(dim)

  call foo(dimag)

  call foo(dint)

  call foo(dlog)

  call foo(dlog10)

  call foo(dmod)

  call foo(dnint)

  call foo(dprod)

  call foo(dsign)

  call foo(dsin)

  call foo(dsinh)

  call foo(dsqrt)

  call foo(dtan)

  call foo(dtanh)

  call foo(exp)

  call foo(iabs)

  call foo(idim)

  call foo(idnint)

  call foo(index)

  call foo(isign)

  call foo(len)

  call foo(mod)

  call foo(nint)

  call foo(sign)

  call foo(sin)

  call foo(sinh)

  call foo(sqrt)

  call foo(tan)

  call foo(tanh)

  call foo(zabs)

  call foo(zcos)

  call foo(zexp)

  call foo(zlog)

  call foo(zsin)

  call foo(zsqrt)

  end