1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { dg-do compile }
!
! PR fortran/93366 - ICE on invalid, reject invalid use of NULL() as argument
program p
print *, kind (null()) ! { dg-error "NULL at" }
print *, [ merge(null(), [1] ,.true.) ] ! { dg-error "NULL at" }
print *, [ merge([1] , null(),.true.) ] ! { dg-error "NULL at" }
print *, [ merge(null(), null(),.true.) ] ! { dg-error "NULL at" }
print *, shape (null()) ! { dg-error "NULL at" }
print *, sizeof (null()) ! { dg-error "NULL at" }
print *, spread (null(),1,1) ! { dg-error "NULL at" }
print *, transfer ( 1 , null()) ! { dg-error "NULL at" }
print *, transfer ([1], null()) ! { dg-error "NULL at" }
print *, transfer (null(), 1) ! { dg-error "NULL at" }
print *, transfer (null(), [1]) ! { dg-error "NULL at" }
print *, transfer (null(), null()) ! { dg-error "NULL at" }
end
|
