Testprogramms for Fortran symbol name mangling removed

This commit is contained in:
2015-07-24 18:38:58 +02:00
parent 62c2d53324
commit 51f90df374
3 changed files with 0 additions and 50 deletions
-2
View File
@@ -17,8 +17,6 @@ F90_FILES = \
EXTRA_HEADERS =
EXTRA_DIST = \
TestUnderscoreC.c \
TestUnderscore.f \
$(F90_FILES)
nodist_include_HEADERS = \
-12
View File
@@ -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
-36
View File
@@ -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");
}