From 49c67ae13678440f07cae1dad2efcf664ae54aa1 Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Sun, 16 Jun 2024 13:39:24 -0500 Subject: [PATCH] cleanup --- src/fpm_compiler.F90 | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/fpm_compiler.F90 b/src/fpm_compiler.F90 index 3bd4a3968b..7baa90baff 100644 --- a/src/fpm_compiler.F90 +++ b/src/fpm_compiler.F90 @@ -1021,8 +1021,6 @@ subroutine new_compiler(self, fc, cc, cxx, echo, verbose) logical, intent(in) :: echo !> Verbose mode: dump compiler output logical, intent(in) :: verbose - - logical :: quad self%id = get_compiler_id(fc) @@ -1040,7 +1038,7 @@ subroutine new_compiler(self, fc, cc, cxx, echo, verbose) else call get_default_cxx_compiler(self%fc, self%cxx) end if - + end subroutine new_compiler