1! { dg-do run } 2! 3! Check that runtime result values of SELECTED_CHAR_KIND agree with 4! front-end simplification results. 5! 6 implicit none 7 character(len=20) :: s 8 9 s = "ascii" 10 if (selected_char_kind(s) /= selected_char_kind("ascii")) call abort 11 12 s = "default" 13 if (selected_char_kind(s) /= selected_char_kind("default")) call abort 14 15 s = "iso_10646" 16 if (selected_char_kind(s) /= selected_char_kind("iso_10646")) call abort 17 18 s = "" 19 if (selected_char_kind(s) /= selected_char_kind("")) call abort 20 21 s = "invalid" 22 if (selected_char_kind(s) /= selected_char_kind("invalid")) call abort 23 24end 25