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
11