[Bug fortran/92587] Compiler is unable to generate finalization wrapper

[marxin at gcc dot gnu.org]

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

--- Comment #6 from Martin Liška <marxin at gcc dot gnu.org> ---
(In reply to DIL from comment #5)
> If this helps, the gcc/gfortran svn repository from 17 Jan 2019 already had
> this regression bug while gcc/gfortran 8.2.0 did not. Hopefully this may
> help shorten the length of bisection.

But GCC 8 can't compile the file:

gfortran -c -g tensor_recursive.F90
tensor_recursive.F90:738:36:

         private TensBodyGetDataDescr
                                    1
Error: Symbol ‘tensbodygetdatadescr’ at (1) has no IMPLICIT type; did you mean
‘tensbodygetdatatype’?
tensor_recursive.F90:734:35:

         private TensBodySetLocation
                                   1
Error: Symbol ‘tensbodysetlocation’ at (1) has no IMPLICIT type; did you mean
‘tensbodygetdatatype’?
tensor_recursive.F90:714:38:

         private TensLayoutGetDataDescr
                                      1
Error: Symbol ‘tenslayoutgetdatadescr’ at (1) has no IMPLICIT type; did you
mean ‘tenslayoutgetdatatype’?
tensor_recursive.F90:706:37:

         private TensLayoutSetLocation
                                     1
Error: Symbol ‘tenslayoutsetlocation’ at (1) has no IMPLICIT type; did you mean
‘tenslayoutgetbodysize’?
tensor_recursive.F90:768:37:

         private TensRcrsvGetDataDescr
                                     1
Error: Symbol ‘tensrcrsvgetdatadescr’ at (1) has no IMPLICIT type; did you mean
‘tensrcrsvgetdatatype’?
tensor_recursive.F90:769:36:

         private TensRcrsvSetLocation
                                    1
Error: Symbol ‘tensrcrsvsetlocation’ at (1) has no IMPLICIT type; did you mean
‘tensrcrsvgetlayout’?