From a09385604a305049765a01cc3a6ebbfc4afec9ed Mon Sep 17 00:00:00 2001 From: Steve Franke Date: Wed, 26 Sep 2018 08:30:41 -0500 Subject: [PATCH] Fix a typo - thanks NU0C. --- lib/crc.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/crc.f90 b/lib/crc.f90 index f932803c8..a36e364f9 100644 --- a/lib/crc.f90 +++ b/lib/crc.f90 @@ -26,7 +26,7 @@ module crc integer (c_int), value :: length end function crc13 - function crc13_check (data, length) bind (C, name="crc14_check") + function crc13_check (data, length) bind (C, name="crc13_check") use, intrinsic :: iso_c_binding, only: c_bool, c_ptr, c_int implicit none logical (c_bool) :: crc13_check