program testi
! This file: http://ftp.aset.psu.edu/pub/ger/fortran/hdk/endian2.f90
!
! Posted by Perseus in comp.lang.fortran on 4 July 2005.
! and Paul Van Delst and David Flower on 5 July 2005.

LOGICAL, PARAMETER :: bigend = IACHAR(TRANSFER(1,"a")) == 0

if (bigend) then
  print *, "Big Endian"
else
  print *, "Little Endian"
endif

end program testi