Re: printing logical variables as "true" and "false"

"*** Hendrickson" <***.hendrickson@xxxxxxx> wrote in message
news:psLif.187086$zb5.94880@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

> PS: It's a pretty slow day here.

Here, too. I finally got caught up. But I can't see how
you can do it with a statement function.

module print_assist
implicit none
contains
function print_logical(x)
logical, intent(in) :: x
character(merge(4,5,x)) print_logical

print_logical = merge('true ','false',x)
end function print_logical
end module print_assist

program test
use print_assist
implicit none

write(*,'(a)') ' .TRUE. = /'//print_logical(.TRUE.)//&
'/ .FALSE. = /'//print_logical(.FALSE.)//'/'
end program test

--
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end


.