80 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Ensures that a generic's shadowed procedure or derived type3! can be overridden by a valid interior interface definition4! in some cases.5 6module m17 contains8 subroutine foo9 end subroutine10 subroutine test11 interface foo12 subroutine foo(n)13 integer, intent(in) :: n14 end subroutine15 end interface16 call foo(1)17 end subroutine18end module19 20module m221 contains22 subroutine test23 interface foo24 subroutine foo(n)25 integer, intent(in) :: n26 end subroutine27 end interface28 call foo(1)29 end subroutine30 subroutine foo31 end subroutine32end module33 34module m335 interface36 subroutine foo37 end subroutine38 end interface39 contains40 subroutine test41 interface foo42 subroutine foo(n)43 integer, intent(in) :: n44 end subroutine45 end interface46 call foo(1)47 end subroutine48end module49 50module m4a51 contains52 subroutine foo53 end subroutine54end module55module m4b56 use m4a57 contains58 subroutine test59 interface foo60 subroutine foo(n)61 integer, intent(in) :: n62 end subroutine63 end interface64 call foo(1)65 end subroutine66end module67 68module m569 type bar70 end type71 contains72 subroutine test73 interface bar74 real function bar()75 end function76 end interface77 print *, bar()78 end subroutine79end module80