[Bug fortran/94536] New: result keyword not working within module function interface in combination with a module procedure body

[Bug fortran/94536] New: result keyword not working within module function interface in combination with a module procedure body

[zinphi03 at hotmail dot com]

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

            Bug ID: 94536
           Summary: result keyword not working within module function
                    interface in combination with a module procedure body
           Product: gcc
           Version: 8.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: zinphi03 at hotmail dot com
  Target Milestone: ---

Created attachment 48245
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=48245&action=edit
Example source code

Version:
--------------------------------------------------------------------------
GNU Fortran (x86_64-posix-seh-rev0, Built by MinGW-W64 project) 8.1.0
--------------------------------------------------------------------------

Example: (test_modproc.f90)
--------------------------------------------------------------------------
module test_modproc

implicit none


interface test
    module function itest(input) result(output) !NOT WORKING
        implicit none
        integer, intent(in) :: input
        integer :: output
    end function itest

    module function rtest(input)
        implicit none
        real, intent(in) :: input
        real :: rtest !WORKING
    end function rtest
end interface

contains

    module procedure itest
        output=2*input !ERROR "Symbol 'output' at (1) has no IMPLICIT type"
    end procedure itest

    module procedure rtest
        rtest=2*input !NO ERROR
    end procedure rtest

end module test_modproc
--------------------------------------------------------------------------

Compiler command:
--------------------------------------------------------------------------
gfortran -c test_modproc.f90
--------------------------------------------------------------------------

Compiler error output:
--------------------------------------------------------------------------
test_modproc.f90:24:14:

         output=2*input !ERROR "Symbol 'output' at (1) has no IMPLICIT type"
              1
Error: Symbol 'output' at (1) has no IMPLICIT type; did you mean 'input'?
--------------------------------------------------------------------------

[Bug fortran/94536] result keyword not working within module function interface in combination with a module procedure body

[dominiq at lps dot ens.fr]

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

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

           What    |Removed                     |Added
----------------------------------------------------------------------------
     Ever confirmed|0                           |1
   Last reconfirmed|                            |2020-07-23
             Status|UNCONFIRMED                 |WAITING

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
This seems to be fixed since

gcc version 9.3.1 20200723  [revision r9-8756-g0a5be099c6f3p2] (GCC).