From 73638589bad5ab7da3abdfd869d86217b93fe714 Mon Sep 17 00:00:00 2001 From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> Date: Sat, 16 Jan 2021 13:53:02 +0100 Subject: [PATCH] Fix compilation error for NAG NAG detects a duplicated name for error_handler which is defined as module procedure as well as the name of the interface of said procedure: Error: src/stdlib_bitsets.f90, line 2131: ERROR_HANDLER previously declared as a generic procedure name detected at ERROR_HANDLER@( --- src/stdlib_bitsets.fypp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/stdlib_bitsets.fypp b/src/stdlib_bitsets.fypp index ad52517ab..f1f204ddd 100644 --- a/src/stdlib_bitsets.fypp +++ b/src/stdlib_bitsets.fypp @@ -2006,7 +2006,7 @@ module stdlib_bitsets end interface operator(<=) - interface error_handler + interface module subroutine error_handler( message, error, status, & module, procedure ) character(*), intent(in) :: message @@ -2015,7 +2015,7 @@ module stdlib_bitsets character(*), intent(in), optional :: module character(*), intent(in), optional :: procedure end subroutine error_handler - end interface error_handler + end interface contains