如何在文本文件中写入Ω或任何其他希腊字母？

Question

我的IDE是：Code :: Blocks 20.03（编译器：mingw 9.2.0）

示例代码为：

program greek_letters

implicit none

write(*,*) "resistance is 100 Ω"

end program 

启动程序时，我收到一条消息，指出由于防止数据丢失，UTF 8编码已更改。

有没有理由不使用希腊字母来在.txt文件中写入工程结果？

Answer 1

并非所有编译器都支持Unicode字符，因此，如果使用Unicode字符，则在与另一个编译器一起编译时，程序的行为可能会有所不同。我认为ifort和IBM编译器目前都不支持ISO_10646。我个人会改写“ Ohm”。

话虽如此，它适用于gfortran 8.1.0：

program test
implicit none
integer, parameter ::  ucs4  = selected_char_kind ('ISO_10646')
character(kind=ucs4):: OhmSymbol = char(int(z'03A9'),kind=ucs4)

open(14,file='test.txt',status='unknown', encoding='UTF-8')
write(14,*) "14", OhmSymbol    
close(14)

end program test