D | folding05.f90 | 5 logical, parameter :: test_char1_ok1 = char(0_4, 1).EQ."" 6 logical, parameter :: test_char1_ok2 = char(127_4, 1).EQ."" variable 7 logical, parameter :: test_char1_ok3 = char(97_4, 1).EQ."a" 8 logical, parameter :: test_char1_ok4 = .NOT.char(97_4, 1).EQ."b" 9 logical, parameter :: test_char1_ok5 = char(355_4, 1).EQ."c" 10 logical, parameter :: test_char1_ok6 = char(-61_1, 1).EQ.char(195_4, 1) 12 logical, parameter :: test_char2_ok1 = char(0_4, 2).EQ.2_"" 13 logical, parameter :: test_char2_ok2 = char(127_4, 2).EQ.2_"" 14 logical, parameter :: test_char2_ok3 = char(122_4, 2).EQ.2_"z" 16 logical, parameter :: test_char4_ok1 = char(0, 4).EQ.4_"" [all …]
|