Lines Matching defs:default
6 integer, parameter :: default = selected_char_kind ("default")
9 character(kind=default) :: s2
11 character(kind=selected_char_kind ("default")) :: s4
14 if (kind (s2) /= selected_char_kind ("default")) call abort
16 if (kind (s4) /= default) call abort
19 if (selected_char_kind("default") /= 1) call abort
23 if (selected_char_kind("default ") /= 1) call abort
26 call test("default", 1)
30 call test("default ", 1)
31 call test("default x", -1)
34 call test(ascii_"default", 1)
38 call test(ascii_"default ", 1)
39 call test(ascii_"default x", -1)
42 call test(default_"default", 1)
46 call test(default_"default ", 1)
47 call test(default_"default x", -1)
61 character(len=*,kind=selected_char_kind("default")) s