Testprogramms for Fortran symbol name mangling removed
This commit is contained in:
@@ -17,8 +17,6 @@ F90_FILES = \
|
||||
EXTRA_HEADERS =
|
||||
|
||||
EXTRA_DIST = \
|
||||
TestUnderscoreC.c \
|
||||
TestUnderscore.f \
|
||||
$(F90_FILES)
|
||||
|
||||
nodist_include_HEADERS = \
|
||||
|
||||
@@ -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
|
||||
@@ -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");
|
||||
}
|
||||
Reference in New Issue
Block a user