| 1 | suite "opt/matrix" |
| 2 | |
| 3 | case "arithmetic_across_matrix" |
| 4 | source "../../../test_programs/arithmetic.f90" |
| 5 | opts => O0, O1, O2, O3, Ofast |
| 6 | armfortas => ir, optir, run |
| 7 | expect ir contains "iadd" |
| 8 | expect optir contains "iadd" |
| 9 | expect run.stdout check-comments |
| 10 | expect run.exit_code equals 0 |
| 11 | end |
| 12 | |
| 13 | case "select_type_visibility" |
| 14 | source "../../../test_programs/select_type.f90" |
| 15 | opts => O0, O1, O2, O3 |
| 16 | armfortas => ir, optir, run |
| 17 | expect ir contains "type_is_match_" |
| 18 | expect optir contains "type_is_match_" |
| 19 | expect run.stdout check-comments |
| 20 | expect run.exit_code equals 0 |
| 21 | future when O1, O2, O3 because "Keep optimizer-sensitive SELECT TYPE cells visible until the real optimization pipeline lands on this branch." |
| 22 | end |
| 23 | |
| 24 | case "where_construct_across_matrix" |
| 25 | source "../../fixtures/runtime/where_construct.f90" |
| 26 | opts => O0, O1, O2 |
| 27 | armfortas => ir, optir, run |
| 28 | expect ir contains "where_check_" |
| 29 | expect optir contains "where_check_" |
| 30 | expect run.stdout check-comments |
| 31 | expect run.exit_code equals 0 |
| 32 | end |