diff --git a/lang/gnu-apl/files/patch-src_Bif__F12__FORMAT.cc b/lang/gnu-apl/files/patch-src_Bif__F12__FORMAT.cc
new file mode 100644
index 000000000000..4b0e42412817
--- /dev/null
+++ b/lang/gnu-apl/files/patch-src_Bif__F12__FORMAT.cc
@@ -0,0 +1,26 @@
+--- src/Bif_F12_FORMAT.cc.orig	2019-06-23 12:39:20 UTC
++++ src/Bif_F12_FORMAT.cc
+@@ -576,18 +576,17 @@ right_decorator:   /// the right decorator
+ 
+ fields_done:
+ 
+-int sum = 0;
+-   sum += left_deco.out_len = left_deco .format.size();
++   left_deco.out_len = left_deco.format.size();
+ 
+-   sum += int_part  .out_len = int_part  .format.size();
++   int_part.out_len = int_part.format.size();
+ 
+    if (fract_part.format.size())
+-      sum += fract_part.out_len = fract_part.format.size() + 1;
++      fract_part.out_len = fract_part.format.size() + 1;
+ 
+    if (exponent.size())
+       {
+-        sum += expo_deco.out_len = expo_deco.size();
+-        sum += exponent.out_len = exponent.format.size() + 1;
++        expo_deco.out_len = expo_deco.size();
++        exponent.out_len = exponent.format.size() + 1;
+       }
+ 
+    right_deco.out_len = right_deco.format.size();