Re: Fortran 95: How do you write code to do this?

[Petter Fryklund <petter.fryklund@atero.se>]

Without shift can be:

-- Counting bits from right to left, starting with zero
generic 
  type T is mod <>; 
function Boolean_Of(Nat : T; Bit_Number : Natural) return Boolean; 

function Boolean_Of(Nat : T; Bit_Number : Natural) return Boolean is 
begin 
  return (Nat and T(2 ** Bit_Number)) = 1; 
end Boolean_Of; 

type Ten_Bits is mod 2 ** 10; 

function Boolean_Of_Ten_Bits is new Boolean_Of(Ten_Bits); 

Input : Ten_Bits := 75; 
Bool1  : Boolean  := Boolean_Of_Ten_Bits(Input, 0); -- will be True 
Bool2  : Boolean  := Boolean_Of_Ten_Bits(Input, 1); -- will be False 

Regards,
Petter