4 ! Reject NULL without MOLD as actual to an assumed-rank dummy.
5 ! See also interpretation request at
6 ! https://j3-fortran.org/doc/year/22/22-101r1.txt
12 integer, pointer :: a
, a3(:,:,:)
13 character(10), pointer :: c
19 call foo (null (null (a
))) ! Valid: nested NULL()s
20 call foo (null (null (a3
))) ! Valid: nested NULL()s
21 call foo (null ()) ! { dg-error "passed to assumed-rank dummy" }
24 call str (null (null (c
)))
25 call str (null ()) ! { dg-error "passed to assumed-length dummy" }
28 integer, pointer, intent(in
) :: x(..)
33 character(len
=*), pointer, intent(in
) :: x