fork download
copy 
  1.       PROGRAM HOGERA
  2.       INTEGER(1) A
  3.       INTEGER(1) B
  4.       INTEGER(2) C
  5.       DATA A,B,C/Z'12',Z'34',Z'0000'/
  6.  
  7.       C=INT(IOR(INT(C),ISHFT(INT(A),8)),2)
  8.       C=INT(IOR(INT(C),ISHFT(INT(B),0)),2)
  9.       WRITE (*,'("C IS Z''",Z4,"''")') C
  10.       STOP
  11.       END
Success #stdin #stdout 0s 4564KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
C IS Z'1234'
https://ideone.com/fB4pkJ
language:
Fortran (gfortran 8.3)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!