Searched refs:char_result (Results 1 – 1 of 1) sorted by relevance
43 character(kind=1, len=3), parameter :: char_result(*, *) = & variable46 logical, parameter :: test_reshape_char_1 = all(char_result == char_expected_result)47 logical, parameter :: test_reshape_char_2 = all(shape(char_result, 8).EQ.new_shape)