xref: /llvm-project/flang/test/Semantics/generic02.f90 (revision 5be7f8a666daee086042da0650b595a0938e3da2)
1! RUN: %python %S/test_errors.py %s %flang_fc1
2program test
3  !ERROR: Generic interface 'generic' must not use abstract interface 'abstract' as a specific procedure
4  interface generic
5    subroutine explicit(n)
6      integer, intent(in) :: n
7    end subroutine
8    procedure implicit
9    procedure abstract
10  end interface
11  abstract interface
12    subroutine abstract
13    end subroutine
14  end interface
15!ERROR: Specific procedure 'implicit' of generic interface 'generic' must have an explicit interface
16  external implicit
17  call generic(1)
18end
19