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