1! { dg-do run { target c99_runtime } } 2! { dg-additional-sources ISO_Fortran_binding_15.c } 3! 4! Test the fix for PR921233. The additional source is the main program. 5! 6! Contributed by Vipul Parekh <parekhvs@gmail.com> 7! 8module m 9 use, intrinsic :: iso_c_binding, only : c_int 10contains 11 subroutine Fsub( dat ) bind(C, name="Fsub") 12 integer(c_int), allocatable, intent(out) :: dat(..) 13 select rank (dat) 14 rank (0) 15 allocate( dat ) 16 dat = 42 17 end select 18 return 19 end subroutine 20end module m 21