gcc/testsuite/gfortran.dg/proc_decl_7.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()
  10         real :: a
  11       end function a
  12     end interface
  13     print *, a()
  14   end subroutine sub
  15 end module m
  16 use m
  17 implicit none
  18 intrinsic cos
  19 call sub(cos) ! { dg-error "Type/rank mismatch in argument" }
  20 end
  21 ! { dg-final { cleanup-modules "m" } }