00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048 static FILE *trace_file;
00049 static char trace_file_name[] = "cft90_trace";
00050 static int trace_indent = 0;
00051 static int const trace_indent_len = 2;
00052
00053 FILE *debug_file;
00054
00055 token_type fake_token;
00056
00057 char *access_str[] = {
00058 "Public",
00059 "Private"
00060 };
00061 char *align_str[] = {
00062 "No_Align",
00063 "Algn_Bit",
00064 "Align_8",
00065 "Align_16",
00066 "Align_32",
00067 "Align_64",
00068 "Double",
00069 "Algn_128"
00070 };
00071
00072 char *atd_class_str[] = {
00073 "Atd_Unknown",
00074 "Variable",
00075 "Dummy_Argument",
00076 "Function_Result",
00077 "Compiler_Tmp",
00078 "Cray_Pointee",
00079 "Struct_Component",
00080 "Constant"
00081 };
00082
00083 char *atl_class_str[] = {
00084 "Lbl_Unknown",
00085 "Lbl_User",
00086 "Lbl_Format",
00087 "Lbl_Internal",
00088 "Lbl_Debug",
00089 "Lbl_Construct"
00090 };
00091
00092 char *atl_debug_class_str[] = {
00093 "Ldbg_None",
00094 "Ldbg_Stmt_Lbl",
00095 "Ldbg_Exit_Point",
00096 "Ldbg_End_Prologue",
00097 "Ldbg_Start_Epilogue",
00098 "Ldbg_Construct_Name",
00099 "Ldbg_Loop_Lbl",
00100 "Ldbg_User_Lbl"
00101 };
00102
00103
00104 char *atp_pgm_unit_str[] = {
00105 "Pgm_Unknown",
00106 "ERROR",
00107 "ERROR",
00108 "Function",
00109 "Subroutine",
00110 "Program",
00111 "Blockdata",
00112 "Module"
00113 };
00114
00115 char *atp_proc_str[] = {
00116 "Unknown_Proc",
00117 "Extern_Proc",
00118 "Intrin_Proc",
00119 "Dummy_Proc",
00120 "Intern_Proc",
00121 "Imported_Proc",
00122 "Module_Proc"
00123 };
00124
00125 char *bd_array_class_str[] = {
00126 "Unknown_Array",
00127 "Explicit_Shape",
00128 "Assumed_Size",
00129 "Deferred_Shape",
00130 "Assumed_Shape"
00131 };
00132
00133 char *bd_array_size_str[] = {
00134 "Unknown_Size",
00135 "Constant_Size",
00136 "Var_Len_Array",
00137 "Symbolic_Constant_Size"
00138 };
00139
00140 char *blk_struct_str[] = {
00141
00142 "Unknown_Blk",
00143 "Blockdata_Blk",
00144 "Module_Blk",
00145 "Main_Program_Blk",
00146 "Function_Blk",
00147 "Subroutine_Blk",
00148 "Internal_Blk",
00149 "Module_Proc_Blk",
00150 "Interface_Body_Blk",
00151 "Do_Blk",
00152 "Forall_Blk",
00153 "If_Blk",
00154 "If_Then_Blk",
00155 "If_Else_If_Blk",
00156 "If_Else_Blk",
00157 "Select_Blk",
00158 "Case_Blk",
00159 "Where_Then_Blk",
00160 "Where_Else_Blk",
00161 "Where_Else_Mask_Blk",
00162 "Parallel_Blk",
00163 "Doall_Blk",
00164 "Do_Parallel_Blk",
00165 "Guard_Blk",
00166 "Parallel_Case_Blk",
00167 "Wait_Blk",
00168 "SGI_Doacross_Blk",
00169 "SGI_Psection_Blk",
00170 "SGI_Section_Blk",
00171 "SGI_Pdo_Blk",
00172 "SGI_Parallel_Do_Blk",
00173 "SGI_Parallel_Blk",
00174 "SGI_Critical_Section_Blk",
00175 "SGI_Single_Process_Blk",
00176 "SGI_Region_Blk",
00177 "Open_Mp_Parallel_Blk",
00178 "Open_Mp_Do_Blk",
00179 "Open_Mp_Parallel_Sections_Blk",
00180 "Open_Mp_Sections_Blk",
00181 "Open_Mp_Section_Blk",
00182 "Open_Mp_Single_Blk",
00183 "Open_Mp_Parallel_Do_Blk",
00184 "Open_Mp_Master_Blk",
00185 "Open_Mp_Critical_Blk",
00186 "Open_Mp_Ordered_Blk",
00187 "Open_Mp_Workshare_Blk",
00188 "Open_Mp_Parallel_Workshare_Blk",
00189 "Contains_Blk",
00190 "Interface_Blk",
00191 "Derived_Type_Blk",
00192 #ifdef KEY
00193 "Enum_Blk"
00194 #endif
00195 };
00196
00197 char *boolean_str[] = {
00198 "F",
00199 "T"
00200 };
00201
00202 char *context_str[] = {
00203 "Init_Stmt_Cat",
00204 "Sub_Func_Stmt_Cat",
00205 "Dir_Integer_Stmt_Cat",
00206 "Use_Stmt_Cat",
00207 #ifdef KEY
00208 "Import_Stmt_Cat",
00209 #endif
00210 "Implicit_None_Stmt_Cat",
00211 "Implicit_Stmt_Cat",
00212 "Declaration_Stmt_Cat",
00213 "Executable_Stmt_Cat",
00214 };
00215
00216 char *cn_hollerith_str[] = {
00217 "Not_Hollerith",
00218 "L_Hollerith",
00219 "H_Hollerith",
00220 "R_Hollerith"
00221 };
00222
00223 char *debug_lvl_str[] = {
00224 "Debug_Lvl_0",
00225 "Debug_Lvl_1",
00226 "Debug_Lvl_2",
00227 "Debug_Lvl_3",
00228 "No_Debugging"
00229 };
00230
00231 char *distribution_str[] = {
00232 "No_Distribution",
00233 "Block_Distribution",
00234 "Cyclic_Distribution",
00235 "Star_Distribution"
00236 };
00237
00238 char *do_type_str[] = {
00239 "Unknown_Loop",
00240 "Iterative_Loop",
00241 "While_Loop",
00242 "Infinite_Loop"
00243 };
00244
00245 char *field_str[] = {
00246 "NO_Tbl_Idx",
00247 "CN_Tbl_Idx",
00248 "SB_Tbl_Idx",
00249 "IL_Tbl_Idx",
00250 "AT_Tbl_Idx",
00251 "SH_Tbl_Idx",
00252 "IR_Tbl_Idx"
00253 };
00254
00255 char *file_path_str[] = {
00256 "Unknown_Fp",
00257 "Directory_Fp",
00258 "File_Fp",
00259 "Mod_File_Fp",
00260 "Archive_File_Fp",
00261 "Elf_File_Fp",
00262 "Module_Fp",
00263 "Current_Compile_Fp",
00264 "Include_Fp",
00265 "Inline_Fp",
00266 "Reshape_Array_Fp",
00267 "Xcoff_Fp"
00268 };
00269
00270 char *implicit_storage_str[] = {
00271 "Impl_Default_Storage",
00272 "Impl_Automatic_Storage",
00273 "Impl_Static_Storage"
00274 };
00275
00276 char *integer_size_str[] = {
00277 "Integer_32",
00278 "Integer_64"
00279 };
00280
00281 char *intent_str[] = {
00282 "Unseen",
00283 "In",
00284 "Out",
00285 "Inout"
00286 };
00287
00288 char *interface_str[] = {
00289 "Generic_Unknown_Interface",
00290 "Generic_Function_Interface",
00291 "Generic_Subroutine_Interface",
00292 "Defined_Interface",
00293 "Defined_Assign_Interface",
00294 "Defined_Unary_Interface",
00295 "Defined_Binary_Interface",
00296 "Defined_Unary_Or_Binary_Interface"
00297 };
00298
00299 char *intrin_str[] = {
00300 "Unknown_Intrinsic",
00301 "Abs_Intrinsic",
00302 "Achar_Intrinsic",
00303 "Acos_Intrinsic",
00304 "Acosd_Intrinsic",
00305 "Add_And_Fetch_Intrinsic",
00306 "Adjustl_Intrinsic",
00307 "Adjustr_Intrinsic",
00308 "Aimag_Intrinsic",
00309 "Aint_Intrinsic",
00310 "All_Intrinsic",
00311 "Allocated_Intrinsic",
00312 "Alog_Intrinsic",
00313 "Alog10_Intrinsic",
00314 "Amax0_Intrinsic",
00315 "Amax1_Intrinsic",
00316 "Amin0_Intrinsic",
00317 "Amin1_Intrinsic",
00318 "Amod_Intrinsic",
00319 "And_Intrinsic",
00320 "And_And_Fetch_Intrinsic",
00321 "Anint_Intrinsic",
00322 "Any_Intrinsic",
00323 "Asin_Intrinsic",
00324 "Asind_Intrinsic",
00325 "Associated_Intrinsic",
00326 "Atan_Intrinsic",
00327 "Atan2_Intrinsic",
00328 "Atan2d_Intrinsic",
00329 "Atand_Intrinsic",
00330 "Bitest_Intrinsic",
00331 "Bit_Size_Intrinsic",
00332 "Bjtest_Intrinsic",
00333 "Bktest_Intrinsic",
00334 "Btest_Intrinsic",
00335 "Cabs_Intrinsic",
00336 "Ccos_Intrinsic",
00337 "Cdabs_Intrinsic",
00338 "Cdcos_Intrinsic",
00339 "Cdexp_Intrinsic",
00340 "Cdlog_Intrinsic",
00341 "Cdsin_Intrinsic",
00342 "Cdsqrt_Intrinsic",
00343 "Ceiling_Intrinsic",
00344 "Cexp_Intrinsic",
00345 "Char_Intrinsic",
00346 "Clear_Ieee_Exception_Intrinsic",
00347 "Cloc_Intrinsic",
00348 "Clock_Intrinsic",
00349 "Clog_Intrinsic",
00350 "Cmplx_Intrinsic",
00351 "Compare_And_Swap_Intrinsic",
00352 "Compl_Intrinsic",
00353 "Conjg_Intrinsic",
00354 "Cos_Intrinsic",
00355 "Cosd_Intrinsic",
00356 "Cosh_Intrinsic",
00357 "Cot_Intrinsic",
00358 "Count_Intrinsic",
00359 "Cputime_Intrinsic",
00360 "Cqabs_Intrinsic",
00361 "Cqcos_Intrinsic",
00362 "Cqexp_Intrinsic",
00363 "Cqlog_Intrinsic",
00364 "Cqsin_Intrinsic",
00365 "Cqsqrt_Intrinsic",
00366 "Cshift_Intrinsic",
00367 "Csin_Intrinsic",
00368 "Csmg_Intrinsic",
00369 "Csqrt_Intrinsic",
00370 "Cvmgm_Intrinsic",
00371 "Cvmgn_Intrinsic",
00372 "Cvmgp_Intrinsic",
00373 "Cvmgt_Intrinsic",
00374 "Cvmgz_Intrinsic",
00375 #ifdef KEY
00376 "C_F_Pointer_Intrinsic",
00377 "C_F_Procpointer_Intrinsic",
00378 "C_Funloc_Intrinsic",
00379 "C_Loc_Iso_Intrinsic",
00380 #endif
00381 "C_Loc_Intrinsic",
00382 "Dabs_Intrinsic",
00383 "Dacos_Intrinsic",
00384 "Dacosd_Intrinsic",
00385 "Dasin_Intrinsic",
00386 "Dasind_Intrinsic",
00387 "Datan_Intrinsic",
00388 "Datan2_Intrinsic",
00389 "Datan2d_Intrinsic",
00390 "Datand_Intrinsic",
00391 "Date_Intrinsic",
00392 "Date_And_Time_Intrinsic",
00393 "Dble_Intrinsic",
00394 "Dbleq_Intrinsic",
00395 "Dcmplx_Intrinsic",
00396 "Dconjg_Intrinsic",
00397 "Dcos_Intrinsic",
00398 "Dcosd_Intrinsic",
00399 "Dcosh_Intrinsic",
00400 "Dcot_Intrinsic",
00401 "Ddim_Intrinsic",
00402 #ifdef KEY
00403 "Derf_Intrinsic",
00404 "Derfc_Intrinsic",
00405 #endif
00406 "Dexp_Intrinsic",
00407 "Dfloat_Intrinsic",
00408 "Dfloati_Intrinsic",
00409 "Dfloatj_Intrinsic",
00410 "Dfloatk_Intrinsic",
00411 "Digits_Intrinsic",
00412 "Dim_Intrinsic",
00413 "Dimag_Intrinsic",
00414 "Dint_Intrinsic",
00415 "Disable_Ieee_Interrupt_Intrinsic",
00416 "Dlog_Intrinsic",
00417 "Dlog10_Intrinsic",
00418 "Dmax1_Intrinsic",
00419 "Dmin1_Intrinsic",
00420 "Dmod_Intrinsic",
00421 "Dnint_Intrinsic",
00422 "Dot_Product_Intrinsic",
00423 "Dprod_Intrinsic",
00424 "Dreal_Intrinsic",
00425 "Dshiftl_Intrinsic",
00426 "Dshiftr_Intrinsic",
00427 "Dsign_Intrinsic",
00428 "Dsin_Intrinsic",
00429 "Dsind_Intrinsic",
00430 "Dsinh_Intrinsic",
00431 "DSM_Chunksize_Intrinsic",
00432 "DSM_Distribution_Block_Intrinsic",
00433 "DSM_Distribution_Cyclic_Intrinsic",
00434 "DSM_Distribution_Star_Intrinsic",
00435 "DSM_Isdistributed_Intrinsic",
00436 "DSM_Isreshaped_Intrinsic",
00437 "DSM_Numchunks_Intrinsic",
00438 "DSM_Numthreads_Intrinsic",
00439 "DSM_Rem_Chunksize_Intrinsic",
00440 "DSM_This_Chunksize_Intrinsic",
00441 "DSM_This_Startingindex_Intrinsic",
00442 "DSM_This_Threadnum_Intrinsic",
00443 "Dsqrt_Intrinsic",
00444 "Dtan_Intrinsic",
00445 "Dtand_Intrinsic",
00446 "Dtanh_Intrinsic",
00447 # ifdef KEY
00448 "Dtime_Intrinsic",
00449 # endif
00450 "Enable_Ieee_Interrupt_Intrinsic",
00451 "Eoshift_Intrinsic",
00452 "Epsilon_Intrinsic",
00453 "Eqv_Intrinsic",
00454 #ifdef KEY
00455 "Erf_Intrinsic",
00456 "Erfc_Intrinsic",
00457 #endif
00458 #ifdef KEY
00459 "Etime_Intrinsic",
00460 #endif
00461 "Exit_Intrinsic",
00462 "Exp_Intrinsic",
00463 "Exponent_Intrinsic",
00464 "Fcd_Intrinsic",
00465 # ifdef KEY
00466 "Fdate_Intrinsic",
00467 # endif
00468 "Fetch_And_Add_Intrinsic",
00469 "Fetch_And_And_Intrinsic",
00470 "Fetch_And_Nand_Intrinsic",
00471 "Fetch_And_Or_Intrinsic",
00472 "Fetch_And_Sub_Intrinsic",
00473 "Fetch_And_Xor_Intrinsic",
00474 "Float_Intrinsic",
00475 "Floati_Intrinsic",
00476 "Floatj_Intrinsic",
00477 "Floatk_Intrinsic",
00478 "Floor_Intrinsic",
00479 # ifdef KEY
00480 "Fnum_Intrinsic",
00481 # endif
00482 "Fp_Class_Intrinsic",
00483 "Fraction_Intrinsic",
00484 "Free_Intrinsic",
00485 #ifdef KEY
00486 "Fstat_Intrinsic",
00487 #endif
00488 "Getpos_Intrinsic",
00489 "Get_Ieee_Exceptions_Intrinsic",
00490 "Get_Ieee_Interrupts_Intrinsic",
00491 "Get_Ieee_Rounding_Mode_Intrinsic",
00492 "Get_Ieee_Status_Intrinsic",
00493 "Huge_Intrinsic",
00494 "Iabs_Intrinsic",
00495 "Iachar_Intrinsic",
00496 "Iand_Intrinsic",
00497 "Ibchng_Intrinsic",
00498 "Ibclr_Intrinsic",
00499 "Ibits_Intrinsic",
00500 "Ibset_Intrinsic",
00501 "Ichar_Intrinsic",
00502 "Idate_Intrinsic",
00503 "Idim_Intrinsic",
00504 "Idint_Intrinsic",
00505 "Idnint_Intrinsic",
00506 "Ieee_Binary_Scale_Intrinsic",
00507 "Ieee_Class_Intrinsic",
00508 "Ieee_Copy_Sign_Intrinsic",
00509 "Ieee_Exponent_Intrinsic",
00510 "Ieee_Finite_Intrinsic",
00511 "Ieee_Int_Intrinsic",
00512 "Ieee_Is_Nan_Intrinsic",
00513 "Ieee_Next_After_Intrinsic",
00514 "Ieee_Real_Intrinsic",
00515 "Ieee_Remainder_Intrinsic",
00516 "Ieee_Unordered_Intrinsic",
00517 "Ieor_Intrinsic",
00518 "Ifix_Intrinsic",
00519 "Iiabs_Intrinsic",
00520 "Iiand_Intrinsic",
00521 #ifdef KEY
00522 "Iibchng_Intrinsic",
00523 #endif
00524 "Iibclr_Intrinsic",
00525 "Iibits_Intrinsic",
00526 "Iibset_Intrinsic",
00527 "Iidim_Intrinsic",
00528 "Iidint_Intrinsic",
00529 "Iieor_Intrinsic",
00530 "Iifix_Intrinsic",
00531 "Iint_Intrinsic",
00532 "Iior_Intrinsic",
00533 "Iiqint_Intrinsic",
00534 "Iisha_Intrinsic",
00535 "Iishc_Intrinsic",
00536 "Iishft_Intrinsic",
00537 "Iishftc_Intrinsic",
00538 "Iishl_Intrinsic",
00539 "Iisign_Intrinsic",
00540 "Ilen_Intrinsic",
00541 "Imag_Intrinsic",
00542 "Imod_Intrinsic",
00543 "Imvbits_Intrinsic",
00544 "Index_Intrinsic",
00545 "Inint_Intrinsic",
00546 "Inot_Intrinsic",
00547 "Int_Intrinsic",
00548 "Int1_Intrinsic",
00549 "Int2_Intrinsic",
00550 "Int4_Intrinsic",
00551 "Int8_Intrinsic",
00552 "Int_Mult_Upper_Intrinsic",
00553 "Ior_Intrinsic",
00554 "Iqint_Intrinsic",
00555 "Iqnint_Intrinsic",
00556 "Irtc_Intrinsic",
00557 "Isha_Intrinsic",
00558 "Ishc_Intrinsic",
00559 "Ishft_Intrinsic",
00560 "Ishftc_Intrinsic",
00561 "Ishl_Intrinsic",
00562 "Isign_Intrinsic",
00563 "Isnan_Intrinsic",
00564 "Jdate_Intrinsic",
00565 "Jiabs_Intrinsic",
00566 "Jiand_Intrinsic",
00567 #ifdef KEY
00568 "Jibchng_Intrinsic",
00569 #endif
00570 "Jibclr_Intrinsic",
00571 "Jibits_Intrinsic",
00572 "Jibset_Intrinsic",
00573 "Jidim_Intrinsic",
00574 "Jidint_Intrinsic",
00575 "Jieor_Intrinsic",
00576 "Jifix_Intrinsic",
00577 "Jint_Intrinsic",
00578 "Jior_Intrinsic",
00579 "Jiqint_Intrinsic",
00580 "Jisha_Intrinsic",
00581 "Jishc_Intrinsic",
00582 "Jishft_Intrinsic",
00583 "Jishftc_Intrinsic",
00584 "Jishl_Intrinsic",
00585 "Jisign_Intrinsic",
00586 "Jmod_Intrinsic",
00587 "Jmvbits_Intrinsic",
00588 "Jnint_Intrinsic",
00589 "Jnot_Intrinsic",
00590 "Kiabs_Intrinsic",
00591 "Kiand_Intrinsic",
00592 #ifdef KEY
00593 "Kibchng_Intrinsic",
00594 #endif
00595 "Kibclr_Intrinsic",
00596 "Kibits_Intrinsic",
00597 "Kibset_Intrinsic",
00598 "Kidim_Intrinsic",
00599 "Kidint_Intrinsic",
00600 "Kieor_Intrinsic",
00601 "Kifix_Intrinsic",
00602 #ifdef KEY
00603 "Kill_Intrinsic",
00604 #endif
00605 "Kind_Intrinsic",
00606 "Kint_Intrinsic",
00607 "Kior_Intrinsic",
00608 "Kiqint_Intrinsic",
00609 "Kisha_Intrinsic",
00610 "Kishc_Intrinsic",
00611 "Kishft_Intrinsic",
00612 "Kishftc_Intrinsic",
00613 "Kishl_Intrinsic",
00614 "Kisign_Intrinsic",
00615 "Kmod_Intrinsic",
00616 "Kmvbits_Intrinsic",
00617 "Knint_Intrinsic",
00618 "Knot_Intrinsic",
00619 "Lbound_Intrinsic",
00620 "Leadz_Intrinsic",
00621 "Len_Intrinsic",
00622 "Length_Intrinsic",
00623 "Len_Trim_Intrinsic",
00624 #ifndef KEY
00625 "Length_Intrinsic",
00626 #endif
00627 "Lge_Intrinsic",
00628 "Lgt_Intrinsic",
00629 "Lle_Intrinsic",
00630 "Llt_Intrinsic",
00631 "Loc_Intrinsic",
00632 "Lock_Release_Intrinsic",
00633 "Lock_Test_And_Set_Intrinsic",
00634 "Log_Intrinsic",
00635 "Log10_Intrinsic",
00636 "Log2_Images_Intrinsic",
00637 "Logical_Intrinsic",
00638 "Long_Intrinsic",
00639 "Lshift_Intrinsic",
00640 "M@clr_Intrinsic",
00641 "M@ld_Intrinsic",
00642 "M@ldmx_Intrinsic",
00643 "M@mx_Intrinsic",
00644 "M@ul_Intrinsic",
00645 "Malloc_Intrinsic",
00646 "Mask_Intrinsic",
00647 "Matmul_Intrinsic",
00648 "Max_Intrinsic",
00649 "Max0_Intrinsic",
00650 "Max1_Intrinsic",
00651 "Maxexponent_Intrinsic",
00652 "Maxloc_Intrinsic",
00653 "Maxval_Intrinsic",
00654 "Memory_Barrier_Intrinsic",
00655 "Merge_Intrinsic",
00656 "Min_Intrinsic",
00657 "Min0_Intrinsic",
00658 "Min1_Intrinsic",
00659 "Minexponent_Intrinsic",
00660 "Minloc_Intrinsic",
00661 "Minval_Intrinsic",
00662 "Mod_Intrinsic",
00663 "Modulo_Intrinsic",
00664 "Mvbits_Intrinsic",
00665 "My_Pe_Intrinsic",
00666 "Nand_And_Fetch_Intrinsic",
00667 "Nearest_Intrinsic",
00668 "Neqv_Intrinsic",
00669 "Nint_Intrinsic",
00670 "Not_Intrinsic",
00671 "Null_Intrinsic",
00672 "Numarg_Intrinsic",
00673 "Num_Images_Intrinsic",
00674 #ifdef KEY
00675 "Omp_Destroy_Lock_Intrinsic",
00676 "Omp_Destroy_Nest_Lock_Intrinsic",
00677 #endif
00678 "Omp_Get_Dynamic_Intrinsic",
00679 "Omp_Get_Max_Threads_Intrinsic",
00680 "Omp_Get_Nested_Intrinsic",
00681 "Omp_Get_Num_Procs_Intrinsic",
00682 "Omp_Get_Num_Threads_Intrinsic",
00683 "Omp_Get_Thread_Num_Intrinsic",
00684 #ifdef KEY
00685 "Omp_Get_Wtick_Intrinsic",
00686 "Omp_Get_Wtime_Intrinsic",
00687 "Omp_Init_Lock_Intrinsic",
00688 "Omp_Init_Nest_Lock_Intrinsic",
00689 #endif
00690 "Omp_In_Parallel_Intrinsic",
00691 "Omp_Set_Lock_Intrinsic",
00692 #ifdef KEY
00693 "Omp_Set_Nest_Lock_Intrinsic",
00694 #endif
00695 "Omp_Test_Lock_Intrinsic",
00696 #ifdef KEY
00697 "Omp_Test_Nest_Lock_Intrinsic",
00698 #endif
00699 "Omp_Unset_Lock_Intrinsic",
00700 #ifdef KEY
00701 "Omp_Unset_Nest_Lock_Intrinsic",
00702 #endif
00703 "Or_Intrinsic",
00704 "Or_And_Fetch_Intrinsic",
00705 "Pack_Intrinsic",
00706 "Popcnt_Intrinsic",
00707 "Poppar_Intrinsic",
00708 "Precision_Intrinsic",
00709 "Present_Intrinsic",
00710 "Product_Intrinsic",
00711 "Qabs_Intrinsic",
00712 "Qacos_Intrinsic",
00713 "Qacosd_Intrinsic",
00714 "Qasin_Intrinsic",
00715 "Qasind_Intrinsic",
00716 "Qatan_Intrinsic",
00717 "Qatan2_Intrinsic",
00718 "Qatan2d_Intrinsic",
00719 "Qatand_Intrinsic",
00720 "Qcmplx_Intrinsic",
00721 "Qcos_Intrinsic",
00722 "Qcosd_Intrinsic",
00723 "Qcosh_Intrinsic",
00724 "Qcot_Intrinsic",
00725 "Qdim_Intrinsic",
00726 "Qexp_Intrinsic",
00727 "Qext_Intrinsic",
00728 "Qfloat_Intrinsic",
00729 "Qfloati_Intrinsic",
00730 "Qfloatj_Intrinsic",
00731 "Qfloatk_Intrinsic",
00732 "Qimag_Intrinsic",
00733 "Qint_Intrinsic",
00734 "Qlog_Intrinsic",
00735 "Qlog10_Intrinsic",
00736 "Qmod_Intrinsic",
00737 "Qnint_Intrinsic",
00738 "Qprod_Intrinsic",
00739 "Qreal_Intrinsic",
00740 "Qsign_Intrinsic",
00741 "Qsin_Intrinsic",
00742 "Qsind_Intrinsic",
00743 "Qsinh_Intrinsic",
00744 "Qsqrt_Intrinsic",
00745 "Qtan_Intrinsic",
00746 "Qtand_Intrinsic",
00747 "Qtanh_Intrinsic",
00748 "Radix_Intrinsic",
00749 "Ran_Intrinsic",
00750 "Random_Number_Intrinsic",
00751 "Random_Seed_Intrinsic",
00752 "Randu_Intrinsic",
00753 "Ranf_Intrinsic",
00754 "Range_Intrinsic",
00755 "Ranget_Intrinsic",
00756 "Ranset_Intrinsic",
00757 "Read@sm_Intrinsic",
00758 "Real_Intrinsic",
00759 "Remote_Write_Barrier_Intrinsic",
00760 "Rem_Images_Intrinsic",
00761 "Repeat_Intrinsic",
00762 "Reshape_Intrinsic",
00763 "Rrspacing_Intrinsic",
00764 "Rshift_Intrinsic",
00765 "Rtc_Intrinsic",
00766 "Scale_Intrinsic",
00767 "Scan_Intrinsic",
00768 "SIK_Intrinsic",
00769 "SRK_Intrinsic",
00770 "Set_Exponent_Intrinsic",
00771 "Set_Ieee_Exception_Intrinsic",
00772 "Set_Ieee_Exceptions_Intrinsic",
00773 "Set_Ieee_Interrupts_Intrinsic",
00774 "Set_Ieee_Rounding_Mode_Intrinsic",
00775 "Set_Ieee_Status_Intrinsic",
00776 "Shape_Intrinsic",
00777 "Shift_Intrinsic",
00778 "Shifta_Intrinsic",
00779 "Shiftl_Intrinsic",
00780 "Shiftr_Intrinsic",
00781 "Short_Intrinsic",
00782 "Sign_Intrinsic",
00783 #ifdef KEY
00784 "Signal_Intrinsic",
00785 #endif
00786 "Sin_Intrinsic",
00787 "Sind_Intrinsic",
00788 "Sinh_Intrinsic",
00789 "Size_Intrinsic",
00790 "Sizeof_Intrinsic",
00791 "Sngl_Intrinsic",
00792 "Snglq_Intrinsic",
00793 "Spacing_Intrinsic",
00794 "Spread_Intrinsic",
00795 "Sqrt_Intrinsic",
00796 #ifdef KEY
00797 "Stat_Intrinsic",
00798 #endif
00799 "Sub_And_Fetch_Intrinsic",
00800 "Sum_Intrinsic",
00801 "Synchronize_Intrinsic",
00802 "Sync_Images_Intrinsic",
00803 "System_Clock_Intrinsic",
00804 "Tan_Intrinsic",
00805 "Tand_Intrinsic",
00806 "Tanh_Intrinsic",
00807 "Test_Ieee_Exception_Intrinsic",
00808 "Test_Ieee_Interrupt_Intrinsic",
00809 "This_Image_Intrinsic",
00810 "Time_Intrinsic",
00811 #ifdef KEY
00812 "Time4_Intrinsic",
00813 "Time8_Intrinsic",
00814 #endif
00815 "Tiny_Intrinsic",
00816 "Transfer_Intrinsic",
00817 "Transpose_Intrinsic",
00818 "Trim_Intrinsic",
00819 "Ubound_Intrinsic",
00820 "Unit_Intrinsic",
00821 "Unpack_Intrinsic",
00822 "Verify_Intrinsic",
00823 "Write_Memory_Barrier_Intrinsic",
00824 "Xor_Intrinsic",
00825 "Xor_And_Fetch_Intrinsic",
00826 # ifdef KEY
00827 "Zabs_Intrinsic",
00828 "Zcos_Intrinsic",
00829 "Zexp_Intrinsic",
00830 "Zlog_Intrinsic",
00831 "Zsin_Intrinsic",
00832 "Zsqrt_Intrinsic",
00833 # endif
00834 #ifdef KEY
00835 "Pathf90_Intrinsic",
00836 #endif
00837 #ifdef KEY
00838 "True_Intrinsic",
00839 "Support_Uflow_Intrinsic",
00840 #endif
00841 #ifdef KEY
00842 "Newline_Intrinsic"
00843 #endif
00844 };
00845
00846 char *msg_lvl_str[] = {
00847 "Comment_Lvl",
00848 "Note_Lvl",
00849 "Caution_Lvl",
00850 "Warning_Lvl",
00851 "Error_Lvl"
00852 };
00853
00854 char *obj_class_str[] = {
00855 "Data_Obj",
00856 "Pgm_Unit",
00857 "Label",
00858 "Derived_Type",
00859 "Interface",
00860 "Namelist_Grp",
00861 "Stmt_Func"
00862 };
00863
00864 char *operator_str[] = {
00865 "Null_Opr",
00866 "Defined_Un_Opr",
00867 "Alloc_Opr",
00868 "SSD_Alloc_Opr",
00869 "Cvrt_Opr",
00870 "Dealloc_Opr",
00871 "Power_Opr",
00872 "Mult_Opr",
00873 "Div_Opr",
00874 "Uplus_Opr",
00875 "Uminus_Opr",
00876 "Plus_Opr",
00877 "Minus_Opr",
00878 "Concat_Opr",
00879 "Eq_Opr",
00880 "Ne_Opr",
00881 "Lt_Opr",
00882 "Le_Opr",
00883 "Gt_Opr",
00884 "Ge_Opr",
00885 "Not_Opr",
00886 "Bnot_Opr",
00887 "And_Opr",
00888 "Or_Opr",
00889 "Bor_Opr",
00890 "Eqv_Opr",
00891 "Beqv_Opr",
00892 "Neqv_Opr",
00893 "Bneqv_Opr",
00894 "Abs_Opr",
00895 "Cos_Opr",
00896 "Sin_Opr",
00897 "Log_E_Opr",
00898 "Log_10_Opr",
00899 "Tan_Opr",
00900 "Tanh_Opr",
00901 "Sinh_Opr",
00902 "Acos_Opr",
00903 "Asin_Opr",
00904 "Atan_Opr",
00905 "Cosh_Opr",
00906 "Atan2_Opr",
00907 "Aimag_Opr",
00908 "Sqrt_Opr",
00909 "Cot_Opr",
00910 "Exp_Opr",
00911 "Int_Opr",
00912 "Band_Opr",
00913 "Mod_Opr",
00914 "Anint_Opr",
00915 "Nint_Opr",
00916 "Sign_Opr",
00917 "Modulo_Opr",
00918 "Shift_Opr",
00919 "Shiftl_Opr",
00920 "Shiftr_Opr",
00921 "Leadz_Opr",
00922 "Popcnt_Opr",
00923 "Poppar_Opr",
00924 "Aint_Opr",
00925 "Dim_Opr",
00926 "Ranget_Opr",
00927 "Ranset_Opr",
00928 "Ranf_Opr",
00929 "Real_Opr",
00930 "Dble_Opr",
00931 "Mask_Opr",
00932 "Conjg_Opr",
00933 "Dprod_Opr",
00934 "I24mult_Opr",
00935 "Length_Opr",
00936 "Getpos_Opr",
00937 "Unit_Opr",
00938 "Cmplx_Opr",
00939 "Ichar_Opr",
00940 "Char_Opr",
00941 "Lint_Opr",
00942 "Index_Opr",
00943 "Lge_Opr",
00944 "Lgt_Opr",
00945 "Lle_Opr",
00946 "Llt_Opr",
00947 "Fcd_Opr",
00948 "Numarg_Opr",
00949 "Rtc_Opr",
00950 "Cvmgp_Opr",
00951 "Cvmgm_Opr",
00952 "Cvmgz_Opr",
00953 "Cvmgn_Opr",
00954 "Cvmgt_Opr",
00955 "Csmg_Opr",
00956 "Adjustl_Opr",
00957 "Adjustr_Opr",
00958 "Ceiling_Opr",
00959 "Exponent_Opr",
00960 "Floor_Opr",
00961 "Fraction_Opr",
00962 "Spacing_Opr",
00963 "Logical_Opr",
00964 "Nearest_Opr",
00965 "Rrspacing_Opr",
00966 "Scale_Opr",
00967 "Scan_Opr",
00968 "Set_Exponent_Opr",
00969 "Verify_Opr",
00970 "Len_Trim_Opr",
00971 "Dshiftl_Opr",
00972 "Dshiftr_Opr",
00973 "Mmx_Opr",
00974 "Mldmx_Opr",
00975 "Mld_Opr",
00976 "Mul_Opr",
00977 "Mcbl_Opr",
00978 "Cshift_Opr",
00979 "Dot_Product_Opr",
00980 "Matmul_Opr",
00981 "Spread_Opr",
00982 "Transpose_Opr",
00983 "All_Opr",
00984 "Any_Opr",
00985 "Count_Opr",
00986 "Product_Opr",
00987 "Sum_Opr",
00988 "Eoshift_Opr",
00989 "Maxval_Opr",
00990 "Minval_Opr",
00991 "Maxloc_Opr",
00992 "Minloc_Opr",
00993 "Reshape_Opr",
00994 "SRK_Opr",
00995 "SIK_Opr",
00996 "Repeat_Opr",
00997 "Trim_Opr",
00998 "Transfer_Opr",
00999 "Defined_Bin_Opr",
01000 "Asg_Opr",
01001 "Call_Opr",
01002 "Alt_Return_Opr",
01003 "Case_Opr",
01004 "Allocate_Opr",
01005 "Deallocate_Opr",
01006 "End_Opr",
01007 "Entry_Opr",
01008 "Nullify_Opr",
01009 "Pause_Opr",
01010 "Ptr_Asg_Opr",
01011 "Flat_Array_Asg_Opr",
01012 "Return_Opr",
01013 "Select_Opr",
01014 "Stmt_Func_Call_Opr",
01015 "Stop_Opr",
01016 "Max_Opr",
01017 "Min_Opr",
01018 "Read_Formatted_Opr",
01019 "Read_Unformatted_Opr",
01020 "Read_Namelist_Opr",
01021 "Write_Formatted_Opr",
01022 "Write_Unformatted_Opr",
01023 "Write_Namelist_Opr",
01024 "Inquire_Iolength_Opr",
01025 "Dv_Whole_Copy_Opr",
01026 "Dv_Whole_Def_Opr",
01027 "Dv_Def_Asg_Opr",
01028 "Dv_Deref_Opr",
01029 "Dv_Access_Base_Addr",
01030 "Dv_Set_Base_Addr",
01031 "Dv_Access_El_Len",
01032 "Dv_Set_El_Len",
01033 "Dv_Access_Assoc",
01034 "Dv_Set_Assoc",
01035 "Dv_Access_Ptr_Alloc",
01036 "Dv_Set_Ptr_Alloc",
01037 "Dv_Access_P_Or_A",
01038 "Dv_Set_P_Or_A",
01039 "Dv_Access_A_Contig",
01040 "Dv_Set_A_Contig",
01041 "Dv_Access_N_Dim",
01042 "Dv_Set_N_Dim",
01043 "Dv_Access_Typ_Code",
01044 "Dv_Set_Typ_Code",
01045 "Dv_Access_Orig_Base",
01046 "Dv_Set_Orig_Base",
01047 "Dv_Access_Orig_Size",
01048 "Dv_Set_Orig_Size",
01049 "Dv_Access_Low_Bound",
01050 "Dv_Set_Low_Bound",
01051 "Dv_Access_Extent",
01052 "Dv_Set_Extent",
01053 "Dv_Access_Stride_Mult",
01054 "Dv_Set_Stride_Mult",
01055
01056 "Br_Aif_Opr",
01057 "Br_Asg_Opr",
01058 "Br_Index_Opr",
01059 "Br_True_Opr",
01060 "Br_Uncond_Opr",
01061 "Case_Range_Opr",
01062 "Implied_Do_Opr",
01063 "Kwd_Opr",
01064 "Percent_Val_Opr",
01065 "Loc_Opr",
01066 "Aloc_Opr",
01067 "Const_Tmp_Loc_Opr",
01068 "Present_Opr",
01069 "Argchck_Present_Opr",
01070 "Argchck_Loc_Opr",
01071 "Len_Opr",
01072 "Clen_Opr",
01073 "Paren_Opr",
01074 "Struct_Opr",
01075 "Struct_Construct_Opr",
01076 "Array_Construct_Opr",
01077 "Constant_Struct_Construct_Opr",
01078 "Constant_Array_Construct_Opr",
01079 "Subscript_Opr",
01080 "Whole_Subscript_Opr",
01081 "Section_Subscript_Opr",
01082 "Alloc_Obj_Opr",
01083 "Dealloc_Obj_Opr",
01084 "Substring_Opr",
01085 "Whole_Substring_Opr",
01086 "Triplet_Opr",
01087 "Label_Opr",
01088 "Loop_Info_Opr",
01089 "Loop_End_Opr",
01090 "Init_Opr",
01091 "Init_Reloc_Opr",
01092 "Use_Opr",
01093 "Where_Opr",
01094 "Real_Div_To_Int_Opr",
01095 "Readsm_Opr",
01096 "Memory_Barrier_Opr",
01097 "Remote_Write_Barrier_Opr",
01098 "Write_Memory_Barrier_Opr",
01099
01100 "Suppress_Opr",
01101
01102 "Align_Cdir_Opr",
01103 "Bl_Cdir_Opr",
01104 "Bounds_Cdir_Opr",
01105 "Cachealign_Cdir_Opr",
01106 "Inline_Cdir_Opr",
01107 "Ivdep_Cdir_Opr",
01108 "Nextscalar_Cdir_Opr",
01109 "Nobl_Cdir_Opr",
01110 "Nobounds_Cdir_Opr",
01111 "Noinline_Cdir_Opr",
01112 "Norecurrence_Cdir_Opr",
01113 "Nosplit_Cdir_Opr",
01114 "Notask_Cdir_Opr",
01115 "Nounroll_Cdir_Opr",
01116 "Novector_Cdir_Opr",
01117 "Novsearch_Cdir_Opr",
01118 "Prefertask_Cdir_Opr",
01119 "Prefervector_Cdir_Opr",
01120 "Recurrence_Cdir_Opr",
01121 "Shortloop_Cdir_Opr",
01122 "Shortloop128_Cdir_Opr",
01123 "Split_Cdir_Opr",
01124 "Task_Cdir_Opr",
01125 "Unroll_Cdir_Opr",
01126 "Vector_Cdir_Opr",
01127 "Vsearch_Cdir_Opr",
01128
01129 "Case_Cmic_Opr",
01130 "Endcase_Cmic_Opr",
01131 "Cncall_Cmic_Opr",
01132 "Continue_Cmic_Opr",
01133 "Doall_Cmic_Opr",
01134 "Doparallel_Cmic_Opr",
01135 "Enddo_Cmic_Opr",
01136 "Guard_Cmic_Opr",
01137 "Endguard_Cmic_Opr",
01138 "REMOVED_Opr",
01139 "Numcpus_Cmic_Opr",
01140 "Parallel_Cmic_Opr",
01141 "Endparallel_Cmic_Opr",
01142 "Permutation_Cmic_Opr",
01143 "Taskcommon_Cmic_Opr",
01144 "Wait_Cmic_Opr",
01145 "Send_Cmic_Opr",
01146 "My_Pe_Opr",
01147 "Ieee_Unordered_Opr",
01148 "Ieee_Next_After_Opr",
01149 "Ieee_Remainder_Opr",
01150 "Ieee_Exponent_Opr",
01151 "Ieee_Copy_Sign_Opr",
01152 "Ieee_Int_Opr",
01153 "Ieee_Real_Opr",
01154 "Ieee_Finite_Opr",
01155 "Ieee_Is_Nan_Opr",
01156 "Ieee_Class_Opr",
01157 "Ieee_Binary_Scale_Opr",
01158 "Int_Mult_Upper_Opr",
01159 "Get_Ieee_Status_Opr",
01160 "Set_Ieee_Status_Opr",
01161 "Get_Ieee_Exceptions_Opr",
01162 "Set_Ieee_Exceptions_Opr",
01163 "Get_Ieee_Interrupts_Opr",
01164 "Set_Ieee_Interrupts_Opr",
01165 "Get_Ieee_Rounding_Mode_Opr",
01166 "Set_Ieee_Rounding_Mode_Opr",
01167 "Test_Ieee_Interrupt_Opr",
01168 "Test_Ieee_Exception_Opr",
01169 "Set_Ieee_Exception_Opr",
01170 "Clear_Ieee_Exception_Opr",
01171 "Enable_Ieee_Interrupt_Opr",
01172 "Disable_Ieee_Interrupt_Opr",
01173 "Cvrt_Unsigned_Opr",
01174 "SSD_Dealloc_Opr",
01175
01176 "Symbolic_Mult_Opr",
01177 "Symbolic_Div_Opr",
01178 "Symbolic_Uplus_Opr",
01179 "Symbolic_Uminus_Opr",
01180 "Symbolic_Plus_Opr",
01181 "Symbolic_Minus_Opr",
01182 "Symbolic_Max_Opr",
01183
01184 "Rep_Count_Opr",
01185 "Lg_Opr",
01186 "Shifta_Opr",
01187
01188 "Symbolic_Mod_Opr",
01189 "Symbolic_Shiftr_Opr",
01190 "Symbolic_Shiftl_Opr",
01191 "Symmetric_Alloc_Opr",
01192 "Symmetric_Dealloc_Opr",
01193
01194 "Copy_In_Opr",
01195 "Copy_Out_Opr",
01196
01197 "Pack_Opr",
01198 "Unpack_Opr",
01199
01200 "Local_Pe_Dim_Opr",
01201
01202 "Start_Io_Opr",
01203 "End_Io_Opr",
01204
01205 "Dot_Product_Logical_Opr",
01206
01207 "Symbolic_Min_Opr",
01208
01209 "Nopattern_Cdir_Opr",
01210 "Pattern_Cdir_Opr",
01211 "Mark_Cdir_Opr",
01212 "Nomark_Cdir_Opr",
01213
01214 "Backspace_Opr",
01215 "Buffer_In_Opr",
01216 "Buffer_Out_Opr",
01217 "Close_Opr",
01218 "Endfile_Opr",
01219 "Inquire_Opr",
01220 "Open_Opr",
01221 "Rewind_Opr",
01222 "Mvbits_Opr",
01223 "Ishftc_Opr",
01224 "Ibits_Opr",
01225
01226 "False_Parm_Opr",
01227
01228 "Aggressiveinnerloopfission_Opr",
01229 "Blockable_Dir_Opr",
01230 "Blockingsize_Dir_Opr",
01231 "Fission_Star_Opr",
01232 "Fissionable_Star_Opr",
01233 "Fuse_Star_Opr",
01234 "Fusable_Star_Opr",
01235 "Interchange_Dir_Opr",
01236 "Nointerchange_Dir_Opr",
01237 "Nofission_Star_Opr",
01238 "Nofusion_Star_Opr",
01239 "Noblocking_Dir_Opr",
01240 "Opaque_Star_Opr",
01241 "Purpleconditional_Star_Opr",
01242 "Purpleunconditional_Star_Opr",
01243
01244 "Redistribute_Dollar_Opr",
01245 "Doacross_Dollar_Opr",
01246 "Pdo_Par_Opr",
01247 "Parallel_Do_Par_Opr",
01248 "Parallel_Par_Opr",
01249 "Psection_Par_Opr",
01250 "Singleprocess_Par_Opr",
01251 "Section_Par_Opr",
01252 "End_Pdo_Par_Opr",
01253 "End_Parallel_Par_Opr",
01254 "Barrier_Par_Opr",
01255 "Critical_Section_Par_Opr",
01256 "End_Critical_Section_Par_Opr",
01257 "End_Psection_Par_Opr",
01258 "End_Singleprocess_Par_Opr",
01259
01260 "Unroll_Star_Opr",
01261 "Assert_Star_Opr",
01262 "Regionbegin_Star_Opr",
01263 "Regionend_Star_Opr",
01264 "Section_Gp_Star_Opr",
01265 "Section_Nongp_Star_Opr",
01266
01267 "Prefetch_Star_Opr",
01268 "Prefetch_Manual_Star_Opr",
01269 "Prefetch_Ref_Disable_Star_Opr",
01270 "Prefetch_Ref_Star_Opr",
01271
01272 "Align_Symbol_Star_Opr",
01273 "Fill_Symbol_Star_Opr",
01274
01275 "Inline_Here_Star_Opr",
01276 "Noinline_Here_Star_Opr",
01277 "End_Inline_Here_Star_Opr",
01278
01279 "Dynamic_Dollar_Opr",
01280 "Page_Place_Dollar_Opr",
01281 "Copyin_Dollar_Opr",
01282
01283 "User_Code_Start_Opr",
01284
01285 "Fetch_And_Add_Opr",
01286 "Fetch_And_Sub_Opr",
01287 "Fetch_And_Or_Opr",
01288 "Fetch_And_And_Opr",
01289 "Fetch_And_Xor_Opr",
01290 "Fetch_And_Nand_Opr",
01291
01292 "Add_And_Fetch_Opr",
01293 "Sub_And_Fetch_Opr",
01294 "Or_And_Fetch_Opr",
01295 "And_And_Fetch_Opr",
01296 "Xor_And_Fetch_Opr",
01297 "Nand_And_Fetch_Opr",
01298
01299 "Synchronize_Opr",
01300 "Lock_Release_Opr",
01301 "Lock_Test_And_Set_Opr",
01302 "Compare_And_Swap_Opr",
01303
01304 "Integer_Cdir_Opr",
01305
01306 "Malloc_Opr",
01307 "Free_Opr",
01308
01309 "Concurrent_Cdir_Opr",
01310
01311 "Inline_Routine_Star_Opr",
01312 "Noinline_Routine_Star_Opr",
01313 "Inline_Global_Star_Opr",
01314 "Noinline_Global_Star_Opr",
01315
01316 "Atomic_Open_Mp_Opr",
01317 "Barrier_Open_Mp_Opr",
01318 "Critical_Open_Mp_Opr",
01319 "Do_Open_Mp_Opr",
01320 "Endcritical_Open_Mp_Opr",
01321 "Enddo_Open_Mp_Opr",
01322 "Endparallel_Open_Mp_Opr",
01323 "Endparalleldo_Open_Mp_Opr",
01324 "Endparallelsections_Open_Mp_Opr",
01325 "Endparallelworkshare_Open_Mp_Opr",
01326 "Endmaster_Open_Mp_Opr",
01327 "Endordered_Open_Mp_Opr",
01328 "Endsections_Open_Mp_Opr",
01329 "Endsingle_Open_Mp_Opr",
01330 "Endworkshare_Open_Mp_Opr",
01331 "Flush_Open_Mp_Opr",
01332 "Master_Open_Mp_Opr",
01333 "Ordered_Open_Mp_Opr",
01334 "Parallel_Open_Mp_Opr",
01335 "Paralleldo_Open_Mp_Opr",
01336 "Parallelsections_Open_Mp_Opr",
01337 "Parallelworkshare_Open_Mp_Opr",
01338 "Section_Open_Mp_Opr",
01339 "Sections_Open_Mp_Opr",
01340 "Single_Open_Mp_Opr",
01341 "Workshare_Open_Mp_Opr",
01342
01343 "Concurrentize_Star_Opr",
01344 "Noconcurrentize_Star_Opr",
01345
01346 "Omp_Set_Lock_Opr",
01347 "Omp_Unset_Lock_Opr",
01348 "Omp_Test_Lock_Opr",
01349
01350 "Omp_Get_Num_Threads_Opr",
01351 "Omp_Get_Max_Threads_Opr",
01352 "Omp_Get_Thread_Num_Opr",
01353 "Omp_Get_Num_Procs_Opr",
01354 "Omp_In_Parallel_Opr",
01355 "Omp_Get_Dynamic_Opr",
01356 "Omp_Get_Nested_Opr",
01357
01358 "Cache_Bypass_Cdir_Opr",
01359
01360 "Forall_Opr",
01361 "If_Opr",
01362 "Else_Opr",
01363 "Endif_Opr",
01364
01365 "Flush_Star_Opr",
01366
01367 "Stmt_Expansion_Opr",
01368
01369 "Cosd_Opr",
01370 "Sind_Opr",
01371 "Tand_Opr",
01372 "Acosd_Opr",
01373 "Asind_Opr",
01374 "Atand_Opr",
01375 "Atan2d_Opr",
01376
01377 "Stream_Dir_Opr",
01378 "UNUSED1_Opr",
01379 "UNUSED2_Opr",
01380 "UNUSED3_Opr",
01381 "UNUSED4_Opr",
01382 "UNUSED5_Opr",
01383 "Nostream_Dir_Opr",
01384
01385 "Null_Intrinsic_Opr",
01386
01387 "Io_Item_Type_Code_Opr",
01388
01389 "Where_Cnstrct_Opr",
01390 "Else_Where_Mask_Opr",
01391 "Else_Where_Opr",
01392
01393 "Preferstream_Opr",
01394
01395 "Copyin_Bound_Opr",
01396 "Preferstream_Nocinv_Opr",
01397
01398 #ifdef KEY
01399 "Erf_Opr",
01400 "Erfc_Opr",
01401 #endif
01402 #ifdef KEY
01403 "Options_Dir_Opr",
01404 #endif
01405 #ifdef KEY
01406 "Cselect_Opr",
01407 #endif
01408 "The_Last_Opr"
01409 };
01410
01411 char *reference_str[] = {
01412 "Not_Referenced",
01413 "Char_Rslt_Bound_Ref",
01414 "Dcl_Bound_Ref",
01415 "Referenced"
01416 };
01417
01418 char *sb_blk_type_str[] = {
01419 "Unknown",
01420 "Static",
01421 "Stack",
01422 "Formal",
01423 "Common",
01424 "Extern",
01425 "Exported",
01426 "Task_Common",
01427 "Soft_External",
01428 "Global_Breg",
01429 "Global_Treg",
01430 "Static_Named",
01431 "Based",
01432 "Equivalenced",
01433 "Restricted",
01434 "Distributed",
01435 "LM_Static",
01436 "LM_Common",
01437 "LM_Extern",
01438 "Auxiliary",
01439 "Static_Local",
01440 "Non_Local_Stack",
01441 "Non_Local_Formal",
01442 "Hosted_Stack",
01443 "Threadprivate",
01444 "Coment"
01445 };
01446
01447 char *search_str[] = {
01448 "Find_None",
01449 "Find_EOS",
01450 "Find_Lparen",
01451 "Find_Rparen",
01452 "Find_Matching_Rparen",
01453 "Find_Comma",
01454 "Find_Comma_Slash",
01455 "Find_Comma_Rparen",
01456 "Find_Expr_End"
01457 };
01458
01459 char *src_form_str[] = {
01460 "Fixed",
01461 "Free"
01462 };
01463
01464
01465
01466 char *token_value_str[Tok_LAST+1] = {
01467 "Tok_Label",
01468 "Tok_Id",
01469 "Tok_Kwd_Allocatable",
01470 "Tok_Kwd_Allocate",
01471 "Tok_Kwd_Assign",
01472 "Tok_Kwd_Assignment",
01473 "Tok_Kwd_Automatic",
01474 "Tok_Kwd_Backspace",
01475 #ifdef KEY
01476 "Tok_Kwd_Bind",
01477 #endif
01478 "Tok_Kwd_Block",
01479 "Tok_Kwd_Buffer",
01480 "Tok_Kwd_Byte",
01481 "Tok_Kwd_Call",
01482 "Tok_Kwd_Case",
01483 "Tok_Kwd_Character",
01484 "Tok_Kwd_Close",
01485 "Tok_Kwd_Common",
01486 "Tok_Kwd_Complex",
01487 "Tok_Kwd_Contains",
01488 "Tok_Kwd_Continue",
01489 "Tok_Kwd_Cycle",
01490 "Tok_Kwd_Data",
01491 "Tok_Kwd_Deallocate",
01492 "Tok_Kwd_Decode",
01493 "Tok_Kwd_Default",
01494 "Tok_Kwd_Dimension",
01495 "Tok_Kwd_Dir",
01496 "Tok_Kwd_Do",
01497 "Tok_Kwd_Double",
01498 "Tok_Kwd_Elemental",
01499 "Tok_Kwd_Else",
01500 "Tok_Kwd_Encode",
01501 "Tok_Kwd_End",
01502 "Tok_Kwd_Entry",
01503 #ifdef KEY
01504 "Tok_Kwd_Enum",
01505 "Tok_Kwd_Enumerator",
01506 #endif
01507 "Tok_Kwd_Equivalence",
01508 "Tok_Kwd_Exit",
01509 "Tok_Kwd_External",
01510 "Tok_Kwd_File",
01511 "Tok_Kwd_Forall",
01512 "Tok_Kwd_Format",
01513 "Tok_Kwd_Function",
01514 "Tok_Kwd_Go",
01515 "Tok_Kwd_If",
01516 "Tok_Kwd_Implicit",
01517 #ifdef KEY
01518 "Tok_Kwd_Import",
01519 #endif
01520 "Tok_Kwd_In",
01521 "Tok_Kwd_Inquire",
01522 "Tok_Kwd_Integer",
01523 "Tok_Kwd_Intent",
01524 "Tok_Kwd_Interface",
01525 "Tok_Kwd_Intrinsic",
01526 "Tok_Kwd_Kind",
01527 "Tok_Kwd_Len",
01528 "Tok_Kwd_Logical",
01529 "Tok_Kwd_Module",
01530 #ifdef KEY
01531 "Tok_Kwd_Name",
01532 #endif
01533 "Tok_Kwd_Namelist",
01534 "Tok_Kwd_None",
01535 #ifdef KEY
01536 "Tok_Kwd_Nonintrinsic",
01537 #endif
01538 "Tok_Kwd_Nullify",
01539 "Tok_Kwd_Only",
01540 "Tok_Kwd_Open",
01541 "Tok_Kwd_Operator",
01542 "Tok_Kwd_Optional",
01543 "Tok_Kwd_Out",
01544 "Tok_Kwd_Parameter",
01545 "Tok_Kwd_Pause",
01546 "Tok_Kwd_Pointer",
01547 "Tok_Kwd_Precision",
01548 "Tok_Kwd_Print",
01549 "Tok_Kwd_Private",
01550 "Tok_Kwd_Procedure",
01551 "Tok_Kwd_Program",
01552 "Tok_Kwd_Public",
01553 "Tok_Kwd_Pure",
01554 "Tok_Kwd_Read",
01555 "Tok_Kwd_Real",
01556 "Tok_Kwd_Recursive",
01557 "Tok_Kwd_Result",
01558 "Tok_Kwd_Return",
01559 "Tok_Kwd_Rewind",
01560 "Tok_Kwd_Save",
01561 "Tok_Kwd_Select",
01562 "Tok_Kwd_Sequence",
01563 "Tok_Kwd_Span",
01564 "Tok_Kwd_Stat",
01565 "Tok_Kwd_Static",
01566 "Tok_Kwd_Stop",
01567 "Tok_Kwd_Subroutine",
01568 "Tok_Kwd_Target",
01569 "Tok_Kwd_Task",
01570 "Tok_Kwd_Then",
01571 "Tok_Kwd_To",
01572 "Tok_Kwd_Type",
01573 "Tok_Kwd_Use",
01574 "Tok_Kwd_Undefined",
01575 #ifdef KEY
01576 "Tok_Kwd_Value",
01577 #endif
01578 "Tok_Kwd_Volatile",
01579 "Tok_Kwd_Where",
01580 "Tok_Kwd_While",
01581 "Tok_Kwd_Write",
01582 "Tok_Dir_Start",
01583 "Tok_Dir_Align",
01584 "Tok_Dir_Atomicupdate",
01585 "Tok_Dir_Autoscope",
01586 "Tok_Dir_Auxiliary",
01587 "Tok_Dir_Barrier",
01588 "Tok_Dir_Bl",
01589 "Tok_Dir_Block",
01590 "Tok_Dir_Blockable",
01591 "Tok_Dir_Blockingsize",
01592 "Tok_Dir_Bounds",
01593 "Tok_Dir_Cache_Align",
01594 "Tok_Dir_Cache_Bypass",
01595 "Tok_Dir_Cache_Noalloc",
01596 "Tok_Dir_Chunksize",
01597 "Tok_Dir_Cncall",
01598 "Tok_Dir_Code",
01599 "Tok_Dir_Common",
01600 "Tok_Dir_Concurrent",
01601 "Tok_Dir_Control",
01602 "Tok_Dir_Copy_Assumed_Shape",
01603 "Tok_Dir_Critical",
01604 "Tok_Dir_Doshared",
01605 "Tok_Dir_Dynamic",
01606 "Tok_Dir_Eject",
01607 "Tok_Dir_Endcritical",
01608 "Tok_Dir_Endmaster",
01609 "Tok_Dir_Fixed",
01610 "Tok_Dir_Flow",
01611 "Tok_Dir_Free",
01612 "Tok_Dir_Geometry",
01613 "Tok_Dir_Getfirst",
01614 "Tok_Dir_Guided",
01615 "Tok_Dir_Id",
01616 "Tok_Dir_If",
01617 "Tok_Dir_Ignore_TKR",
01618 "Tok_Dir_Inline",
01619 "Tok_Dir_Inline_Always",
01620 "Tok_Dir_Inline_Never",
01621 "Tok_Dir_Integer",
01622 "Tok_Dir_Interchange",
01623 "Tok_Dir_Ivdep",
01624 "Tok_Dir_List",
01625 "Tok_Dir_Mark",
01626 "Tok_Dir_Master",
01627 "Tok_Dir_Maxcpus",
01628 "Tok_Dir_Modinline",
01629 "Tok_Dir_Name",
01630 "Tok_Dir_Ncpus_Chunks",
01631 "Tok_Dir_Nextscalar",
01632 "Tok_Dir_Nobarrier",
01633 "Tok_Dir_Nobl",
01634 "Tok_Dir_Noblocking",
01635 "Tok_Dir_Nobounds",
01636 "Tok_Dir_Nocinv",
01637 "Tok_Dir_Nocode",
01638 "Tok_Dir_Noflow",
01639 "Tok_Dir_Noinline",
01640 "Tok_Dir_Nointerchange",
01641 "Tok_Dir_Nolist",
01642 "Tok_Dir_Nomark",
01643 "Tok_Dir_Nomodinline",
01644 "Tok_Dir_Nopattern",
01645 "Tok_Dir_Norecurrence",
01646 "Tok_Dir_Nosideeffects",
01647 "Tok_Dir_Nosplit",
01648 "Tok_Dir_Nostream",
01649 "Tok_Dir_Notask",
01650 "Tok_Dir_Nounroll",
01651 "Tok_Dir_Novector",
01652 "Tok_Dir_Novsearch",
01653 "Tok_Dir_Numchunks",
01654 "Tok_Dir_Numcpus",
01655 "Tok_Dir_Parallel_Only",
01656 "Tok_Dir_Pattern",
01657 "Tok_Dir_Pe_Private",
01658 "Tok_Dir_Pe_Resident",
01659 "Tok_Dir_Permutation",
01660 "Tok_Dir_Preferstream",
01661 "Tok_Dir_Prefertask",
01662 "Tok_Dir_Prefervector",
01663 "Tok_Dir_Private",
01664 "Tok_Dir_Recurrence",
01665 "Tok_Dir_Regfile",
01666 "Tok_Dir_Savelast",
01667 "Tok_Dir_Semextern",
01668 "Tok_Dir_Serial_Only",
01669 "Tok_Dir_Shared",
01670 "Tok_Dir_Shortloop",
01671 "Tok_Dir_Shortsequence",
01672 "Tok_Dir_Single",
01673 "Tok_Dir_Split",
01674 "Tok_Dir_Stack",
01675 "Tok_Dir_Static",
01676 "Tok_Dir_Stream",
01677 "Tok_Dir_Suppress",
01678 "Tok_Dir_Symmetric",
01679 "Tok_Dir_System_Module",
01680 "Tok_Dir_Task",
01681 "Tok_Dir_Taskcommon",
01682 "Tok_Dir_Taskhead",
01683 "Tok_Dir_Unknown",
01684 "Tok_Dir_Unknown_Shared",
01685 "Tok_Dir_Unroll",
01686 "Tok_Dir_Uses_Eregs",
01687 "Tok_Dir_Vector",
01688 "Tok_Dir_Vfunction",
01689 "Tok_Dir_Vsearch",
01690 "Tok_Dir_End",
01691 "Tok_Mic_Start",
01692 "Tok_Mic_Case",
01693 "Tok_Mic_End_Case",
01694 "Tok_Mic_Cncall",
01695 "Tok_Mic_Continue",
01696 "Tok_Mic_Do_All",
01697 "Tok_Mic_Do_Parallel",
01698 "Tok_Mic_End_Do",
01699 "Tok_Mic_Guard",
01700 "Tok_Mic_End_Guard",
01701 "Tok_Mic_If",
01702 "Tok_Mic_Maxcpus",
01703 "Tok_Mic_Numcpus",
01704 "Tok_Mic_Parallel",
01705 "Tok_Mic_End_Parallel",
01706 "Tok_Mic_Permutation",
01707 "Tok_Mic_Point",
01708 "Tok_Mic_Send",
01709 "Tok_Mic_Span",
01710 "Tok_Mic_Taskcommon",
01711 "Tok_Mic_Wait",
01712 "Tok_Mic_End",
01713
01714
01715 "Tok_SGI_Dir_Start",
01716 "Tok_SGI_Dir_Affinity",
01717 "Tok_SGI_Dir_Aggressiveinner",
01718 "Tok_SGI_Dir_Align_Symbol",
01719 "Tok_SGI_Dir_Argumentaliasing",
01720
01721 "Tok_SGI_Dir_Assert",
01722 "Tok_SGI_Dir_Barrier",
01723 "Tok_SGI_Dir_Benign",
01724 "Tok_SGI_Dir_Block",
01725 "Tok_SGI_Dir_Blockable",
01726 "Tok_SGI_Dir_Blocked",
01727 "Tok_SGI_Dir_Blockingsize",
01728 "Tok_SGI_Dir_Boundsviolations",
01729 "Tok_SGI_Dir_Chunk",
01730 "Tok_SGI_Dir_Concur",
01731 "Tok_SGI_Dir_Concurrent",
01732 "Tok_SGI_Dir_Concurrentcall",
01733 "Tok_SGI_Dir_Concurrentize",
01734 "Tok_SGI_Dir_Copyin",
01735 "Tok_SGI_Dir_Criticalsection",
01736 "Tok_SGI_Dir_Cyclic",
01737 "Tok_SGI_Dir_Data",
01738 "Tok_SGI_Dir_Dependence",
01739 "Tok_SGI_Dir_Distribute",
01740 "Tok_SGI_Dir_Distribute_Reshape",
01741 "Tok_SGI_Dir_Do",
01742 "Tok_SGI_Dir_Doacross",
01743 "Tok_SGI_Dir_Doprefer",
01744 "Tok_SGI_Dir_Dynamic",
01745 "Tok_SGI_Dir_Endcriticalsection",
01746 "Tok_SGI_Dir_Endparallel",
01747 "Tok_SGI_Dir_Endpdo",
01748 "Tok_SGI_Dir_Endpsection",
01749 "Tok_SGI_Dir_Endpsections",
01750 "Tok_SGI_Dir_Endsingleprocess",
01751 "Tok_SGI_Dir_Equivalencehazard",
01752 "Tok_SGI_Dir_Fill_Symbol",
01753 "Tok_SGI_Dir_Fission",
01754 "Tok_SGI_Dir_Fissionable",
01755 "Tok_SGI_Dir_Flush",
01756 "Tok_SGI_Dir_Frequency",
01757 "Tok_SGI_Dir_Fusable",
01758 "Tok_SGI_Dir_Fuse",
01759 "Tok_SGI_Dir_Global",
01760 "Tok_SGI_Dir_Gss",
01761 "Tok_SGI_Dir_Guided",
01762 "Tok_SGI_Dir_Here",
01763 "Tok_SGI_Dir_If",
01764 "Tok_SGI_Dir_Ignoreanydependence",
01765 "Tok_SGI_Dir_Ignoreanydependences",
01766 "Tok_SGI_Dir_Ignoreassumeddependence",
01767
01768 "Tok_SGI_Dir_Ignoreassumeddependences",
01769
01770 "Tok_SGI_Dir_Inline",
01771 "Tok_SGI_Dir_Interchange",
01772 "Tok_SGI_Dir_Interleave",
01773 "Tok_SGI_Dir_Interleaved",
01774 "Tok_SGI_Dir_Ipa",
01775 "Tok_SGI_Dir_Kind",
01776 "Tok_SGI_Dir_Lastlocal",
01777 "Tok_SGI_Dir_Lastthread",
01778 "Tok_SGI_Dir_Lastvalueneeded",
01779 "Tok_SGI_Dir_Lastvaluesneeded",
01780 "Tok_SGI_Dir_Level",
01781 "Tok_SGI_Dir_Limit",
01782 "Tok_SGI_Dir_Local",
01783 "Tok_SGI_Dir_L1cacheline",
01784 "Tok_SGI_Dir_L2cacheline",
01785 "Tok_SGI_Dir_Minconcurrent",
01786 "Tok_SGI_Dir_Mp_Schedtype",
01787 "Tok_SGI_Dir_Ncpus_Chunk",
01788 "Tok_SGI_Dir_Nest",
01789 "Tok_SGI_Dir_Noargumentaliasing",
01790 "Tok_SGI_Dir_Noblocking",
01791 "Tok_SGI_Dir_Noboundsviolations",
01792 "Tok_SGI_Dir_Noconcurrentcall",
01793 "Tok_SGI_Dir_Noconcurrentize",
01794 "Tok_SGI_Dir_Noequivalencehazard",
01795 "Tok_SGI_Dir_Nofission",
01796 "Tok_SGI_Dir_Nofusion",
01797 "Tok_SGI_Dir_Noinline",
01798 "Tok_SGI_Dir_Nointerchange",
01799 "Tok_SGI_Dir_Noipa",
01800 "Tok_SGI_Dir_Nolastvalueneeded",
01801 "Tok_SGI_Dir_Nolastvaluesneeded",
01802 "Tok_SGI_Dir_Norecurrence",
01803 "Tok_SGI_Dir_Nosync",
01804 "Tok_SGI_Dir_Notemporariesforconstantarguments",
01805
01806 "Tok_SGI_Dir_Nowait",
01807 "Tok_SGI_Dir_Numchunks",
01808 "Tok_SGI_Dir_Onto",
01809 "Tok_SGI_Dir_Opaque",
01810 "Tok_SGI_Dir_Optional",
01811 #ifdef KEY
01812 "Tok_SGI_Dir_Options",
01813 #endif
01814 "Tok_SGI_Dir_Ordered",
01815 "Tok_SGI_Dir_Page",
01816 "Tok_SGI_Dir_Page_Place",
01817 "Tok_SGI_Dir_Parallel",
01818 "Tok_SGI_Dir_Paralleldo",
01819 "Tok_SGI_Dir_Pdo",
01820 "Tok_SGI_Dir_Permutation",
01821 "Tok_SGI_Dir_Prefetch",
01822 "Tok_SGI_Dir_Prefetch_Manual",
01823 "Tok_SGI_Dir_Prefetch_Ref",
01824 "Tok_SGI_Dir_Prefetch_Ref_Disable",
01825 "Tok_SGI_Dir_Private",
01826 "Tok_SGI_Dir_Psection",
01827 "Tok_SGI_Dir_Psections",
01828 "Tok_SGI_Dir_Purpleconditional",
01829 "Tok_SGI_Dir_Purpleunconditional",
01830 "Tok_SGI_Dir_Redistribute",
01831 "Tok_SGI_Dir_Reduction",
01832 "Tok_SGI_Dir_Regionbegin",
01833 "Tok_SGI_Dir_Regionend",
01834 "Tok_SGI_Dir_Relation",
01835 "Tok_SGI_Dir_Routine",
01836 "Tok_SGI_Dir_Runtime",
01837 "Tok_SGI_Dir_Section",
01838 "Tok_SGI_Dir_Section_Gp",
01839 "Tok_SGI_Dir_Section_Non_Gp",
01840 "Tok_SGI_Dir_Serial",
01841 "Tok_SGI_Dir_Share",
01842 "Tok_SGI_Dir_Shared",
01843 "Tok_SGI_Dir_Simple",
01844 "Tok_SGI_Dir_Single",
01845 "Tok_SGI_Dir_Singleprocess",
01846 "Tok_SGI_Dir_Size",
01847 "Tok_SGI_Dir_Static",
01848 "Tok_SGI_Dir_Stride",
01849 "Tok_SGI_Dir_Unroll",
01850 "Tok_SGI_Dir_Usecompress",
01851 "Tok_SGI_Dir_Usecontrolledstore",
01852 "Tok_SGI_Dir_Useexpand",
01853 "Tok_SGI_Dir_Usegather",
01854 "Tok_SGI_Dir_Usescatter",
01855 "Tok_SGI_Dir_Temporariesforconstantarguments",
01856
01857 "Tok_SGI_Dir_Thread",
01858 "Tok_SGI_Dir_Tile",
01859 "Tok_SGI_Dir_Vector",
01860 "Tok_SGI_Dir_End",
01861
01862 "Tok_Open_Mp_Dir_Start",
01863 "Tok_Open_Mp_Dir_Affinity",
01864 "Tok_Open_Mp_Dir_Atomic",
01865 "Tok_Open_Mp_Dir_Barrier",
01866 "Tok_Open_Mp_Dir_Copyin",
01867 "Tok_Open_Mp_Dir_Copyprivate",
01868 "Tok_Open_Mp_Dir_Critical",
01869 "Tok_Open_Mp_Dir_Data",
01870 "Tok_Open_Mp_Dir_Default",
01871 "Tok_Open_Mp_Dir_Distribute",
01872 "Tok_Open_Mp_Dir_Distribute_Reshape",
01873 "Tok_Open_Mp_Dir_Do",
01874 "Tok_Open_Mp_Dir_Dynamic",
01875 "Tok_Open_Mp_Dir_Endcritical",
01876 "Tok_Open_Mp_Dir_Enddo",
01877 "Tok_Open_Mp_Dir_Endparallel",
01878 "Tok_Open_Mp_Dir_Endparalleldo",
01879 "Tok_Open_Mp_Dir_Endparallelsections",
01880 "Tok_Open_Mp_Dir_Endparallelworkshare",
01881 "Tok_Open_Mp_Dir_Endmaster",
01882 "Tok_Open_Mp_Dir_Endordered",
01883 "Tok_Open_Mp_Dir_Endsections",
01884 "Tok_Open_Mp_Dir_Endsingle",
01885 "Tok_Open_Mp_Dir_Endworkshare",
01886 "Tok_Open_Mp_Dir_Firstprivate",
01887 "Tok_Open_Mp_Dir_Flush",
01888 "Tok_Open_Mp_Dir_Guided",
01889 "Tok_Open_Mp_Dir_If",
01890 "Tok_Open_Mp_Dir_Lastprivate",
01891 "Tok_Open_Mp_Dir_Master",
01892 "Tok_Open_Mp_Dir_Nest",
01893 "Tok_Open_Mp_Dir_None",
01894 "Tok_Open_Mp_Dir_Nowait",
01895 "Tok_Open_Mp_Dir_Num_Threads",
01896 "Tok_Open_Mp_Dir_Onto",
01897 "Tok_Open_Mp_Dir_Ordered",
01898 "Tok_Open_Mp_Dir_Page_Place",
01899 "Tok_Open_Mp_Dir_Parallel",
01900 "Tok_Open_Mp_Dir_Paralleldo",
01901 "Tok_Open_Mp_Dir_Parallelsections",
01902 "Tok_Open_Mp_Dir_Parallelworkshare",
01903 "Tok_Open_Mp_Dir_Private",
01904 "Tok_Open_Mp_Dir_Redistribute",
01905 "Tok_Open_Mp_Dir_Reduction",
01906 "Tok_Open_Mp_Dir_Runtime",
01907 "Tok_Open_Mp_Dir_Schedule",
01908 "Tok_Open_Mp_Dir_Section",
01909 "Tok_Open_Mp_Dir_Sections",
01910 "Tok_Open_Mp_Dir_Shared",
01911 "Tok_Open_Mp_Dir_Single",
01912 "Tok_Open_Mp_Dir_Static",
01913 "Tok_Open_Mp_Dir_Thread",
01914 "Tok_Open_Mp_Dir_Threadprivate",
01915 "Tok_Open_Mp_Dir_Workshare",
01916 "Tok_Open_Mp_Dir_End",
01917
01918
01919 "Tok_Dbg_Sytb",
01920 "Tok_Dbg_Stmt",
01921
01922 "Tok_Punct_Colon",
01923 "Tok_Punct_Colon_Colon",
01924 "Tok_Punct_Comma",
01925 "Tok_Punct_Dash",
01926 "Tok_Punct_Eq",
01927 "Tok_Punct_Lbrkt",
01928 "Tok_Punct_Lparen",
01929 "Tok_Punct_Rbrkt",
01930 "Tok_Punct_Rename",
01931 "Tok_Punct_Rparen",
01932 "Tok_Punct_Slash",
01933 "Tok_Punct_Star",
01934 "Tok_Const_False",
01935 "Tok_Const_True",
01936 "Tok_Const_Hollerith",
01937 "Tok_Const_Boolean",
01938 "Tok_Const_Boz",
01939 "Tok_Const_Char",
01940 "Tok_Const_Int",
01941 "Tok_Const_Real",
01942 "Tok_Const_Dbl",
01943 "Tok_Const_Quad",
01944 "Tok_Op_Add",
01945 "Tok_Op_Div",
01946 "Tok_Op_Mult",
01947 "Tok_Op_Power",
01948 "Tok_Op_Sub",
01949 "Tok_Op_Concat",
01950 "Tok_Op_Eq",
01951 "Tok_Op_Ge",
01952 "Tok_Op_Gt",
01953 "Tok_Op_Le",
01954 "Tok_Op_Lt",
01955 "Tok_Op_Ne",
01956 "Tok_Op_Lg",
01957 "Tok_Op_And",
01958 "Tok_Op_Eqv",
01959 "Tok_Op_Neqv",
01960 "Tok_Op_Not",
01961 "Tok_Op_Or",
01962 "Tok_Op_Assign",
01963 "Tok_Op_Defined",
01964 "Tok_Op_Deref",
01965 "Tok_Op_Ptr_Assign",
01966 "Tok_Unknown",
01967 "Tok_EOS",
01968 "Tok_EOF",
01969 "Tok_LAST"
01970 };
01971
01972 char *type_char_class_str[] = {
01973 "Unknown_Char",
01974 "Const_Len_Char",
01975 "Var_Len_Char",
01976 "Assumed_Size_Char"
01977 };
01978
01979
01980 char *type_desc_str[] = {
01981 "Default_Typed",
01982 "Star_Typed",
01983 "Kind_Typed"
01984 };
01985
01986 char *use_type_str[] = {
01987 "Use_Not",
01988 "Use_All",
01989 "Use_Renamed",
01990 "Use_Only"
01991 };
01992
01993 char *lin_type_str[] = {
01994 "Err_Res",
01995 "Short_Char_Const",
01996 "Short_Typeless_Const",
01997 "Typeless_1",
01998 "Typeless_2",
01999 "Typeless_4",
02000 "Typeless_8",
02001 "Long_Typeless",
02002 "Integer_1",
02003 "Integer_2",
02004 "Integer_4",
02005 "Integer_8",
02006 "Real_4",
02007 "Real_8",
02008 "Real_16",
02009 "Complex_4",
02010 "Complex_8",
02011 "Complex_16",
02012 "CRI_Ptr_8",
02013 "Logical_1",
02014 "Logical_2",
02015 "Logical_4",
02016 "Logical_8",
02017 "Character_1",
02018 "Character_2",
02019 "Character_4",
02020 "CRI_Ch_Ptr_8",
02021 "Structure_Type",
02022 "CRI_Parcel_Ptr_8"
02023 };
02024
02025
02026 char *opr_str[] = {
02027 "Null_Opr",
02028 "Defined_Un_Opr",
02029 "Readsm_Opr",
02030 "Alloc_Opr",
02031 "SSD_Alloc_Opr",
02032 "Cvrt_Opr",
02033 "Dealloc_Opr",
02034 "**",
02035 "*",
02036 "/",
02037 "+",
02038 "-",
02039 "+",
02040 "-",
02041 "||",
02042 ".eq.",
02043 ".ne.",
02044 ".lt.",
02045 ".le.",
02046 ".gt.",
02047 ".ge.",
02048 ".not.",
02049 "not(",
02050 ".and.",
02051 ".or.",
02052 "or(",
02053 ".eqv.",
02054 "eqv(",
02055 ".neqv.",
02056 "neqv(",
02057 "abs(",
02058 "cos(",
02059 "sin(",
02060 "Log_E_Opr",
02061 "Log_10_Opr",
02062 "tan(",
02063 "tanh(",
02064 "sinh(",
02065 "acos(",
02066 "asin(",
02067 "atan(",
02068 "cosh(",
02069 "atan2(",
02070 "aimag(",
02071 "sqrt(",
02072 "cot(",
02073 "exp(",
02074 "int(",
02075 "and(",
02076 "mod(",
02077 "anint(",
02078 "nint(",
02079 "sign(",
02080 "module(",
02081 "shift(",
02082 "shiftl(",
02083 "shiftr(",
02084 "leadz(",
02085 "popcnt(",
02086 "poppar(",
02087 "aint(",
02088 "dim(",
02089 "ranget(",
02090 "ranset(",
02091 "ranf(",
02092 "real(",
02093 "double(",
02094 "mask(",
02095 "conjg(",
02096 "dprod(",
02097 "i24mult(",
02098 "length(",
02099 "getpos(",
02100 "unit(",
02101 "cmplx(",
02102 "ichar(",
02103 "char(",
02104 "lint(",
02105 "index(",
02106 "lge(",
02107 "lgt(",
02108 "lle(",
02109 "llt(",
02110 "Fcd_Opr",
02111 "Numarg_Opr",
02112 "Rtc_Opr",
02113 "cvmgp(",
02114 "cvmgm(",
02115 "cvmgz(",
02116 "cvmgn(",
02117 "cvmgt(",
02118 "csmg(",
02119 "adjustl(",
02120 "adjustr(",
02121 "ceiling(",
02122 "exponent(",
02123 "floor(",
02124 "fraction(",
02125 "spacing(",
02126 "logical(",
02127 "nearest(",
02128 "rrspacing(",
02129 "scale(",
02130 "scan(",
02131 "set_Exponent_Opr",
02132 "verify(",
02133 "len_Trim(",
02134 "dshiftl(",
02135 "dshiftr(",
02136 "mmx(",
02137 "mldmx(",
02138 "mld(",
02139 "mul(",
02140 "mcbl(",
02141 "cshift(",
02142 "dot_Product(",
02143 "matmul(",
02144 "spread(",
02145 "transpose(",
02146 "all(",
02147 "any(",
02148 "count(",
02149 "product(",
02150 "sum(",
02151 "eoshift(",
02152 "maxval(",
02153 "minval(",
02154 "maxloc(",
02155 "minloc(",
02156 "reshape(",
02157 "selected_real_kind(",
02158 "selected_int_kind(",
02159 "repeat(",
02160 "trim(",
02161 "transfer(",
02162 "Defined_Bin_Opr",
02163 "=",
02164 "CALL ",
02165 "RETURN ",
02166 "CASE ",
02167 "ALLOCATE ",
02168 "DEALLOCATE ",
02169 "END ",
02170 "ENTRY",
02171 "FORALL",
02172 "IF",
02173 "NULLIFY ",
02174 "PAUSE ",
02175 "=>",
02176 "Flat_Array_Asg_Opr",
02177 "RETURN ",
02178 "SELECT ",
02179 "Stmt_Func_Call_Opr",
02180 "STOP ",
02181 "MAX(",
02182 "MIN(",
02183 "READ(",
02184 "READ(",
02185 "READ(",
02186 "WRITE(",
02187 "WRITE(",
02188 "WRITE(",
02189 "Inquire_Iolength_Opr",
02190 "Dv_Whole_Copy_Opr",
02191 "Dv_Whole_Def_Opr",
02192 "Dv_Deref_Opr",
02193 "Dv_Access_Base_Addr",
02194 "Dv_Set_Base_Addr",
02195 "Dv_Access_El_Len",
02196 "Dv_Set_El_Len",
02197 "Dv_Access_Assoc",
02198 "Dv_Set_Assoc",
02199 "Dv_Access_Ptr_Alloc",
02200 "Dv_Set_Ptr_Alloc",
02201 "Dv_Access_P_Or_A",
02202 "Dv_Set_P_Or_A",
02203 "Dv_Access_Unused",
02204 "Dv_Set_Unused",
02205 "Dv_Access_N_Dim",
02206 "Dv_Set_N_Dim",
02207 "Dv_Access_Typ_Code",
02208 "Dv_Set_Typ_Code",
02209 "Dv_Access_Orig_Base",
02210 "Dv_Set_Orig_Base",
02211 "Dv_Access_Orig_Size",
02212 "Dv_Set_Orig_Size",
02213 "Dv_Access_Low_Bound",
02214 "Dv_Set_Low_Bound",
02215 "Dv_Access_Extent",
02216 "Dv_Set_Extent",
02217 "Dv_Access_Stride_Mult",
02218 "Dv_Set_Stride_Mult",
02219 "Br_Aif_Opr",
02220 "Br_Asg_Opr",
02221 "Br_Index_Opr",
02222 "Br_True_Opr",
02223 "Br_Uncond_Opr",
02224 "Case_Range_Opr",
02225 "Implied_Do_Opr",
02226 "Kwd_Opr",
02227 "Loc_Opr",
02228 "Aloc_Opr",
02229 "Const_Tmp_Loc_Opr",
02230 "Len_Opr",
02231 "Clen_Opr",
02232 "(",
02233 "Struct_Opr",
02234 "Struct_Construct_Opr",
02235 "Array_Construct_Opr",
02236 "Constant_Struct_Construct_Opr",
02237 "Constant_Array_Construct_Opr",
02238 "(",
02239 "Whole_Subscript_Opr",
02240 "Section_Subscript_Opr",
02241 "Alloc_Obj_Opr",
02242 "Dealloc_Obj_Opr",
02243 "Substring_Opr",
02244 "Whole_Substring_Opr",
02245 "Triplet_Opr",
02246 "Label_Opr",
02247 "Loop_Info_Opr",
02248 "Loop_End_Opr",
02249 "Init_Opr",
02250 "Init_Reloc_Opr",
02251 "USE",
02252 "WHERE (",
02253 "Real_Div_To_Int_Opr",
02254 "!DIR$ SUPPRESS",
02255 "!DIR$ VECTOR",
02256 "!DIR$ NOVECTOR",
02257 "!DIR$ TASK",
02258 "!DIR$ NOTASK",
02259 "!DIR$ BOUNDS",
02260 "!DIR$ NOBOUNDS",
02261 "!DIR$ RECURRENCE",
02262 "!DIR$ NORECURRENCE",
02263 "!DIR$ VSEARCH",
02264 "!DIR$ NOVSEARCH",
02265 "!DIR$ BL",
02266 "!DIR$ NOBL",
02267 "!DIR$ INLINE",
02268 "!DIR$ NOINLINE",
02269 "!DIR$ IVDEP",
02270 "!DIR$ NEXTSCALAR",
02271 "!DIR$ SHORTLOOP",
02272 "!DIR$ SHORTLOOP128",
02273 "!DIR$ ALIGN",
02274 "!MIC$ CASE",
02275 "!MIC$ ENDCASE",
02276 "!MIC$ CONTINUE",
02277 "!MIC$ DOALL",
02278 "!MIC$ DOPARALLEL",
02279 "!MIC$ ENDDO",
02280 "!MIC$ GUARD",
02281 "!MIC$ ENDGUARD",
02282 "!MIC$ PARALLEL",
02283 "!MIC$ ENDPARALLEL",
02284 "!MIC$ TASKCOMMON",
02285 "!MIC$ WAIT",
02286 "!MIC$ SEND",
02287 "My_Pe_Opr",
02288 "Ieee_Unordered_Opr",
02289 "Ieee_Next_After_Opr",
02290 "Ieee_Remainder_Opr",
02291 "Ieee_Exponent_Opr",
02292 "Ieee_Copy_Sign_Opr",
02293 "Ieee_Int_Opr",
02294 "Ieee_Real_Opr",
02295 "Ieee_Finite_Opr",
02296 "Ieee_Is_Nan_Opr",
02297 "Ieee_Class_Opr",
02298 "Ieee_Binary_Scale_Opr",
02299 "Int_Mult_Upper_Opr",
02300 "Get_Ieee_Status_Opr",
02301 "Set_Ieee_Status_Opr",
02302 "Get_Ieee_Exceptions_Opr",
02303 "Set_Ieee_Exceptions_Opr",
02304 "Get_Ieee_Interrupts_Opr",
02305 "Set_Ieee_Interrupts_Opr",
02306 "Get_Ieee_Rounding_Mode_Opr",
02307 "Set_Ieee_Rounding_Mode_Opr",
02308 "Test_Ieee_Interrupt_Opr",
02309 "Test_Ieee_Exception_Opr",
02310 "Set_Ieee_Exception_Opr",
02311 "Clear_Ieee_Exception_Opr",
02312 "Enable_Ieee_Interrupt_Opr",
02313 "Disable_Ieee_Interrupt_Opr",
02314 "Cvrt_Unsigned_Opr",
02315 "SSD_Dealloc_Opr",
02316
02317 "The_Last_Opr"};
02318
02319 static char *dv_whole_def_str[] = {
02320 "BASE ADDR",
02321 "EL_LEN",
02322 "ASSOC",
02323 "PTR_ALLOC",
02324 "P_OR_A",
02325 "A_CONTIG",
02326 "N_DIM",
02327
02328 # define DEBUG_STR_TYPE_CODE 7
02329
02330 "TYPE_CODE",
02331 "ORIG_BASE",
02332 "ORIG_SIZE",
02333 #ifdef KEY
02334 "ALLOC_CPN",
02335 #else
02336 "DIM %d LB",
02337 "DIM %d EX",
02338 "DIM %d SM",
02339 "DIM %d LB",
02340 "DIM %d EX",
02341 "DIM %d SM",
02342 "DIM %d LB",
02343 "DIM %d EX",
02344 "DIM %d SM",
02345 "DIM %d LB",
02346 "DIM %d EX",
02347 "DIM %d SM",
02348 "DIM %d LB",
02349 "DIM %d EX",
02350 "DIM %d SM",
02351 "DIM %d LB",
02352 "DIM %d EX",
02353 "DIM %d SM",
02354 "DIM %d LB",
02355 "DIM %d EX",
02356 "DIM %d SM"
02357 #endif
02358 };
02359
02360 #ifdef KEY
02361 static char *dv_whole_def_bound_str[] = {
02362 "DIM %d LB",
02363 "DIM %d EX",
02364 "DIM %d SM"
02365 };
02366 static char *dv_whole_def_alloc_cpnt_str = "ALLOC CPNT %d OFFSET";
02367 #endif
02368
02369 static char *open_mp_dir_opr_str[] = {
02370 "IF clause",
02371 "NUM_THREADS clause",
02372 "PRIVATE clause",
02373 "SHARED clause",
02374 "FIRSTPRIVATE clause",
02375 "DEFAULT clause",
02376 "COPYIN clause",
02377 "REDUCTION opr clause",
02378 "REDUCTION var clause",
02379 "LASTPRIVATE clause",
02380 "ORDERED clause",
02381 "SCHEDULE type",
02382 "SCHEDULE list",
02383 "AFFINITY clause",
02384 "IS_THREAD clause",
02385 "THREAD_DATA clause",
02386 "ONTO clause",
02387 "NEST clause",
02388 "COPYPRIVATE clause"
02389 };
02390
02391 static char *mp_dir_opr_str[] = {
02392 "IF clause",
02393 "SHARE clause",
02394 "LASTLOCAL clause",
02395 "REDUCTION clause",
02396 "MP_SCHEDTYPE clause",
02397 "CHUNK clause",
02398 "AFFINITY clause",
02399 "IS_THREAD clause",
02400 "THREAD_DATA clause",
02401 "LOCAL clause",
02402 "ONTO clause",
02403 "NEST clause",
02404 "LASTTHREAD clause",
02405 "ORDERED clause",
02406 };
