| 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 |