17 lines
623 B
Fortran
17 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
|