xref: /llvm-project/flang/test/Semantics/generic02.f90 (revision 5be7f8a666daee086042da0650b595a0938e3da2)
13b7b7fa7SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1
23b7b7fa7SPeter Klauslerprogram test
3*5be7f8a6SPeter Klausler  !ERROR: Generic interface 'generic' must not use abstract interface 'abstract' as a specific procedure
43b7b7fa7SPeter Klausler  interface generic
53b7b7fa7SPeter Klausler    subroutine explicit(n)
63b7b7fa7SPeter Klausler      integer, intent(in) :: n
73b7b7fa7SPeter Klausler    end subroutine
83b7b7fa7SPeter Klausler    procedure implicit
9*5be7f8a6SPeter Klausler    procedure abstract
10*5be7f8a6SPeter Klausler  end interface
11*5be7f8a6SPeter Klausler  abstract interface
12*5be7f8a6SPeter Klausler    subroutine abstract
13*5be7f8a6SPeter Klausler    end subroutine
143b7b7fa7SPeter Klausler  end interface
153b7b7fa7SPeter Klausler!ERROR: Specific procedure 'implicit' of generic interface 'generic' must have an explicit interface
163b7b7fa7SPeter Klausler  external implicit
173b7b7fa7SPeter Klausler  call generic(1)
183b7b7fa7SPeter Klauslerend
19