Expand module graph suites
- SHA
3fed49c6ffb1e6956e2b9be14c8020792c2ffcaf- Parents
-
fd45526 - Tree
b9d179c
3fed49c
3fed49c6ffb1e6956e2b9be14c8020792c2ffcaffd45526
b9d179c| Status | File | + | - |
|---|---|---|---|
| A |
suites/modules/backend_graphs.afs
|
11 | 0 |
| A |
suites/modules/lowering_graphs.afs
|
21 | 0 |
| M |
suites/modules/runtime_graphs.afs
|
12 | 1 |
suites/modules/backend_graphs.afsadded@@ -0,0 +1,11 @@ | ||
| 1 | +suite "modules/backend-graphs" | |
| 2 | + | |
| 3 | +case "module_procedure_backend" | |
| 4 | +entry "../../fixtures/modules/module_procedure/main.f90" | |
| 5 | +file "../../fixtures/modules/module_procedure/ops.f90" | |
| 6 | +file "../../fixtures/modules/module_procedure/main.f90" | |
| 7 | +armfortas => asm, obj | |
| 8 | +expect asm contains ".globl _add_one" | |
| 9 | +expect obj not-contains "(undefined) external _add_one" | |
| 10 | +xfail "Module procedures are called but not emitted into backend artifacts." | |
| 11 | +end | |
suites/modules/lowering_graphs.afsadded@@ -0,0 +1,21 @@ | ||
| 1 | +suite "modules/lowering-graphs" | |
| 2 | + | |
| 3 | +case "module_chain_ir_values" | |
| 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 | +armfortas => ir | |
| 9 | +expect ir not-contains "global @math_seed::seed: i32 = zeroinit" | |
| 10 | +expect ir not-contains "global @math_values::doubled: i32 = zeroinit" | |
| 11 | +xfail "Imported module values currently lower as zeroinit in multi-file graphs." | |
| 12 | +end | |
| 13 | + | |
| 14 | +case "module_procedure_ir" | |
| 15 | +entry "../../fixtures/modules/module_procedure/main.f90" | |
| 16 | +file "../../fixtures/modules/module_procedure/ops.f90" | |
| 17 | +file "../../fixtures/modules/module_procedure/main.f90" | |
| 18 | +armfortas => ir | |
| 19 | +expect ir contains "func @add_one" | |
| 20 | +xfail "Module procedures are called but not lowered into IR functions." | |
| 21 | +end | |
suites/modules/runtime_graphs.afsmodified@@ -35,7 +35,18 @@ file "../../fixtures/modules/submodule_future/parent_mod.f90" | ||
| 35 | 35 | file "../../fixtures/modules/submodule_future/child_impl.f90" |
| 36 | 36 | file "../../fixtures/modules/submodule_future/main.f90" |
| 37 | 37 | armfortas => run |
| 38 | -future "Submodule resolution is not ready yet." | |
| 38 | +future "Submodule frontend parses, but runtime lowering/codegen is not ready yet." | |
| 39 | 39 | expect run.stdout check-comments |
| 40 | 40 | expect run.exit_code equals 0 |
| 41 | 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 | |