Subversion Repositories openrisc

! { dg-do compile }
!
! PR 39996: Double typing of function results not detected
!
! Contributed by Janus Weil <janus@gcc.gnu.org>

  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