This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Fortran, Patch, PR{43366, 57117, 61337, 61376}, v1] Assign to polymorphic objects.
- From: Andre Vehreschild <vehre at gmx dot de>
- To: Dominique d'Humières <dominiq at lps dot ens dot fr>
- Cc: David Edelsohn <dje dot gcc at gmail dot com>, GCC Patches <gcc-patches at gcc dot gnu dot org>, Fortran List <fortran at gcc dot gnu dot org>
- Date: Thu, 1 Dec 2016 19:31:58 +0100
- Subject: Re: [Fortran, Patch, PR{43366, 57117, 61337, 61376}, v1] Assign to polymorphic objects.
- Authentication-results: sourceware.org; auth=none
- References: <CAGWvnyk=24+xr4TMWksnvq5Qg8i1x4Cx8S_tagdDahQD6d1U1A@mail.gmail.com> <8FE89D89-40DB-4967-A154-A1EB3F5566D0@lps.ens.fr>
Hi all,
I am sorry, but the initial mail as well as Dominique answer puzzles me:
David: I do expect to
write (*,*) any
not being compilable at all, because "any" is an intrinsic function and I
suppose that gfortran is not able to print it. At best it gives an address. So
am I right to assume that it should have been:
write (*,*) x
?
Which is a bit strange. Furthermore is it difficult for me to debug, because I
do not have access to an AIX machine. What address size does the machine have
32/48/64-bit? Is there a chance you send me the file that is generated
additionally by gfortran when called with -fdump-tree-original ? The file is
named alloc_comp_class_5.f03.003t.original usually.
Dominique: How did you get that? Do you have access to an AIX machine? What
kind of instrumentation was active in the compiler you mentioned?
- Andre
On Wed, 30 Nov 2016 21:51:30 +0100
Dominique d'Humières <dominiq@lps.ens.fr> wrote:
> If I compile the test with an instrumented gfortran , I get
>
> ../../work/gcc/fortran/interface.c:2948:33: runtime error: load of value
> 1818451807, which is not a valid value for type ‘expr_t'
>
> Dominique
>
> > Le 30 nov. 2016 à 21:06, David Edelsohn <dje.gcc@gmail.com> a écrit :
> >
> > Hi, Andre
> >
> > I have noticed that the alloc_comp_class_5.f03 testcase fails on AIX.
> > Annotating the testcase a little, shows that the failure is at
> >
> > if (any(x /= ["foo", "bar", "baz"])) call abort()
> >
> > write (*,*) any
> >
> > at the point of failure produces
> >
> > "foobarba"
> >
> > - David
>
--
Andre Vehreschild * Email: vehre ad gmx dot de