| 1 | suite "frontend/sema" |
| 2 | |
| 3 | case "intent_ok" |
| 4 | source "../../fixtures/frontend/sema/intent_ok.f90" |
| 5 | armfortas => sema |
| 6 | expect sema contains "diagnostics: none" |
| 7 | expect sema contains "\"x\"" |
| 8 | end |
| 9 | |
| 10 | case "assign_to_parameter" |
| 11 | source "../../fixtures/frontend/sema/assign_to_parameter.f90" |
| 12 | armfortas => sema |
| 13 | expect sema contains "named constant" |
| 14 | expect-fail sema contains "named constant" |
| 15 | end |
| 16 | |
| 17 | case "allocate_non_allocatable" |
| 18 | source "../../fixtures/frontend/sema/allocate_non_allocatable.f90" |
| 19 | armfortas => sema |
| 20 | expect sema contains "allocatable or pointer" |
| 21 | expect-fail sema contains "allocatable or pointer" |
| 22 | end |
| 23 | |
| 24 | case "pure_io" |
| 25 | source "../../fixtures/frontend/sema/pure_io.f90" |
| 26 | armfortas => sema |
| 27 | expect sema contains "I/O" |
| 28 | expect-fail sema contains "I/O" |
| 29 | end |