[Bug fortran/87734] [7/8/9 Regression] ICE in is_illegal_recursion check for character len= parameter

[tkoenig at gcc dot gnu.org]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid
                 CC|                            |tkoenig at gcc dot gnu.org

--- Comment #5 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
The test case is now rejected with trunk, looks like a recent 9 regression:

ig25@linux-p51k:/tmp> gfortran m_vstring.f90 
m_vstring.f90:24:30:

   24 |   pure function vstring_length ( this ) result ( length )
      |                              1
Error: MODULE-PROC procedure at (1) is already declared as EXTERNAL-PROC
procedure
m_vstring.f90:25:43:

   25 |     type ( t_vstring ) , intent(in) :: this
      |                                           1
Error: Unexpected data declaration statement in CONTAINS section at (1)
m_vstring.f90:26:21:

   26 |     integer :: length
      |                     1
Error: Unexpected data declaration statement in CONTAINS section at (1)
m_vstring.f90:27:27:

   27 |     if ( associated ( this%chars ) ) then
      |                           1
Error: Symbol 'this' at (1) has no IMPLICIT type
m_vstring.f90:28:26:

   28 |        length = SIZE(this%chars)
      |                          1
Error: Symbol 'this' at (1) has no IMPLICIT type
m_vstring.f90:29:8:

   29 |     else
      |        1
Error: Unexpected ELSE statement in CONTAINS section at (1)
m_vstring.f90:30:17:

   30 |        length = 0
      |                 1
Error: Unexpected assignment statement in CONTAINS section at (1)
m_vstring.f90:31:7:

   31 |     endif
      |       1
Error: Expecting END MODULE statement at (1)
m_vstring.f90:32:5:

   32 |   end function vstring_length
      |     1
Error: Expecting END MODULE statement at (1)
m_vstring.f90:10:26:

   10 |   public :: vstring_length
      |                          1
Error: Symbol 'vstring_length' at (1) has no IMPLICIT type
m_vstring.f90:17:21:

   17 |     character ( len = vstring_length ( this ) ) :: char_string
      |                     1
Error: 'vstring_length' at (1) is not a function