http://gcc.gnu.org/bugzilla/show_bug.cgi?id=46325
--- Comment #6 from Tobias Burnus <burnus at gcc dot gnu.org> 2010-11-11
22:32:26 UTC ---
(In reply to comment #5)
> Well, the actual argument associated with pfoo here is not x but
> (/"is Ja","ne Fo","nda "/)
Well, the effective argument nevertheless does not have the TARGET attribute.
Thus I believe the same argument applies and the test case is invalid.
> y => <undefined pointer>
Actually, already that line is invalid (per 7.1.9.2).
> but if the same thing applies to it too, then the
> gfortran.dg/char_initialiser_actual.f90 testcase is invalid too and thus
> should
> be nuked.
Well, not nuked but modified:
@@ -26,3 +26,4 @@ contains
character*5, dimension(:), pointer :: pfoo
- pfoo => ch2
+ allocate(pfoo(size(ch2)))
+ pfoo = ch2
end function pfoo
