https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67505
Bug ID: 67505
Summary: Runtime error: recursive call to final subroutine
Product: gcc
Version: 6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: kergonath at me dot com
Target Milestone: ---
When compiled with -fcheck=all, the included code crashes with the following
error message:
At line 16 of file foo.f90
Fortran runtime error: Recursive call to nonrecursive procedure
'__final_mod_foo_Foo'
The fortran version is 6.0:
Using built-in specs.
COLLECT_GCC=gfortran-mp-6
COLLECT_LTO_WRAPPER=/opt/local/libexec/gcc/x86_64-apple-darwin14/6.0.0/lto-wrapper
Target: x86_64-apple-darwin14
Configured with:
/opt/local/var/macports/build/_opt_mports_dports_lang_gcc6/gcc6/work/gcc-6-20150830/configure
--prefix=/opt/local --build=x86_64-apple-darwin14
--enable-languages=c,c++,objc,obj-c++,lto,fortran,java
--libdir=/opt/local/lib/gcc6 --includedir=/opt/local/include/gcc6
--infodir=/opt/local/share/info --mandir=/opt/local/share/man
--datarootdir=/opt/local/share/gcc-6 --with-local-prefix=/opt/local
--with-system-zlib --disable-nls --program-suffix=-mp-6
--with-gxx-include-dir=/opt/local/include/gcc6/c++/ --with-gmp=/opt/local
--with-mpfr=/opt/local --with-mpc=/opt/local --with-isl=/opt/local
--enable-stage1-checking --disable-multilib --enable-lto
--enable-libstdcxx-time --with-as=/opt/local/bin/as --with-ld=/opt/local/bin/ld
--with-ar=/opt/local/bin/ar --with-bugurl=https://trac.macports.org/newticket
--with-pkgversion='MacPorts gcc6 6-20150830_0'
Thread model: posix
gcc version 6.0.0 20150830 (experimental) (MacPorts gcc6 6-20150830_0)
The code is:
module mod_foo
implicit none
type, public :: foo
type(foo), pointer :: child => null()
contains
final :: foo_finalise
end type
contains
recursive subroutine foo_finalise(this)
type(foo), intent(inout) :: this
if (associated(this%child)) deallocate(this%child)
end subroutine
end module
program test
use mod_foo
block
type(foo) :: var
allocate(var%child)
end block
end program
