blob: e03d5c8f7def01fc02c43f77a9d39feb3a4fb1ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { dg-do compile }
! PR fortran/104819
!
! Reject NULL without MOLD as actual to an assumed-rank dummy.
! See also interpretation request at
! https://j3-fortran.org/doc/year/22/22-101r1.txt
!
! Test nested NULL()
program p
implicit none
integer, pointer :: a, a3(:,:,:)
character(10), pointer :: c
call foo (a)
call foo (a3)
call foo (null (a))
call foo (null (a3))
call foo (null (null (a))) ! Valid: nested NULL()s
call foo (null (null (a3))) ! Valid: nested NULL()s
call foo (null ()) ! { dg-error "passed to assumed-rank dummy" }
call str (null (c))
call str (null (null (c)))
call str (null ()) ! { dg-error "passed to assumed-length dummy" }
contains
subroutine foo (x)
integer, pointer, intent(in) :: x(..)
print *, rank (x)
end
subroutine str (x)
character(len=*), pointer, intent(in) :: x
end
end
|
