| 1 | suite "backend/mir" |
| 2 | |
| 3 | case "runtime_calls_lower_to_machine_ir" |
| 4 | source "../../fixtures/backend/runtime_calls.f90" |
| 5 | armfortas => mir |
| 6 | expect mir contains "function backend_runtime_calls:" |
| 7 | expect mir contains "stppre x29, x30, sp" |
| 8 | expect mir contains "bl extern afs_write_string" |
| 9 | expect mir contains "constpool[0]" |
| 10 | expect mir contains "bytes \"backend runtime\"" |
| 11 | end |
| 12 | |
| 13 | case "entry_main_stays_named_main" |
| 14 | source "../../fixtures/backend/entry_main.f90" |
| 15 | armfortas => mir |
| 16 | expect mir contains "function main:" |
| 17 | expect mir contains "ret" |
| 18 | expect mir contains "const_pool: none" |
| 19 | end |