Text · 515 bytes Raw Blame History
1 suite "v2/generic-introspect"
2
3 case "fake_compiler_runtime"
4 source "../../fixtures/runtime/if_else.f90"
5 compiler "../../fixtures/fake_compilers/match_42_a.sh" => asm, obj, runtime
6 expect asm contains ".globl _main"
7 expect run.stdout contains "42"
8 expect run.exit_code equals 0
9 end
10
11 case "armfortas_generic_runtime"
12 source "../../fixtures/runtime/if_else.f90"
13 compiler armfortas => runtime, asm, armfortas.ir
14 expect run.stdout check-comments
15 expect asm not-contains "x18"
16 expect armfortas.ir contains "@test_if"
17 end
18