Expand module graph breadth suites
- SHA
4c24f8f46dfdcfdb8821d7914c796f358e449b90- Parents
-
6ecced1 - Tree
cbb37f5
tenseleyflow/bencch
/
4c24f8f
Browse files
2 changed files
| Status | File | + | - |
|---|---|---|---|
| M |
suites/modules/frontend_graphs.afs
|
32 | 0 |
| M |
suites/modules/runtime_graphs.afs
|
24 | 0 |
suites/modules/frontend_graphs.afsmodified@@ -32,3 +32,35 @@ armfortas => ast, sema | ||
| 32 | 32 | expect ast contains "Submodule" |
| 33 | 33 | expect sema contains "Submodule" |
| 34 | 34 | end |
| 35 | + | |
| 36 | +case "visibility_frontend" | |
| 37 | +entry "../../fixtures/modules/visibility/main_shown.f90" | |
| 38 | +file "../../fixtures/modules/visibility/visible_values.f90" | |
| 39 | +file "../../fixtures/modules/visibility/main_shown.f90" | |
| 40 | +armfortas => ast, sema | |
| 41 | +expect ast contains "Public" | |
| 42 | +expect sema contains "local_name: \"shown\"" | |
| 43 | +expect sema not-contains "local_name: \"hidden\"" | |
| 44 | +end | |
| 45 | + | |
| 46 | +case "visibility_private_import_rejected" | |
| 47 | +entry "../../fixtures/modules/visibility/main_hidden.f90" | |
| 48 | +file "../../fixtures/modules/visibility/visible_values.f90" | |
| 49 | +file "../../fixtures/modules/visibility/main_hidden.f90" | |
| 50 | +armfortas => sema | |
| 51 | +expect-fail sema contains "private" | |
| 52 | +xfail "Private module names are still importable through USE ONLY in graphs." | |
| 53 | +end | |
| 54 | + | |
| 55 | +case "fanin_frontend" | |
| 56 | +entry "../../fixtures/modules/fanin/main.f90" | |
| 57 | +file "../../fixtures/modules/fanin/base_value.f90" | |
| 58 | +file "../../fixtures/modules/fanin/offset_value.f90" | |
| 59 | +file "../../fixtures/modules/fanin/combined_value.f90" | |
| 60 | +file "../../fixtures/modules/fanin/main.f90" | |
| 61 | +armfortas => ast, sema | |
| 62 | +expect ast contains "module: \"base_value\"" | |
| 63 | +expect ast contains "module: \"offset_value\"" | |
| 64 | +expect sema contains "local_name: \"total\"" | |
| 65 | +expect sema contains "original_name: \"total\"" | |
| 66 | +end | |
suites/modules/runtime_graphs.afsmodified@@ -50,3 +50,27 @@ expect run.stdout check-comments | ||
| 50 | 50 | expect run.exit_code equals 0 |
| 51 | 51 | xfail "Module procedures are called, but the lowered graph does not emit the callee body." |
| 52 | 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 | |