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  

!

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" } }