------- Comment #8 from jvdelisle at gcc dot gnu dot org 2009-10-16 01:58 ------- This seems to work. (Although I thought I saw **** once for the z4 value.)
program z implicit none real(10) e integer i integer(8), dimension(2) :: it call random_seed() do i=1,100 call random_number(e) it = transfer(e, it) write(*,'(E24.17,3X,Z4,Z16))') e, it(2), it(1) end do end program z -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41711
