diff options
Diffstat (limited to 'testsuite/tests/stranal')
| -rw-r--r-- | testsuite/tests/stranal/should_compile/T22997.hs | 9 | ||||
| -rw-r--r-- | testsuite/tests/stranal/should_compile/all.T | 2 |
2 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/stranal/should_compile/T22997.hs b/testsuite/tests/stranal/should_compile/T22997.hs new file mode 100644 index 0000000000..4c77f70a6e --- /dev/null +++ b/testsuite/tests/stranal/should_compile/T22997.hs @@ -0,0 +1,9 @@ +module T22997 where + +{-# OPAQUE trivial #-} +trivial :: Int -> Int +trivial = succ + +{-# OPAQUE pap #-} +pap :: Integer -> Integer +pap = (42 +) diff --git a/testsuite/tests/stranal/should_compile/all.T b/testsuite/tests/stranal/should_compile/all.T index c5f142567f..0355def88e 100644 --- a/testsuite/tests/stranal/should_compile/all.T +++ b/testsuite/tests/stranal/should_compile/all.T @@ -88,3 +88,5 @@ test('EtaExpansion', normal, compile, ['']) test('T22039', normal, compile, ['']) # T22388: Should see $winteresting but not $wboring test('T22388', [ grep_errmsg(r'^\S+\$w\S+') ], compile, ['-dsuppress-uniques -ddump-simpl']) +# T22997: Just a panic that should not happen +test('T22997', normal, compile, ['']) |