diff options
Diffstat (limited to 'libgfortran/m4/dotprodc.m4')
| -rw-r--r-- | libgfortran/m4/dotprodc.m4 | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libgfortran/m4/dotprodc.m4 b/libgfortran/m4/dotprodc.m4 index eb97efa..38ef7fc 100644 --- a/libgfortran/m4/dotprodc.m4 +++ b/libgfortran/m4/dotprodc.m4 @@ -28,9 +28,12 @@ include(iparm.m4)dnl typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; +extern rtype_name __dot_product_`'rtype_code (rtype * a, rtype * b); +export_proto_np(__dot_product_`'rtype_code); + /* Both parameters will already have been converted to the result type. */ rtype_name -`__dot_product_'rtype_code (rtype * a, rtype * b) +__dot_product_`'rtype_code (rtype * a, rtype * b) { rtype_name *pa; rtype_name *pb; @@ -66,4 +69,3 @@ sinclude(`dotprod_asm_'rtype_code`.m4')dnl return res; } - |