specifics_2.f90

来自「用于进行gcc测试」· F90 代码 · 共 82 行

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