|
! { dg-do compile }
|
|
! { dg-options "-fcheck=bounds" }
|
|
!
|
|
! PR fortran/43015
|
|
!
|
|
! Contributed by Dennis Wassel
|
|
!
|
|
SUBROUTINE foo(msg) BIND(C, name = "Foo")
|
|
USE, INTRINSIC :: iso_c_binding
|
|
IMPLICIT NONE
|
|
CHARACTER (KIND=C_CHAR), INTENT (out) :: msg(*)
|
|
END SUBROUTINE foo
|
|
|