------- Comment #9 from burnus at gcc dot gnu dot org 2008-01-11 14:02 -------
For the following ill-defined program, also a warning should be printed. It
comes from PR 34537 and had before an ICE. NAG f95 prints "Intrinsic TRANSFER
has partly undefined result".
program main
implicit none
character(len=8), target :: t
character(len=8), pointer :: p
p => t
call test(p)
print *, t
contains
subroutine test(a)
character(len=8),pointer :: a
a = transfer('Sample',a)
end subroutine test
end program main
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33037
