gcc/testsuite/gfortran.dg/selected_real_kind_1.f90

   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" }
  10 end