diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2f81f4c78cee487cc732ee3bf46e82aaf4df3401..03a8b52bcf79575fbac12362cba671c032c7c1dc 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-04  John David Anglin  <dave@hiauly1.hia.nrc.ca>
+
+	* gcc.c-torture/execute/20010604-1.c: New test.
+
 2001-06-04  Loren J. Rittle  <ljrittle@acm.org>
 
 	* gcc.c-torture/execute/ieee/rbug.x: XFAIL FreeBSD 5.x.
diff --git a/gcc/testsuite/gcc.c-torture/execute/20010604-1.c b/gcc/testsuite/gcc.c-torture/execute/20010604-1.c
new file mode 100644
index 0000000000000000000000000000000000000000..e0deaf524f0766588c1275cc55acad53a168b246
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/execute/20010604-1.c
@@ -0,0 +1,14 @@
+#include <stdbool.h>
+
+int f (int a, int b, int c, _Bool d, _Bool e, _Bool f, char g)
+{
+  if (g != 1 || d != true || e != true || f != true) abort ();
+  return a + b + c;
+}
+
+int main (void)
+{
+  if (f (1, 2, -3, true, true, true, '\001'))
+    abort ();
+  exit (0);
+}