------- Comment #2 from dominiq at lps dot ens dot fr 2007-11-13 15:08 -------
Reduced test case:
module TransferBug
type ByteType
character(len=1) :: singleByte
end type
contains
subroutine BytesToString(bytes, string)
type (ByteType), intent(in) :: bytes(:)
character(len=*), intent(out) :: string
string = 'Hi! '
! print *, len(trim(string)) ! <-- works
print *, len(transfer(bytes, string)) ! <-- gives garbage (crash with
g95)
end subroutine
end module
program main
use TransferBug
character(len=100) :: str
type (ByteType) :: bytes(4)
bytes = (/ByteType('t'), ByteType('e'), ByteType('s'), ByteType('t')/)
call BytesToString( bytes, str )
print *, trim(str) ! This should print 'Hi!'
end program
[karma] f90/bug% gfc -fbounds-check pr34080_red.f90
[karma] f90/bug% a.out
0
0låŨ0l0 ]Q(Ô¿ÿà`á
d
[karma] f90/bug% pgfc -fbounds-check pr34080_red.f90
[karma] f90/bug% a.out
100
Hi!
If I exchange the commented print lines, the code works. So the bug is related
to transfer, but apparently through some memory leak and not due to its result.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34080
