gcc/testsuite/gfortran.dg/pr78092.f90

   1 ! { dg-do run }
   2 program test_stuff
   3
   4   implicit none
   5
   6   integer :: ivar1(2,3), ivar2
   7
   8   ivar1 = 6
   9   call poly_sizeof(ivar1, ivar2)
  10
  11   if (ivar2 /= 4) STOP 1
  12
  13   contains
  14
  15   subroutine poly_sizeof(arg1,arg2)
  16     class(*), intent(in) :: arg1(:,:)
  17     integer, intent(out) :: arg2
  18     arg2 = sizeof(arg1(1,1))
  19   end subroutine
  20
  21 end program test_stuff