Subversion Repositories openrisc

! { dg-do compile }
! { dg-options "-std=legacy" }
! Tests the fix for PR27122, in which the requirements of 12.3.2.1.1
! for defined operators were not enforced.
! 
! Based on PR test by Thomas Koenig  <tkoenig@gcc.gnu.org>
!
module mymod
  interface operator (.foo.)
     module procedure foo_0
     module procedure foo_1
     module procedure foo_2
     module procedure foo_3
     module procedure foo_1_OK  ! { dg-error "Ambiguous interfaces" }
     module procedure foo_2_OK
     function foo_chr (chr) ! { dg-error "cannot be assumed character length" }
       character(*) :: foo_chr
       character(*), intent(in) :: chr
     end function foo_chr
  end interface

  !
  ! PR fortran/33117
  ! PR fortran/46478
  ! Mixing FUNCTIONs and SUBROUTINEs in an INTERFACE hides the
  ! errors that should be tested here. Hence split out subroutine
  ! to test separately.
  !
  interface operator (.bar.)
     subroutine bad_foo (chr) ! { dg-error "must be a FUNCTION" }
       character(*), intent(in) :: chr
     end subroutine bad_foo
  end interface

contains
  function foo_0 () ! { dg-error "must have at least one argument" }
    integer :: foo_1
    foo_0 = 1
  end function foo_0
  function foo_1 (a) ! { dg-error "must be INTENT" }
    integer :: foo_1
    integer :: a
    foo_1 = 1
  end function foo_1
  function foo_1_OK (a)
    integer :: foo_1_OK
    integer, intent (in) :: a
    foo_1_OK = 1
  end function foo_1_OK
  function foo_2 (a, b) ! { dg-error "cannot be optional" }
    integer :: foo_2
    integer, intent(in) :: a
    integer, intent(in), optional :: b
    foo_2 = 2 * a + b
  end function foo_2
  function foo_2_OK (a, b)
    real :: foo_2_OK
    real, intent(in) :: a
    real, intent(in) :: b
    foo_2_OK = 2.0 * a + b
  end function foo_2_OK
  function foo_3 (a, b, c) ! { dg-error "must have, at most, two arguments" }
    integer :: foo_3
    integer, intent(in) :: a, b, c
    foo_3 = a + 3 * b - c
  end function foo_3
end module mymod
! { dg-final { cleanup-modules "mymod" } }