blob: 0e1496a2f732a6ed1402db6b96a36c993effe24f [file] [log] [blame]
! { dg-do compile }
!
! PR fortran/65889
!
!
module m
type n
end type n
contains
subroutine g(ns)
class(n), intent(out), allocatable, dimension(:) :: ns
class(n), allocatable, dimension(:) :: tmp
write (0,*) sizeof(ns), sizeof(tmp)
end subroutine g
end module m