| ! { 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 |
| 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 "Ambiguous interfaces" } |
| integer :: foo_1 |
| integer, intent(in) :: a |
| foo_1 = 1 |
| end function foo_1 |
| function foo_1_OK (a) ! { dg-error "Ambiguous interfaces" } |
| 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 |
| |