blob: b82210d4e28ea766897ecf37c108e2a3ea2ff227 [file] [log] [blame]
! { 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