https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95743
Bug ID: 95743
Summary: [9/10 Regression] bogus recursive call to nonrecursive
procedure with -fcheck=recursion
Product: gcc
Version: 9.3.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: antoine.lemo...@bordeaux-inp.fr
Target Milestone: ---
I was able to reproduce the closed bug #80361 with gfortran 9.3.0 and 10.1.0
using the following code:
program test_recursive_call
implicit none
type t_tree_node
type(t_tree_node), dimension(:), allocatable :: child
end type
type t_tree
type(t_tree_node), allocatable :: root
end type
type(t_tree), allocatable :: tree
allocate(tree)
allocate(tree%root)
allocate(tree%root%child(1))
! If the line below is removed, the code works fine.
allocate(tree%root%child(1)%child(1))
deallocate(tree)
end program
Command line to compile the code:
gfortran -g -fcheck=recursion -o tree tree.f90
I obtain the following runtime error:
At line 1 of file tree.f90
Fortran runtime error: Recursive call to nonrecursive procedure
'__deallocate_test_recursive_call_T_tree_node'
Error termination. Backtrace:
#0 0x5623824511fb in __deallocate_test_recursive_call_T_tree_node
at /home/****/fortran/test_gcc_ice2/tree.f90:1
#1 0x562382451302 in __deallocate_test_recursive_call_T_tree_node
at /home/****/fortran/test_gcc_ice2/tree.f90:1
#2 0x562382451b95 in test_recursive_call
at /home/****/fortran/test_gcc_ice2/tree.f90:18
#3 0x562382452230 in main
at /home/****/fortran/test_gcc_ice2/tree.f90:19
It works fine without -fcheck=recursion.
