3 ! Check that runtime result values of SELECTED_CHAR_KIND agree with
4 ! front-end simplification results.
10 if (selected_char_kind(s
) /= selected_char_kind("ascii")) call abort
13 if (selected_char_kind(s
) /= selected_char_kind("default")) call abort
16 if (selected_char_kind(s
) /= selected_char_kind("iso_10646")) call abort
19 if (selected_char_kind(s
) /= selected_char_kind("")) call abort
22 if (selected_char_kind(s
) /= selected_char_kind("invalid")) call abort