diff --git a/test_regress/t/t_dist_fixme.pl b/test_regress/t/t_dist_fixme.pl
new file mode 100755
index 000000000..061f90226
--- /dev/null
+++ b/test_regress/t/t_dist_fixme.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+if (!$::Driver) { use FindBin; exec("$FindBin::Bin/bootstrap.pl", @ARGV, $0); die; }
+# DESCRIPTION: Verilator: Verilog Test driver/expect definition
+#
+# Copyright 2003 by Wilson Snyder. This program is free software; you can
+# redistribute it and/or modify it under the terms of either the GNU
+# Lesser General Public License Version 3 or the Perl Artistic License
+# Version 2.0.
+
+use IO::File;
+
+my $root = "..";
+my $Debug;
+
+if (!-r "$root/.git") {
+    $Self->skip("Not in a git repository");
+} else {
+    ### Must trim output before and after our file list
+    my $files = `cd $root && git ls-files --exclude-standard`;
+    print "ST $files\n" if $Debug;
+    $files =~ s/\s+/ /g;
+    my $cmd = "cd $root && fgrep -n FIXME $files | sort | grep -v t_dist_fixme";
+    my $grep = `$cmd`;
+    print "$grep\n";
+    if ($grep ne "") {
+	my %names;
+	foreach my $line (split /\n/, $grep) {
+	    $names{$1} = 1 if $line =~ /^([^:]+)/;
+	}
+	$Self->error("Files with FIXMEs: ",join(' ',sort keys %names));
+    }
+}
+
+ok(1);
+1;