Host introspection: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Naveen.phys (talk | contribs) (Equivalence statement is obsolete in Fortran 2018, so the version is one liner using the ISHFT intrinsic.) |
||
Line 387: | Line 387: | ||
WRITE(*,*) "Little Endian" |
WRITE(*,*) "Little Endian" |
||
END IF</syntaxhighlight> |
END IF</syntaxhighlight> |
||
{{works with|Fortran| 77 and later}} |
|||
<syntaxhighlight lang="fortran"> |
|||
PROGRAM endianness |
|||
IMPLICIT NONE |
|||
INTEGER(KIND=4) :: i = 1 |
|||
!ISHFT(INTEGER, SHIFT) : Left shift if SHIFT > 0 |
|||
!ISHFT(INTEGER, SHIFT) : Right shift if SHIFT < 0 |
|||
IF (ISHFT(i,1) .EQ. 0) THEN |
|||
WRITE(*,FMT='(A)') 'Architechture is Big Endian' |
|||
ELSE |
|||
WRITE(*,FMT='(A)') 'Architecture is Little Endian' |
|||
END IF |
|||
RETURN |
|||
STOP |
|||
END PROGRAM endianness |
|||
</syntaxhighlight> |
|||
=={{header|FreeBASIC}}== |
=={{header|FreeBASIC}}== |