This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: RFC: Help me understand this

Jerry DeLisle wrote:
Hi folks,

I have been exploring Dominique's comment 19 to pr31610. I think there is something else going on here. Maybe someone can help me understand.

With this exploratory case.

character(len=20) :: string
character(len=20) :: outstr
character(len=1)  :: c, x
logical :: a(20)
c = "A"
x = "x"
string = "jjjjjjjjjjjjjjjjjjjj"
outstr = "rrrrrrrrrrrrrrrrrrrr"
a = .true.
outstr = transfer (merge (transfer(c, x, 20), "b", a), string )
write(*,*) oustr
^^^^^
end

This lacks a t. Is this intentional?

Cheers,
- Tobi

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]