xref: /llvm-project/flang/test/Semantics/abstract02.f90 (revision 5de49af54036f1427ae8669b6482a198cbfeff2a) 
1! RUN: %python %S/test_errors.py %s %flang_fc1
2! Test misuse of abstract interfaces
3program test
4  abstract interface
5    subroutine abstract
6    end subroutine
7  end interface
8  procedure(abstract), pointer :: p
9  !ERROR: Abstract procedure interface 'abstract' may not be referenced
10  call abstract
11  !ERROR: Abstract procedure interface 'abstract' may not be used as a designator
12  p => abstract
13  !ERROR: Abstract procedure interface 'abstract' may not be used as a designator
14  call foo(abstract)
15  !ERROR: Abstract procedure interface 'abstract' may not be used as a designator
16  print *, associated(p, abstract)
17end
18