gcc/testsuite/gfortran.dg/ISO_Fortran_binding_15.f90

   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 !
   8 module m
   9   use, intrinsic :: iso_c_binding, only : c_int
  10 contains
  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
  20 end module m