2f999cce19
When checking the specific procedures of a generic interface for a match against a given set of actual arguments, be sure to not match a function against a subroutine call or vice versa. (We generally catch and warn about attempts to declare mixed interfaces, but they are usually conforming and can be inadvertently created when generics are merged due to USE and host association.) Differential Revision: https://reviews.llvm.org/D139059
53 lines
1.4 KiB
Fortran
53 lines
1.4 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Tests valid and invalid usage of forward references to procedures
|
|
! in specification expressions.
|
|
module m
|
|
interface ifn2
|
|
module procedure if2
|
|
end interface
|
|
interface ifn3
|
|
module procedure if3
|
|
end interface
|
|
!ERROR: Automatic data object 'a' may not appear in the specification part of a module
|
|
real :: a(if1(1))
|
|
!ERROR: No specific function of generic 'ifn2' matches the actual arguments
|
|
real :: b(ifn2(1))
|
|
contains
|
|
subroutine t1(n)
|
|
integer :: iarr(if1(n))
|
|
end subroutine
|
|
pure integer function if1(n)
|
|
integer, intent(in) :: n
|
|
if1 = n
|
|
end function
|
|
subroutine t2(n)
|
|
integer :: iarr(ifn3(n)) ! should resolve to if3
|
|
end subroutine
|
|
pure integer function if2(n)
|
|
integer, intent(in) :: n
|
|
if2 = n
|
|
end function
|
|
pure integer function if3(n)
|
|
integer, intent(in) :: n
|
|
if3 = n
|
|
end function
|
|
end module
|
|
|
|
subroutine nester
|
|
!ERROR: The internal function 'if1' may not be referenced in a specification expression
|
|
real :: a(if1(1))
|
|
contains
|
|
subroutine t1(n)
|
|
!ERROR: The internal function 'if2' may not be referenced in a specification expression
|
|
integer :: iarr(if2(n))
|
|
end subroutine
|
|
pure integer function if1(n)
|
|
integer, intent(in) :: n
|
|
if1 = n
|
|
end function
|
|
pure integer function if2(n)
|
|
integer, intent(in) :: n
|
|
if2 = n
|
|
end function
|
|
end subroutine
|