Add module procedure graph fixtures
- SHA
fd45526f898331bdf0e3e111bf978ca353743069- Parents
-
bae44a6 - Tree
6e263cb
fd45526
fd45526f898331bdf0e3e111bf978ca353743069bae44a6
6e263cb| Status | File | + | - |
|---|---|---|---|
| M |
fixtures/README.md
|
2 | 0 |
| A |
fixtures/modules/module_procedure/main.f90
|
7 | 0 |
| A |
fixtures/modules/module_procedure/ops.f90
|
9 | 0 |
fixtures/README.mdmodified@@ -26,3 +26,5 @@ families now live there as bench-owned inputs, along with the | ||
| 26 | 26 | |
| 27 | 27 | Sprint 7 begins carving authored module graphs into `fixtures/modules/` so the |
| 28 | 28 | bench can model ordered multi-file inputs instead of only isolated sources. |
| 29 | +That corpus now covers module-use chains, renaming, module procedures, and an | |
| 30 | +early submodule probe. | |
fixtures/modules/module_procedure/main.f90added@@ -0,0 +1,7 @@ | ||
| 1 | +! CHECK: 42 | |
| 2 | +program main | |
| 3 | + use ops, only: add_one | |
| 4 | + implicit none | |
| 5 | + | |
| 6 | + print *, add_one(41) | |
| 7 | +end program main | |
fixtures/modules/module_procedure/ops.f90added@@ -0,0 +1,9 @@ | ||
| 1 | +module ops | |
| 2 | + implicit none | |
| 3 | +contains | |
| 4 | + integer function add_one(x) | |
| 5 | + integer, intent(in) :: x | |
| 6 | + | |
| 7 | + add_one = x + 1 | |
| 8 | + end function add_one | |
| 9 | +end module ops | |