Skip to content
Snippets Groups Projects
Commit 39552e53 authored by Giovanni Bussi's avatar Giovanni Bussi
Browse files

complete regtests for wrappers

parent 5ccb1b70
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
regtest/basic/rt-make-wrappers/main.cpp
+ 18
− 0
View file @ 39552e53
...@@ -4,6 +4,7 @@ ...@@ -4,6 +4,7 @@
#include <vector> #include <vector>
extern "C"{ extern "C"{
void plumed_f_installed(int*i);
void plumed_f_ginitialized(int*i); void plumed_f_ginitialized(int*i);
void plumed_f_gcreate(); void plumed_f_gcreate();
void plumed_f_gcmd(char* key,void* val); void plumed_f_gcmd(char* key,void* val);
...@@ -12,6 +13,7 @@ extern "C"{ ...@@ -12,6 +13,7 @@ extern "C"{
void plumed_f_create(char*c); void plumed_f_create(char*c);
void plumed_f_cmd(char*c,char* key,void* val); void plumed_f_cmd(char*c,char* key,void* val);
void plumed_f_finalize(char*c); void plumed_f_finalize(char*c);
void plumed_f_installed_(int*i);
void plumed_f_ginitialized_(int*i); void plumed_f_ginitialized_(int*i);
void plumed_f_gcreate_(); void plumed_f_gcreate_();
void plumed_f_gcmd_(char* key,void* val); void plumed_f_gcmd_(char* key,void* val);
...@@ -20,6 +22,7 @@ extern "C"{ ...@@ -20,6 +22,7 @@ extern "C"{
void plumed_f_create_(char*c); void plumed_f_create_(char*c);
void plumed_f_cmd_(char*c,char* key,void* val); void plumed_f_cmd_(char*c,char* key,void* val);
void plumed_f_finalize_(char*c); void plumed_f_finalize_(char*c);
void plumed_f_installed__(int*i);
void plumed_f_ginitialized__(int*i); void plumed_f_ginitialized__(int*i);
void plumed_f_gcreate__(); void plumed_f_gcreate__();
void plumed_f_gcmd__(char* key,void* val); void plumed_f_gcmd__(char* key,void* val);
...@@ -28,6 +31,7 @@ extern "C"{ ...@@ -28,6 +31,7 @@ extern "C"{
void plumed_f_create__(char*c); void plumed_f_create__(char*c);
void plumed_f_cmd__(char*c,char* key,void* val); void plumed_f_cmd__(char*c,char* key,void* val);
void plumed_f_finalize__(char*c); void plumed_f_finalize__(char*c);
void PLUMED_F_INSTALLED(int*);
void PLUMED_F_GINITIALIZED(int*); void PLUMED_F_GINITIALIZED(int*);
void PLUMED_F_GCREATE(); void PLUMED_F_GCREATE();
void PLUMED_F_GCMD(char* key,void* val); void PLUMED_F_GCMD(char* key,void* val);
...@@ -36,6 +40,7 @@ extern "C"{ ...@@ -36,6 +40,7 @@ extern "C"{
void PLUMED_F_CREATE(char*c); void PLUMED_F_CREATE(char*c);
void PLUMED_F_CMD(char*c,char* key,void* val); void PLUMED_F_CMD(char*c,char* key,void* val);
void PLUMED_F_FINALIZE(char*c); void PLUMED_F_FINALIZE(char*c);
void PLUMED_F_INSTALLED_(int*);
void PLUMED_F_GINITIALIZED_(int*); void PLUMED_F_GINITIALIZED_(int*);
void PLUMED_F_GCREATE_(); void PLUMED_F_GCREATE_();
void PLUMED_F_GCMD_(char* key,void* val); void PLUMED_F_GCMD_(char* key,void* val);
...@@ -44,6 +49,7 @@ extern "C"{ ...@@ -44,6 +49,7 @@ extern "C"{
void PLUMED_F_CREATE_(char*c); void PLUMED_F_CREATE_(char*c);
void PLUMED_F_CMD_(char*c,char* key,void* val); void PLUMED_F_CMD_(char*c,char* key,void* val);
void PLUMED_F_FINALIZE_(char*c); void PLUMED_F_FINALIZE_(char*c);
void PLUMED_F_INSTALLED__(int*);
void PLUMED_F_GINITIALIZED__(int*); void PLUMED_F_GINITIALIZED__(int*);
void PLUMED_F_GCREATE__(); void PLUMED_F_GCREATE__();
void PLUMED_F_GCMD__(char* key,void* val); void PLUMED_F_GCMD__(char* key,void* val);
...@@ -200,6 +206,8 @@ int main(){ ...@@ -200,6 +206,8 @@ int main(){
{ {
// Fortran version // Fortran version
of<<"fortran\n"; of<<"fortran\n";
int inst=0;
plumed_f_installed(&inst); if(!inst) return 0;
char p[32]; char p[32];
plumed_f_create(p); plumed_f_create(p);
testme(p,plumed_f_cmd); testme(p,plumed_f_cmd);
...@@ -222,6 +230,8 @@ int main(){ ...@@ -222,6 +230,8 @@ int main(){
{ {
// Fortran version _ // Fortran version _
of<<"fortran_\n"; of<<"fortran_\n";
int inst=0;
plumed_f_installed_(&inst); if(!inst) return 0;
char p[32]; char p[32];
plumed_f_create_(p); plumed_f_create_(p);
testme(p,plumed_f_cmd_); testme(p,plumed_f_cmd_);
...@@ -244,6 +254,8 @@ int main(){ ...@@ -244,6 +254,8 @@ int main(){
{ {
// Fortran version __ // Fortran version __
of<<"fortran__\n"; of<<"fortran__\n";
int inst=0;
plumed_f_installed__(&inst); if(!inst) return 0;
char p[32]; char p[32];
plumed_f_create__(p); plumed_f_create__(p);
testme(p,plumed_f_cmd__); testme(p,plumed_f_cmd__);
...@@ -266,6 +278,8 @@ int main(){ ...@@ -266,6 +278,8 @@ int main(){
{ {
// Fortran version // Fortran version
of<<"FORTRAN\n"; of<<"FORTRAN\n";
int inst=0;
PLUMED_F_INSTALLED(&inst); if(!inst) return 0;
char p[32]; char p[32];
PLUMED_F_CREATE(p); PLUMED_F_CREATE(p);
testme(p,PLUMED_F_CMD); testme(p,PLUMED_F_CMD);
...@@ -288,6 +302,8 @@ int main(){ ...@@ -288,6 +302,8 @@ int main(){
{ {
// Fortran version _ // Fortran version _
of<<"FORTRAN_\n"; of<<"FORTRAN_\n";
int inst=0;
PLUMED_F_INSTALLED_(&inst); if(!inst) return 0;
char p[32]; char p[32];
PLUMED_F_CREATE_(p); PLUMED_F_CREATE_(p);
testme(p,PLUMED_F_CMD_); testme(p,PLUMED_F_CMD_);
...@@ -310,6 +326,8 @@ int main(){ ...@@ -310,6 +326,8 @@ int main(){
{ {
// Fortran version __ // Fortran version __
of<<"FORTRAN__\n"; of<<"FORTRAN__\n";
int inst=0;
PLUMED_F_INSTALLED__(&inst); if(!inst) return 0;
char p[32]; char p[32];
PLUMED_F_CREATE__(p); PLUMED_F_CREATE__(p);
testme(p,PLUMED_F_CMD__); testme(p,PLUMED_F_CMD__);
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment