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