Binary write format for Real

[rih5342]

Below is a sample of a code that runs with Intel but not GFORTRAN.
Writing a real in binary format is an extension of the Fortran standard.

My Question:
What is the best way to do this?
How do you extract the binary of a real for printing?

Thank you.

IMPLICIT NONE
integer :: ii = 1
real :: xx = 1.0e00

write(*,'(1x, a7, 1x, b32.32)') ' ii = ', ii

! next line runs with IVF but not GFORTRAN
write(*,'(1x, a7, 1x, b32.32)') ' xx = ', xx

end

 

[IRstuff]

Is this for school?

TTFN
faq731-376

 

[rih5342]

It's not for school.
I guess I've been spoiled by IVF and was hoping for a work around.

 

[rih5342]

PROGRAM real_binary_format
IMPLICIT NONE
integer :: jj
integer :: ii = 1
real :: xx = 1.0e00

write(*,'(/,1x,a20)') ' real_binary_format '

write(*,'(1x, a7, 1x, b32.32)') ' ii = ', ii

jj = transfer(xx,ii)
write(*,'(1x, a7, 1x, b32.32)') ' xx = ', jj

end program real_binary_format