test for #5114

tests/ghc-regress/driver/Makefile

@@ -464,9 +464,15 @@ rtsopts002:
 
 .PHONY: withRtsOpts
 withRtsOpts:
-	$(RM) withRtsOpts$(exeext) withRtsOpts.hi withRtsOpts.o
+	$(RM) withRtsOpts$(exeext) withRtsOpts.hi withRtsOpts.o withRtsOpts.out
 	"$(TEST_HC)" -v0 --make withRtsOpts -with-rtsopts=--info
 	./withRtsOpts | head -1
+	# Also test for non-safe RTS opts, these should be allowed too,
+	# since the author has explicitly requested them. (#5114)
+	$(RM) withRtsOpts$(exeext) withRtsOpts.hi withRtsOpts.o withRtsOpts.out
+	"$(TEST_HC)" -v0 --make withRtsOpts -with-rtsopts=-twithRtsOpts.out
+	./withRtsOpts | head -1
+	test -f withRtsOpts.out
 
 .PHONY: T3364
 T3364:

tests/ghc-regress/driver/all.T

@@ -310,7 +310,10 @@ test('rtsopts001', normal, run_command,
 test('rtsopts002', normal, run_command,
                 ['$MAKE -s --no-print-directory rtsopts002'])
 
-test('withRtsOpts', normal, run_command,
+test('withRtsOpts', [ extra_clean(['withRtsOpts', 'withRtsOpts.exe',
+                                   'withRtsOpts.hi', 'withRtsOpts.o',
+                                   'withRtsOpts.out']) ],
+                    run_command,
                     ['$MAKE -s --no-print-directory withRtsOpts'])
 test('T3389', normal, compile_and_run, [''])
 test('T3364', normalise_fun(normalise_errmsg), run_command,