📄 associated_target_1.f90
字号:
! { dg-do compile }! This tests the patch for PR27584, where an ICE would ensue if! a bad argument was fed for the target in ASSOCIATED.!! Contributed by Tobias Burnus <tobias.burnus@physik.fu-berlin.de>!program test implicit none real, pointer :: x real, target :: y if(ASSOCIATED(X,(Y))) print *, 'Hello' ! { dg-error "VARIABLE or FUNCTION" }end program test
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -