2011-10-12から1日間の記事一覧
program exercise3 implicit none ! Variables real, target :: a(5:10) real, pointer :: p1(:), p2(:) ! Body of test5 p1 => a p2 => a(:) print *, associated(p1, a), lbound(p1) print *, associated(p2, a), lbound(p2) print *, associated(p1, p2),…