32 lines · plain
1! RUN: %flang -fsyntax-only -pedantic 2>&1 %s | FileCheck %s2! Verifies that warnings issue when actual arguments with implicit3! interfaces are associated with dummy procedures and dummy procedure4! pointers whose interfaces are explicit.5module m6 contains7 real function realfunc(x)8 real, intent(in) :: x9 realfunc = x10 end function11 subroutine s00(p0)12 procedure(realfunc) :: p013 end subroutine14 subroutine s01(p1)15 procedure(realfunc), pointer, intent(in) :: p116 end subroutine17 subroutine s02(p2)18 procedure(realfunc), pointer :: p219 end subroutine20 subroutine test21 external :: extfunc22 external :: extfuncPtr23 pointer :: extfuncPtr24 !CHECK: Actual procedure argument has an implicit interface which is not known to be compatible with dummy argument 'p0=' which has an explicit interface25 call s00(extfunc)26 !CHECK: Actual procedure argument has an implicit interface which is not known to be compatible with dummy argument 'p1=' which has an explicit interface27 call s01(extfunc)28 !CHECK: Actual procedure argument has an implicit interface which is not known to be compatible with dummy argument 'p2=' which has an explicit interface29 call s02(extfuncPtr)30 end subroutine31end module32