--- Comment #9 from fxcoudert at gcc dot gnu dot org 2007-08-31 13:56
---
*** Bug 33264 has been marked as a duplicate of this bug. ***
--
fxcoudert at gcc dot gnu dot org changed:
What|Removed |Added
--
--- Comment #8 from dpgrote at lbl dot gov 2007-08-24 16:29 ---
Subject: Re: array pointer assignment gives incorrect
dimensions
Great! Thanks for fixing this!
Dave
burnus at gcc dot gnu dot org wrote:
> --- Comment #7 from burnus at gcc dot gnu dot org 2007-08-24 15:04
> -
--- Comment #7 from burnus at gcc dot gnu dot org 2007-08-24 15:04 ---
I said: FIXED.
--
burnus at gcc dot gnu dot org changed:
What|Removed |Added
Status|ASS
--- Comment #6 from burnus at gcc dot gnu dot org 2007-08-24 15:03 ---
FIXED for gfortran 4.3.0.
--
burnus at gcc dot gnu dot org changed:
What|Removed |Added
--- Comment #5 from burnus at gcc dot gnu dot org 2007-08-24 15:01 ---
Subject: Bug 33139
Author: burnus
Date: Fri Aug 24 15:00:59 2007
New Revision: 127770
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=127770
Log:
2007-08-24 Tobias Burnus <[EMAIL PROTECTED]>
PR fort
--- Comment #4 from patchapp at dberlin dot org 2007-08-24 14:46 ---
Subject: Bug number PR33139
A patch for this bug has been added to the patch tracker.
The mailing list url for the patch is
http://gcc.gnu.org/ml/gcc-patches/2007-08/msg01651.html
--
http://gcc.gnu.org/bugzilla/sh
--- Comment #3 from burnus at gcc dot gnu dot org 2007-08-22 14:41 ---
Note: for a(:) and thus also for "p=>a(:)" the lbound starts at 1 (this is
somewhere hidden in "6.2.2.3 Array sections") - this part works.
Partial patch. Note: This patch is incomplete as one also needs to set the
o
--- Comment #2 from fxcoudert at gcc dot gnu dot org 2007-08-22 11:23
---
> real, TARGET :: a(0:100)
> real, pointer :: p(:)
> p => a
> print *, lbound(a), ubound(a)
> print *, lbound(p), ubound(p)
> end
This generates the following code:
struct array1_real4 p;
real4 a
--- Comment #1 from burnus at gcc dot gnu dot org 2007-08-22 06:36 ---
Minimal example:
implicit none
real, TARGET :: a(0:100)
real, pointer :: p(:)
p => a
print *, lbound(a), ubound(a)
print *, lbound(p), ubound(p)
end
Prints:
0 100
1
