?? der_init_5.f90
字號:
! Check that null initialization of pointer components works.! PR 15969 prompted these! the commented out tests are cases where we still failprogram der_init_5 type t type(t), pointer :: a => NULL() real, pointer :: b => NULL() character, pointer :: c => NULL() integer, pointer, dimension(:) :: d => NULL() end type t type (t) :: p if (associated(p%a)) call abort() if (associated(p%b)) call abort()! if (associated(p%c)) call abort() if (associated(p%d)) call abort()end?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -