gcc/testsuite/gfortran.dg/bind_c_array_params.f03

   1 ! { dg-do compile }
   2 module bind_c_array_params
   3 use, intrinsic :: iso_c_binding
   4 implicit none
   5
   6 contains
   7   subroutine sub0(assumed_array) bind(c) ! { dg-error "cannot be an argument" }
   8     integer(c_int), dimension(:) :: assumed_array
   9   end subroutine sub0
  10
  11   subroutine sub1(deferred_array) bind(c) ! { dg-error "cannot" }
  12     integer(c_int), pointer :: deferred_array(:)
  13   end subroutine sub1
  14 end module bind_c_array_params