1 /* BEGIN include file fort_intrinsics.incl.pl1    Created  82-03-30 T. Oke */
 2 /* Modified:
 3 
 4           22 June 84, MM - Install typeless functions support.
 5 */
 6 
 7 /* This include file defines the validation of builtins for use as external */
 8 /* entry references.  This table is independant of whether the function MUST*/
 9 /* be an external reference, and is used where we wish to create a reference*/
10 /* to a builtin to evaluate if such a reference is permissible.             */
11 
12 dcl valid_intrinsic (95) bit (1) unaligned static options (constant) initial (
13 "1"b, "1"b, "1"b, "1"b,  /* 01 abs    02 iabs    03 dabs    04 cabs    */
14 "1"b, "1"b, "1"b, "1"b,  /* 05 alog   06 dlog    07 clog    08 alog10  */
15 "1"b, "1"b, "1"b, "1"b,  /* 09 dlog10 10 atan    11 datan   12 atan2   */
16 "1"b, "1"b, "1"b, "1"b,  /* 13 datan2 14 cos     15 dcos    16 ccos    */
17 "1"b, "1"b, "1"b, "1"b,  /* 17 dim    18 idim    19 ddim    20 exp     */
18 "1"b, "1"b, "0"b, "0"b,  /* 21 dexp   22 cexp    23 max     24 amax0   */
19 "0"b, "0"b, "0"b, "0"b,  /* 25 amax1  26 max0    27 max1    28 dmax1   */
20 "0"b, "0"b, "0"b, "0"b,  /* 29 min    30 amin0   31 amin1   32 min0    */
21 "0"b, "0"b, "1"b, "1"b,  /* 33 min1   34 dmin1   35 mod     36 amod    */
22 "1"b, "1"b, "1"b, "1"b,  /* 37 dmod   38 sign    39 isign   40 dsign   */
23 "1"b, "1"b, "1"b, "1"b,  /* 41 sin    42 dsin    43 csin    44 sqrt    */
24 "1"b, "1"b, "1"b, "0"b,  /* 45 dsqrt  46 csqrt   47 tanh    48 int     */
25 "1"b, "0"b, "0"b, "0"b,  /* 49 aint   50 idint   51 float   52 ifix    */
26 "0"b, "0"b, "1"b, "0"b,  /* 53 sngl   54 real    55 aimag   56 dble    */
27 "0"b, "1"b, "1"b, "1"b,  /* 57 cmplx  58 conj    59 tan     60 dtan    */
28 "1"b, "1"b, "1"b, "1"b,  /* 61 asin   62 dasin   63 acos    64 dacos   */
29 "0"b, "0"b, "1"b, "1"b,  /* 65 char   66 ichar   67 index   68 len     */
30 "0"b, "0"b, "0"b, "0"b,  /* 69 lge    70 lgt     71 lle     72 llt     */
31 "1"b, "1"b, "1"b, "1"b,  /* 73 cosh   74 sinh    75 dcosh   76 dsinh   */
32 "1"b, "1"b, "1"b, "1"b,  /* 77 dtanh  78 dint    79 anint   80 dnint   */
33 "1"b, "1"b, "1"b, "0"b,  /* 81 nint   82 idnint  83 dprod   84 and     */
34 "0"b, "0"b, "0"b, "1"b,  /* 85 bool   86 compl   87 fld     88 ilr     */
35 "1"b, "1"b, "1"b, "0"b,  /* 89 ils    90 irl     91 irs     92 or      */
36 "0"b, "0"b, "0"b);       /* 93 xor    94 xxxxx   95 xxxxx              */
37 /* END include file fort_intrinsics.incl.pl1 */