gcc/testsuite/gfortran.dg/interface_21.f90

   1 ! { dg-do compile }
   2 ! PR33162 INTRINSIC functions as ACTUAL argument
   3 ! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
   4 module m
   5 implicit none
   6 contains
   7   subroutine sub(a)
   8     interface
   9       function a(x)
  10         real :: a, x
  11         intent(in) :: x
  12       end function a
  13     end interface
  14     print *, a(4.0)
  15   end subroutine sub
  16 end module m
  17
  18 use m
  19 implicit none
  20 EXTERNAL foo  ! implicit interface is undefined
  21 call sub(foo) ! { dg-error "Type/rank mismatch in argument" }
  22 end