gcc/testsuite/gfortran.dg/sizeof_5.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/65889
   4 !
   5 !
   6 module m
   7   type n
   8   end type n
   9 contains
  10   subroutine g(ns)
  11     class(n), intent(out), allocatable, dimension(:) :: ns
  12     class(n), allocatable, dimension(:) :: tmp
  13     write (0,*) sizeof(ns), sizeof(tmp)
  14   end subroutine g
  15 end module m