1 files changed, 81 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/specifics_2.f90 b/gcc/testsuite/gfortran.dg/specifics_2.f90
new file mode 100644
index 000000000..4de092564
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/specifics_2.f90
@@ -0,0 +1,81 @@
+! { 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