From 73d9f7ce019f700211c92cf1ca4ae1abd7b2ec35 Mon Sep 17 00:00:00 2001 From: Adam Nelson Date: Sat, 8 Oct 2016 11:20:13 -0400 Subject: [PATCH] removed low-hanging gnu fortran 4.6 specific code --- src/global.F90 | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/global.F90 b/src/global.F90 index bea5f61a83..d971581bae 100644 --- a/src/global.F90 +++ b/src/global.F90 @@ -468,12 +468,7 @@ contains do i = 1, size(nuclides) call nuclides(i) % clear() end do - - ! WARNING: The following statement should work but doesn't under gfortran - ! 4.6 because of a bug. Technically, commenting this out leaves a memory - ! leak. - - ! deallocate(nuclides) + deallocate(nuclides) end if if (allocated(nuclides_0K)) then