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