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

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

Assuming rightmost means LSB:

generic 
  type T is mod <>;
function Boolean_Of(Nat : T) return Boolean;

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

type Ten_Bits is 2 ** 10;

function Boolean_Of_Ten_Bits is new Boolean_Of(Ten_Bits);

Input : Ten_Bits := 75;
Bool  : Boolean  := Boolean_Of_Ten_Bits(Input); -- will be True

regards,
Petter