fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / bind_c_array_params.f03
blob6590db1d1d69341f2a5b489d169fda6fe7c09ea6
1 ! { dg-do compile }
2 module bind_c_array_params
3 use, intrinsic :: iso_c_binding
4 implicit none
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
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