| H A D | folding06.f90 | 21 integer(8), parameter :: new_shape(*) = [2, 4] variable 28 integer(4), parameter :: int_expected_result(*, *) = reshape([1, 5, 2, 6, 3, 7, 4, 8], new_shape) 29 integer(4), parameter :: int_result(*, *) = reshape(int_source, new_shape, int_pad, order) 30 …ger(4), parameter :: int_result_long_source(*, *) = reshape([1, 5, 2, 6, 3, 7, 4, 8, 9], new_shape) 32 logical, parameter :: test_reshape_integer_2 = all(shape(int_result, 8).EQ.new_shape) 41 reshape(["abc", "mno", "def", "pqr", "ghi", "stu", "jkl", "vxy"], new_shape) 44 reshape(char_source, new_shape, char_pad, order) 47 logical, parameter :: test_reshape_char_2 = all(shape(char_result, 8).EQ.new_shape) 58 a(x=3.5_4,i=3_8),a(x=7.5_4,i=7_8),a(x=4.5_4,i=4_8),a(x=8.5_4,i=8_8)], new_shape) 60 …type(A), parameter :: derived_result(*, *) = reshape(derived_source, new_shape, derived_pad, order) [all …]
|