gcc/testsuite/gfortran.dg/intrinsic_size.f90

   1 ! { dg-do compile }
   2 !
   3 ! Argument checking; dim and kind have to be scalar
   4 !
   5 ! PR fortran/33297
   6 !
   7   integer array(5), i1, i2
   8   print *, size(array,(/i1,i2/))  ! { dg-error "must be a scalar" }
   9   print *, size(array,i1,(/i1,i2/))  ! { dg-error "must be a scalar" }
  10   end