Add module graph suites
- SHA
09edd92c2b82ba5f82b465ed0abf427f458f040a- Parents
-
ad2a96d - Tree
34e65b8
09edd92
09edd92c2b82ba5f82b465ed0abf427f458f040aad2a96d
34e65b8| Status | File | + | - |
|---|---|---|---|
| A |
suites/modules/frontend_graphs.afs
|
34 | 0 |
| A |
suites/modules/runtime_graphs.afs
|
41 | 0 |
suites/modules/frontend_graphs.afsadded@@ -0,0 +1,34 @@ | ||
| 1 | +suite "modules/frontend-graphs" | |
| 2 | + | |
| 3 | +case "module_chain_frontend" | |
| 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 => ast, sema | |
| 9 | +expect ast contains "name: \"math_seed\"" | |
| 10 | +expect ast contains "module: \"math_values\"" | |
| 11 | +expect sema contains "local_name: \"doubled\"" | |
| 12 | +expect sema contains "original_name: \"doubled\"" | |
| 13 | +end | |
| 14 | + | |
| 15 | +case "rename_only_frontend" | |
| 16 | +entry "../../fixtures/modules/rename_only/main.f90" | |
| 17 | +file "../../fixtures/modules/rename_only/math_aliases.f90" | |
| 18 | +file "../../fixtures/modules/rename_only/main.f90" | |
| 19 | +armfortas => ast, sema | |
| 20 | +expect ast contains "local: \"chosen\"" | |
| 21 | +expect ast contains "remote: \"payload\"" | |
| 22 | +expect sema contains "local_name: \"chosen\"" | |
| 23 | +expect sema contains "original_name: \"payload\"" | |
| 24 | +end | |
| 25 | + | |
| 26 | +case "submodule_frontend" | |
| 27 | +entry "../../fixtures/modules/submodule_future/main.f90" | |
| 28 | +file "../../fixtures/modules/submodule_future/parent_mod.f90" | |
| 29 | +file "../../fixtures/modules/submodule_future/child_impl.f90" | |
| 30 | +file "../../fixtures/modules/submodule_future/main.f90" | |
| 31 | +armfortas => ast, sema | |
| 32 | +expect ast contains "Submodule" | |
| 33 | +expect sema contains "Submodule" | |
| 34 | +end | |
suites/modules/runtime_graphs.afsadded@@ -0,0 +1,41 @@ | ||
| 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 resolution is not ready yet." | |
| 39 | +expect run.stdout check-comments | |
| 40 | +expect run.exit_code equals 0 | |
| 41 | +end | |