Subversion Repositories openrisc_me

! { 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