5de49af540
Broaden the check for misuse of ABSTRACT procedure interfaces by doing it in expression analysis rather than name resolution so that cases like pointer assignment targets and actual arguments are also diagnosed as errors. Differential Revision: https://reviews.llvm.org/D136971
18 lines
623 B
Fortran
18 lines
623 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Test misuse of abstract interfaces
|
|
program test
|
|
abstract interface
|
|
subroutine abstract
|
|
end subroutine
|
|
end interface
|
|
procedure(abstract), pointer :: p
|
|
!ERROR: Abstract procedure interface 'abstract' may not be referenced
|
|
call abstract
|
|
!ERROR: Abstract procedure interface 'abstract' may not be used as a designator
|
|
p => abstract
|
|
!ERROR: Abstract procedure interface 'abstract' may not be used as a designator
|
|
call foo(abstract)
|
|
!ERROR: Abstract procedure interface 'abstract' may not be used as a designator
|
|
print *, associated(p, abstract)
|
|
end
|