[Bug fortran/43217] Output of Hollerith constants which are not a multiple of 4 bytes

[dominiq at lps dot ens dot fr]

------- Comment #13 from dominiq at lps dot ens dot fr  2010-08-27 14:48 -------
The following test

! { dg-do run )
program hello2
  call wrtout (9hHELLO YOU, 9)
  stop
end

subroutine wrtout (iarray, nchrs)
  integer(1), parameter :: zero = 0
  LOGICAL, PARAMETER :: bigend = IACHAR(TRANSFER(1,"a")) == zero

  integer iarray(1)
  integer nchrs

  integer icpw
  data icpw/4/
  integer i, nwrds
  character(len=33) outstr

  nwrds = (nchrs + icpw - 1) /icpw
  write(outstr,'(4(z8," "))') (iarray(i), i=1,nwrds)
  if (.not.bigend.and.outstr.ne."4C4C4548 4F59204F 20202055") call abort
  if (bigend.and.outstr.ne."48454C4C 4F20594F 55202020") call abort
  return
end
! { dg-warning "Hollerith constant" "" { target *-*-* } 3 }
! { dg-warning "Rank mismatch" "" { target *-*-* } 3 }

seems to work on ppc and *86* platforms (please adjust the test according your
taste!-).


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43217