| 1 | suite "consistency/object" |
| 2 | |
| 3 | case "runtime_calls_cli_obj_matches_system_as" |
| 4 | source "../../fixtures/backend/runtime_calls.f90" |
| 5 | opts => all |
| 6 | armfortas => asm, obj |
| 7 | consistency => cli_obj_vs_system_as |
| 8 | xfail "armfortas object output is not deterministic today; -S vs -c diverges too" |
| 9 | expect asm contains "bl _afs_write_string" |
| 10 | expect obj contains "(__TEXT,__text) external _backend_runtime_calls" |
| 11 | end |
| 12 | |
| 13 | case "entry_main_cli_obj_matches_system_as" |
| 14 | source "../../fixtures/backend/entry_main.f90" |
| 15 | opts => all |
| 16 | armfortas => asm, obj |
| 17 | consistency => cli_obj_vs_system_as |
| 18 | xfail "armfortas object output is not deterministic today; -S vs -c diverges too" |
| 19 | expect asm contains "_main:" |
| 20 | expect asm not-contains "bl _afs_program_init" |
| 21 | expect obj contains "(__TEXT,__text) external _main" |
| 22 | expect obj not-contains "_afs_program_init" |
| 23 | end |
| 24 |