diff --git a/src/Fortran/Makefile.am b/src/Fortran/Makefile.am
index 0f3f379..993594d 100644
--- a/src/Fortran/Makefile.am
+++ b/src/Fortran/Makefile.am
@@ -17,8 +17,6 @@ F90_FILES =						\
 EXTRA_HEADERS =
 
 EXTRA_DIST =			\
-	TestUnderscoreC.c	\
-	TestUnderscore.f	\
 	$(F90_FILES)
 
 nodist_include_HEADERS = 	\
diff --git a/src/Fortran/TestUnderscore.f b/src/Fortran/TestUnderscore.f
deleted file mode 100755
index 4de2c6e..0000000
--- a/src/Fortran/TestUnderscore.f
+++ /dev/null
@@ -1,12 +0,0 @@
-c ==============
-c
-c Simple Fortran program works in conjunction with C program
-c to determine how many underscores are generated
-c by the fortran compiler
-c
-c ==============
-
-      program TestUnderscoreF
-      implicit none
-      call FindUnderscores
-      end
diff --git a/src/Fortran/TestUnderscoreC.c b/src/Fortran/TestUnderscoreC.c
deleted file mode 100755
index 8f38296..0000000
--- a/src/Fortran/TestUnderscoreC.c
+++ /dev/null
@@ -1,36 +0,0 @@
-#include <stdio.h>
-
-void findunderscores(void){
-	printf("#ifndef F77_NO_UNDERSCORE\n");
-	printf("#define F77_NO_UNDERSCORE\n");
-	printf("#endif\n");
-	printf("#ifndef F77_NO_CAPS\n");
-	printf("#define F77_NO_CAPS\n");
-	printf("#endif\n");
-}
-
-void FindUnderscores(void){
-	printf("#ifndef F77_NO_UNDERSCORE\n");
-	printf("#define F77_NO_UNDERSCORE\n");
-	printf("#endif\n");
-}
-
-void FindUnderscores_(void){
-	printf("#ifndef F77_SINGLE_UNDERSCORE\n");
-	printf("#define F77_SINGLE_UNDERSCORE\n");
-	printf("#endif\n");
-}
-
-void findunderscores_(void){
-	printf("#ifndef F77_SINGLE_UNDERSCORE\n");
-	printf("#define F77_SINGLE_UNDERSCORE\n");
-	printf("#endif\n");
-	printf("#ifndef F77_NO_CAPS\n");
-	printf("#define F77_NO_CAPS\n");
-	printf("#endif\n");
-}
-void FINDUNDERSCORES(void){
-	printf("#ifndef F77_CRAY_UNDERSCORE\n");
-	printf("#define F77_CRAY_UNDERSCORE\n");
-	printf("#endif\n");
-}