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