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