?? char_result_9.f90
字號:
! { dg-do compile }! PR 18883: Fake result variables of non-constant length, in modulemodule foocontains function s_to_c(chars) character, pointer :: chars(:) character(len=len(chars)) :: s_to_c s_to_c = 'a' end function s_to_cend module fooprogram huj use foo implicit none character, pointer :: c(:) character(3) :: s allocate(c(5)) c = (/"a", "b", "c" /) s = s_to_c(c)end program huj
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -