Subversion Repositories openrisc

! { dg-do compile }

!

! PR 39996: Double typing of function results not detected

!

! Contributed by Janus Weil 

  interface

    real function A ()

    end function

  end interface

  real :: A  ! { dg-error "already has basic type of" }

  real :: B

  interface

    real function B ()  ! { dg-error "already has basic type of" }

    end function  ! { dg-error "Expecting END INTERFACE statement" }

  end interface

  interface

    function C ()

      real :: C

    end function

  end interface

  real :: C  ! { dg-error "already has basic type of" }

  real :: D

  interface

    function D ()

      real :: D  ! { dg-error "already has basic type of" }

    end function

  end interface

  interface

    function E () result (s)

      real ::s

    end function

  end interface

  real :: E  ! { dg-error "already has basic type of" }

  real :: F

  interface

    function F () result (s)

      real ::s  ! { dg-error "already has basic type of" }

    end function F

  end interface

end