gcc/testsuite/gfortran.dg/pr84088.f90

   1 ! { dg-do run }
   2 !
   3 ! Test of fix for case in comment #7 of PR84088.
   4 !
   5 ! Contributed by Tom de Vries  <vries@gcc.gnu.org>
   6 !
   7 implicit none
   8   integer(kind=4) z
   9
  10   call foo (z)
  11
  12 contains
  13   subroutine foo (a)
  14     type (*), dimension (..), contiguous :: a
  15     integer(kind = 4) :: i
  16     if(sizeof (a) .ne. sizeof (i)) STOP 1
  17   end subroutine foo
  18
  19 end program