gcc/testsuite/gfortran.dg/proc_decl_8.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
  17 end module m
  18
  19 use m
  20 implicit none
  21 EXTERNAL foo  ! interface is undefined
  22 procedure(cos) :: foo ! { dg-error "Duplicate EXTERNAL attribute specified" }
  23 call sub(foo)         ! { dg-error "Type/rank mismatch in argument" }
  24 end
  25 ! { dg-final { cleanup-modules "m" } }