gcc/testsuite/gfortran.dg/size_dim.f90

   1 ! { dg-do run }
   2 ! Check size with initialization expression value for dim=
   3 ! PR fortran/30882
   4 !
   5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   6 !
   7 program main
   8   integer :: a(10)
   9   call S1(a)
  10 contains
  11   subroutine S1(a)
  12     integer :: a(*)
  13     if(size(a(1:10),1) /= 10) call abort()
  14   end subroutine S1
  15 end program main