[Bug fortran/67505] New: Runtime error: recursive call to final subroutine

[Bug fortran/67505] New: Runtime error: recursive call to final subroutine

[kergonath at me dot com]

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

[Bug fortran/67505] Runtime error: recursive call to final subroutine

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67505

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2015-09-08
             Blocks|                            |37336
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Confirmed for 4.9 up to trunk (6.0). Marked as blocking pr37336. I let you
check that it is not a duplicate.


Referenced Bugs:

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=37336
[Bug 37336] [F03] Finish derived-type finalization

[Bug fortran/67505] Runtime error: recursive call to final subroutine

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67505

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |neil.n.carlson at gmail dot com

--- Comment #2 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
*** Bug 67560 has been marked as a duplicate of this bug. ***