blob: 8c6784432c99903c7ccc06ba71a429ccadac17cc [file] [log] [blame]
! { dg-do compile }
! PR fortran/105543 - function returning contiguous class array
! Contributed by martin <mscfd@gmx.net>
module func_contiguous
implicit none
type :: a
end type a
contains
function create1 () result(x)
class(a), dimension(:), contiguous, pointer :: x
end
function create2 ()
class(a), dimension(:), contiguous, pointer :: create2
end
function create3 () result(x)
class(*), dimension(:), contiguous, pointer :: x
end
function create4 ()
class(*), dimension(:), contiguous, pointer :: create4
end
end module func_contiguous