1! { dg-do compile }
2! This is the list of intrinsics allowed as actual arguments
3 intrinsic abs,acos,acosh,aimag,aint,alog,alog10,amod,anint,asin,asinh,atan,&
4 atan2,atanh,cabs,ccos,cexp,clog,conjg,cos,cosh,csin,csqrt,dabs,dacos,&
5 dacosh,dasin,dasinh,datan,datan2,datanh,dconjg,dcos,dcosh,ddim,dexp,dim,&
6 dimag,dint,dlog,dlog10,dmod,dnint,dprod,dsign,dsin,dsinh,dsqrt,dtan,dtanh,&
7 exp,iabs,idim,idnint,index,isign,len,mod,nint,sign,sin,sinh,sqrt,tan,&
8 tanh,zabs,zcos,zexp,zlog,zsin,zsqrt
9
10  call foo(abs)
11  call foo(acos)
12  call foo(acosh)
13  call foo(aimag)
14  call foo(aint)
15  call foo(alog)
16  call foo(alog10)
17  call foo(amod)
18  call foo(anint)
19  call foo(asin)
20  call foo(asinh)
21  call foo(atan)
22  call foo(atan2)
23  call foo(atanh)
24  call foo(cabs)
25  call foo(ccos)
26  call foo(cexp)
27  call foo(clog)
28  call foo(conjg)
29  call foo(cos)
30  call foo(cosh)
31  call foo(csin)
32  call foo(csqrt)
33  call foo(dabs)
34  call foo(dacos)
35  call foo(dacosh)
36  call foo(dasin)
37  call foo(dasinh)
38  call foo(datan)
39  call foo(datan2)
40  call foo(datanh)
41  call foo(dconjg)
42  call foo(dcos)
43  call foo(dcosh)
44  call foo(ddim)
45  call foo(dexp)
46  call foo(dim)
47  call foo(dimag)
48  call foo(dint)
49  call foo(dlog)
50  call foo(dlog10)
51  call foo(dmod)
52  call foo(dnint)
53  call foo(dprod)
54  call foo(dsign)
55  call foo(dsin)
56  call foo(dsinh)
57  call foo(dsqrt)
58  call foo(dtan)
59  call foo(dtanh)
60  call foo(exp)
61  call foo(iabs)
62  call foo(idim)
63  call foo(idnint)
64  call foo(index)
65  call foo(isign)
66  call foo(len)
67  call foo(mod)
68  call foo(nint)
69  call foo(sign)
70  call foo(sin)
71  call foo(sinh)
72  call foo(sqrt)
73  call foo(tan)
74  call foo(tanh)
75  call foo(zabs)
76  call foo(zcos)
77  call foo(zexp)
78  call foo(zlog)
79  call foo(zsin)
80  call foo(zsqrt)
81  end
82