1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/coreamp.t b/t/op/coreamp.t
index 03fc14f098..b9b946fbe0 100644
--- a/t/op/coreamp.t
+++ b/t/op/coreamp.t
@@ -664,6 +664,12 @@ is &mysprintf("%x", 65), '41', '&sprintf';
 lis [&mysprintf("%x", '65')], ['41'], '&sprintf in list context';
 
 test_proto 'sqrt', 4, 2;
+
+test_proto 'srand';
+$tests ++;
+&CORE::srand;
+pass '&srand with no args does not crash';
+
 test_proto 'symlink';
 test_proto 'syscall';
 test_proto 'sysread';