📄 der_pointer_2.f90
字号:
! { dg-do compile }! PR 15975, PR 16606! Pointers to derived types with initialized components!! Contributed by Erik Edelmann <erik.edelmann@iki.fi>!SUBROUTINE N TYPE T INTEGER :: I = 99 END TYPE T TYPE(T), POINTER :: P TYPE(T), TARGET :: Q P => Q if (P%I.ne.99) call abort ()END SUBROUTINE Nprogram test_pr15975 call n ()end program test_pr15975
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -