https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67460
Bug ID: 67460
Summary: [5/6 Regression] Spurious: f951: all warnings being
treated as errors
Product: gcc
Version: 6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: Joost.VandeVondele at mat dot ethz.ch
Target Milestone: ---
The testcase below leads to spurious output at compile time, even though no
warning (or error) is emitted. This started with the 5. release, 4.9 is fine.
In a large build this can trigger many times, but it does not always trigger.
> gfortran -c -std=f2003 -Werror bug.f90
f951: all warnings being treated as errors
> cat bug.f90
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
