| 1 | suite "modules/runtime-graphs" |
| 2 | |
| 3 | case "module_chain_runtime" |
| 4 | entry "../../fixtures/modules/module_chain/main.f90" |
| 5 | file "../../fixtures/modules/module_chain/math_seed.f90" |
| 6 | file "../../fixtures/modules/module_chain/math_values.f90" |
| 7 | file "../../fixtures/modules/module_chain/main.f90" |
| 8 | opts => O0, O1, O2 |
| 9 | armfortas => run |
| 10 | repeat => 3 |
| 11 | differential => gfortran, flang-new |
| 12 | consistency => cli_run_reproducible, capture_run_vs_cli_run, capture_run_reproducible |
| 13 | expect run.stdout check-comments |
| 14 | expect run.exit_code equals 0 |
| 15 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 16 | end |
| 17 | |
| 18 | case "rename_only_runtime" |
| 19 | entry "../../fixtures/modules/rename_only/main.f90" |
| 20 | file "../../fixtures/modules/rename_only/math_aliases.f90" |
| 21 | file "../../fixtures/modules/rename_only/main.f90" |
| 22 | opts => O0, O1, O2 |
| 23 | armfortas => run |
| 24 | repeat => 3 |
| 25 | differential => gfortran, flang-new |
| 26 | consistency => cli_run_reproducible, capture_run_vs_cli_run, capture_run_reproducible |
| 27 | expect run.stdout check-comments |
| 28 | expect run.exit_code equals 0 |
| 29 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 30 | end |
| 31 | |
| 32 | case "submodule_future" |
| 33 | entry "../../fixtures/modules/submodule_future/main.f90" |
| 34 | file "../../fixtures/modules/submodule_future/parent_mod.f90" |
| 35 | file "../../fixtures/modules/submodule_future/child_impl.f90" |
| 36 | file "../../fixtures/modules/submodule_future/main.f90" |
| 37 | armfortas => run |
| 38 | future "Submodule frontend parses, but runtime lowering/codegen is not ready yet." |
| 39 | expect run.stdout check-comments |
| 40 | expect run.exit_code equals 0 |
| 41 | end |
| 42 | |
| 43 | case "module_procedure_runtime" |
| 44 | entry "../../fixtures/modules/module_procedure/main.f90" |
| 45 | file "../../fixtures/modules/module_procedure/ops.f90" |
| 46 | file "../../fixtures/modules/module_procedure/main.f90" |
| 47 | opts => O0, O1, O2 |
| 48 | armfortas => run |
| 49 | expect run.stdout check-comments |
| 50 | expect run.exit_code equals 0 |
| 51 | xfail "Module procedures are called, but the lowered graph does not emit the callee body." |
| 52 | end |
| 53 | |
| 54 | case "visibility_runtime" |
| 55 | entry "../../fixtures/modules/visibility/main_shown.f90" |
| 56 | file "../../fixtures/modules/visibility/visible_values.f90" |
| 57 | file "../../fixtures/modules/visibility/main_shown.f90" |
| 58 | opts => O0, O1, O2 |
| 59 | armfortas => run |
| 60 | expect run.stdout check-comments |
| 61 | expect run.exit_code equals 0 |
| 62 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 63 | end |
| 64 | |
| 65 | case "fanin_runtime" |
| 66 | entry "../../fixtures/modules/fanin/main.f90" |
| 67 | file "../../fixtures/modules/fanin/base_value.f90" |
| 68 | file "../../fixtures/modules/fanin/offset_value.f90" |
| 69 | file "../../fixtures/modules/fanin/combined_value.f90" |
| 70 | file "../../fixtures/modules/fanin/main.f90" |
| 71 | opts => O0, O1, O2 |
| 72 | armfortas => run |
| 73 | expect run.stdout check-comments |
| 74 | expect run.exit_code equals 0 |
| 75 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 76 | end |
| 77 | |
| 78 | case "reexport_chain_runtime" |
| 79 | entry "../../fixtures/modules/reexport_chain/main.f90" |
| 80 | file "../../fixtures/modules/reexport_chain/seed_values.f90" |
| 81 | file "../../fixtures/modules/reexport_chain/relay_values.f90" |
| 82 | file "../../fixtures/modules/reexport_chain/consumer_values.f90" |
| 83 | file "../../fixtures/modules/reexport_chain/main.f90" |
| 84 | opts => O0, O1, O2 |
| 85 | armfortas => run |
| 86 | expect run.stdout check-comments |
| 87 | expect run.exit_code equals 0 |
| 88 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 89 | end |
| 90 | |
| 91 | case "diamond_merge_runtime" |
| 92 | entry "../../fixtures/modules/diamond_merge/main.f90" |
| 93 | file "../../fixtures/modules/diamond_merge/shared_seed.f90" |
| 94 | file "../../fixtures/modules/diamond_merge/left_branch.f90" |
| 95 | file "../../fixtures/modules/diamond_merge/right_branch.f90" |
| 96 | file "../../fixtures/modules/diamond_merge/merged_total.f90" |
| 97 | file "../../fixtures/modules/diamond_merge/main.f90" |
| 98 | opts => O0, O1, O2 |
| 99 | armfortas => run |
| 100 | expect run.stdout check-comments |
| 101 | expect run.exit_code equals 0 |
| 102 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 103 | end |
| 104 | |
| 105 | case "rename_hops_runtime" |
| 106 | entry "../../fixtures/modules/rename_hops/main_alias.f90" |
| 107 | file "../../fixtures/modules/rename_hops/base_values.f90" |
| 108 | file "../../fixtures/modules/rename_hops/bridge_aliases.f90" |
| 109 | file "../../fixtures/modules/rename_hops/main_alias.f90" |
| 110 | opts => O0, O1, O2 |
| 111 | armfortas => run |
| 112 | expect run.stdout check-comments |
| 113 | expect run.exit_code equals 0 |
| 114 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 115 | end |
| 116 | |
| 117 | case "mixed_only_runtime" |
| 118 | entry "../../fixtures/modules/mixed_only/main_alias.f90" |
| 119 | file "../../fixtures/modules/mixed_only/base_values.f90" |
| 120 | file "../../fixtures/modules/mixed_only/bridge_values.f90" |
| 121 | file "../../fixtures/modules/mixed_only/main_alias.f90" |
| 122 | opts => O0, O1, O2 |
| 123 | armfortas => run |
| 124 | expect run.stdout check-comments |
| 125 | expect run.exit_code equals 0 |
| 126 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 127 | end |
| 128 | |
| 129 | case "collision_alias_runtime" |
| 130 | entry "../../fixtures/modules/collision_shadow/main_aliases.f90" |
| 131 | file "../../fixtures/modules/collision_shadow/left_values.f90" |
| 132 | file "../../fixtures/modules/collision_shadow/right_values.f90" |
| 133 | file "../../fixtures/modules/collision_shadow/main_aliases.f90" |
| 134 | opts => O0, O1, O2 |
| 135 | armfortas => run |
| 136 | expect run.stdout check-comments |
| 137 | expect run.exit_code equals 0 |
| 138 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 139 | end |
| 140 | |
| 141 | case "layered_total_runtime" |
| 142 | entry "../../fixtures/modules/layered_leaves/main_total.f90" |
| 143 | file "../../fixtures/modules/layered_leaves/root_seed.f90" |
| 144 | file "../../fixtures/modules/layered_leaves/left_metrics.f90" |
| 145 | file "../../fixtures/modules/layered_leaves/right_metrics.f90" |
| 146 | file "../../fixtures/modules/layered_leaves/total_metrics.f90" |
| 147 | file "../../fixtures/modules/layered_leaves/main_total.f90" |
| 148 | opts => O0, O1, O2 |
| 149 | armfortas => run |
| 150 | expect run.stdout check-comments |
| 151 | expect run.exit_code equals 0 |
| 152 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 153 | end |
| 154 | |
| 155 | case "layered_gap_runtime" |
| 156 | entry "../../fixtures/modules/layered_leaves/main_gap.f90" |
| 157 | file "../../fixtures/modules/layered_leaves/root_seed.f90" |
| 158 | file "../../fixtures/modules/layered_leaves/left_metrics.f90" |
| 159 | file "../../fixtures/modules/layered_leaves/right_metrics.f90" |
| 160 | file "../../fixtures/modules/layered_leaves/delta_metrics.f90" |
| 161 | file "../../fixtures/modules/layered_leaves/main_gap.f90" |
| 162 | opts => O0, O1, O2 |
| 163 | armfortas => run |
| 164 | expect run.stdout check-comments |
| 165 | expect run.exit_code equals 0 |
| 166 | xfail "Imported module values currently lower as zeroinit in multi-file graphs." |
| 167 | end |