19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12program test3 !ERROR: Generic interface 'generic' must not use abstract interface 'abstract' as a specific procedure4 interface generic5 subroutine explicit(n)6 integer, intent(in) :: n7 end subroutine8 procedure implicit9 procedure abstract10 end interface11 abstract interface12 subroutine abstract13 end subroutine14 end interface15!ERROR: Specific procedure 'implicit' of generic interface 'generic' must have an explicit interface16 external implicit17 call generic(1)18end19