Lines Matching defs:dumpfile
45 static FILE *dumpfile;
62 FILE *tmp = dumpfile;
63 dumpfile = stderr;
65 fputc ('\n', dumpfile);
66 dumpfile = tmp;
71 FILE *tmp = dumpfile;
72 dumpfile = stderr;
75 fputc ('\n', dumpfile);
78 fputc ('\n', dumpfile);
79 dumpfile = tmp;
89 FILE *tmp = dumpfile;
90 dumpfile = stderr;
94 fputc (' ', dumpfile);
98 fputs ("() ", dumpfile);
100 fputc ('\n', dumpfile);
101 dumpfile = tmp;
106 FILE *tmp = dumpfile;
107 dumpfile = stderr;
109 fputc ('\n', dumpfile);
110 dumpfile = tmp;
120 FILE *tmp = dumpfile;
121 dumpfile = stderr;
123 fputc ('\n', dumpfile);
124 dumpfile = tmp;
130 FILE *tmp = dumpfile;
131 dumpfile = stderr;
133 fputc ('\n', dumpfile);
134 dumpfile = tmp;
143 FILE *tmp = dumpfile;
144 dumpfile = stderr;
146 fputc ('\n', dumpfile);
147 dumpfile = tmp;
152 FILE *tmp = dumpfile;
153 dumpfile = stderr;
155 fputc ('\n', dumpfile);
156 dumpfile = tmp;
167 fprintf (dumpfile, "%-5d ", label->value);
170 fputc (' ', dumpfile);
180 fputc ('\n', dumpfile);
192 fputs ("(TYPE(*))", dumpfile);
196 fprintf (dumpfile, "(%s ", gfc_basic_typename (ts->type));
203 fprintf (dumpfile, "%s", ts->u.derived->name);
209 fprintf(dumpfile, " %d", ts->kind);
213 fprintf (dumpfile, "%d", ts->kind);
217 fputs (" C_INTEROP", dumpfile);
220 fputs (" ISO_C", dumpfile);
223 fputs (" DEFERRED", dumpfile);
225 fputc (')', dumpfile);
234 fputc ('(', dumpfile);
238 fputc ('(', dumpfile);
240 fprintf (dumpfile, "%s = ", a->name);
244 fputs ("(arg not-present)", dumpfile);
246 fputc (')', dumpfile);
248 fputc (' ', dumpfile);
251 fputc (')', dumpfile);
265 fputs ("()", dumpfile);
269 fprintf (dumpfile, "(%d [%d]", as->rank, as->corank);
284 fprintf (dumpfile, " %s ", c);
289 fputc (' ', dumpfile);
291 fputc (' ', dumpfile);
295 fputc (')', dumpfile);
306 fputc ('(', dumpfile);
311 fputs ("FULL", dumpfile);
329 fputc (':', dumpfile);
336 fputc (':', dumpfile);
342 fputs (" , ", dumpfile);
351 fputs (" , ", dumpfile);
356 fputs ("UNKNOWN", dumpfile);
363 fputc (')', dumpfile);
368 fputc ('[',dumpfile);
372 fputc('*',dumpfile);
374 fputs("THIS_IMAGE", dumpfile);
380 fputc(':', dumpfile);
385 fputs (" , ", dumpfile);
388 fputc (']',dumpfile);
405 fprintf (dumpfile, " %% %s", p->u.c.component->name);
409 fputc ('(', dumpfile);
411 fputc (':', dumpfile);
413 fputc (')', dumpfile);
420 fprintf (dumpfile, " INQUIRY_KIND ");
423 fprintf (dumpfile, " INQUIRY_LEN ");
426 fprintf (dumpfile, " INQUIRY_RE ");
429 fprintf (dumpfile, " INQUIRY_IM ");
451 fputc ('(', dumpfile);
454 fputc (' ', dumpfile);
456 fputc ('=', dumpfile);
458 fputc (',', dumpfile);
460 fputc (',', dumpfile);
463 fputc (')', dumpfile);
467 fputs (" , ", dumpfile);
475 fputc ('\'', dumpfile);
479 fputs ("''", dumpfile);
481 fputs (gfc_print_wide_char (c[i]), dumpfile);
483 fputc ('\'', dumpfile);
494 fprintf (dumpfile, "%s", p->symtree->n.sym->name);
496 fprintf (dumpfile, "%s", p->value.compcall.name);
512 fputs ("()", dumpfile);
524 fprintf (dumpfile, "%s(", p->ts.u.derived->name);
526 fputc (')', dumpfile);
530 fputs ("(/ ", dumpfile);
532 fputs (" /)", dumpfile);
538 fputs ("NULL()", dumpfile);
545 mpz_out_str (dumpfile, 10, p->value.integer);
548 fprintf (dumpfile, "_%d", p->ts.kind);
553 fputs (".true.", dumpfile);
555 fputs (".false.", dumpfile);
559 mpfr_out_str (dumpfile, 10, 0, p->value.real, GFC_RND_MODE);
561 fprintf (dumpfile, "_%d", p->ts.kind);
570 fputs ("(complex ", dumpfile);
572 mpfr_out_str (dumpfile, 10, 0, mpc_realref (p->value.complex),
575 fprintf (dumpfile, "_%d", p->ts.kind);
577 fputc (' ', dumpfile);
579 mpfr_out_str (dumpfile, 10, 0, mpc_imagref (p->value.complex),
582 fprintf (dumpfile, "_%d", p->ts.kind);
584 fputc (')', dumpfile);
589 fputs ("b'", dumpfile);
591 fputs ("o'", dumpfile);
593 fputs ("z'", dumpfile);
594 fprintf (dumpfile, "%s'", p->boz.str);
598 fprintf (dumpfile, HOST_WIDE_INT_PRINT_DEC "H",
603 fputc (*c, dumpfile);
608 fputs ("???", dumpfile);
614 fputs (" {", dumpfile);
618 fprintf (dumpfile, "%.2x", (unsigned int) *c);
620 fputc (',', dumpfile);
622 fputc ('}', dumpfile);
629 fprintf (dumpfile, "%s:", p->symtree->n.sym->ns->proc_name->name);
630 fprintf (dumpfile, "%s", p->symtree->n.sym->name);
635 fputc ('(', dumpfile);
639 fputs ("U+ ", dumpfile);
642 fputs ("U- ", dumpfile);
645 fputs ("+ ", dumpfile);
648 fputs ("- ", dumpfile);
651 fputs ("* ", dumpfile);
654 fputs ("/ ", dumpfile);
657 fputs ("** ", dumpfile);
660 fputs ("// ", dumpfile);
663 fputs ("AND ", dumpfile);
666 fputs ("OR ", dumpfile);
669 fputs ("EQV ", dumpfile);
672 fputs ("NEQV ", dumpfile);
676 fputs ("== ", dumpfile);
680 fputs ("/= ", dumpfile);
684 fputs ("> ", dumpfile);
688 fputs (">= ", dumpfile);
692 fputs ("< ", dumpfile);
696 fputs ("<= ", dumpfile);
699 fputs ("NOT ", dumpfile);
702 fputs ("parens ", dumpfile);
714 fputc (' ', dumpfile);
718 fputc (')', dumpfile);
724 fprintf (dumpfile, "%s", p->symtree->n.sym->name);
727 fputc ('[', dumpfile);
729 fputc (']', dumpfile);
733 fprintf (dumpfile, "%s", p->value.function.name);
736 fputc ('[', dumpfile);
737 fputc ('[', dumpfile);
739 fputc (']', dumpfile);
740 fputc (']', dumpfile);
763 fputs (" (PDT-TEMPLATE", dumpfile);
765 fprintf (dumpfile, "(%s ", gfc_code2string (flavors, attr->flavor));
768 fprintf (dumpfile, "%s ", gfc_code2string (access_types, attr->access));
770 fprintf (dumpfile, "%s ", gfc_code2string (procedures, attr->proc));
772 fprintf (dumpfile, "%s", gfc_code2string (save_status, attr->save));
775 fputs (" ARTIFICIAL", dumpfile);
777 fputs (" ALLOCATABLE", dumpfile);
779 fputs (" ASYNCHRONOUS", dumpfile);
781 fputs (" CODIMENSION", dumpfile);
783 fputs (" DIMENSION", dumpfile);
785 fputs (" CONTIGUOUS", dumpfile);
787 fputs (" EXTERNAL", dumpfile);
789 fputs (" INTRINSIC", dumpfile);
791 fputs (" OPTIONAL", dumpfile);
793 fputs (" KIND", dumpfile);
795 fputs (" LEN", dumpfile);
797 fputs (" POINTER", dumpfile);
799 fputs (" SUBREF-ARRAY-POINTER", dumpfile);
801 fputs (" CRAY-POINTER", dumpfile);
803 fputs (" CRAY-POINTEE", dumpfile);
805 fputs (" PROTECTED", dumpfile);
807 fputs (" VALUE", dumpfile);
809 fputs (" VOLATILE", dumpfile);
811 fputs (" THREADPRIVATE", dumpfile);
813 fputs (" TARGET", dumpfile);
816 fputs (" DUMMY", dumpfile);
818 fprintf (dumpfile, "(%s)", gfc_intent_string (attr->intent));
822 fputs (" RESULT", dumpfile);
824 fputs (" ENTRY", dumpfile);
826 fputs (" ENTRY-MASTER", dumpfile);
828 fputs (" MIXED-ENTRY-MASTER", dumpfile);
830 fputs (" BIND(C)", dumpfile);
833 fputs (" DATA", dumpfile);
836 fputs (" USE-ASSOC", dumpfile);
838 fprintf (dumpfile, "(%s)", module);
842 fputs (" IN-NAMELIST", dumpfile);
844 fputs (" IN-COMMON", dumpfile);
847 fputs (" ABSTRACT", dumpfile);
849 fputs (" FUNCTION", dumpfile);
851 fputs (" SUBROUTINE", dumpfile);
853 fputs (" IMPLICIT-TYPE", dumpfile);
856 fputs (" SEQUENCE", dumpfile);
858 fputs (" ALLOC-COMP", dumpfile);
860 fputs (" POINTER-COMP", dumpfile);
862 fputs (" PROC-POINTER-COMP", dumpfile);
864 fputs (" PRIVATE-COMP", dumpfile);
866 fputs (" ZERO-COMP", dumpfile);
868 fputs (" COARRAY-COMP", dumpfile);
870 fputs (" LOCK-COMP", dumpfile);
872 fputs (" EVENT-COMP", dumpfile);
874 fputs (" DEFINED-ASSIGNED-COMP", dumpfile);
876 fputs (" UNLIMITED-POLYMORPHIC", dumpfile);
878 fputs (" HAS-DTIO-PROCS", dumpfile);
880 fputs (" CAF-TOKEN", dumpfile);
882 fputs (" SELECT-TYPE-TEMPORARY", dumpfile);
884 fputs (" ASSOCIATE-VAR", dumpfile);
886 fputs (" PDT-KIND", dumpfile);
888 fputs (" PDT-LEN", dumpfile);
890 fputs (" PDT-TYPE", dumpfile);
892 fputs (" PDT-ARRAY", dumpfile);
894 fputs (" PDT-STRING", dumpfile);
896 fputs (" OMP-UDT-ARTIFICIAL-VAR", dumpfile);
898 fputs (" OMP-DECLARE-TARGET", dumpfile);
900 fputs (" OMP-DECLARE-TARGET-LINK", dumpfile);
902 fputs (" ELEMENTAL", dumpfile);
904 fputs (" PURE", dumpfile);
906 fputs (" IMPLICIT-PURE", dumpfile);
908 fputs (" RECURSIVE", dumpfile);
910 fputs (" UNMASKABKE", dumpfile);
912 fputs (" MASKED", dumpfile);
914 fputs (" CONTAINED", dumpfile);
916 fputs (" MOD-PROC", dumpfile);
918 fputs (" MODULE-PROCEDURE", dumpfile);
920 fputs (" PUBLIC_USED", dumpfile);
922 fputs (" ARRAY-OUTER-DEPENDENCY", dumpfile);
924 fputs (" NORETURN", dumpfile);
926 fputs (" ALWAYS-EXPLICIT", dumpfile);
928 fputs (" IS-MAIN-PROGRAM", dumpfile);
930 fputs (" OACC-ROUTINE-NOHOST", dumpfile);
933 fputc (')', dumpfile);
947 fprintf (dumpfile, "(%s ", c->name);
951 fputs (" kind_expr: ", dumpfile);
956 fputs ("PDT parameters", dumpfile);
961 fputs (" ALLOCATABLE", dumpfile);
963 fputs (" KIND", dumpfile);
965 fputs (" LEN", dumpfile);
967 fputs (" POINTER", dumpfile);
969 fputs (" PPC", dumpfile);
971 fputs (" DIMENSION", dumpfile);
972 fputc (' ', dumpfile);
975 fprintf (dumpfile, " %s", gfc_code2string (access_types, c->attr.access));
976 fputc (')', dumpfile);
978 fputc (' ', dumpfile);
991 fputs ("GENERIC", dumpfile);
994 fputs ("PROCEDURE, ", dumpfile);
996 fputs ("NOPASS", dumpfile);
1000 fprintf (dumpfile, "PASS(%s)", tb->pass_arg);
1002 fputs ("PASS", dumpfile);
1005 fputs (", NON_OVERRIDABLE", dumpfile);
1009 fputs (", PUBLIC", dumpfile);
1011 fputs (", PRIVATE", dumpfile);
1013 fprintf (dumpfile, " :: %s => ", name);
1020 fputs (g->specific_st->name, dumpfile);
1022 fputs (", ", dumpfile);
1026 fputs (tb->u.specific->n.sym->name, dumpfile);
1043 fputs ("Procedure bindings:", dumpfile);
1050 fprintf (dumpfile, "FINAL %s", f->proc_tree->n.sym->name);
1059 fputs ("Operator bindings:", dumpfile);
1090 fprintf (dumpfile, "|| symbol: '%s' ", sym->name);
1093 fputc(' ', dumpfile);
1096 fprintf (dumpfile,"|| binding_label: '%s' ", sym->binding_label);
1101 fputs ("type spec : ", dumpfile);
1105 fputs ("attributes: ", dumpfile);
1111 fputs ("value: ", dumpfile);
1118 fputs ("Array spec:", dumpfile);
1124 fputs ("Array spec:", dumpfile);
1131 fputs ("Generic interfaces:", dumpfile);
1133 fprintf (dumpfile, " %s", intr->sym->name);
1139 fprintf (dumpfile, "result: %s", sym->result->name);
1145 fputs ("components: ", dumpfile);
1153 fprintf (dumpfile, "hash: %d", sym->hash_value);
1160 fputs ("Formal arglist:", dumpfile);
1165 fprintf (dumpfile, " %s", formal->sym->name);
1167 fputs (" [Alt Return]", dumpfile);
1176 fputs ("Formal namespace", dumpfile);
1184 fputs ("PDT parameters", dumpfile);
1192 fputs ("variables : ", dumpfile);
1194 fprintf (dumpfile, " %s",nl->sym->name);
1210 fprintf (dumpfile, "%s:", uop->name);
1213 fprintf (dumpfile, " %s", intr->sym->name);
1249 fprintf (dumpfile, "common: /%s/ ", st->name);
1254 fprintf (dumpfile, "%s", s->name);
1257 fputs (", ", dumpfile);
1259 fputc ('\n', dumpfile);
1273 fprintf (dumpfile, "symtree: '%s'", st->name);
1276 fputc(' ', dumpfile);
1279 fputs( " Ambiguous", dumpfile);
1282 fprintf (dumpfile, "|| symbol: '%s' from namespace '%s'", st->n.sym->name,
1309 fputc (',', dumpfile);
1310 fputs (sym->name, dumpfile);
1311 fputc ('=', dumpfile);
1314 fputc (':', dumpfile);
1320 fputc (':', dumpfile);
1341 ? ") AFFINITY(" : ") DEPEND(", dumpfile);
1344 fputs ("ITERATOR(", dumpfile);
1346 fputc (')', dumpfile);
1347 fputc (list_type == OMP_LIST_AFFINITY ? ':' : ',', dumpfile);
1362 fprintf (dumpfile, "%s:",
1365 case OMP_REDUCTION_MAX: fputs ("max:", dumpfile); break;
1366 case OMP_REDUCTION_MIN: fputs ("min:", dumpfile); break;
1367 case OMP_REDUCTION_IAND: fputs ("iand:", dumpfile); break;
1368 case OMP_REDUCTION_IOR: fputs ("ior:", dumpfile); break;
1369 case OMP_REDUCTION_IEOR: fputs ("ieor:", dumpfile); break;
1372 fprintf (dumpfile, "%s:", n->u2.udr->udr->name);
1379 case OMP_DEPEND_IN: fputs ("in:", dumpfile); break;
1380 case OMP_DEPEND_OUT: fputs ("out:", dumpfile); break;
1381 case OMP_DEPEND_INOUT: fputs ("inout:", dumpfile); break;
1382 case OMP_DEPEND_DEPOBJ: fputs ("depobj:", dumpfile); break;
1384 fputs ("mutexinoutset:", dumpfile);
1387 fputs ("sink:", dumpfile);
1390 fprintf (dumpfile, "%s", n->sym->name);
1393 fputc ('+', dumpfile);
1400 fputs (") DEPEND(", dumpfile);
1403 fputc (',', dumpfile);
1412 case OMP_MAP_ALLOC: fputs ("alloc:", dumpfile); break;
1413 case OMP_MAP_TO: fputs ("to:", dumpfile); break;
1414 case OMP_MAP_FROM: fputs ("from:", dumpfile); break;
1415 case OMP_MAP_TOFROM: fputs ("tofrom:", dumpfile); break;
1421 case OMP_LINEAR_REF: fputs ("ref(", dumpfile); break;
1422 case OMP_LINEAR_VAL: fputs ("val(", dumpfile); break;
1423 case OMP_LINEAR_UVAL: fputs ("uval(", dumpfile); break;
1426 fprintf (dumpfile
1428 fputc (')', dumpfile);
1431 fputc (':', dumpfile);
1435 fputc (',', dumpfile);
1453 fputs (" PARALLEL", dumpfile);
1456 fputs (" SECTIONS", dumpfile);
1459 fputs (" DO", dumpfile);
1462 fputs (" TASKGROUP", dumpfile);
1467 fputs (" IF(", dumpfile);
1469 fputc (')', dumpfile);
1473 fputs (" FINAL(", dumpfile);
1475 fputc (')', dumpfile);
1479 fputs (" NUM_THREADS(", dumpfile);
1481 fputc (')', dumpfile);
1485 fputs (" ASYNC", dumpfile);
1488 fputc ('(', dumpfile);
1490 fputc (')', dumpfile);
1495 fputs (" NUM_GANGS(", dumpfile);
1497 fputc (')', dumpfile);
1501 fputs (" NUM_WORKERS(", dumpfile);
1503 fputc (')', dumpfile);
1507 fputs (" VECTOR_LENGTH(", dumpfile);
1509 fputc (')', dumpfile);
1513 fputs (" GANG", dumpfile);
1516 fputc ('(', dumpfile);
1519 fprintf (dumpfile, "num:");
1523 fputc (',', dumpfile);
1526 fprintf (dumpfile, "static:");
1530 fputc ('*', dumpfile);
1532 fputc (')', dumpfile);
1537 fputs (" WORKER", dumpfile);
1540 fputc ('(', dumpfile);
1542 fputc (')', dumpfile);
1547 fputs (" VECTOR", dumpfile);
1550 fputc ('(', dumpfile);
1552 fputc (')', dumpfile);
1568 fputs (" SCHEDULE (", dumpfile);
1573 fputs ("SIMD, ", dumpfile);
1575 fputs ("SIMD: ", dumpfile);
1578 fputs ("MONOTONIC: ", dumpfile);
1580 fputs ("NONMONOTONIC: ", dumpfile);
1581 fputs (type, dumpfile);
1584 fputc (',', dumpfile);
1587 fputc (')', dumpfile);
1602 fprintf (dumpfile, " DEFAULT(%s)", type);
1607 fputs (" TILE(", dumpfile);
1612 fputs (", ", dumpfile);
1614 fputc (')', dumpfile);
1619 fputs (" WAIT(", dumpfile);
1624 fputs (", ", dumpfile);
1626 fputc (')', dumpfile);
1629 fputs (" SEQ", dumpfile);
1631 fputs (" INDEPENDENT", dumpfile);
1634 fputs (" ORDER(", dumpfile);
1636 fputs ("UNCONSTRAINED:", dumpfile);
1638 fputs ("REPRODUCIBLE:", dumpfile);
1639 fputs ("CONCURRENT)", dumpfile);
1644 fprintf (dumpfile, " ORDERED(%d)", omp_clauses->orderedc);
1646 fputs (" ORDERED", dumpfile);
1649 fputs (" UNTIED", dumpfile);
1651 fputs (" MERGEABLE", dumpfile);
1653 fprintf (dumpfile, " COLLAPSE(%d)", omp_clauses->collapse);
1695 fprintf (dumpfile, " %s(", type);
1697 fputs ("inscan, ", dumpfile);
1699 fputs ("task, ", dumpfile);
1701 fputc (')', dumpfile);
1705 fputs (" SAFELEN(", dumpfile);
1707 fputc (')', dumpfile);
1711 fputs (" SIMDLEN(", dumpfile);
1713 fputc (')', dumpfile);
1716 fputs (" INBRANCH", dumpfile);
1718 fputs (" NOTINBRANCH", dumpfile);
1731 fprintf (dumpfile, " PROC_BIND(%s)", type);
1744 fprintf (dumpfile, " BIND(%s)", type);
1748 fputs (" NUM_TEAMS(", dumpfile);
1752 fputc (':', dumpfile);
1755 fputc (')', dumpfile);
1759 fputs (" DEVICE(", dumpfile);
1761 fputs ("ANCESTOR:", dumpfile);
1763 fputc (')', dumpfile);
1767 fputs (" THREAD_LIMIT(", dumpfile);
1769 fputc (')', dumpfile);
1773 fputs (" DIST_SCHEDULE (STATIC", dumpfile);
1776 fputc (',', dumpfile);
1779 fputc (')', dumpfile);
1786 fputs (" DEFAULTMAP (", dumpfile);
1799 fputs (dfltmap, dumpfile);
1802 fputc (':', dumpfile);
1811 fputs (dfltmap, dumpfile);
1813 fputc (')', dumpfile);
1816 fputs (" WEAK", dumpfile);
1818 fputs (" COMPARE", dumpfile);
1820 fputs (" NOGROUP", dumpfile);
1822 fputs (" SIMD", dumpfile);
1824 fputs (" THREADS", dumpfile);
1827 fputs (" GRAINSIZE(", dumpfile);
1829 fputs ("strict: ", dumpfile);
1831 fputc (')', dumpfile);
1835 fputs (" FILTER(", dumpfile);
1837 fputc (')', dumpfile);
1841 fputs (" HINT(", dumpfile);
1843 fputc (')', dumpfile);
1847 fputs (" NUM_TASKS(", dumpfile);
1849 fputs ("strict: ", dumpfile);
1851 fputc (')', dumpfile);
1855 fputs (" PRIORITY(", dumpfile);
1857 fputc (')', dumpfile);
1861 fputs (" DETACH(", dumpfile);
1863 fputc (')', dumpfile);
1880 fputs (" IF(", dumpfile);
1881 fputs (ifs[i], dumpfile);
1882 fputs (": ", dumpfile);
1884 fputc (')', dumpfile);
1887 fputs (" DESTROY", dumpfile);
1889 fputs (" DEPEND(source)", dumpfile);
1891 fputs (" CAPTURE", dumpfile);
1895 fputs (" UPDATE(", dumpfile);
1904 fputs (deptype, dumpfile);
1905 fputc (')', dumpfile);
1917 fputc (' ', dumpfile);
1918 fputs (atomic_op, dumpfile);
1932 fputc (' ', dumpfile);
1933 fputs (memorder, dumpfile);
1945 fputs (" FAIL(", dumpfile);
1946 fputs (memorder, dumpfile);
1947 putc (')', dumpfile);
1952 fputs (" AT (COMPILATION)", dumpfile);
1954 fputs (" AT (EXECUTION)", dumpfile);
1959 fputs (" SEVERITY (FATAL)", dumpfile);
1961 fputs (" SEVERITY (WARNING)", dumpfile);
1965 fputs (" ERROR (", dumpfile);
1967 fputc (')', dumpfile);
2082 fprintf (dumpfile, "!$%s %s", is_oacc ? "ACC" : "OMP", name);
2159 fprintf (dumpfile, " (%s)", c->ext.omp_clauses->critical_name);
2165 fputc ('(', dumpfile);
2167 fputc (')', dumpfile);
2173 fputs (" (", dumpfile);
2175 fputc (')', dumpfile);
2191 fputc ('\n', dumpfile);
2210 fputs ("!$OMP SECTION\n", dumpfile);
2218 fputc ('\n', dumpfile);
2220 fprintf (dumpfile, "!$%s END %s", is_oacc ? "ACC" : "OMP", name);
2225 fputs (" COPYPRIVATE(", dumpfile);
2228 fputc (')', dumpfile);
2231 fputs (" NOWAIT", dumpfile);
2234 fprintf (dumpfile, " (%s)", c->ext.omp_clauses->critical_name);
2256 fputc ('\n', dumpfile);
2268 fputs ("NOP", dumpfile);
2272 fputs ("CONTINUE", dumpfile);
2276 fprintf (dumpfile, "ENTRY %s", c->ext.entry->sym->name);
2281 fputs ("ASSIGN ", dumpfile);
2283 fputc (' ', dumpfile);
2288 fputs ("LABEL ASSIGN ", dumpfile);
2290 fprintf (dumpfile, " %d", c->label1->value);
2294 fputs ("POINTER ASSIGN ", dumpfile);
2296 fputc (' ', dumpfile);
2301 fputs ("GOTO ", dumpfile);
2303 fprintf (dumpfile, "%d", c->label1->value);
2310 fputs (", (", dumpfile);
2315 fputc (',', dumpfile);
2317 fputc (')', dumpfile);
2326 fprintf (dumpfile, "CALL %s ", c->resolved_sym->name);
2328 fprintf (dumpfile, "CALL %s ", c->symtree->name);
2330 fputs ("CALL ?? ", dumpfile);
2336 fputs ("CALL ", dumpfile);
2341 fputs ("CALL ", dumpfile);
2347 fputs ("RETURN ", dumpfile);
2353 fputs ("PAUSE ", dumpfile);
2358 fprintf (dumpfile, "%d", c->ext.stop_code);
2363 fputs ("ERROR ", dumpfile);
2367 fputs ("STOP ", dumpfile);
2372 fprintf (dumpfile, "%d", c->ext.stop_code);
2375 fputs (" QUIET=", dumpfile);
2382 fputs ("FAIL IMAGE ", dumpfile);
2386 fputs ("CHANGE TEAM", dumpfile);
2390 fputs ("END TEAM", dumpfile);
2394 fputs ("FORM TEAM", dumpfile);
2398 fputs ("SYNC TEAM", dumpfile);
2402 fputs ("SYNC ALL ", dumpfile);
2405 fputs (" stat=", dumpfile);
2410 fputs (" errmsg=", dumpfile);
2416 fputs ("SYNC MEMORY ", dumpfile);
2419 fputs (" stat=", dumpfile);
2424 fputs (" errmsg=", dumpfile);
2430 fputs ("SYNC IMAGES image-set=", dumpfile);
2434 fputs ("* ", dumpfile);
2437 fputs (" stat=", dumpfile);
2442 fputs (" errmsg=", dumpfile);
2450 fputs ("EVENT POST ", dumpfile);
2452 fputs ("EVENT WAIT ", dumpfile);
2454 fputs ("event-variable=", dumpfile);
2459 fputs (" until_count=", dumpfile);
2464 fputs (" stat=", dumpfile);
2469 fputs (" errmsg=", dumpfile);
2477 fputs ("LOCK ", dumpfile);
2479 fputs ("UNLOCK ", dumpfile);
2481 fputs ("lock-variable=", dumpfile);
2486 fputs (" acquired_lock=", dumpfile);
2491 fputs (" stat=", dumpfile);
2496 fputs (" errmsg=", dumpfile);
2502 fputs ("IF ", dumpfile);
2504 fprintf (dumpfile, " %d, %d, %d",
2510 fputs ("IF ", dumpfile);
2520 fputs("\n", dumpfile);
2523 fputs ("ELSE", dumpfile);
2526 fputs ("ELSE IF ", dumpfile);
2540 fputs ("ENDIF", dumpfile);
2554 fprintf (dumpfile, "%s ", blocktype);
2557 fprintf (dumpfile, " %s = ", alist->name);
2570 fprintf (dumpfile, "END %s ", blocktype);
2583 fputc ('\n', dumpfile);
2586 fputs ("SELECT RANK ", dumpfile);
2588 fputs ("SELECT TYPE ", dumpfile);
2590 fputs ("SELECT CASE ", dumpfile);
2595 fputc ('\n', dumpfile);
2597 fputs ("CASE ", dumpfile);
2600 fputc ('(', dumpfile);
2602 fputc (' ', dumpfile);
2604 fputc (')', dumpfile);
2605 fputc (' ', dumpfile);
2609 fputc ('\n', dumpfile);
2613 fputs ("END SELECT", dumpfile);
2617 fputs ("WHERE ", dumpfile);
2621 fputc ('\n', dumpfile);
2628 fputs ("ELSE WHERE ", dumpfile);
2630 fputc ('\n', dumpfile);
2635 fputs ("END WHERE", dumpfile);
2640 fputs ("FORALL ", dumpfile);
2644 fputc (' ', dumpfile);
2646 fputc (':', dumpfile);
2648 fputc (':', dumpfile);
2652 fputc (',', dumpfile);
2657 fputc (',', dumpfile);
2660 fputc ('\n', dumpfile);
2665 fputs ("END FORALL", dumpfile);
2669 fputs ("CRITICAL\n", dumpfile);
2672 fputs ("END CRITICAL", dumpfile);
2676 fputs ("DO ", dumpfile);
2678 fprintf (dumpfile, " %-5d ", c->label1->value);
2681 fputc ('=', dumpfile);
2683 fputc (' ', dumpfile);
2685 fputc (' ', dumpfile);
2696 fputs ("END DO", dumpfile);
2700 fputs ("DO CONCURRENT ", dumpfile);
2704 fputc (' ', dumpfile);
2706 fputc (':', dumpfile);
2708 fputc (':', dumpfile);
2712 fputc (',', dumpfile);
2721 fputs ("END DO", dumpfile);
2725 fputs ("DO WHILE ", dumpfile);
2727 fputc ('\n', dumpfile);
2732 fputs ("END DO", dumpfile);
2736 fputs ("CYCLE", dumpfile);
2738 fprintf (dumpfile, " %s", c->symtree->n.sym->name);
2742 fputs ("EXIT", dumpfile);
2744 fprintf (dumpfile, " %s", c->symtree->n.sym->name);
2748 fputs ("ALLOCATE ", dumpfile);
2751 fputs (" STAT=", dumpfile);
2757 fputs (" ERRMSG=", dumpfile);
2764 fputs (" MOLD=", dumpfile);
2766 fputs (" SOURCE=", dumpfile);
2772 fputc (' ', dumpfile);
2779 fputs ("DEALLOCATE ", dumpfile);
2782 fputs (" STAT=", dumpfile);
2788 fputs (" ERRMSG=", dumpfile);
2794 fputc (' ', dumpfile);
2801 fputs ("OPEN", dumpfile);
2806 fputs (" UNIT=", dumpfile);
2811 fputs (" IOMSG=", dumpfile);
2816 fputs (" IOSTAT=", dumpfile);
2821 fputs (" FILE=", dumpfile);
2826 fputs (" STATUS=", dumpfile);
2831 fputs (" ACCESS=", dumpfile);
2836 fputs (" FORM=", dumpfile);
2841 fputs (" RECL=", dumpfile);
2846 fputs (" BLANK=", dumpfile);
2851 fputs (" POSITION=", dumpfile);
2856 fputs (" ACTION=", dumpfile);
2861 fputs (" DELIM=", dumpfile);
2866 fputs (" PAD=", dumpfile);
2871 fputs (" DECIMAL=", dumpfile);
2876 fputs (" ENCODING=", dumpfile);
2881 fputs (" ROUND=", dumpfile);
2886 fputs (" SIGN=", dumpfile);
2891 fputs (" CONVERT=", dumpfile);
2896 fputs (" ASYNCHRONOUS=", dumpfile);
2900 fprintf (dumpfile, " ERR=%d", open->err->value);
2905 fputs ("CLOSE", dumpfile);
2910 fputs (" UNIT=", dumpfile);
2915 fputs (" IOMSG=", dumpfile);
2920 fputs (" IOSTAT=", dumpfile);
2925 fputs (" STATUS=", dumpfile);
2929 fprintf (dumpfile, " ERR=%d", close->err->value);
2933 fputs ("BACKSPACE", dumpfile);
2937 fputs ("ENDFILE", dumpfile);
2941 fputs ("REWIND", dumpfile);
2945 fputs ("FLUSH", dumpfile);
2952 fputs (" UNIT=", dumpfile);
2957 fputs (" IOMSG=", dumpfile);
2962 fputs (" IOSTAT=", dumpfile);
2966 fprintf (dumpfile, " ERR=%d", fp->err->value);
2970 fputs ("INQUIRE", dumpfile);
2975 fputs (" UNIT=", dumpfile);
2980 fputs (" FILE=", dumpfile);
2986 fputs (" IOMSG=", dumpfile);
2991 fputs (" IOSTAT=", dumpfile);
2996 fputs (" EXIST=", dumpfile);
3001 fputs (" OPENED=", dumpfile);
3006 fputs (" NUMBER=", dumpfile);
3011 fputs (" NAMED=", dumpfile);
3016 fputs (" NAME=", dumpfile);
3021 fputs (" ACCESS=", dumpfile);
3026 fputs (" SEQUENTIAL=", dumpfile);
3032 fputs (" DIRECT=", dumpfile);
3037 fputs (" FORM=", dumpfile);
3042 fputs (" FORMATTED", dumpfile);
3047 fputs (" UNFORMATTED=", dumpfile);
3052 fputs (" RECL=", dumpfile);
3057 fputs (" NEXTREC=", dumpfile);
3062 fputs (" BLANK=", dumpfile);
3067 fputs (" POSITION=", dumpfile);
3072 fputs (" ACTION=", dumpfile);
3077 fputs (" READ=", dumpfile);
3082 fputs (" WRITE=", dumpfile);
3087 fputs (" READWRITE=", dumpfile);
3092 fputs (" DELIM=", dumpfile);
3097 fputs (" PAD=", dumpfile);
3102 fputs (" CONVERT=", dumpfile);
3107 fputs (" ASYNCHRONOUS=", dumpfile);
3112 fputs (" DECIMAL=", dumpfile);
3117 fputs (" ENCODING=", dumpfile);
3122 fputs (" PENDING=", dumpfile);
3127 fputs (" ROUND=", dumpfile);
3132 fputs (" SIGN=", dumpfile);
3137 fputs (" SIZE=", dumpfile);
3142 fputs (" ID=", dumpfile);
3147 fprintf (dumpfile, " ERR=%d", i->err->value);
3151 fputs ("IOLENGTH ", dumpfile);
3157 fputs ("READ", dumpfile);
3161 fputs ("WRITE", dumpfile);
3167 fputs (" UNIT=", dumpfile);
3173 fputs (" FMT=", dumpfile);
3178 fprintf (dumpfile, " FMT=%d", dt->format_label->value);
3180 fprintf (dumpfile, " NML=%s", dt->namelist->name);
3184 fputs (" IOMSG=", dumpfile);
3189 fputs (" IOSTAT=", dumpfile);
3194 fputs (" SIZE=", dumpfile);
3199 fputs (" REC=", dumpfile);
3204 fputs (" ADVANCE=", dumpfile);
3209 fputs (" ID=", dumpfile);
3214 fputs (" POS=", dumpfile);
3219 fputs (" ASYNCHRONOUS=", dumpfile);
3224 fputs (" BLANK=", dumpfile);
3229 fputs (" DECIMAL=", dumpfile);
3234 fputs (" DELIM=", dumpfile);
3239 fputs (" PAD=", dumpfile);
3244 fputs (" ROUND=", dumpfile);
3249 fputs (" SIGN=", dumpfile);
3259 fputs ("TRANSFER ", dumpfile);
3264 fputs ("DT_END", dumpfile);
3268 fprintf (dumpfile, " ERR=%d", dt->err->value);
3270 fprintf (dumpfile, " END=%d", dt->end->value);
3272 fprintf (dumpfile, " EOR=%d", dt->eor->value);
3276 fputs ("WAIT", dumpfile);
3283 fputs (" UNIT=", dumpfile);
3288 fputs (" IOSTAT=", dumpfile);
3293 fputs (" IOMSG=", dumpfile);
3298 fputs (" ID=", dumpfile);
3302 fprintf (dumpfile, " ERR=%d", wait->err->value);
3304 fprintf (dumpfile, " END=%d", wait->end->value);
3306 fprintf (dumpfile, " EOR=%d", wait->eor->value);
3407 fputs ("Equivalence: ", dumpfile);
3413 fputs (", ", dumpfile);
3433 fputs ("Namespace:", dumpfile);
3445 fprintf (dumpfile, " %c-%c: ", l+'A', i+'A');
3447 fprintf (dumpfile, " %c: ", l+'A');
3456 fprintf (dumpfile, "procedure name = %s", ns->proc_name->name);
3473 fprintf (dumpfile, "Operator interfaces for %s:",
3477 fprintf (dumpfile, " %s", intr->sym->name);
3483 fputs ("User operators:\n", dumpfile);
3497 fprintf (dumpfile, "!$ACC DECLARE");
3502 fputc ('\n', dumpfile);
3504 fputs ("code:", dumpfile);
3510 fputs ("\nCONTAINS\n", dumpfile);
3516 fputc ('\n', dumpfile);
3526 dumpfile = file;
3542 dumpfile = file;
3551 dumpfile = file;
3552 fprintf (dumpfile,
3727 fprintf (dumpfile, "/* Cannot convert '%s' to interoperable type */",
3731 fputs (type_name, dumpfile);
3732 fputs (pre, dumpfile);
3734 fputs ("*", dumpfile);
3736 fputs (sym_name, dumpfile);
3737 fputs (post, dumpfile);
3740 fprintf (dumpfile," /* WARNING: Converting '%s' to interoperable type */",
3752 fprintf (dumpfile, "typedef struct %s {\n", sym->name);
3755 fputs (" ", dumpfile);
3757 fputs (";\n", dumpfile);
3760 fprintf (dumpfile, "} %s;\n", sym->name);
3777 fputs ("extern ", dumpfile);
3779 fputs (";\n", dumpfile);
3804 fprintf (dumpfile, "void ");
3805 fputs (sym_name, dumpfile);
3811 fputs ("_", dumpfile);
3813 fputs (" (", dumpfile);
3816 fprintf (dumpfile, "char *result_%s, size_t result_%s_len",
3819 fputs (", ", dumpfile);
3832 fprintf (dumpfile, "/* Cannot convert '%s' to interoperable type */",
3845 fputs (intent_in, dumpfile);
3846 fputs (type_name, dumpfile);
3847 fputs (pre, dumpfile);
3849 fputs ("*", dumpfile);
3851 fputs (s->name, dumpfile);
3852 fputs (post, dumpfile);
3854 fputs(" /* WARNING: non-interoperable KIND */ ", dumpfile);
3857 fputs(", ", dumpfile);
3862 fprintf (dumpfile, ", size_t %s_len", f->sym->name);
3864 fputs (");\n", dumpfile);
3930 FILE *tmp = dumpfile;
3931 dumpfile = stderr;
3933 fputc ('\n', dumpfile);
3934 dumpfile = tmp;
Indexes created Fri Mar 06 19:51:54 UTC 2026