C Collection of code snippets by Arne Vajhøj 
C (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) 
      PROGRAM EQ
      INTEGER*2 A(2)
      INTEGER*4 B
      EQUIVALENCE(A,B)
      B=65537
      WRITE(*,*) A(1),A(2)
      END