gcc/testsuite/gfortran.dg/selected_char_kind_3.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95 -pedantic -Wall -Wno-intrinsics-std" }
   3 !
   4 ! Check that SELECTED_CHAR_KIND is rejected with -std=f95
   5 !
   6   implicit none
   7   character(kind=selected_char_kind("ascii")) :: s ! { dg-error "must be an intrinsic function" }
   8   s = "" ! { dg-error "has no IMPLICIT type" }
   9   print *, s
  10 end