1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! Bogus "all warnings being treated as errors"
! { dg-do compile }
! { dg-options "-std=f2003 -Werror" }
MODULE btree_i8_k_sp2d_v
TYPE btree_node
INTEGER id
TYPE(btree_node_p), DIMENSION(:), POINTER :: subtrees
TYPE(btree_node), POINTER :: parent
END TYPE btree_node
TYPE btree_node_p
TYPE(btree_node), POINTER :: node
END TYPE btree_node_p
CONTAINS
RECURSIVE SUBROUTINE btree_verify_node (tree, node, level, nids, lastv,&
count, num_nodes, max_leaf_level, min_leaf_level, printing)
TYPE(btree_node), INTENT(IN) :: node
INTEGER :: branch
IF (ASSOCIATED (node%subtrees(branch)%node)) THEN
IF (node%subtrees(branch)%node%parent%id .NE. node%id) THEN
WRITE(*,*)'foo'
ENDIF
ENDIF
END SUBROUTINE btree_verify_node
END MODULE btree_i8_k_sp2d_v
|
