1! { dg-do compile } 2! { dg-options "-std=f2003" } 3! 4print *, selected_real_kind(p=precision(0.0),radix=2) ! { dg-error "Fortran 2008" } 5print *, selected_real_kind() ! { dg-error "neither 'P' nor 'R' argument" } 6end 7