From 51f90df3740c03c233eb1ad801f9e50b7a479c66 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Fri, 24 Jul 2015 18:38:58 +0200 Subject: [PATCH] Testprogramms for Fortran symbol name mangling removed --- src/Fortran/Makefile.am | 2 -- src/Fortran/TestUnderscore.f | 12 ------------ src/Fortran/TestUnderscoreC.c | 36 ----------------------------------- 3 files changed, 50 deletions(-) delete mode 100755 src/Fortran/TestUnderscore.f delete mode 100755 src/Fortran/TestUnderscoreC.c 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 - -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"); -}