1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
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
|
