blob: 60543f9d5c92dbb637482868f66a00208769de8f (
plain)
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
|
! { dg-do compile }
!
! PR fortran/33117, PR fortran/46478
! Procedures of a generic interface must be either
! all SUBROUTINEs or all FUNCTIONs.
!
!
! PR fortran/33117
!
module m1
interface gen
subroutine sub() ! { dg-error "all SUBROUTINEs or all FUNCTIONs" }
end subroutine sub
function bar()
real :: bar
end function bar
end interface gen
end module
!
! PR fortran/46478
!
MODULE m2
INTERFACE new_name
MODULE PROCEDURE func_name
MODULE PROCEDURE subr_name
END INTERFACE
CONTAINS
LOGICAL FUNCTION func_name() ! { dg-error "all SUBROUTINEs or all FUNCTIONs" }
END FUNCTION
SUBROUTINE subr_name()
END SUBROUTINE
END MODULE
|
