| 1 | suite "differential/runtime-computational" |
| 2 | |
| 3 | case "fibonacci_refs" |
| 4 | source "../../../test_programs/fibonacci.f90" |
| 5 | armfortas => run |
| 6 | differential => gfortran, flang-new |
| 7 | expect run.stdout check-comments |
| 8 | expect run.exit_code equals 0 |
| 9 | end |
| 10 | |
| 11 | case "dot_product_refs" |
| 12 | source "../../../test_programs/dot_product.f90" |
| 13 | armfortas => run |
| 14 | differential => gfortran, flang-new |
| 15 | expect run.stdout check-comments |
| 16 | expect run.exit_code equals 0 |
| 17 | end |
| 18 | |
| 19 | case "array_assign_refs" |
| 20 | source "../../../test_programs/array_assign.f90" |
| 21 | armfortas => run |
| 22 | differential => gfortran, flang-new |
| 23 | expect run.stdout check-comments |
| 24 | expect run.exit_code equals 0 |
| 25 | end |
| 26 | |
| 27 | case "array_real_intrinsics_refs" |
| 28 | source "../../../test_programs/array_real_intrinsics.f90" |
| 29 | armfortas => run |
| 30 | differential => gfortran, flang-new |
| 31 | expect run.stdout check-comments |
| 32 | expect run.exit_code equals 0 |
| 33 | end |
| 34 | |
| 35 | case "forall_negative_step_refs" |
| 36 | source "../../../test_programs/forall_negative_step.f90" |
| 37 | armfortas => run |
| 38 | differential => gfortran, flang-new |
| 39 | expect run.stdout check-comments |
| 40 | expect run.exit_code equals 0 |
| 41 | end |
| 42 | |
| 43 | case "intrinsic_bits_refs" |
| 44 | source "../../../test_programs/intrinsic_bits.f90" |
| 45 | armfortas => run |
| 46 | differential => gfortran, flang-new |
| 47 | expect run.stdout check-comments |
| 48 | expect run.exit_code equals 0 |
| 49 | end |
| 50 |