------- Comment #1 from fxcoudert at gcc dot gnu dot org 2008-03-05 22:00
-------
Confirmed as rejecting valid code, reduced testcase is:
subroutine sub(arr)
type real_pointer
real, pointer :: p(:)
end type real_pointer
type(real_pointer), dimension(*) :: arr
real, pointer :: p(:)
p => arr(1)%p
end subroutine
$ gfortran -c a.f90
a.f90:9.7:
p => arr(1)%p
1
Error: The upper bound in the last dimension must appear in the reference to
the assumed size array 'arr' at (1)
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Keywords| |rejects-valid
Last reconfirmed|0000-00-00 00:00:00 |2008-03-05 22:00:12
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35470
