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