?? cray_pointers_1.f90
字號:
! { dg-do compile }! { dg-options "-fcray-pointer" }! Bad type for pointersubroutine err1 real ipt real array(10) pointer (ipt, array) ! { dg-error "integer" }end subroutine err1! Multiple declarations for the same pointeesubroutine err2 real array(10) pointer (ipt1, array) pointer (ipt2, array) ! { dg-error "multiple" }end subroutine err2! Vector assignment to an assumed size arraysubroutine err3 real target(10) real array(*) pointer (ipt, array) ipt = loc (target) array = 0 ! { dg-error "Vector assignment" }end subroutine err3subroutine err4 pointer (ipt, ipt) ! { dg-error "POINTER attribute" }end subroutine err4! duplicate array specssubroutine err5 pointer (ipt, array(7)) real array(10) ! { dg-error "Duplicate array" } end subroutine err5subroutine err6 real array(10) pointer (ipt, array(7)) ! { dg-error "Duplicate array" }end subroutine err6! parsing stuffsubroutine err7 pointer ( ! { dg-error "variable name" } pointer (ipt ! { dg-error "Expected" } pointer (ipt, ! { dg-error "variable name" } pointer (ipt,a1 ! { dg-error "Expected" } pointer (ipt,a2), ! { dg-error "Expected" } pointer (ipt,a3),( ! { dg-error "variable name" } pointer (ipt,a4),(ipt2 ! { dg-error "Expected" } pointer (ipt,a5),(ipt2, ! { dg-error "variable name" } pointer (ipt,a6),(ipt2,a7 ! { dg-error "Expected" }end subroutine err7! more attributessubroutine err8(array) real array(10) integer dim(2) integer, pointer :: f90ptr integer, target :: f90targ pointer (ipt, array) ! { dg-error "DUMMY" } pointer (dim, elt1) ! { dg-error "DIMENSION" } pointer (f90ptr, elt2) ! { dg-error "POINTER" } pointer (ipt, f90ptr) ! { dg-error "POINTER" } pointer (f90targ, elt3) ! { dg-error "TARGET" } pointer (ipt, f90targ) ! { dg-error "TARGET" }end subroutine err8?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -