| ! Bigendian test posted by Perseus in comp.lang.fortran on 4 July 2005. | |
| integer(1), parameter :: zero = 0 | |
| LOGICAL, PARAMETER :: bigend = IACHAR(TRANSFER(1,"a")) == zero | |
| LOGICAL :: bigendian | |
| call foo () | |
| contains | |
| subroutine foo () | |
| integer :: chr, ans | |
| if (bigend) then | |
| ans = 1 | |
| else | |
| ans = 0 | |
| end if | |
| chr = IACHAR(TRANSFER(1,"a")) | |
| bigendian = chr == 0_4 | |
| if (bigendian) then | |
| ans = 1 | |
| else | |
| ans = 0 | |
| end if | |
| end subroutine foo | |
| end |