Skip to content
This repository has been archived by the owner on Apr 8, 2021. It is now read-only.

Long-overdue fix for GNU 9 (and other more compliant) compilers #16

Merged
merged 1 commit into from
Mar 16, 2021
Merged

Long-overdue fix for GNU 9 (and other more compliant) compilers #16

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
4 changes: 2 additions & 2 deletions src/g2/v3.1.0/src/intmath.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -169,7 +169,7 @@ function ilog2_2(i_in)
ilog2_2=0
i=i_in
if(i<=0) return
if(iand(i,i-1)/=0) then
if(iand(i,int(i-1,kind=2))/=0) then
!write(0,*) 'iand i-1'
ilog2_2=1
endif
Expand Down Expand Up @@ -204,7 +204,7 @@ function ilog2_1(i_in)
ilog2_1=0
i=i_in
if(i<=0) return
if(iand(i,i-1)/=0) then
if(iand(i,int(i-1,kind=1))/=0) then
!write(0,*) 'iand i-1'
ilog2_1=1
endif
Expand Down