diff options
| -rw-r--r-- | gcc/testlib/elna-dg.exp | 3 | ||||
| -rw-r--r-- | testsuite/runnable/aggregate_equality.elna | 21 |
2 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testlib/elna-dg.exp b/gcc/testlib/elna-dg.exp index baefe36..06c81aa 100644 --- a/gcc/testlib/elna-dg.exp +++ b/gcc/testlib/elna-dg.exp @@ -55,6 +55,9 @@ proc elna-dg-runtest { testcases flags default-extra-flags } { compilable { set dg-do-what-default "compile" } + runnable { + set dg-do-what-default "run" + } default { ${tool}_fail $testcase "Unknown test type \"$type\"" return 0 diff --git a/testsuite/runnable/aggregate_equality.elna b/testsuite/runnable/aggregate_equality.elna new file mode 100644 index 0000000..119efbd --- /dev/null +++ b/testsuite/runnable/aggregate_equality.elna @@ -0,0 +1,21 @@ +type + R = record + a: Int; + b: Int + end + +proc f() -> Int +var + result: Int +begin + if R(1, 2) = R(1, 2) then + result := 0 + else + result := 1 + end; + return result +end + +return f() + +end. |