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
