fix FFTW#19: missing Fortran interface for fftwq_alloc_real

tklauser · Jul 10, 2014 · 2493129 · 2493129
1 parent 07ef78d
commit 2493129
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/api/genf03.pl b/api/genf03.pl
@@ -25,7 +25,7 @@ sub canonicalize_type {
     "double" => "real(C_DOUBLE)",
     "float" => "real(C_FLOAT)",
     "long double" => "real(C_LONG_DOUBLE)",
-    "float128__" => "real(16)",
+    "__float128" => "real(16)",
     "fftw_plan" => "type(C_PTR)",
     "fftwf_plan" => "type(C_PTR)",
     "fftwl_plan" => "type(C_PTR)",
@@ -35,7 +35,7 @@ sub canonicalize_type {
     "double *" => "type(C_PTR)",
     "float *" => "type(C_PTR)",
     "long double *" => "type(C_PTR)",
-    "float128__ *" => "type(C_PTR)",
+    "__float128 *" => "type(C_PTR)",
     "fftw_complex *" => "type(C_PTR)",
     "fftwf_complex *" => "type(C_PTR)",
     "fftwl_complex *" => "type(C_PTR)",