add test for #3236

testsuite/tests/ghc-regress/rts/3236.c

+#include "Rts.h"
+#include "RtsFlags.h"
+
+int main (int argc, char *argv[])
+{
+    // should fail: RTS is not initialised
+    rts_lock();
+}

testsuite/tests/ghc-regress/rts/3236.stderr

+newBoundTask: RTS is not initialised; call hs_init() first

testsuite/tests/ghc-regress/rts/all.T

@@ -46,3 +46,5 @@ test('2783', [ omit_ways(['ghci']), exit_code(1) ], compile_and_run, [''])
 test('testwsdeque', [if_compiler_lt('ghc', '6.11', skip),
                     c_src, only_ways(['threaded1', 'threaded2'])],
                     compile_and_run, ['-I../../../../rts/parallel'])
+
+test('3236', [c_src, only_ways(['normal','threaded1']), exit_code(1)], compile_and_run, [''])