! RUN: %python %S/test_errors.py %s %flang_fc1 | |
program test | |
!ERROR: Generic interface 'generic' must not use abstract interface 'abstract' as a specific procedure | |
interface generic | |
subroutine explicit(n) | |
integer, intent(in) :: n | |
end subroutine | |
procedure implicit | |
procedure abstract | |
end interface | |
abstract interface | |
subroutine abstract | |
end subroutine | |
end interface | |
!ERROR: Specific procedure 'implicit' of generic interface 'generic' must have an explicit interface | |
external implicit | |
call generic(1) | |
end |