[Bug fortran/86830] [8/9 Regression] Contiguous array pointer function result not recognized as contiguous

[janus at gcc dot gnu.org]

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