gcc/testsuite/gfortran.dg/null_actual_2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do compile }
!
! PR fortran/104126
!
! Contributed by G. Steinmetz 
!
program p
   use iso_c_binding, only: c_char
   character(len=:,kind=c_char), pointer :: d
   call s(null(d))
   call s(null())
contains
   subroutine s(x) bind(c)
      character(len=:, kind=c_char), pointer, intent(in) :: x
   end
end