gcc/testsuite/gfortran.dg/null_actual_2.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/104126
   4 !
   5 ! Contributed by G. Steinmetz
   6 !
   7 program p
   8    use iso_c_binding, only: c_char
   9    character(len=:,kind=c_char), pointer :: d
  10    call s(null(d))
  11    call s(null())
  12 contains
  13    subroutine s(x) bind(c)
  14       character(len=:, kind=c_char), pointer, intent(in) :: x
  15    end
  16 end