https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86830
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |rejects-valid
Status|UNCONFIRMED |NEW
Last reconfirmed| |2018-09-06
CC| |janus at gcc dot gnu.org
Summary|Contiguous array pointer |[8/9 Regression] Contiguous
|function result not |array pointer function
|recognized as contiguous |result not recognized as
| |contiguous
Ever confirmed|0 |1
--- Comment #1 from janus at gcc dot gnu.org ---
I can confirm the error with gfortran 8 and trunk, but I don't see it with
7.3.0 and earlier. Seems to be a regression. Slightly reduced test case:
module m
implicit none
type :: t1
contains
procedure :: get_ptr
end type
type :: t2
class(t1), allocatable :: c
end type
contains
function get_ptr(this)
class(t1) :: this
real, dimension(:), contiguous, pointer :: get_ptr
end function
subroutine test()
real, dimension(:), contiguous, pointer:: ptr
type(t2) :: x
ptr => x%c%get_ptr()
end subroutine
end module
