1! { dg-do compile }
2!
3! PR fortran/44347 - arguments of SELECTED_REAL_KIND shall be scalar
4! Testcase contributed by Vittorio Zecca <zeccav AT gmail DOT com>
5!
6
7  dimension ip(1), ir(1)
8  i = selected_real_kind(ip, i)      ! { dg-error "must be a scalar" }
9  j = selected_real_kind(i, ir)      ! { dg-error "must be a scalar" }
10end
11