1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
! { 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" } }
|
