This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch, fortran] PR - Problems with -fwhole-file
- From: Paul Richard Thomas <paul dot richard dot thomas at gmail dot com>
- To: Tobias Burnus <burnus at net-b dot de>
- Cc: "fortran at gcc dot gnu dot org" <fortran at gcc dot gnu dot org>, gcc-patches <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 17 May 2009 16:57:24 +0200
- Subject: Re: [Patch, fortran] PR - Problems with -fwhole-file
- References: <339c37f20905161404q2fc8d9f7i322c8e30eb895c9e@mail.gmail.com> <4A100E22.1010601@net-b.de>
Dear Tobias,
> For the following test case:
>
> ? ? ?SUBROUTINE vrfftb(m,n,r,rt,mdimr,wsave)
> ? ? ?DIMENSION r(mdimr,n),rt(mdimr,n),wsave(n+15)
> ? ? ?CALL vrftb1(m,n,r,rt,mdimr,wsave(1),wsave(n+1))
> ? ? ?END
>
> ? ? ?SUBROUTINE vradb3(mp,ido,l1,cc,ch,mdimc,wa1,wa2)
> ? ? ?DIMENSION cc(mdimc,ido,3,l1),ch(mdimc,ido,l1,3),wa1(ido),wa2(ido)
> ? ? ?END
>
> ? ? ?SUBROUTINE vrftb1(m,n,c,ch,mdimc,wa,fac)
> ? ? ?DIMENSION ch(mdimc,n),c(mdimc,n),wa(n),fac(15)
> ? ? ?DO k1 = 1,nf
> ? ? ? ? CALL vradb3(m,ido,l1,c,ch,mdimc,wa(iw),wa(ix2))
> ? ? ? ? GO TO 80
> ? 70 ? ?CALL vradb3(m,ido,l1,ch,c,mdimc,wa(iw),wa(ix2))
> ? 80 ? ?continue
> ? ? ?end do
> ? ? ?END
This does not fail for me (FC9/x86_64).
If you continue to see it with the patch applied, please let me know.
Thanks
Paul