blob: b82210d4e28ea766897ecf37c108e2a3ea2ff227 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do compile }
! PR fortran/101329 - ICE: Invalid expression in gfc_element_size
program p
use iso_c_binding
implicit none
integer(c_int), pointer :: ip4
integer(c_int64_t), pointer :: ip8
print *, c_sizeof (c_null_ptr) ! valid
print *, c_sizeof (null ()) ! { dg-error "is not interoperable" }
print *, c_sizeof (null (ip4)) ! { dg-error "is not interoperable" }
print *, c_sizeof (null (ip8)) ! { dg-error "is not interoperable" }
end
|